X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FInfoTables.h;h=5dd8a67f46dc8f9250e24cfe834cf9cb10182520;hb=0268d6925e117661769fbe1ed823cbef7e4da8e3;hp=38079b740e3b1f6f6a2635ba8a30626a5eeae5c7;hpb=7f309f1c021e7583f724cce599ce2dd3c439361b;p=ghc-hetmet.git

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))