From f88f584eec6a7f054a49a852f126d690652145cf Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 3 Feb 2012 08:57:42 -0700 Subject: [PATCH] svm: Fixed closure gc-flip. The new compiled closures were unusable after a gc-flip. The first (often only) target entry was not scanned. compiled_closure_entry is not used when !EMBEDDED_CLOSURE_ADDRS_P. --- src/microcode/cmpintmd/svm1.c | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/src/microcode/cmpintmd/svm1.c b/src/microcode/cmpintmd/svm1.c index 314391786..ee6228a77 100644 --- a/src/microcode/cmpintmd/svm1.c +++ b/src/microcode/cmpintmd/svm1.c @@ -227,15 +227,9 @@ compiled_closure_count (SCHEME_OBJECT * block) insn_t * compiled_closure_start (SCHEME_OBJECT * block) { - return (((insn_t *) block) + CLOSURE_ENTRY_OFFSET); + return (((insn_t *) block) + CLOSURE_ENTRY_START); } -insn_t * -compiled_closure_entry (insn_t * start) -{ - return start; -} - insn_t * compiled_closure_next (insn_t * start) { -- 2.25.1