Add extra fasl field for systems without HEAP_IN_LOW_MEMORY.

diff --git a/v7/src/microcode/dump.c b/v7/src/microcode/dump.c
index 718692bfe08cbd111e0f52f8285353bcbdc8f11b..389a74e06f44557f9293484c6a92f693b752dec1 100644 (file)
--- a/v7/src/microcode/dump.c
+++ b/v7/src/microcode/dump.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: dump.c,v 9.38 1993/11/04 19:33:13 gjr Exp $
+$Id: dump.c,v 9.39 1993/11/08 06:34:18 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -128,6 +128,12 @@ DEFUN (prepare_dump_header, (Buffer, Dumped_Object,
   Buffer[FASL_Offset_C_Size] =
     MAKE_OBJECT (TC_BROKEN_HEART, c_table_size);
 
+#ifdef HEAP_IN_LOW_MEMORY
+  Buffer[FASL_Offset_Mem_Base] = ((SCHEME_OBJECT) 0);
+#else /* not HEAP_IN_LOW_MEMORY */
+  Buffer[FASL_Offset_Mem_Base] = ((SCHEME_OBJECT) memory_base);
+#endif /* HEAP_IN_LOW_MEMORY */
+
   Buffer[FASL_Offset_Check_Sum] = SHARP_F;
   for (i = FASL_Offset_First_Free; i < FASL_HEADER_LENGTH; i++)
     Buffer[i] = SHARP_F;

diff --git a/v7/src/microcode/fasl.h b/v7/src/microcode/fasl.h
index aa53ae9d4bfa97cb4a69e18b9ff8775184c255b4..2594040535311476cadaa7a926f7ff41d8eb8737 100644 (file)
--- a/v7/src/microcode/fasl.h
+++ b/v7/src/microcode/fasl.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fasl.h,v 9.34 1993/11/04 04:02:49 gjr Exp $
+$Id: fasl.h,v 9.35 1993/11/08 06:34:23 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -60,8 +60,9 @@ MIT in each case. */
 #define FASL_Offset_Check_Sum  12      /* Header and data checksum. */
 #define FASL_Offset_C_Length   13      /* Number of entries in the C code table */
 #define FASL_Offset_C_Size     14      /* Size of C code table in SCHEME_OBJECTs */
+#define FASL_Offset_Mem_Base   15      /* Base address when not HEAP_IN_LOW_MEMORY */
 
-#define FASL_Offset_First_Free 15      /* Used to clear header */
+#define FASL_Offset_First_Free 16      /* Used to clear header */
 
 /* Aliases for backwards compatibility. */
 

diff --git a/v7/src/microcode/load.c b/v7/src/microcode/load.c
index cf4403dae49c0125313ea9fd1a60495ba10ab769..8e771ed44c7f52988789f594d6c3f79db816da57 100644 (file)
--- a/v7/src/microcode/load.c
+++ b/v7/src/microcode/load.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: load.c,v 9.34 1993/11/04 19:33:21 gjr Exp $
+$Id: load.c,v 9.35 1993/11/08 06:34:30 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -75,7 +75,8 @@ static long
   Dumped_Heap_Top, Dumped_Constant_Top,
   Primitive_Table_Size, Primitive_Table_Length,
   C_Code_Table_Size, C_Code_Table_Length,
-  dumped_processor_type, dumped_interface_version;
+  dumped_processor_type, dumped_interface_version,
+  dumped_memory_base;
 
 static unsigned long
   dumped_checksum, computed_checksum;
@@ -186,6 +187,7 @@ DEFUN (initialize_variables_from_fasl_header, (buffer),
     C_Code_Table_Length = (OBJECT_DATUM (buffer[FASL_Offset_C_Length]));
     C_Code_Table_Size = (OBJECT_DATUM (buffer[FASL_Offset_C_Size]));
   }
+  dumped_memory_base = ((long) buffer[FASL_Offset_Mem_Base]);
 \f
 #ifndef INHIBIT_FASL_VERSION_CHECK
   /* The error messages here should be handled by the runtime system! */

diff --git a/v8/src/microcode/fasl.h b/v8/src/microcode/fasl.h
index aa53ae9d4bfa97cb4a69e18b9ff8775184c255b4..2594040535311476cadaa7a926f7ff41d8eb8737 100644 (file)
--- a/v8/src/microcode/fasl.h
+++ b/v8/src/microcode/fasl.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: fasl.h,v 9.34 1993/11/04 04:02:49 gjr Exp $
+$Id: fasl.h,v 9.35 1993/11/08 06:34:23 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -60,8 +60,9 @@ MIT in each case. */
 #define FASL_Offset_Check_Sum  12      /* Header and data checksum. */
 #define FASL_Offset_C_Length   13      /* Number of entries in the C code table */
 #define FASL_Offset_C_Size     14      /* Size of C code table in SCHEME_OBJECTs */
+#define FASL_Offset_Mem_Base   15      /* Base address when not HEAP_IN_LOW_MEMORY */
 
-#define FASL_Offset_First_Free 15      /* Used to clear header */
+#define FASL_Offset_First_Free 16      /* Used to clear header */
 
 /* Aliases for backwards compatibility. */