From 2c91707a71128f497899c8b2e88db152b9a3aca9 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 15 Jul 1997 22:06:24 +0000 Subject: [PATCH] Add ADDRESS_HEAP_P to match existing predicate ADDRESS_CONSTANT_P --- v7/src/microcode/object.h | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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) && \ -- 2.25.1