From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 30 Nov 1989 05:32:10 +0000 (+0000)
Subject: Fix bug in Do_Compiled_Entry: OBJECT_NEW_DATUM was incorrectly used
X-Git-Tag: 20090517-FFI~11652
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=642f52781d34cdabaf1eb9ab4ee3fb6253b8b6e9;p=mit-scheme.git

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 ca21a642e..eed809a97 100644
--- 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 0429e2188..e03a9b6f9 100644
--- 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));			\