X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FHsFFI.h;h=dceabab86fed730decf75c2c29838d9871d1bab2;hb=e8a42ae2991013f586cb0606fcbd70d9b4c41d6f;hp=0d343f8d980d66572d7bd2661507a6b29c27b9f3;hpb=d5934bbb856aa0aa620c9b2e0fa51c90a1a5a048;p=ghc-hetmet.git

diff --git a/includes/HsFFI.h b/includes/HsFFI.h
index 0d343f8..dceabab 100644
--- a/includes/HsFFI.h
+++ b/includes/HsFFI.h
@@ -18,8 +18,7 @@ extern "C" {
 
 /* get types from GHC's runtime system */
 #include "ghcconfig.h"
-#include "RtsConfig.h"
-#include "StgTypes.h"
+#include "stg/Types.h"
 
 /* get limits for integral types */
 #ifdef HAVE_STDINT_H
@@ -84,10 +83,7 @@ typedef StgDouble		HsDouble;
 typedef StgInt			HsBool;
 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
@@ -104,9 +100,11 @@ typedef void*			HsForeignObj;   /* DEPRECATED */
 #if   SIZEOF_VOID_P == 8
 #define HS_INT_MIN		__INT64_MIN
 #define HS_INT_MAX		__INT64_MAX
+#define HS_WORD_MAX		__UINT64_MAX
 #elif SIZEOF_VOID_P == 4
 #define HS_INT_MIN		__INT32_MIN
 #define HS_INT_MAX		__INT32_MAX
+#define HS_WORD_MAX		__UINT32_MAX
 #else
 #error GHC untested on this architecture: sizeof(void *) != 4 or 8
 #endif
@@ -158,8 +156,6 @@ extern void hs_perform_gc (void);
 extern void hs_free_stable_ptr (HsStablePtr sp);
 extern void hs_free_fun_ptr    (HsFunPtr fp);
 
-extern void hs_hpc_module(char *modName,int modCount,StgWord64 *tixArr);
-
 /* -------------------------------------------------------------------------- */
 
 #ifdef __cplusplus