From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 6 Jan 1994 19:51:22 +0000 (+0000)
Subject: Patch to allow ordinary compiled files to work with allow_cc.
X-Git-Tag: 20090517-FFI~7337
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0abde16fada8671acc4adc2ff42cfdd47636550f;p=mit-scheme.git

Patch to allow ordinary compiled files to work with allow_cc.
The utilities vector is not relevant for ordinary code, only for bands
or dumped linked objects, which, for now, bintopsb cannot handle.
---

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index 543d73051..86ea18b34 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bintopsb.c,v 9.63 1993/11/16 04:50:02 gjr Exp $
+$Id: bintopsb.c,v 9.64 1994/01/06 19:51:22 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -2126,8 +2126,9 @@ DEFUN_VOID (do_it)
 
     Heap_Start = (NROOTS + (TRAP_MAX_IMMEDIATE + 1));
     Heap_Objects_Start = (Heap_Start + Heap_Count);
-    Mem_Base[(Heap_Start - NROOTS) + 0]
-      = dumped_utilities;
+    if (! band_p)
+      dumped_utilities = SHARP_F;
+    Mem_Base[(Heap_Start - NROOTS) + 0] = dumped_utilities;
     if (dumped_utilities != SHARP_F)
     {
       /* This knows the format of the utilities vector. */ 
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 543d73051..86ea18b34 100644
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bintopsb.c,v 9.63 1993/11/16 04:50:02 gjr Exp $
+$Id: bintopsb.c,v 9.64 1994/01/06 19:51:22 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -2126,8 +2126,9 @@ DEFUN_VOID (do_it)
 
     Heap_Start = (NROOTS + (TRAP_MAX_IMMEDIATE + 1));
     Heap_Objects_Start = (Heap_Start + Heap_Count);
-    Mem_Base[(Heap_Start - NROOTS) + 0]
-      = dumped_utilities;
+    if (! band_p)
+      dumped_utilities = SHARP_F;
+    Mem_Base[(Heap_Start - NROOTS) + 0] = dumped_utilities;
     if (dumped_utilities != SHARP_F)
     {
       /* This knows the format of the utilities vector. */