From 642f52781d34cdabaf1eb9ab4ee3fb6253b8b6e9 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 30 Nov 1989 05:32:10 +0000 Subject: [PATCH] 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. --- v7/src/microcode/bintopsb.c | 4 ++-- v8/src/microcode/bintopsb.c | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) 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)); \ -- 2.25.1