Add hs_try_putmvar()
[ghc.git] / rts / RtsSymbols.h
1 /* -----------------------------------------------------------------------------
2 *
3 * (c) The GHC Team, 2000-2015
4 *
5 * RTS Symbols
6 *
7 * ---------------------------------------------------------------------------*/
8
9 #ifndef RTS_SYMBOLS_H
10 #define RTS_SYMBOLS_H
11
12 #include "ghcautoconf.h"
13
14 #ifdef LEADING_UNDERSCORE
15 #define MAYBE_LEADING_UNDERSCORE_STR(s) ("_" s)
16 #else
17 #define MAYBE_LEADING_UNDERSCORE_STR(s) (s)
18 #endif
19
20 typedef char SymbolName;
21 typedef void SymbolAddr;
22
23 typedef struct _RtsSymbolVal {
24 const SymbolName* lbl;
25 SymbolAddr* addr;
26 } RtsSymbolVal;
27
28 extern RtsSymbolVal rtsSyms[];
29
30 #endif /* RTS_SYMBOLS_H */