From 7a8b8cd4ffaf83b1359aa949e2ee84a13ad1dfd4 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 29 Oct 1991 22:37:22 +0000 Subject: [PATCH] Define HPPA_QUAD_MASK and re-write ADDRESS_TO_DATUM to use it so that the bchscheme windows can be in a different quadrant. --- v7/src/microcode/config.h | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h index 7131c4be0..fcbbf60f3 100644 --- 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 */ -- 2.25.1