From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 9 Nov 1993 06:38:55 +0000 (+0000)
Subject: define CLOSURE_ENTRY_DELTA, used to make the same .c source work with
X-Git-Tag: 20090517-FFI~7567
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f54c1d368cff7f1eee3bf16e08fa76695c1a5593;p=mit-scheme.git

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 1cef00365..0ab2b47ed 100644
--- 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 1cef00365..0ab2b47ed 100644
--- 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)