define CLOSURE_ENTRY_DELTA, used to make the same .c source work with

HEAP_IN_LOW_MEMORY and without it.

diff --git a/v7/src/microcode/liarc.h b/v7/src/microcode/liarc.h
index 1cef00365f0e99f547c7fe147bde32b8e036ed87..0ab2b47eddd1ba3e6c55a6449e4903d66b1aea93 100644 (file)
--- a/v7/src/microcode/liarc.h
+++ b/v7/src/microcode/liarc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: liarc.h,v 1.9 1993/11/08 21:43:42 gjr Exp $
+$Id: liarc.h,v 1.10 1993/11/09 06:38:55 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -80,6 +80,12 @@ typedef union machine_word_u machine_word;
 #define ADDRESS_UNITS_PER_OBJECT       (sizeof (SCHEME_OBJECT))
 #define ADDRESS_UNITS_PER_FLOAT                (sizeof (double))
 
+#ifdef HEAP_IN_LOW_MEMORY
+#define CLOSURE_ENTRY_DELTA    ADDRESS_UNITS_PER_OBJECT
+#else /* not HEAP_IN_LOW_MEMORY */
+#define CLOSURE_ENTRY_DELTA    1
+#endif /* HEAP_IN_LOW_MEMORY */
+
 #undef FIXNUM_TO_LONG
 #define FIXNUM_TO_LONG(source)                                         \
   ((((long) (source)) << TYPE_CODE_LENGTH) >> TYPE_CODE_LENGTH)

diff --git a/v8/src/microcode/liarc.h b/v8/src/microcode/liarc.h
index 1cef00365f0e99f547c7fe147bde32b8e036ed87..0ab2b47eddd1ba3e6c55a6449e4903d66b1aea93 100644 (file)
--- a/v8/src/microcode/liarc.h
+++ b/v8/src/microcode/liarc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: liarc.h,v 1.9 1993/11/08 21:43:42 gjr Exp $
+$Id: liarc.h,v 1.10 1993/11/09 06:38:55 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -80,6 +80,12 @@ typedef union machine_word_u machine_word;
 #define ADDRESS_UNITS_PER_OBJECT       (sizeof (SCHEME_OBJECT))
 #define ADDRESS_UNITS_PER_FLOAT                (sizeof (double))
 
+#ifdef HEAP_IN_LOW_MEMORY
+#define CLOSURE_ENTRY_DELTA    ADDRESS_UNITS_PER_OBJECT
+#else /* not HEAP_IN_LOW_MEMORY */
+#define CLOSURE_ENTRY_DELTA    1
+#endif /* HEAP_IN_LOW_MEMORY */
+
 #undef FIXNUM_TO_LONG
 #define FIXNUM_TO_LONG(source)                                         \
   ((((long) (source)) << TYPE_CODE_LENGTH) >> TYPE_CODE_LENGTH)