diff options
| author | andy@galois.com <unknown> | 2006-12-13 00:19:17 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2006-12-13 00:19:17 +0000 |
| commit | 55dd028c1dc41c603316dbe843fa13c1cac30720 (patch) | |
| tree | 509cbaf986cd3c9cc10f01458f4eefc72b72911c /includes | |
| parent | d50e93cf95b68bf858be82025b56c9977335ed76 (diff) | |
| download | haskell-55dd028c1dc41c603316dbe843fa13c1cac30720.tar.gz | |
Misc Hpc improvement to dynamic tracer output
- Added HPCRIX support for passing tracer filename.
- Added thread tracing support.
- Cleaned up use of HsFFI.h
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/HsFFI.h | 4 | ||||
| -rw-r--r-- | includes/RtsExternal.h | 6 |
2 files changed, 6 insertions, 4 deletions
diff --git a/includes/HsFFI.h b/includes/HsFFI.h index 9fce2a484d..cd9f7ede80 100644 --- a/includes/HsFFI.h +++ b/includes/HsFFI.h @@ -158,10 +158,6 @@ 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 diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h index bf581b7a2b..b917dcf141 100644 --- a/includes/RtsExternal.h +++ b/includes/RtsExternal.h @@ -66,6 +66,12 @@ extern void* createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr, char *typeString); extern void freeHaskellFunctionPtr(void* ptr); +/* Hpc stuff */ +extern int hs_hpc_module(char *modName,int modCount,StgWord64 *tixArr); +extern void hs_hpc_tick(int globIx,struct StgTSO_ *current_tso); +extern void hs_hpc_throw(struct StgTSO_ *current_tso); + + #if defined(mingw32_HOST_OS) extern int rts_InstallConsoleEvent ( int action, StgStablePtr *handler ); extern void rts_ConsoleHandlerDone ( int ev ); |