e3ff643556ce6fc3e0231dc7e5a857a71e9c5c45
[ghc.git] / includes / rts / Globals.h
1 /* -----------------------------------------------------------------------------
2 *
3 * (c) The GHC Team, 2006-2009
4 *
5 * The RTS stores some "global" values on behalf of libraries, so that
6 * some libraries can ensure that certain top-level things are shared
7 * even when multiple versions of the library are loaded. e.g. see
8 * Data.Typeable and GHC.Conc.
9 *
10 * Do not #include this file directly: #include "Rts.h" instead.
11 *
12 * To understand the structure of the RTS headers, see the wiki:
13 * http://ghc.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
14 *
15 * ---------------------------------------------------------------------------*/
16
17 #ifndef RTS_GLOBALS_H
18 #define RTS_GLOBALS_H
19
20 #define mkStoreAccessorPrototype(name) \
21 StgStablePtr \
22 getOrSet##name(StgStablePtr ptr);
23
24 mkStoreAccessorPrototype(GHCConcSignalSignalHandlerStore)
25 mkStoreAccessorPrototype(GHCConcWindowsPendingDelaysStore)
26 mkStoreAccessorPrototype(GHCConcWindowsIOManagerThreadStore)
27 mkStoreAccessorPrototype(GHCConcWindowsProddingStore)
28 mkStoreAccessorPrototype(SystemEventThreadEventManagerStore)
29 mkStoreAccessorPrototype(SystemEventThreadIOManagerThreadStore)
30 mkStoreAccessorPrototype(SystemTimerThreadEventManagerStore)
31 mkStoreAccessorPrototype(SystemTimerThreadIOManagerThreadStore)
32 mkStoreAccessorPrototype(LibHSghcFastStringTable)
33 mkStoreAccessorPrototype(LibHSghcPersistentLinkerState)
34 mkStoreAccessorPrototype(LibHSghcInitLinkerDone)
35 mkStoreAccessorPrototype(LibHSghcGlobalDynFlags)
36 mkStoreAccessorPrototype(LibHSghcStaticOptions)
37 mkStoreAccessorPrototype(LibHSghcStaticOptionsReady)
38
39 #endif /* RTS_GLOBALS_H */