Fix braino.

diff --git a/v7/src/microcode/cmpint.c b/v7/src/microcode/cmpint.c
index a6eda50a056811a1662d1a53e7acf16878bfd62d..8f47e03b9b956c5ec2223152cb50ad51877c793e 100644 (file)
--- 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);
 }
 \f
 /* Bad entry points. */

diff --git a/v7/src/microcode/dump.c b/v7/src/microcode/dump.c
index f69fc859052ccc679a90a20b4cc194d6471281f1..718692bfe08cbd111e0f52f8285353bcbdc8f11b 100644 (file)
--- 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 c5de81548f1f22e99aa38d78673aaa40f93d18ae..cf4403dae49c0125313ea9fd1a60495ba10ab769 100644 (file)
--- 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]));
   }
 \f
 #ifndef INHIBIT_FASL_VERSION_CHECK

diff --git a/v8/src/microcode/cmpint.c b/v8/src/microcode/cmpint.c
index a6eda50a056811a1662d1a53e7acf16878bfd62d..8f47e03b9b956c5ec2223152cb50ad51877c793e 100644 (file)
--- 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);
 }
 \f
 /* Bad entry points. */