From: sof <unknown>
Date: Fri, 21 May 1999 14:37:12 +0000 (+0000)
Subject: [project @ 1999-05-21 14:37:12 by sof]
X-Git-Tag: Approximately_9120_patches~6188
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=472e4418fa0fe51627a51d15e040bd6cfa17ef62;p=ghc-hetmet.git

[project @ 1999-05-21 14:37:12 by sof]
Improved precision of LOOKS_LIKE_PTR()
---

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index 28bc432..920530a 100644
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Sanity.c,v 1.13 1999/05/11 16:47:57 keithw Exp $
+ * $Id: Sanity.c,v 1.14 1999/05/21 14:37:12 sof Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -23,7 +23,7 @@
 #include "BlockAlloc.h"
 #include "Sanity.h"
 
-#define LOOKS_LIKE_PTR(r) (IS_DATA_PTR(r) || ((HEAP_ALLOCED(r) && Bdescr((P_)r)->free != (void *)-1)))
+#define LOOKS_LIKE_PTR(r) (LOOKS_LIKE_STATIC_CLOSURE(r) || ((HEAP_ALLOCED(r) && Bdescr((P_)r)->free != (void *)-1)))
 
 /* -----------------------------------------------------------------------------
    Check stack sanity