X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FHooks.h;h=a448979525ec08995f25121732663aecc0c1c932;hb=50b99d58fe3f6912b78341aa277fbbdc6c3cf677;hp=16e28775b1385867c69a682c9288a92cfae4869f;hpb=7f309f1c021e7583f724cce599ce2dd3c439361b;p=ghc-hetmet.git diff --git a/ghc/includes/Hooks.h b/ghc/includes/Hooks.h index 16e2877..a448979 100644 --- a/ghc/includes/Hooks.h +++ b/ghc/includes/Hooks.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Hooks.h,v 1.3 1999/02/05 16:02:22 simonm Exp $ + * $Id: Hooks.h,v 1.7 2004/02/15 13:29:44 krasimir Exp $ * * (c) The GHC Team, 1998-1999 * @@ -7,13 +7,15 @@ * * ---------------------------------------------------------------------------*/ +extern char *ghc_rts_opts; + extern void OnExitHook (void); -extern void ErrorHdrHook (long fd); extern int NoRunnableThreadsHook (void); extern void StackOverflowHook (unsigned long stack_size); extern void OutOfHeapHook (unsigned long request_size, unsigned long heap_size); extern void MallocFailHook (unsigned long request_size /* in bytes */, char *msg); -extern void PatErrorHdrHook (long fd); extern void defaultsHook (void); -extern void PreTraceHook (long fd); -extern void PostTraceHook (long fd); +#if defined(PAR) +extern void InitEachPEHook (void); +extern void ShutdownEachPEHook (void); +#endif