From: simonm <unknown>
Date: Mon, 15 Feb 1999 12:12:55 +0000 (+0000)
Subject: [project @ 1999-02-15 12:12:55 by simonm]
X-Git-Tag: Approximately_9120_patches~6559
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ab3e053ab82b392468f90502f446cf60512dd84f;p=ghc-hetmet.git

[project @ 1999-02-15 12:12:55 by simonm]
Add a few more flag test macros.
---

diff --git a/ghc/includes/InfoTables.h b/ghc/includes/InfoTables.h
index 38079b7..5dd8a67 100644
--- a/ghc/includes/InfoTables.h
+++ b/ghc/includes/InfoTables.h
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: InfoTables.h,v 1.10 1999/02/05 16:02:23 simonm Exp $
+ * $Id: InfoTables.h,v 1.11 1999/02/15 12:12:55 simonm Exp $
  * 
  * (c) The GHC Team, 1998-1999
  *
@@ -179,8 +179,12 @@ typedef enum {
 #define _UPT (1<<6)  /* unpointed?         */
 #define _SRT (1<<7)  /* has an SRT?        */
 
-#define isSTATIC(flags)  ((flags)&_STA)
-#define isMUTABLE(flags) ((flags) &_MUT)
+#define isSTATIC(flags)    ((flags) &_STA)
+#define isMUTABLE(flags)   ((flags) &_MUT)
+#define isBITMAP(flags)    ((flags) &_BTM)
+#define isTHUNK(flags)     ((flags) &_THU)
+#define isUNPOINTED(flags) ((flags) &_UPT)
+#define hasSRT(flags)      ((flags) &_SRT)
 
 #define closure_STATIC(closure)       (  get_itbl(closure)->flags & _STA)
 #define closure_SHOULD_SPARK(closure) (!(get_itbl(closure)->flags & _NS))