projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Misc Hpc improvement to dynamic tracer output
[ghc-hetmet.git]
/
includes
/
RtsExternal.h
diff --git
a/includes/RtsExternal.h
b/includes/RtsExternal.h
index
8e1a26a
..
b917dcf
100644
(file)
--- 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);
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 );
#if defined(mingw32_HOST_OS)
extern int rts_InstallConsoleEvent ( int action, StgStablePtr *handler );
extern void rts_ConsoleHandlerDone ( int ev );
@@
-73,10
+79,19
@@
extern void rts_ConsoleHandlerDone ( int ev );
extern int stg_sig_install (int, int, StgStablePtr *, void *);
#endif
extern int stg_sig_install (int, int, StgStablePtr *, void *);
#endif
-#if !defined(mingw32_HOST_OS)
+#if defined(mingw32_HOST_OS)
+extern StgInt console_handler;
+#else
extern StgInt *signal_handlers;
#endif
extern StgInt *signal_handlers;
#endif
+
+#if defined(mingw32_HOST_OS)
+void *getIOManagerEvent (void);
+StgWord32 readIOManagerEvent (void);
+void sendIOManagerEvent (StgWord32 event);
+#else
extern void setIOManagerPipe (int fd);
extern void setIOManagerPipe (int fd);
+#endif
extern void* allocateExec(unsigned int len);
extern void* allocateExec(unsigned int len);