[project @ 2002-10-02 09:36:00 by wolfgang]

[ghc-hetmet.git] / ghc / includes / HsFFI.h

diff --git a/ghc/includes/HsFFI.h b/ghc/includes/HsFFI.h
index 2b6f353..7164007 100644 (file)
--- a/ghc/includes/HsFFI.h
+++ b/ghc/includes/HsFFI.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.h,v 1.14 2001/03/28 18:48:46 qrczak Exp $
+ * $Id: HsFFI.h,v 1.16 2001/11/07 19:11:43 sof Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -13,6 +13,10 @@
 #ifndef HSFFI_H
 #define HSFFI_H
 
+#ifdef __cplusplus
+extern "C" {
+#endif
+
 /* get types from GHC's runtime system */
 #include "config.h"
 #include "StgTypes.h"
@@ -89,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
@@ -137,4 +148,10 @@ typedef void*                      HsForeignObj;   /* DEPRECATED */
 #define HS_DOUBLE_MAX_EXP      DBL_MAX_EXP
 #define HS_DOUBLE_MAX_10_EXP   DBL_MAX_10_EXP
 
+/* -------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+}
+#endif
+
 #endif /* HSFFI_H */