From 23a1d1f25c553d5c9c3a91e96f353c143c8e1f50 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 6 Apr 2019 21:53:53 +0200 Subject: [PATCH] fix merge of ftype and ordered guardians Fill in missing field initializations in the case of an ftype guardian. original commit: fafb0ec18ba4751d972019b95897de0e1355ed91 --- s/cpnanopass.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/s/cpnanopass.ss b/s/cpnanopass.ss index 5aefe61add..ba6c05c1e1 100644 --- a/s/cpnanopass.ss +++ b/s/cpnanopass.ss @@ -5707,6 +5707,8 @@ (set! ,(%mref ,t ,(constant guardian-entry-rep-disp)) (immediate ,(constant ftype-guardian-rep))) (set! ,(%mref ,t ,(constant guardian-entry-tconc-disp)) ,e-tconc) (set! ,(%mref ,t ,(constant guardian-entry-next-disp)) ,(%tc-ref guardian-entries)) + (set! ,(%mref ,t ,(constant guardian-entry-ordered?-disp)) ,(%constant sfalse)) + (set! ,(%mref ,t ,(constant guardian-entry-pending-disp)) ,(%constant snil)) (set! ,(%tc-ref guardian-entries) ,t))))]) (define-inline 3 $make-phantom-bytevector