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 bad06f70e2e29a16609373979480a774fdc55fc0..dbbb297a72b32072812d42d25ee898dce94b07ca 100644 (file)
--- 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) &&                      \