diff options
| author | Erik de Castro Lopo <erikd@mega-nerd.com> | 2015-10-24 18:27:06 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-10-24 18:28:09 +0200 |
| commit | abc214b77de400c3a7efbc812bebb6d1a81b6ab6 (patch) | |
| tree | b26493392c62ac5ef40613dfb3fa76f5ef930e0d /rts/RtsSymbols.h | |
| parent | ca12c24d61c82ab404cdd230c38410bc0ad508ab (diff) | |
| download | haskell-abc214b77de400c3a7efbc812bebb6d1a81b6ab6.tar.gz | |
rts/Linker.c: Split RTS symbols out into separate file
Pull the RtsSymbolVal typedef and rtsSyms[] array out into a separate
header and C file. No change in functionality.
Test Plan: validate
Reviewers: simonmar, austin, bgamari
Subscribers: Phyx, thomie
Differential Revision: https://phabricator.haskell.org/D1362
Diffstat (limited to 'rts/RtsSymbols.h')
| -rw-r--r-- | rts/RtsSymbols.h | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/rts/RtsSymbols.h b/rts/RtsSymbols.h new file mode 100644 index 0000000000..cc02a989b4 --- /dev/null +++ b/rts/RtsSymbols.h @@ -0,0 +1,27 @@ +/* ----------------------------------------------------------------------------- + * + * (c) The GHC Team, 2000-2015 + * + * RTS Symbols + * + * ---------------------------------------------------------------------------*/ + +#ifndef RTS_SYMBOLS_H +#define RTS_SYMBOLS_H + + +#ifdef LEADING_UNDERSCORE +#define MAYBE_LEADING_UNDERSCORE_STR(s) ("_" s) +#else +#define MAYBE_LEADING_UNDERSCORE_STR(s) (s) +#endif + +typedef struct _RtsSymbolVal { + const char *lbl; + void *addr; +} RtsSymbolVal; + + +extern RtsSymbolVal rtsSyms[]; + +#endif /* RTS_SYMBOLS_H */ |