Define HPPA_QUAD_MASK and re-write ADDRESS_TO_DATUM to use it so that

the bchscheme windows can be in a different quadrant.

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index 7131c4be039adb50ab54e0a85d6667b16295a0ee..fcbbf60f3741d3b3e0b35b44107f9c2f26db348a 100644 (file)
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.63 1991/08/24 02:27:52 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.64 1991/10/29 22:37:22 jinx Exp $
 
 Copyright (c) 1987-91 Massachusetts Institute of Technology
 
@@ -278,13 +278,16 @@ typedef unsigned long SCHEME_OBJECT;
 
 #define HEAP_IN_LOW_MEMORY
 
+/* data segment bits and mask for all bits */
+
 #define HPPA_QUAD_BIT  0x40000000
+#define HPPA_QUAD_MASK 0xC0000000
 
 #define DATUM_TO_ADDRESS(datum)                                                \
   ((SCHEME_OBJECT *) (((unsigned long) (datum)) | HPPA_QUAD_BIT))
 
 #define ADDRESS_TO_DATUM(address)                                      \
-  ((SCHEME_OBJECT) (((unsigned long) (address)) & (~(HPPA_QUAD_BIT))))
+  ((SCHEME_OBJECT) (((unsigned long) (address)) & (~(HPPA_QUAD_MASK))))
 
 #endif /* hp9000s800 */