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 ad457d92a1b29830e3777b66df4e276feb217efc..f238b342a77ef958148ced6fd04e23b2e46ed61a 100644 (file)
--- 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 ad457d92a1b29830e3777b66df4e276feb217efc..f238b342a77ef958148ced6fd04e23b2e46ed61a 100644 (file)
--- 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;