From ab3e053ab82b392468f90502f446cf60512dd84f Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 15 Feb 1999 12:12:55 +0000
Subject: [PATCH] [project @ 1999-02-15 12:12:55 by simonm] Add a few more
 flag test macros.

---
 ghc/includes/InfoTables.h |   10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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