From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 3 Feb 2012 15:57:42 +0000 (-0700)
Subject: svm: Fixed closure gc-flip.
X-Git-Tag: release-9.2.0~323
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f88f584eec6a7f054a49a852f126d690652145cf;p=mit-scheme.git

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.
---

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)
 {