From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Nov 1993 16:47:01 +0000 (+0000)
Subject: Fix initialization problem when loading with the C code table.
X-Git-Tag: 20090517-FFI~7563
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cdb495d884741c2d4525f7c7d8b2f9a335dd8e84;p=mit-scheme.git

Fix initialization problem when loading with the C code table.
---

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index ad457d92a..f238b342a 100644
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bintopsb.c,v 9.61 1993/11/09 08:36:04 gjr Exp $
+$Id: bintopsb.c,v 9.62 1993/11/09 16:47:01 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -2090,7 +2090,9 @@ DEFUN_VOID (do_it)
 
     c_code_table = primitive_table_end;
     c_code_table_end = &c_code_table[C_Code_Table_Size];
-    if (C_Code_Table_Size != 0)
+    if (C_Code_Table_Size == 0)
+      c_code_table[0] = (LONG_TO_UNSIGNED_FIXNUM (0));
+    else
     {
       fast SCHEME_OBJECT * table;
       fast long count, char_count;
diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index ad457d92a..f238b342a 100644
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bintopsb.c,v 9.61 1993/11/09 08:36:04 gjr Exp $
+$Id: bintopsb.c,v 9.62 1993/11/09 16:47:01 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -2090,7 +2090,9 @@ DEFUN_VOID (do_it)
 
     c_code_table = primitive_table_end;
     c_code_table_end = &c_code_table[C_Code_Table_Size];
-    if (C_Code_Table_Size != 0)
+    if (C_Code_Table_Size == 0)
+      c_code_table[0] = (LONG_TO_UNSIGNED_FIXNUM (0));
+    else
     {
       fast SCHEME_OBJECT * table;
       fast long count, char_count;