From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Aug 1988 02:31:26 +0000 (+0000)
Subject: table_length and table_size are stored with Make_Non_Pointer, rather
X-Git-Tag: 20090517-FFI~12628
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f2faf301dc774b02f1a558a2614ddaf9a89cc1d;p=mit-scheme.git

table_length and table_size are stored with Make_Non_Pointer, rather
than Make_Pointer, since they are integers rather than pointers.
---

diff --git a/v7/src/microcode/dump.c b/v7/src/microcode/dump.c
index bf648becf..b0f61637c 100644
--- a/v7/src/microcode/dump.c
+++ b/v7/src/microcode/dump.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/dump.c,v 9.26 1988/02/06 20:39:50 jinx Rel $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/dump.c,v 9.27 1988/08/09 02:31:26 jinx Exp $
  *
  * This file contains common code for dumping internal format binary files.
  */
@@ -81,17 +81,16 @@ prepare_dump_header(Buffer, Dumped_Object,
     Make_Version(FASL_FORMAT_VERSION,
 		 FASL_SUBVERSION, FASL_INTERNAL_FORMAT);
   Buffer[FASL_Offset_Stack_Top] =
-
 #ifdef USE_STACKLETS
-    Make_Pointer(TC_BROKEN_HEART, 0);	/* Nothing in stack area */
+    Make_Non_Pointer(TC_BROKEN_HEART, 0);	/* Nothing in stack area */
 #else
     Make_Pointer(TC_BROKEN_HEART, Stack_Top);
 #endif /* USE_STACKLETS */
 
   Buffer[FASL_Offset_Prim_Length] = 
-    Make_Pointer(TC_BROKEN_HEART, table_length);
+    Make_Non_Pointer(TC_BROKEN_HEART, table_length);
   Buffer[FASL_Offset_Prim_Size] = 
-    Make_Pointer(TC_BROKEN_HEART, table_size);
+    Make_Non_Pointer(TC_BROKEN_HEART, table_size);
 
   if (cc_code_p)
   {