Fix bug in Do_Compiled_Entry: OBJECT_NEW_DATUM was incorrectly used

for MAKE_OBJECT, and thus all compiled entries were being dumped as
nulls with non-zero datum fields.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index ca21a642e84599488ca535284c25fe484b2db38a..eed809a977fc00a9c208eaddbafda20543dbb1df 100644 (file)
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.42 1989/11/27 21:57:01 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.43 1989/11/30 05:32:10 jinx Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -719,7 +719,7 @@ print_a_flonum(val)
   Get_Compiled_Block (Old_Address, saved);                             \
   Old_Contents = (*Old_Address);                                       \
   (Mem_Base [(Scn)]) =                                                 \
-   (OBJECT_NEW_DATUM                                                   \
+   (MAKE_OBJECT                                                                \
     (TC_COMPILED_ENTRY,                                                        \
      (compiled_entry_pointer - compiled_entry_table)));                        \
   offset = (((char *) saved) - ((char *) Old_Address));                        \

diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 0429e21888ffd6b2cabba33bdc5a7347fb2a26db..e03a9b6f9f6292990ca510433c3beaaf70dae903 100644 (file)
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.42 1989/11/27 21:57:01 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.43 1989/11/30 05:32:10 jinx Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -719,7 +719,7 @@ print_a_flonum(val)
   Get_Compiled_Block (Old_Address, saved);                             \
   Old_Contents = (*Old_Address);                                       \
   (Mem_Base [(Scn)]) =                                                 \
-   (OBJECT_NEW_DATUM                                                   \
+   (MAKE_OBJECT                                                                \
     (TC_COMPILED_ENTRY,                                                        \
      (compiled_entry_pointer - compiled_entry_table)));                        \
   offset = (((char *) saved) - ((char *) Old_Address));                        \