Hooks.h 874 Bytes
Newer Older
1
/* -----------------------------------------------------------------------------
2
 *
3
 * (c) The GHC Team, 1998-2009
4 5 6
 *
 * User-overridable RTS hooks.
 *
7 8 9
 * Do not #include this file directly: #include "Rts.h" instead.
 *
 * To understand the structure of the RTS headers, see the wiki:
10
 *   http://ghc.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
11
 *
12 13
 * ---------------------------------------------------------------------------*/

14
#pragma once
Simon Marlow's avatar
Simon Marlow committed
15

16 17
#include "BeginPrivate.h"

18 19
extern char *ghc_rts_opts;

20
extern void OnExitHook (void);
21 22
extern void StackOverflowHook (W_ stack_size);
extern void OutOfHeapHook (W_ request_size, W_ heap_size);
23
extern void MallocFailHook (W_ request_size /* in bytes */, const char *msg);
24
extern void FlagDefaultsHook (void);
Simon Marlow's avatar
Simon Marlow committed
25 26
extern void LongGCSync (uint32_t capno, Time t);
extern void LongGCSyncEnd (Time t);
27 28

#include "EndPrivate.h"