X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRtsExternal.h;h=39a22fd3a8c84a63f59337747ef4a3555943db0c;hb=6a05ec5ef5373f61b7f9f5bdc344483417fa801b;hp=d1becf5168947f93e8c2f0ab048946546836e01e;hpb=17f848e12faf8cf51aa58918522b6abe1e75dc51;p=ghc-hetmet.git diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h index d1becf5..39a22fd 100644 --- a/includes/RtsExternal.h +++ b/includes/RtsExternal.h @@ -43,6 +43,8 @@ extern int forkOS_createThread ( HsStablePtr entry ); extern pid_t forkProcess(HsStablePtr *entry); extern HsBool rtsSupportsBoundThreads(void); extern StgInt newSpark (StgRegTable *reg, StgClosure *p); +extern void stopTimer(void); +extern unsigned int n_capabilities; /* grimy low-level support functions defined in StgPrimFloat.c */ extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e); @@ -72,9 +74,18 @@ extern void freeHaskellFunctionPtr(void* ptr); /* Hpc stuff */ extern int hs_hpc_module(char *modName,int modCount,int modHashNo,StgWord64 *tixArr); -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); +// Simple linked list of modules +typedef struct _HpcModuleInfo { + char *modName; // name of module + int tickCount; // number of ticks + int tickOffset; // offset into a single large .tix Array + int hashNo; // Hash number for this module's mix info + StgWord64 *tixArr; // tix Array; local for this module + struct _HpcModuleInfo *next; +} HpcModuleInfo; + +extern HpcModuleInfo *hs_hpc_rootModule(void); + #if defined(mingw32_HOST_OS) extern int rts_InstallConsoleEvent ( int action, StgStablePtr *handler ); @@ -113,5 +124,8 @@ extern void performMajorGC(void); extern HsInt64 getAllocations( void ); extern void revertCAFs( void ); extern void dirty_MUT_VAR(StgRegTable *reg, StgClosure *p); +extern void dirty_MVAR(StgRegTable *reg, StgClosure *p); + +extern void dirty_TSO(StgClosure *tso); #endif /* RTSEXTERNAL_H */