From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 15 Jul 1997 22:06:24 +0000 (+0000)
Subject: Add ADDRESS_HEAP_P to match existing predicate ADDRESS_CONSTANT_P
X-Git-Tag: 20090517-FFI~5054
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2c91707a71128f497899c8b2e88db152b9a3aca9;p=mit-scheme.git

Add ADDRESS_HEAP_P to match existing predicate ADDRESS_CONSTANT_P
---

diff --git a/v7/src/microcode/object.h b/v7/src/microcode/object.h
index bad06f70e..dbbb297a7 100644
--- a/v7/src/microcode/object.h
+++ b/v7/src/microcode/object.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: object.h,v 9.46 1995/09/18 22:33:38 cph Exp $
+$Id: object.h,v 9.47 1997/07/15 22:06:24 adams Exp $
 
 Copyright (c) 1987-95 Massachusetts Institute of Technology
 
@@ -505,6 +505,9 @@ extern SCHEME_OBJECT * memory_base;
 #define ADDRESS_PURE_P(address)						\
   ((ADDRESS_CONSTANT_P (address)) && (Pure_Test (address)))
 
+#define ADDRESS_HEAP_P(address)						\
+  (((address) >= Heap_Bottom) && ((address) < Heap_Top))
+
 #define SIDE_EFFECT_IMPURIFY(Old_Pointer, Will_Contain)			\
 if ((ADDRESS_CONSTANT_P (OBJECT_ADDRESS (Old_Pointer))) &&		\
     (GC_Type (Will_Contain) != GC_Non_Pointer) &&			\