[Openmcl-cvs-notifications] r10970 - /trunk/source/lisp-kernel/area.h

[gb at clozure.com]

Author: gb
Date: Sat Oct  4 00:58:14 2008
New Revision: 10970

Log:
If LOWMEM_BIAS isn't defined (via -D) on the C/m4 command-line, default it
to 0.  Try to ensure that all constants that define addresses relative
to NIL (nil/t/lisp-globals/nrs/spjump) are defined in terms of LOWMEM_BIAS.

Modified:
    trunk/source/lisp-kernel/area.h

Modified: trunk/source/lisp-kernel/area.h
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/area.h (original)
+++ trunk/source/lisp-kernel/area.h Sat Oct  4 00:58:14 2008
@@ -189,9 +189,9 @@
 #define STATIC_RESERVE heap_segment_size
 =

 #ifndef X86
-#define STATIC_BASE_ADDRESS 0x00002000
-#else
-#define STATIC_BASE_ADDRESS 0x00012000
+#define STATIC_BASE_ADDRESS (0x00002000+(LOWMEM_BIAS))
+#else
+#define STATIC_BASE_ADDRESS (0x00012000+(LOWMEM_BIAS))
 #endif
 =

 #define SPJUMP_TARGET_ADDRESS (STATIC_BASE_ADDRESS+0x3000)