Adding tracing support

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

diff --git a/includes/HsFFI.h b/includes/HsFFI.h
index 70891a2..9fce2a4 100644 (file)
--- a/includes/HsFFI.h
+++ b/includes/HsFFI.h
@@ -81,7 +81,7 @@ typedef StgWord32             HsWord32;
 typedef StgWord64              HsWord64;
 typedef StgFloat               HsFloat;
 typedef StgDouble              HsDouble;
-typedef StgBool                        HsBool;
+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       */
@@ -158,6 +158,10 @@ extern void hs_perform_gc (void);
 extern void hs_free_stable_ptr (HsStablePtr sp);
 extern void hs_free_fun_ptr    (HsFunPtr fp);
 
+extern int hs_hpc_module(char *modName,int modCount,StgWord64 *tixArr);
+extern void hs_hpc_tick(int globIx);
+extern void hs_hpc_throw(void);
+
 /* -------------------------------------------------------------------------- */
 
 #ifdef __cplusplus