From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 28 Aug 2010 20:58:19 +0000 (+0000)
Subject: Fix SVM's write_cc_entry_offset.
X-Git-Tag: 20101212-Gtk~78
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1ab44e048af328d95a7588ab16ad06aed52f47f1;p=mit-scheme.git

Fix SVM's write_cc_entry_offset.

Since this is used only to initialize trampolines, the starting
instruction is irrelevant, and will be garbage anyway because the
trampoline blocks are always freshly allocated.
---

diff --git a/src/microcode/cmpintmd/svm1.c b/src/microcode/cmpintmd/svm1.c
index bff8c8f3f..bbbc2e477 100644
--- a/src/microcode/cmpintmd/svm1.c
+++ b/src/microcode/cmpintmd/svm1.c
@@ -158,11 +158,7 @@ read_cc_entry_offset (cc_entry_offset_t * ceo, insn_t * address)
 bool
 write_cc_entry_offset (cc_entry_offset_t * ceo, insn_t * address)
 {
-  unsigned int code;
-
-  if ((*address) == SVM1_INST_ENTER_CLOSURE)
-    return (true);			/* not supported */
-  code = (ceo->offset) << 1;
+  unsigned int code = (ceo->offset) << 1;
   write_u16 (code + (ceo->continued_p ? 1 : 0), address - 2);
   return (false);
 }