diff options
| author | andy@galois.com <unknown> | 2007-06-12 07:46:55 +0000 |
|---|---|---|
| committer | andy@galois.com <unknown> | 2007-06-12 07:46:55 +0000 |
| commit | df58c2a53d37caf4f3b4d0b60a0466461bba7d19 (patch) | |
| tree | 42be5574992b8e06e3fb218dc1d3974e271f15af /includes | |
| parent | d0ea71ec5000050ec22487029a9fcf6da76ee422 (diff) | |
| download | haskell-df58c2a53d37caf4f3b4d0b60a0466461bba7d19.tar.gz | |
Adding new ffi calls into the Hpc rts subsystem
foreign import ccall unsafe hs_hpc_write :: CString -> IO ()
foreign import ccall unsafe hs_hpc_read :: CString -> IO ()
These write a Hpc description of the state of the world to a file,
or read a description into the current Hpc tickbox subsystem.
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/RtsExternal.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h index d1becf5168..58b6ef0e39 100644 --- a/includes/RtsExternal.h +++ b/includes/RtsExternal.h @@ -75,6 +75,8 @@ extern int hs_hpc_module(char *modName,int modCount,int modHashNo,StgWord64 *tix extern void hs_hpc_tick(int globIx,struct StgTSO_ *current_tso); extern void hs_hpc_raise_event(struct StgTSO_ *current_tso); extern void hs_hpc_thread_finished_event(struct StgTSO_ *current_tso); +extern void hs_hpc_read(char *filename); +extern void hs_hpc_write(char *filename); #if defined(mingw32_HOST_OS) extern int rts_InstallConsoleEvent ( int action, StgStablePtr *handler ); |