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

diff --git a/includes/HsFFI.h b/includes/HsFFI.h
index 0d343f8..f489be5 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
@@ -158,8 +154,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