X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FHsFFI.h;h=70891a2dc2e75d3afeae3d98e0a1015f253cb28e;hb=86f2671b37507012692a53c2fe45357b0988cb40;hp=2b6f35319b73ddb0295c8fd2e022228bc1d5404b;hpb=69f1369c0c6f2eb91afe03eb40845ad5c1a3f083;p=ghc-hetmet.git

diff --git a/ghc/includes/HsFFI.h b/ghc/includes/HsFFI.h
index 2b6f353..70891a2 100644
--- a/ghc/includes/HsFFI.h
+++ b/ghc/includes/HsFFI.h
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.h,v 1.14 2001/03/28 18:48:46 qrczak Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -13,8 +12,13 @@
 #ifndef HSFFI_H
 #define HSFFI_H
 
+#ifdef __cplusplus
+extern "C" {
+#endif
+
 /* get types from GHC's runtime system */
-#include "config.h"
+#include "ghcconfig.h"
+#include "RtsConfig.h"
 #include "StgTypes.h"
 
 /* get limits for integral types */
@@ -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,20 @@ typedef void*			HsForeignObj;   /* DEPRECATED */
 #define HS_DOUBLE_MAX_EXP	DBL_MAX_EXP
 #define HS_DOUBLE_MAX_10_EXP	DBL_MAX_10_EXP
 
+extern void hs_init     (int *argc, char **argv[]);
+extern void hs_exit     (void);
+extern void hs_set_argv (int argc, char *argv[]);
+extern void hs_add_root (void (*init_root)(void));
+
+extern void hs_perform_gc (void);
+
+extern void hs_free_stable_ptr (HsStablePtr sp);
+extern void hs_free_fun_ptr    (HsFunPtr fp);
+
+/* -------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+}
+#endif
+
 #endif /* HSFFI_H */