X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FHsFFI.h;fp=ghc%2Fincludes%2FHsFFI.h;h=7164007d563801c860eaee822c717f2c99a71259;hb=49d6688668fbe6ee72e429a53e3239d517ff9afe;hp=968bff897c838c33df756a12ef215b85a9d01b19;hpb=907755c2ed39ccf417113d85e0335cc2628f0dfa;p=ghc-hetmet.git

diff --git a/ghc/includes/HsFFI.h b/ghc/includes/HsFFI.h
index 968bff8..7164007 100644
--- a/ghc/includes/HsFFI.h
+++ b/ghc/includes/HsFFI.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.h,v 1.15 2001/10/29 11:33:37 simonmar Exp $
+ * $Id: HsFFI.h,v 1.16 2001/11/07 19:11:43 sof Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -93,6 +93,13 @@ typedef void*			HsForeignObj;   /* DEPRECATED */
 #define HS_CHAR_MIN		0
 #define HS_CHAR_MAX		0x10FFFF
 
+/* is it true or not?  */
+#define HS_BOOL_FALSE           0
+#define HS_BOOL_TRUE            1
+
+#define HS_BOOL_MIN             HS_BOOL_FALSE
+#define HS_BOOL_MAX             HS_BOOL_TRUE
+
 /* this mirrors the distinction of cases in StgTypes.h */
 #if   SIZEOF_VOID_P == 8
 #define HS_INT_MIN		__INT64_MIN