X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FHsFFI.h;h=7164007d563801c860eaee822c717f2c99a71259;hb=a909ce21592702606dfe18728bca553adbc8a380;hp=ebee19c4879c11b3e6ed83b9aba7daa0e336cd11;hpb=859ebb219b06d96ba6666998639fddd173c50e8a;p=ghc-hetmet.git

diff --git a/ghc/includes/HsFFI.h b/ghc/includes/HsFFI.h
index ebee19c..7164007 100644
--- a/ghc/includes/HsFFI.h
+++ b/ghc/includes/HsFFI.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.h,v 1.10 2000/11/14 14:47:23 simonmar 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"
@@ -78,13 +82,23 @@ typedef StgWord64		HsWord64;
 typedef StgFloat		HsFloat;
 typedef StgDouble		HsDouble;
 typedef StgBool			HsBool;
-typedef void*			HsAddr;         /* this should better match StgAddr */
-typedef void*			HsForeignObj;   /* ... and this StgForeignPtr       */
+typedef void*			HsPtr;          /* this should better match StgAddr */
+typedef void			(*HsFunPtr)(void); /* this should better match StgAddr */
+typedef void*			HsForeignPtr;   /* ... and this StgForeignPtr       */
 typedef void*			HsStablePtr;
+typedef void*			HsAddr;         /* DEPRECATED */
+typedef void*			HsForeignObj;   /* DEPRECATED */
 
 /* this should correspond to the type of StgChar in StgTypes.h */
 #define HS_CHAR_MIN		0
-#define HS_CHAR_MAX		__INT32_MAX
+#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
@@ -134,4 +148,10 @@ typedef void*			HsStablePtr;
 #define HS_DOUBLE_MAX_EXP	DBL_MAX_EXP
 #define HS_DOUBLE_MAX_10_EXP	DBL_MAX_10_EXP
 
+/* -------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+}
+#endif
+
 #endif /* HSFFI_H */