fix profiling on Win32

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

diff --git a/ghc/includes/HsFFI.h b/ghc/includes/HsFFI.h
index 7010aa1..70891a2 100644 (file)
--- a/ghc/includes/HsFFI.h
+++ b/ghc/includes/HsFFI.h
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsFFI.h,v 1.17 2002/11/17 15:27:07 panne Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -18,7 +17,8 @@ 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 */
@@ -151,11 +151,12 @@ typedef void*                     HsForeignObj;   /* DEPRECATED */
 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);
+extern void hs_free_stable_ptr (HsStablePtr sp);
+extern void hs_free_fun_ptr    (HsFunPtr fp);
 
 /* -------------------------------------------------------------------------- */