From: sof <unknown>
Date: Wed, 7 Nov 2001 19:11:43 +0000 (+0000)
Subject: [project @ 2001-11-07 19:11:43 by sof]
X-Git-Tag: Approximately_9120_patches~615
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=49d6688668fbe6ee72e429a53e3239d517ff9afe;p=ghc-hetmet.git

[project @ 2001-11-07 19:11:43 by sof]
Added #defines for HsBool values:
  - HS_BOOL_FALSE
  - HS_BOOL_TRUE
  - HS_BOOL_MIN
  - HS_BOOL_MAX
---

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