From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 4 Nov 1993 19:34:46 +0000 (+0000)
Subject: Fix braino.
X-Git-Tag: 20090517-FFI~7602
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e8c72995d4d16a56f6fc323dff82b2f4c5ad29fc;p=mit-scheme.git

Fix braino.
---

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index a6eda50a0..8f47e03b9 100644
--- a/v7/src/microcode/cmpint.c
+++ b/v7/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.76 1993/11/04 04:03:35 gjr Exp $
+$Id: cmpint.c,v 1.77 1993/11/04 19:34:46 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -3523,7 +3523,7 @@ Boolean
 DEFUN (install_c_code_table, (table, length),
        SCHEME_OBJECT * table AND long length)
 {
-  return (true);
+  return (length == 0);
 }
 
 #endif /* NATIVE_CODE_IS_C */
@@ -3662,7 +3662,7 @@ Boolean
 DEFUN (install_c_code_table, (table, length),
        SCHEME_OBJECT * table AND long length)
 {
-  return (true);
+  return (length == 0);
 }
 
 /* Bad entry points. */
diff --git a/v7/src/microcode/dump.c b/v7/src/microcode/dump.c
index f69fc8590..718692bfe 100644
--- a/v7/src/microcode/dump.c
+++ b/v7/src/microcode/dump.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: dump.c,v 9.37 1993/11/04 04:03:02 gjr Exp $
+$Id: dump.c,v 9.38 1993/11/04 19:33:13 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -47,7 +47,8 @@ void
 DEFUN (prepare_dump_header, (Buffer, Dumped_Object,
 			     Heap_Count, Heap_Relocation,
 			     Constant_Count, Constant_Relocation,
-			     table_length, table_size,
+			     prim_table_length, prim_table_size,
+			     c_table_length, c_table_size,
 			     cc_code_p, band_p),
        SCHEME_OBJECT * Buffer
        AND SCHEME_OBJECT * Dumped_Object
@@ -118,14 +119,14 @@ DEFUN (prepare_dump_header, (Buffer, Dumped_Object,
        flag it as if dumped without compiler support, so
        it can be loaded anywhere.
      */
-    Buffer[FASL_Offset_Ci_Version] = MAKE_CI_VERSION(band_p, 0, 0);
+    Buffer[FASL_Offset_Ci_Version] = (MAKE_CI_VERSION (band_p, 0, 0));
     Buffer[FASL_Offset_Ut_Base] = SHARP_F;
   }
 
   Buffer[FASL_Offset_C_Length] =
-    MAKE_OBJECT (TC_BROKEN_HEART, prim_table_length);
+    MAKE_OBJECT (TC_BROKEN_HEART, c_table_length);
   Buffer[FASL_Offset_C_Size] =
-    MAKE_OBJECT (TC_BROKEN_HEART, prim_table_size);
+    MAKE_OBJECT (TC_BROKEN_HEART, c_table_size);
 
   Buffer[FASL_Offset_Check_Sum] = SHARP_F;
   for (i = FASL_Offset_First_Free; i < FASL_HEADER_LENGTH; i++)
diff --git a/v7/src/microcode/load.c b/v7/src/microcode/load.c
index c5de81548..cf4403dae 100644
--- a/v7/src/microcode/load.c
+++ b/v7/src/microcode/load.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: load.c,v 9.33 1993/11/04 04:02:56 gjr Exp $
+$Id: load.c,v 9.34 1993/11/04 19:33:21 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -184,7 +184,7 @@ DEFUN (initialize_variables_from_fasl_header, (buffer),
   else
   {
     C_Code_Table_Length = (OBJECT_DATUM (buffer[FASL_Offset_C_Length]));
-    C_Code_Table_Size = (OBJECT_DATUM (buffer[FASL_Offset_C_Length]));
+    C_Code_Table_Size = (OBJECT_DATUM (buffer[FASL_Offset_C_Size]));
   }
 
 #ifndef INHIBIT_FASL_VERSION_CHECK
diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index a6eda50a0..8f47e03b9 100644
--- a/v8/src/microcode/cmpint.c
+++ b/v8/src/microcode/cmpint.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: cmpint.c,v 1.76 1993/11/04 04:03:35 gjr Exp $
+$Id: cmpint.c,v 1.77 1993/11/04 19:34:46 gjr Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -3523,7 +3523,7 @@ Boolean
 DEFUN (install_c_code_table, (table, length),
        SCHEME_OBJECT * table AND long length)
 {
-  return (true);
+  return (length == 0);
 }
 
 #endif /* NATIVE_CODE_IS_C */
@@ -3662,7 +3662,7 @@ Boolean
 DEFUN (install_c_code_table, (table, length),
        SCHEME_OBJECT * table AND long length)
 {
-  return (true);
+  return (length == 0);
 }
 
 /* Bad entry points. */