From eb95960e7c99b5bc288d775cdf4b1eef0d58c74e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 18 Mar 2015 04:44:27 -0600 Subject: [PATCH] fix memory-management bug in syntax-object lexical info --- racket/src/racket/src/mzmark_syntax.inc | 2 ++ racket/src/racket/src/mzmarksrc.c | 1 + 2 files changed, 3 insertions(+) diff --git a/racket/src/racket/src/mzmark_syntax.inc b/racket/src/racket/src/mzmark_syntax.inc index 277789718c..5f8af6f940 100644 --- a/racket/src/racket/src/mzmark_syntax.inc +++ b/racket/src/racket/src/mzmark_syntax.inc @@ -51,6 +51,7 @@ static int mark_rename_table_set_MARK(void *p, struct NewGC *gc) { gcMARK2(rns->other_phases, gc); gcMARK2(rns->share_marked_names, gc); gcMARK2(rns->set_identity, gc); + gcMARK2(rns->prior_contexts, gc); gcMARK2(rns->insp, gc); return gcBYTES_TO_WORDS(sizeof(Module_Renames_Set)); @@ -63,6 +64,7 @@ static int mark_rename_table_set_FIXUP(void *p, struct NewGC *gc) { gcFIXUP2(rns->other_phases, gc); gcFIXUP2(rns->share_marked_names, gc); gcFIXUP2(rns->set_identity, gc); + gcFIXUP2(rns->prior_contexts, gc); gcFIXUP2(rns->insp, gc); return gcBYTES_TO_WORDS(sizeof(Module_Renames_Set)); diff --git a/racket/src/racket/src/mzmarksrc.c b/racket/src/racket/src/mzmarksrc.c index 6aa3d580d2..5bfd37cbe5 100644 --- a/racket/src/racket/src/mzmarksrc.c +++ b/racket/src/racket/src/mzmarksrc.c @@ -2420,6 +2420,7 @@ mark_rename_table_set { gcMARK2(rns->other_phases, gc); gcMARK2(rns->share_marked_names, gc); gcMARK2(rns->set_identity, gc); + gcMARK2(rns->prior_contexts, gc); gcMARK2(rns->insp, gc); size: gcBYTES_TO_WORDS(sizeof(Module_Renames_Set));