From cdb495d884741c2d4525f7c7d8b2f9a335dd8e84 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Nov 1993 16:47:01 +0000
Subject: [PATCH] Fix initialization problem when loading with the C code
 table.

---
 v7/src/microcode/bintopsb.c | 6 ++++--
 v8/src/microcode/bintopsb.c | 6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

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;
-- 
2.25.1