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/Linker.c | |
| 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/Linker.c')
| -rw-r--r-- | rts/Linker.c | 1185 |
1 files changed, 2 insertions, 1183 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index c40af2feb2..a33b646a02 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -30,6 +30,7 @@ #include "Proftimer.h" #include "GetEnv.h" #include "Stable.h" +#include "RtsSymbols.h" #if !defined(mingw32_HOST_OS) #include "posix/Signals.h" @@ -375,1188 +376,6 @@ static void *mmap_32bit_base = (void *)MMAP_32BIT_BASE_DEFAULT; #endif /* ----------------------------------------------------------------------------- - * Built-in symbols from the RTS - */ - -typedef struct _RtsSymbolVal { - char *lbl; - void *addr; -} RtsSymbolVal; - -#define Maybe_Stable_Names SymI_HasProto(stg_mkWeakzh) \ - SymI_HasProto(stg_mkWeakNoFinalizzerzh) \ - SymI_HasProto(stg_addCFinalizzerToWeakzh) \ - SymI_HasProto(stg_makeStableNamezh) \ - SymI_HasProto(stg_finalizzeWeakzh) - -#if !defined (mingw32_HOST_OS) -#define RTS_POSIX_ONLY_SYMBOLS \ - SymI_HasProto(__hscore_get_saved_termios) \ - SymI_HasProto(__hscore_set_saved_termios) \ - SymI_HasProto(shutdownHaskellAndSignal) \ - SymI_HasProto(signal_handlers) \ - SymI_HasProto(stg_sig_install) \ - SymI_HasProto(rtsTimerSignal) \ - SymI_HasProto(atexit) \ - SymI_NeedsDataProto(nocldstop) -#endif - -#if defined (cygwin32_HOST_OS) -#define RTS_MINGW_ONLY_SYMBOLS /**/ -/* Don't have the ability to read import libs / archives, so - * we have to stupidly list a lot of what libcygwin.a - * exports; sigh. - */ -#define RTS_CYGWIN_ONLY_SYMBOLS \ - SymI_HasProto(regfree) \ - SymI_HasProto(regexec) \ - SymI_HasProto(regerror) \ - SymI_HasProto(regcomp) \ - SymI_HasProto(__errno) \ - SymI_HasProto(access) \ - SymI_HasProto(chmod) \ - SymI_HasProto(chdir) \ - SymI_HasProto(close) \ - SymI_HasProto(creat) \ - SymI_HasProto(dup) \ - SymI_HasProto(dup2) \ - SymI_HasProto(fstat) \ - SymI_HasProto(fcntl) \ - SymI_HasProto(getcwd) \ - SymI_HasProto(getenv) \ - SymI_HasProto(lseek) \ - SymI_HasProto(open) \ - SymI_HasProto(fpathconf) \ - SymI_HasProto(pathconf) \ - SymI_HasProto(stat) \ - SymI_HasProto(pow) \ - SymI_HasProto(tanh) \ - SymI_HasProto(cosh) \ - SymI_HasProto(sinh) \ - SymI_HasProto(atan) \ - SymI_HasProto(acos) \ - SymI_HasProto(asin) \ - SymI_HasProto(tan) \ - SymI_HasProto(cos) \ - SymI_HasProto(sin) \ - SymI_HasProto(exp) \ - SymI_HasProto(log) \ - SymI_HasProto(sqrt) \ - SymI_HasProto(localtime_r) \ - SymI_HasProto(gmtime_r) \ - SymI_HasProto(mktime) \ - SymI_NeedsProto(_imp___tzname) \ - SymI_HasProto(gettimeofday) \ - SymI_HasProto(timezone) \ - SymI_HasProto(tcgetattr) \ - SymI_HasProto(tcsetattr) \ - SymI_HasProto(memcpy) \ - SymI_HasProto(memmove) \ - SymI_HasProto(realloc) \ - SymI_HasProto(malloc) \ - SymI_HasProto(free) \ - SymI_HasProto(fork) \ - SymI_HasProto(lstat) \ - SymI_HasProto(isatty) \ - SymI_HasProto(mkdir) \ - SymI_HasProto(opendir) \ - SymI_HasProto(readdir) \ - SymI_HasProto(rewinddir) \ - SymI_HasProto(closedir) \ - SymI_HasProto(link) \ - SymI_HasProto(mkfifo) \ - SymI_HasProto(pipe) \ - SymI_HasProto(read) \ - SymI_HasProto(rename) \ - SymI_HasProto(rmdir) \ - SymI_HasProto(select) \ - SymI_HasProto(system) \ - SymI_HasProto(write) \ - SymI_HasProto(strcmp) \ - SymI_HasProto(strcpy) \ - SymI_HasProto(strncpy) \ - SymI_HasProto(strerror) \ - SymI_HasProto(sigaddset) \ - SymI_HasProto(sigemptyset) \ - SymI_HasProto(sigprocmask) \ - SymI_HasProto(umask) \ - SymI_HasProto(uname) \ - SymI_HasProto(unlink) \ - SymI_HasProto(utime) \ - SymI_HasProto(waitpid) - -#elif defined(mingw32_HOST_OS) -#define RTS_POSIX_ONLY_SYMBOLS /**/ -#define RTS_CYGWIN_ONLY_SYMBOLS /**/ - -#if HAVE_GETTIMEOFDAY -#define RTS_MINGW_GETTIMEOFDAY_SYM SymI_NeedsProto(gettimeofday) -#else -#define RTS_MINGW_GETTIMEOFDAY_SYM /**/ -#endif - -#if HAVE___MINGW_VFPRINTF -#define RTS___MINGW_VFPRINTF_SYM SymI_HasProto(__mingw_vfprintf) -#else -#define RTS___MINGW_VFPRINTF_SYM /**/ -#endif - -#if defined(i386_HOST_ARCH) -#define RTS_WIN32_ONLY(X) X -#else -#define RTS_WIN32_ONLY(X) /**/ -#endif - -#if defined(x86_64_HOST_ARCH) -#define RTS_WIN64_ONLY(X) X -#else -#define RTS_WIN64_ONLY(X) /**/ -#endif - -/* These are statically linked from the mingw libraries into the ghc - executable, so we have to employ this hack. */ -#define RTS_MINGW_ONLY_SYMBOLS \ - SymI_HasProto(stg_asyncReadzh) \ - SymI_HasProto(stg_asyncWritezh) \ - SymI_HasProto(stg_asyncDoProczh) \ - SymI_HasProto(getWin32ProgArgv) \ - SymI_HasProto(setWin32ProgArgv) \ - SymI_HasProto(memset) \ - SymI_HasProto(inet_ntoa) \ - SymI_HasProto(inet_addr) \ - SymI_HasProto(htonl) \ - SymI_HasProto(recvfrom) \ - SymI_HasProto(listen) \ - SymI_HasProto(bind) \ - SymI_HasProto(shutdown) \ - SymI_HasProto(connect) \ - SymI_HasProto(htons) \ - SymI_HasProto(ntohs) \ - SymI_HasProto(getservbyname) \ - SymI_HasProto(getservbyport) \ - SymI_HasProto(getprotobynumber) \ - SymI_HasProto(getprotobyname) \ - SymI_HasProto(gethostbyname) \ - SymI_HasProto(gethostbyaddr) \ - SymI_HasProto(gethostname) \ - SymI_HasProto(strcpy) \ - SymI_HasProto(strncpy) \ - SymI_HasProto(abort) \ - SymI_HasProto(isxdigit) \ - SymI_HasProto(isupper) \ - SymI_HasProto(ispunct) \ - SymI_HasProto(islower) \ - SymI_HasProto(isspace) \ - SymI_HasProto(isprint) \ - SymI_HasProto(isdigit) \ - SymI_HasProto(iscntrl) \ - SymI_HasProto(isalpha) \ - SymI_HasProto(isalnum) \ - SymI_HasProto(isascii) \ - RTS___MINGW_VFPRINTF_SYM \ - SymI_HasProto(strcmp) \ - SymI_HasProto(memmove) \ - SymI_HasProto(realloc) \ - SymI_HasProto(malloc) \ - SymI_HasProto(pow) \ - SymI_HasProto(tanh) \ - SymI_HasProto(cosh) \ - SymI_HasProto(sinh) \ - SymI_HasProto(atan) \ - SymI_HasProto(acos) \ - SymI_HasProto(asin) \ - SymI_HasProto(tan) \ - SymI_HasProto(cos) \ - SymI_HasProto(sin) \ - SymI_HasProto(exp) \ - SymI_HasProto(log) \ - SymI_HasProto(sqrt) \ - SymI_HasProto(powf) \ - SymI_HasProto(tanhf) \ - SymI_HasProto(coshf) \ - SymI_HasProto(sinhf) \ - SymI_HasProto(atanf) \ - SymI_HasProto(acosf) \ - SymI_HasProto(asinf) \ - SymI_HasProto(tanf) \ - SymI_HasProto(cosf) \ - SymI_HasProto(sinf) \ - SymI_HasProto(expf) \ - SymI_HasProto(logf) \ - SymI_HasProto(sqrtf) \ - SymI_HasProto(erf) \ - SymI_HasProto(erfc) \ - SymI_HasProto(erff) \ - SymI_HasProto(erfcf) \ - SymI_HasProto(memcpy) \ - SymI_HasProto(rts_InstallConsoleEvent) \ - SymI_HasProto(rts_ConsoleHandlerDone) \ - SymI_NeedsProto(mktime) \ - SymI_NeedsProto(localtime) \ - SymI_NeedsProto(gmtime) \ - SymI_NeedsProto(opendir) \ - SymI_NeedsProto(readdir) \ - SymI_NeedsProto(rewinddir) \ - RTS_WIN32_ONLY(SymI_NeedsProto(__chkstk_ms)) \ - RTS_WIN64_ONLY(SymI_NeedsProto(___chkstk_ms)) \ - SymI_NeedsProto(localeconv) \ - SymI_HasProto(close) \ - SymI_HasProto(read) \ - SymI_HasProto(dup) \ - SymI_HasProto(dup2) \ - SymI_HasProto(write) \ - SymI_NeedsProto(getpid) \ - SymI_HasProto(access) \ - SymI_HasProto(chmod) \ - SymI_HasProto(creat) \ - SymI_HasProto(umask) \ - SymI_HasProto(unlink) \ - SymI_HasProto(_errno) \ - SymI_NeedsProto(ftruncate64) \ - SymI_HasProto(setmode) \ - SymI_HasProto(_wstat64) \ - SymI_HasProto(_fstat64) \ - SymI_HasProto(_wsopen) \ - RTS_WIN32_ONLY(SymI_HasProto(_imp___environ)) \ - RTS_WIN64_ONLY(SymI_HasProto(__imp__environ)) \ - RTS_WIN32_ONLY(SymI_HasProto(_imp___iob)) \ - RTS_WIN64_ONLY(SymI_HasProto(__iob_func)) \ - SymI_HasProto(GetFileAttributesA) \ - SymI_HasProto(GetFileInformationByHandle) \ - SymI_HasProto(GetFileType) \ - SymI_HasProto(GetLastError) \ - SymI_HasProto(QueryPerformanceFrequency) \ - SymI_HasProto(QueryPerformanceCounter) \ - SymI_HasProto(GetTickCount) \ - SymI_HasProto(WaitForSingleObject) \ - SymI_HasProto(PeekConsoleInputA) \ - SymI_HasProto(ReadConsoleInputA) \ - SymI_HasProto(PeekNamedPipe) \ - SymI_HasProto(select) \ - SymI_HasProto(isatty) \ - SymI_HasProto(_get_osfhandle) \ - SymI_HasProto(GetConsoleMode) \ - SymI_HasProto(SetConsoleMode) \ - SymI_HasProto(FlushConsoleInputBuffer) \ - SymI_HasProto(free) \ - SymI_NeedsProto(raise) \ - SymI_NeedsProto(_getpid) \ - SymI_HasProto(getc) \ - SymI_HasProto(ungetc) \ - SymI_HasProto(puts) \ - SymI_HasProto(putc) \ - SymI_HasProto(putchar) \ - SymI_HasProto(fputc) \ - SymI_HasProto(fread) \ - SymI_HasProto(fwrite) \ - SymI_HasProto(ferror) \ - SymI_HasProto(printf) \ - SymI_HasProto(fprintf) \ - SymI_HasProto(sprintf) \ - SymI_HasProto(vsprintf) \ - SymI_HasProto(sscanf) \ - SymI_HasProto(ldexp) \ - SymI_HasProto(strlen) \ - SymI_HasProto(strnlen) \ - SymI_HasProto(strchr) \ - SymI_HasProto(strtol) \ - SymI_HasProto(strerror) \ - SymI_HasProto(memchr) \ - SymI_HasProto(memcmp) \ - SymI_HasProto(wcscpy) \ - SymI_HasProto(wcslen) \ - SymI_HasProto(_lseeki64) \ - SymI_HasProto(_wchmod) \ - SymI_HasProto(closesocket) \ - SymI_HasProto(send) \ - SymI_HasProto(recv) \ - SymI_HasProto(bsearch) \ - SymI_HasProto(CommandLineToArgvW) \ - SymI_HasProto(CreateBitmap) \ - SymI_HasProto(CreateBitmapIndirect) \ - SymI_HasProto(CreateCompatibleBitmap) \ - SymI_HasProto(CreateDIBPatternBrushPt) \ - SymI_HasProto(CreateDIBitmap) \ - SymI_HasProto(SetBitmapDimensionEx) \ - SymI_HasProto(GetBitmapDimensionEx) \ - SymI_HasProto(GetStockObject) \ - SymI_HasProto(GetObjectW) \ - SymI_HasProto(DeleteObject) \ - SymI_HasProto(SetDIBits) \ - SymI_HasProto(GetDIBits) \ - SymI_HasProto(CreateSolidBrush) \ - SymI_HasProto(CreateHatchBrush) \ - SymI_HasProto(CreatePatternBrush) \ - SymI_HasProto(CreateFontW) \ - SymI_HasProto(AngleArc) \ - SymI_HasProto(Arc) \ - SymI_HasProto(ArcTo) \ - SymI_HasProto(BeginPath) \ - SymI_HasProto(BitBlt) \ - SymI_HasProto(CancelDC) \ - SymI_HasProto(Chord) \ - SymI_HasProto(CloseFigure) \ - SymI_HasProto(CombineRgn) \ - SymI_HasProto(CreateCompatibleDC) \ - SymI_HasProto(CreateEllipticRgn) \ - SymI_HasProto(CreateEllipticRgnIndirect) \ - SymI_HasProto(CreatePen) \ - SymI_HasProto(CreatePolygonRgn) \ - SymI_HasProto(CreateRectRgn) \ - SymI_HasProto(CreateRectRgnIndirect) \ - SymI_HasProto(CreateRoundRectRgn) \ - SymI_HasProto(DeleteDC) \ - SymI_HasProto(Ellipse) \ - SymI_HasProto(EndPath) \ - SymI_HasProto(EqualRgn) \ - SymI_HasProto(ExtSelectClipRgn) \ - SymI_HasProto(FillPath) \ - SymI_HasProto(FillRgn) \ - SymI_HasProto(FlattenPath) \ - SymI_HasProto(FrameRgn) \ - SymI_HasProto(GetArcDirection) \ - SymI_HasProto(GetBkColor) \ - SymI_HasProto(GetBkMode) \ - SymI_HasProto(GetBrushOrgEx) \ - SymI_HasProto(GetCurrentObject) \ - SymI_HasProto(GetDCOrgEx) \ - SymI_HasProto(GetGraphicsMode) \ - SymI_HasProto(GetMiterLimit) \ - SymI_HasProto(GetPolyFillMode) \ - SymI_HasProto(GetRgnBox) \ - SymI_HasProto(GetStretchBltMode) \ - SymI_HasProto(GetTextAlign) \ - SymI_HasProto(GetTextCharacterExtra) \ - SymI_HasProto(GetTextColor) \ - SymI_HasProto(GetTextExtentPoint32W) \ - SymI_HasProto(InvertRgn) \ - SymI_HasProto(LineTo) \ - SymI_HasProto(MaskBlt) \ - SymI_HasProto(MoveToEx) \ - SymI_HasProto(OffsetRgn) \ - SymI_HasProto(PaintRgn) \ - SymI_HasProto(PathToRegion) \ - SymI_HasProto(Pie) \ - SymI_HasProto(PlgBlt) \ - SymI_HasProto(PolyBezier) \ - SymI_HasProto(PolyBezierTo) \ - SymI_HasProto(Polygon) \ - SymI_HasProto(Polyline) \ - SymI_HasProto(PolylineTo) \ - SymI_HasProto(PtInRegion) \ - SymI_HasProto(Rectangle) \ - SymI_HasProto(RectInRegion) \ - SymI_HasProto(RestoreDC) \ - SymI_HasProto(RoundRect) \ - SymI_HasProto(SaveDC) \ - SymI_HasProto(SelectClipPath) \ - SymI_HasProto(SelectClipRgn) \ - SymI_HasProto(SelectObject) \ - SymI_HasProto(SelectPalette) \ - SymI_HasProto(SetArcDirection) \ - SymI_HasProto(SetBkColor) \ - SymI_HasProto(SetBkMode) \ - SymI_HasProto(SetBrushOrgEx) \ - SymI_HasProto(SetGraphicsMode) \ - SymI_HasProto(SetMiterLimit) \ - SymI_HasProto(SetPolyFillMode) \ - SymI_HasProto(SetStretchBltMode) \ - SymI_HasProto(SetTextAlign) \ - SymI_HasProto(SetTextCharacterExtra) \ - SymI_HasProto(SetTextColor) \ - SymI_HasProto(StretchBlt) \ - SymI_HasProto(StrokeAndFillPath) \ - SymI_HasProto(StrokePath) \ - SymI_HasProto(TextOutW) \ - SymI_HasProto(timeGetTime) \ - SymI_HasProto(WidenPath) \ - SymI_HasProto(GetFileSecurityW) \ - SymI_HasProto(RegCloseKey) \ - SymI_HasProto(RegConnectRegistryW) \ - SymI_HasProto(RegCreateKeyExW) \ - SymI_HasProto(RegCreateKeyW) \ - SymI_HasProto(RegDeleteKeyW) \ - SymI_HasProto(RegDeleteValueW) \ - SymI_HasProto(RegEnumKeyW) \ - SymI_HasProto(RegEnumValueW) \ - SymI_HasProto(RegFlushKey) \ - SymI_HasProto(RegLoadKeyW) \ - SymI_HasProto(RegNotifyChangeKeyValue) \ - SymI_HasProto(RegOpenKeyExW) \ - SymI_HasProto(RegOpenKeyW) \ - SymI_HasProto(RegQueryInfoKeyW) \ - SymI_HasProto(RegQueryValueExW) \ - SymI_HasProto(RegQueryValueW) \ - SymI_HasProto(RegReplaceKeyW) \ - SymI_HasProto(RegRestoreKeyW) \ - SymI_HasProto(RegSaveKeyW) \ - SymI_HasProto(RegSetValueExW) \ - SymI_HasProto(RegSetValueW) \ - SymI_HasProto(RegUnLoadKeyW) \ - SymI_HasProto(SHGetFolderPathW) \ - RTS_WIN32_ONLY(SymI_HasProto(SetWindowLongW)) \ - RTS_WIN32_ONLY(SymI_HasProto(GetWindowLongW)) \ - RTS_WIN64_ONLY(SymI_HasProto(SetWindowLongPtrW)) \ - RTS_WIN64_ONLY(SymI_HasProto(GetWindowLongPtrW)) \ - SymI_HasProto(MenuItemFromPoint) \ - SymI_HasProto(ChildWindowFromPoint) \ - SymI_HasProto(ChildWindowFromPointEx) \ - SymI_HasProto(UnmapViewOfFile) \ - SymI_HasProto(CloseHandle) \ - SymI_HasProto(FreeLibrary) \ - SymI_HasProto(GetMessageW) \ - SymI_HasProto(TranslateMessage) \ - SymI_HasProto(DispatchMessageW) \ - SymI_HasProto(DefWindowProcW) \ - SymI_HasProto(GlobalAlloc) \ - SymI_HasProto(GlobalFree) \ - SymI_HasProto(CreateFileW) \ - SymI_HasProto(WriteFile) \ - SymI_HasProto(FormatMessageW) \ - SymI_NeedsProto(_localtime64) \ - SymI_NeedsProto(_tzname) \ - SymI_NeedsProto(_timezone) \ - SymI_HasProto(CreatePipe) \ - SymI_HasProto(SetHandleInformation) \ - SymI_HasProto(GetStdHandle) \ - SymI_HasProto(GetCurrentProcess) \ - SymI_HasProto(DuplicateHandle) \ - SymI_HasProto(CreateProcessW) \ - SymI_HasProto(TerminateProcess) \ - SymI_HasProto(_open_osfhandle) \ - SymI_HasProto(GetExitCodeProcess) \ - RTS_MINGW_GETTIMEOFDAY_SYM \ - SymI_NeedsProto(closedir) - -#else -#define RTS_MINGW_ONLY_SYMBOLS /**/ -#define RTS_CYGWIN_ONLY_SYMBOLS /**/ -#endif - - -#if defined(darwin_HOST_OS) && HAVE_PRINTF_LDBLSTUB -#define RTS_DARWIN_ONLY_SYMBOLS \ - SymI_NeedsProto(asprintf$LDBLStub) \ - SymI_NeedsProto(err$LDBLStub) \ - SymI_NeedsProto(errc$LDBLStub) \ - SymI_NeedsProto(errx$LDBLStub) \ - SymI_NeedsProto(fprintf$LDBLStub) \ - SymI_NeedsProto(fscanf$LDBLStub) \ - SymI_NeedsProto(fwprintf$LDBLStub) \ - SymI_NeedsProto(fwscanf$LDBLStub) \ - SymI_NeedsProto(printf$LDBLStub) \ - SymI_NeedsProto(scanf$LDBLStub) \ - SymI_NeedsProto(snprintf$LDBLStub) \ - SymI_NeedsProto(sprintf$LDBLStub) \ - SymI_NeedsProto(sscanf$LDBLStub) \ - SymI_NeedsProto(strtold$LDBLStub) \ - SymI_NeedsProto(swprintf$LDBLStub) \ - SymI_NeedsProto(swscanf$LDBLStub) \ - SymI_NeedsProto(syslog$LDBLStub) \ - SymI_NeedsProto(vasprintf$LDBLStub) \ - SymI_NeedsProto(verr$LDBLStub) \ - SymI_NeedsProto(verrc$LDBLStub) \ - SymI_NeedsProto(verrx$LDBLStub) \ - SymI_NeedsProto(vfprintf$LDBLStub) \ - SymI_NeedsProto(vfscanf$LDBLStub) \ - SymI_NeedsProto(vfwprintf$LDBLStub) \ - SymI_NeedsProto(vfwscanf$LDBLStub) \ - SymI_NeedsProto(vprintf$LDBLStub) \ - SymI_NeedsProto(vscanf$LDBLStub) \ - SymI_NeedsProto(vsnprintf$LDBLStub) \ - SymI_NeedsProto(vsprintf$LDBLStub) \ - SymI_NeedsProto(vsscanf$LDBLStub) \ - SymI_NeedsProto(vswprintf$LDBLStub) \ - SymI_NeedsProto(vswscanf$LDBLStub) \ - SymI_NeedsProto(vsyslog$LDBLStub) \ - SymI_NeedsProto(vwarn$LDBLStub) \ - SymI_NeedsProto(vwarnc$LDBLStub) \ - SymI_NeedsProto(vwarnx$LDBLStub) \ - SymI_NeedsProto(vwprintf$LDBLStub) \ - SymI_NeedsProto(vwscanf$LDBLStub) \ - SymI_NeedsProto(warn$LDBLStub) \ - SymI_NeedsProto(warnc$LDBLStub) \ - SymI_NeedsProto(warnx$LDBLStub) \ - SymI_NeedsProto(wcstold$LDBLStub) \ - SymI_NeedsProto(wprintf$LDBLStub) \ - SymI_NeedsProto(wscanf$LDBLStub) -#else -#define RTS_DARWIN_ONLY_SYMBOLS -#endif - -#ifndef SMP -# define MAIN_CAP_SYM SymI_HasProto(MainCapability) -#else -# define MAIN_CAP_SYM -#endif - -#if !defined(mingw32_HOST_OS) -#define RTS_USER_SIGNALS_SYMBOLS \ - SymI_HasProto(setIOManagerControlFd) \ - SymI_HasProto(setTimerManagerControlFd) \ - SymI_HasProto(setIOManagerWakeupFd) \ - SymI_HasProto(ioManagerWakeup) \ - SymI_HasProto(blockUserSignals) \ - SymI_HasProto(unblockUserSignals) -#else -#define RTS_USER_SIGNALS_SYMBOLS \ - SymI_HasProto(ioManagerWakeup) \ - SymI_HasProto(sendIOManagerEvent) \ - SymI_HasProto(readIOManagerEvent) \ - SymI_HasProto(getIOManagerEvent) \ - SymI_HasProto(console_handler) -#endif - -#define RTS_LIBFFI_SYMBOLS \ - SymE_NeedsProto(ffi_prep_cif) \ - SymE_NeedsProto(ffi_call) \ - SymE_NeedsDataProto(ffi_type_void) \ - SymE_NeedsDataProto(ffi_type_float) \ - SymE_NeedsDataProto(ffi_type_double) \ - SymE_NeedsDataProto(ffi_type_sint64) \ - SymE_NeedsDataProto(ffi_type_uint64) \ - SymE_NeedsDataProto(ffi_type_sint32) \ - SymE_NeedsDataProto(ffi_type_uint32) \ - SymE_NeedsDataProto(ffi_type_sint16) \ - SymE_NeedsDataProto(ffi_type_uint16) \ - SymE_NeedsDataProto(ffi_type_sint8) \ - SymE_NeedsDataProto(ffi_type_uint8) \ - SymE_NeedsDataProto(ffi_type_pointer) - -#ifdef TABLES_NEXT_TO_CODE -#define RTS_RET_SYMBOLS /* nothing */ -#else -#define RTS_RET_SYMBOLS \ - SymI_HasProto(stg_enter_ret) \ - SymI_HasProto(stg_gc_fun_ret) \ - SymI_HasProto(stg_ap_v_ret) \ - SymI_HasProto(stg_ap_f_ret) \ - SymI_HasProto(stg_ap_d_ret) \ - SymI_HasProto(stg_ap_l_ret) \ - SymI_HasProto(stg_ap_v16_ret) \ - SymI_HasProto(stg_ap_v32_ret) \ - SymI_HasProto(stg_ap_v64_ret) \ - SymI_HasProto(stg_ap_n_ret) \ - SymI_HasProto(stg_ap_p_ret) \ - SymI_HasProto(stg_ap_pv_ret) \ - SymI_HasProto(stg_ap_pp_ret) \ - SymI_HasProto(stg_ap_ppv_ret) \ - SymI_HasProto(stg_ap_ppp_ret) \ - SymI_HasProto(stg_ap_pppv_ret) \ - SymI_HasProto(stg_ap_pppp_ret) \ - SymI_HasProto(stg_ap_ppppp_ret) \ - SymI_HasProto(stg_ap_pppppp_ret) -#endif - -/* Modules compiled with -ticky may mention ticky counters */ -/* This list should marry up with the one in $(TOP)/includes/stg/Ticky.h */ -#define RTS_TICKY_SYMBOLS \ - SymI_NeedsDataProto(ticky_entry_ctrs) \ - SymI_NeedsDataProto(top_ct) \ - \ - SymI_HasProto(ENT_VIA_NODE_ctr) \ - SymI_HasProto(ENT_STATIC_THK_SINGLE_ctr) \ - SymI_HasProto(ENT_STATIC_THK_MANY_ctr) \ - SymI_HasProto(ENT_DYN_THK_SINGLE_ctr) \ - SymI_HasProto(ENT_DYN_THK_MANY_ctr) \ - SymI_HasProto(ENT_STATIC_FUN_DIRECT_ctr) \ - SymI_HasProto(ENT_DYN_FUN_DIRECT_ctr) \ - SymI_HasProto(ENT_STATIC_CON_ctr) \ - SymI_HasProto(ENT_DYN_CON_ctr) \ - SymI_HasProto(ENT_STATIC_IND_ctr) \ - SymI_HasProto(ENT_DYN_IND_ctr) \ - SymI_HasProto(ENT_PERM_IND_ctr) \ - SymI_HasProto(ENT_PAP_ctr) \ - SymI_HasProto(ENT_AP_ctr) \ - SymI_HasProto(ENT_AP_STACK_ctr) \ - SymI_HasProto(ENT_BH_ctr) \ - SymI_HasProto(ENT_LNE_ctr) \ - SymI_HasProto(UNKNOWN_CALL_ctr) \ - SymI_HasProto(SLOW_CALL_fast_v16_ctr) \ - SymI_HasProto(SLOW_CALL_fast_v_ctr) \ - SymI_HasProto(SLOW_CALL_fast_f_ctr) \ - SymI_HasProto(SLOW_CALL_fast_d_ctr) \ - SymI_HasProto(SLOW_CALL_fast_l_ctr) \ - SymI_HasProto(SLOW_CALL_fast_n_ctr) \ - SymI_HasProto(SLOW_CALL_fast_p_ctr) \ - SymI_HasProto(SLOW_CALL_fast_pv_ctr) \ - SymI_HasProto(SLOW_CALL_fast_pp_ctr) \ - SymI_HasProto(SLOW_CALL_fast_ppv_ctr) \ - SymI_HasProto(SLOW_CALL_fast_ppp_ctr) \ - SymI_HasProto(SLOW_CALL_fast_pppv_ctr) \ - SymI_HasProto(SLOW_CALL_fast_pppp_ctr) \ - SymI_HasProto(SLOW_CALL_fast_ppppp_ctr) \ - SymI_HasProto(SLOW_CALL_fast_pppppp_ctr) \ - SymI_HasProto(VERY_SLOW_CALL_ctr) \ - SymI_HasProto(ticky_slow_call_unevald) \ - SymI_HasProto(SLOW_CALL_ctr) \ - SymI_HasProto(MULTI_CHUNK_SLOW_CALL_ctr) \ - SymI_HasProto(MULTI_CHUNK_SLOW_CALL_CHUNKS_ctr) \ - SymI_HasProto(KNOWN_CALL_ctr) \ - SymI_HasProto(KNOWN_CALL_TOO_FEW_ARGS_ctr) \ - SymI_HasProto(KNOWN_CALL_EXTRA_ARGS_ctr) \ - SymI_HasProto(SLOW_CALL_FUN_TOO_FEW_ctr) \ - SymI_HasProto(SLOW_CALL_FUN_CORRECT_ctr) \ - SymI_HasProto(SLOW_CALL_FUN_TOO_MANY_ctr) \ - SymI_HasProto(SLOW_CALL_PAP_TOO_FEW_ctr) \ - SymI_HasProto(SLOW_CALL_PAP_CORRECT_ctr) \ - SymI_HasProto(SLOW_CALL_PAP_TOO_MANY_ctr) \ - SymI_HasProto(SLOW_CALL_UNEVALD_ctr) \ - SymI_HasProto(UPDF_OMITTED_ctr) \ - SymI_HasProto(UPDF_PUSHED_ctr) \ - SymI_HasProto(CATCHF_PUSHED_ctr) \ - SymI_HasProto(UPDF_RCC_PUSHED_ctr) \ - SymI_HasProto(UPDF_RCC_OMITTED_ctr) \ - SymI_HasProto(UPD_SQUEEZED_ctr) \ - SymI_HasProto(UPD_CON_IN_NEW_ctr) \ - SymI_HasProto(UPD_CON_IN_PLACE_ctr) \ - SymI_HasProto(UPD_PAP_IN_NEW_ctr) \ - SymI_HasProto(UPD_PAP_IN_PLACE_ctr) \ - SymI_HasProto(ALLOC_HEAP_ctr) \ - SymI_HasProto(ALLOC_HEAP_tot) \ - SymI_HasProto(HEAP_CHK_ctr) \ - SymI_HasProto(STK_CHK_ctr) \ - SymI_HasProto(ALLOC_RTS_ctr) \ - SymI_HasProto(ALLOC_RTS_tot) \ - SymI_HasProto(ALLOC_FUN_ctr) \ - SymI_HasProto(ALLOC_FUN_adm) \ - SymI_HasProto(ALLOC_FUN_gds) \ - SymI_HasProto(ALLOC_FUN_slp) \ - SymI_HasProto(UPD_NEW_IND_ctr) \ - SymI_HasProto(UPD_NEW_PERM_IND_ctr) \ - SymI_HasProto(UPD_OLD_IND_ctr) \ - SymI_HasProto(UPD_OLD_PERM_IND_ctr) \ - SymI_HasProto(UPD_CAF_BH_UPDATABLE_ctr) \ - SymI_HasProto(UPD_CAF_BH_SINGLE_ENTRY_ctr) \ - SymI_HasProto(GC_SEL_ABANDONED_ctr) \ - SymI_HasProto(GC_SEL_MINOR_ctr) \ - SymI_HasProto(GC_SEL_MAJOR_ctr) \ - SymI_HasProto(GC_FAILED_PROMOTION_ctr) \ - SymI_HasProto(ALLOC_UP_THK_ctr) \ - SymI_HasProto(ALLOC_SE_THK_ctr) \ - SymI_HasProto(ALLOC_THK_adm) \ - SymI_HasProto(ALLOC_THK_gds) \ - SymI_HasProto(ALLOC_THK_slp) \ - SymI_HasProto(ALLOC_CON_ctr) \ - SymI_HasProto(ALLOC_CON_adm) \ - SymI_HasProto(ALLOC_CON_gds) \ - SymI_HasProto(ALLOC_CON_slp) \ - SymI_HasProto(ALLOC_TUP_ctr) \ - SymI_HasProto(ALLOC_TUP_adm) \ - SymI_HasProto(ALLOC_TUP_gds) \ - SymI_HasProto(ALLOC_TUP_slp) \ - SymI_HasProto(ALLOC_BH_ctr) \ - SymI_HasProto(ALLOC_BH_adm) \ - SymI_HasProto(ALLOC_BH_gds) \ - SymI_HasProto(ALLOC_BH_slp) \ - SymI_HasProto(ALLOC_PRIM_ctr) \ - SymI_HasProto(ALLOC_PRIM_adm) \ - SymI_HasProto(ALLOC_PRIM_gds) \ - SymI_HasProto(ALLOC_PRIM_slp) \ - SymI_HasProto(ALLOC_PAP_ctr) \ - SymI_HasProto(ALLOC_PAP_adm) \ - SymI_HasProto(ALLOC_PAP_gds) \ - SymI_HasProto(ALLOC_PAP_slp) \ - SymI_HasProto(ALLOC_TSO_ctr) \ - SymI_HasProto(ALLOC_TSO_adm) \ - SymI_HasProto(ALLOC_TSO_gds) \ - SymI_HasProto(ALLOC_TSO_slp) \ - SymI_HasProto(RET_NEW_ctr) \ - SymI_HasProto(RET_OLD_ctr) \ - SymI_HasProto(RET_UNBOXED_TUP_ctr) \ - SymI_HasProto(RET_SEMI_loads_avoided) - - -// On most platforms, the garbage collector rewrites references -// to small integer and char objects to a set of common, shared ones. -// -// We don't do this when compiling to Windows DLLs at the moment because -// it doesn't support cross package data references well. -// -#if defined(COMPILING_WINDOWS_DLL) -#define RTS_INTCHAR_SYMBOLS -#else -#define RTS_INTCHAR_SYMBOLS \ - SymI_HasProto(stg_CHARLIKE_closure) \ - SymI_HasProto(stg_INTLIKE_closure) -#endif - - -#define RTS_SYMBOLS \ - Maybe_Stable_Names \ - RTS_TICKY_SYMBOLS \ - SymI_HasProto(StgReturn) \ - SymI_HasProto(stg_gc_noregs) \ - SymI_HasProto(stg_ret_v_info) \ - SymI_HasProto(stg_ret_p_info) \ - SymI_HasProto(stg_ret_n_info) \ - SymI_HasProto(stg_ret_f_info) \ - SymI_HasProto(stg_ret_d_info) \ - SymI_HasProto(stg_ret_l_info) \ - SymI_HasProto(stg_gc_prim_p) \ - SymI_HasProto(stg_gc_prim_pp) \ - SymI_HasProto(stg_gc_prim_n) \ - SymI_HasProto(stg_enter_info) \ - SymI_HasProto(__stg_gc_enter_1) \ - SymI_HasProto(stg_gc_unpt_r1) \ - SymI_HasProto(stg_gc_unbx_r1) \ - SymI_HasProto(stg_gc_f1) \ - SymI_HasProto(stg_gc_d1) \ - SymI_HasProto(stg_gc_l1) \ - SymI_HasProto(stg_gc_pp) \ - SymI_HasProto(stg_gc_ppp) \ - SymI_HasProto(stg_gc_pppp) \ - SymI_HasProto(__stg_gc_fun) \ - SymI_HasProto(stg_gc_fun_info) \ - SymI_HasProto(stg_yield_noregs) \ - SymI_HasProto(stg_yield_to_interpreter) \ - SymI_HasProto(stg_block_noregs) \ - SymI_HasProto(stg_block_takemvar) \ - SymI_HasProto(stg_block_readmvar) \ - SymI_HasProto(stg_block_putmvar) \ - MAIN_CAP_SYM \ - SymI_HasProto(addDLL) \ - SymI_HasProto(__int_encodeDouble) \ - SymI_HasProto(__word_encodeDouble) \ - SymI_HasProto(__int_encodeFloat) \ - SymI_HasProto(__word_encodeFloat) \ - SymI_HasProto(stg_atomicallyzh) \ - SymI_HasProto(barf) \ - SymI_HasProto(deRefStablePtr) \ - SymI_HasProto(debugBelch) \ - SymI_HasProto(errorBelch) \ - SymI_HasProto(sysErrorBelch) \ - SymI_HasProto(stg_getMaskingStatezh) \ - SymI_HasProto(stg_maskAsyncExceptionszh) \ - SymI_HasProto(stg_maskUninterruptiblezh) \ - SymI_HasProto(stg_catchzh) \ - SymI_HasProto(stg_catchRetryzh) \ - SymI_HasProto(stg_catchSTMzh) \ - SymI_HasProto(stg_checkzh) \ - SymI_HasProto(closure_flags) \ - SymI_HasProto(cmp_thread) \ - SymI_HasProto(createAdjustor) \ - SymI_HasProto(stg_decodeDoublezu2Intzh) \ - SymI_HasProto(stg_decodeDoublezuInt64zh) \ - SymI_HasProto(stg_decodeFloatzuIntzh) \ - SymI_HasProto(stg_delayzh) \ - SymI_HasProto(stg_deRefWeakzh) \ - SymI_HasProto(stg_deRefStablePtrzh) \ - SymI_HasProto(dirty_MUT_VAR) \ - SymI_HasProto(dirty_TVAR) \ - SymI_HasProto(stg_forkzh) \ - SymI_HasProto(stg_forkOnzh) \ - SymI_HasProto(forkProcess) \ - SymI_HasProto(forkOS_createThread) \ - SymI_HasProto(freeHaskellFunctionPtr) \ - SymI_HasProto(getOrSetGHCConcSignalSignalHandlerStore) \ - SymI_HasProto(getOrSetGHCConcWindowsPendingDelaysStore) \ - SymI_HasProto(getOrSetGHCConcWindowsIOManagerThreadStore) \ - SymI_HasProto(getOrSetGHCConcWindowsProddingStore) \ - SymI_HasProto(getOrSetSystemEventThreadEventManagerStore) \ - SymI_HasProto(getOrSetSystemEventThreadIOManagerThreadStore) \ - SymI_HasProto(getOrSetSystemTimerThreadEventManagerStore) \ - SymI_HasProto(getOrSetSystemTimerThreadIOManagerThreadStore) \ - SymI_HasProto(getOrSetLibHSghcFastStringTable) \ - SymI_HasProto(getGCStats) \ - SymI_HasProto(getGCStatsEnabled) \ - SymI_HasProto(genericRaise) \ - SymI_HasProto(getProgArgv) \ - SymI_HasProto(getFullProgArgv) \ - SymI_HasProto(getStablePtr) \ - SymI_HasProto(foreignExportStablePtr) \ - SymI_HasProto(hs_init) \ - SymI_HasProto(hs_exit) \ - SymI_HasProto(hs_set_argv) \ - SymI_HasProto(hs_add_root) \ - SymI_HasProto(hs_perform_gc) \ - SymI_HasProto(hs_lock_stable_tables) \ - SymI_HasProto(hs_unlock_stable_tables) \ - SymI_HasProto(hs_free_stable_ptr) \ - SymI_HasProto(hs_free_stable_ptr_unsafe) \ - SymI_HasProto(hs_free_fun_ptr) \ - SymI_HasProto(hs_hpc_rootModule) \ - SymI_HasProto(hs_hpc_module) \ - SymI_HasProto(initLinker) \ - SymI_HasProto(initLinker_) \ - SymI_HasProto(stg_unpackClosurezh) \ - SymI_HasProto(stg_getApStackValzh) \ - SymI_HasProto(stg_getSparkzh) \ - SymI_HasProto(stg_numSparkszh) \ - SymI_HasProto(stg_isCurrentThreadBoundzh) \ - SymI_HasProto(stg_isEmptyMVarzh) \ - SymI_HasProto(stg_killThreadzh) \ - SymI_HasProto(loadArchive) \ - SymI_HasProto(loadObj) \ - SymI_HasProto(insertSymbol) \ - SymI_HasProto(lookupSymbol) \ - SymI_HasProto(stg_makeStablePtrzh) \ - SymI_HasProto(stg_mkApUpd0zh) \ - SymI_HasProto(stg_myThreadIdzh) \ - SymI_HasProto(stg_labelThreadzh) \ - SymI_HasProto(stg_newArrayzh) \ - SymI_HasProto(stg_copyArrayzh) \ - SymI_HasProto(stg_copyMutableArrayzh) \ - SymI_HasProto(stg_copyArrayArrayzh) \ - SymI_HasProto(stg_copyMutableArrayArrayzh) \ - SymI_HasProto(stg_cloneArrayzh) \ - SymI_HasProto(stg_cloneMutableArrayzh) \ - SymI_HasProto(stg_freezzeArrayzh) \ - SymI_HasProto(stg_thawArrayzh) \ - SymI_HasProto(stg_newArrayArrayzh) \ - SymI_HasProto(stg_casArrayzh) \ - SymI_HasProto(stg_newSmallArrayzh) \ - SymI_HasProto(stg_unsafeThawSmallArrayzh) \ - SymI_HasProto(stg_cloneSmallArrayzh) \ - SymI_HasProto(stg_cloneSmallMutableArrayzh) \ - SymI_HasProto(stg_freezzeSmallArrayzh) \ - SymI_HasProto(stg_thawSmallArrayzh) \ - SymI_HasProto(stg_copySmallArrayzh) \ - SymI_HasProto(stg_copySmallMutableArrayzh) \ - SymI_HasProto(stg_casSmallArrayzh) \ - SymI_HasProto(stg_newBCOzh) \ - SymI_HasProto(stg_newByteArrayzh) \ - SymI_HasProto(stg_casIntArrayzh) \ - SymI_HasProto(stg_newMVarzh) \ - SymI_HasProto(stg_newMutVarzh) \ - SymI_HasProto(stg_newTVarzh) \ - SymI_HasProto(stg_noDuplicatezh) \ - SymI_HasProto(stg_atomicModifyMutVarzh) \ - SymI_HasProto(stg_casMutVarzh) \ - SymI_HasProto(stg_newPinnedByteArrayzh) \ - SymI_HasProto(stg_newAlignedPinnedByteArrayzh) \ - SymI_HasProto(stg_shrinkMutableByteArrayzh) \ - SymI_HasProto(stg_resizzeMutableByteArrayzh) \ - SymI_HasProto(newSpark) \ - SymI_HasProto(performGC) \ - SymI_HasProto(performMajorGC) \ - SymI_HasProto(prog_argc) \ - SymI_HasProto(prog_argv) \ - SymI_HasProto(stg_putMVarzh) \ - SymI_HasProto(stg_raisezh) \ - SymI_HasProto(stg_raiseIOzh) \ - SymI_HasProto(stg_readTVarzh) \ - SymI_HasProto(stg_readTVarIOzh) \ - SymI_HasProto(resumeThread) \ - SymI_HasProto(setNumCapabilities) \ - SymI_HasProto(getNumberOfProcessors) \ - SymI_HasProto(resolveObjs) \ - SymI_HasProto(stg_retryzh) \ - SymI_HasProto(rts_apply) \ - SymI_HasProto(rts_checkSchedStatus) \ - SymI_HasProto(rts_eval) \ - SymI_HasProto(rts_evalIO) \ - SymI_HasProto(rts_evalLazyIO) \ - SymI_HasProto(rts_evalStableIO) \ - SymI_HasProto(rts_eval_) \ - SymI_HasProto(rts_getBool) \ - SymI_HasProto(rts_getChar) \ - SymI_HasProto(rts_getDouble) \ - SymI_HasProto(rts_getFloat) \ - SymI_HasProto(rts_getInt) \ - SymI_HasProto(rts_getInt8) \ - SymI_HasProto(rts_getInt16) \ - SymI_HasProto(rts_getInt32) \ - SymI_HasProto(rts_getInt64) \ - SymI_HasProto(rts_getPtr) \ - SymI_HasProto(rts_getFunPtr) \ - SymI_HasProto(rts_getStablePtr) \ - SymI_HasProto(rts_getThreadId) \ - SymI_HasProto(rts_getWord) \ - SymI_HasProto(rts_getWord8) \ - SymI_HasProto(rts_getWord16) \ - SymI_HasProto(rts_getWord32) \ - SymI_HasProto(rts_getWord64) \ - SymI_HasProto(rts_lock) \ - SymI_HasProto(rts_mkBool) \ - SymI_HasProto(rts_mkChar) \ - SymI_HasProto(rts_mkDouble) \ - SymI_HasProto(rts_mkFloat) \ - SymI_HasProto(rts_mkInt) \ - SymI_HasProto(rts_mkInt8) \ - SymI_HasProto(rts_mkInt16) \ - SymI_HasProto(rts_mkInt32) \ - SymI_HasProto(rts_mkInt64) \ - SymI_HasProto(rts_mkPtr) \ - SymI_HasProto(rts_mkFunPtr) \ - SymI_HasProto(rts_mkStablePtr) \ - SymI_HasProto(rts_mkString) \ - SymI_HasProto(rts_mkWord) \ - SymI_HasProto(rts_mkWord8) \ - SymI_HasProto(rts_mkWord16) \ - SymI_HasProto(rts_mkWord32) \ - SymI_HasProto(rts_mkWord64) \ - SymI_HasProto(rts_unlock) \ - SymI_HasProto(rts_unsafeGetMyCapability) \ - SymI_HasProto(rtsSupportsBoundThreads) \ - SymI_HasProto(rts_isProfiled) \ - SymI_HasProto(rts_isDynamic) \ - SymI_HasProto(rts_getThreadAllocationCounter) \ - SymI_HasProto(rts_setThreadAllocationCounter) \ - SymI_HasProto(rts_enableThreadAllocationLimit) \ - SymI_HasProto(rts_disableThreadAllocationLimit) \ - SymI_HasProto(setProgArgv) \ - SymI_HasProto(startupHaskell) \ - SymI_HasProto(shutdownHaskell) \ - SymI_HasProto(shutdownHaskellAndExit) \ - SymI_HasProto(stable_name_table) \ - SymI_HasProto(stable_ptr_table) \ - SymI_HasProto(stackOverflow) \ - SymI_HasProto(stg_CAF_BLACKHOLE_info) \ - SymI_HasProto(stg_BLACKHOLE_info) \ - SymI_HasProto(__stg_EAGER_BLACKHOLE_info) \ - SymI_HasProto(stg_BLOCKING_QUEUE_CLEAN_info) \ - SymI_HasProto(stg_BLOCKING_QUEUE_DIRTY_info) \ - SymI_HasProto(startTimer) \ - SymI_HasProto(stg_MVAR_CLEAN_info) \ - SymI_HasProto(stg_MVAR_DIRTY_info) \ - SymI_HasProto(stg_TVAR_CLEAN_info) \ - SymI_HasProto(stg_TVAR_DIRTY_info) \ - SymI_HasProto(stg_IND_STATIC_info) \ - SymI_HasProto(stg_ARR_WORDS_info) \ - SymI_HasProto(stg_MUT_ARR_PTRS_DIRTY_info) \ - SymI_HasProto(stg_MUT_ARR_PTRS_FROZEN_info) \ - SymI_HasProto(stg_MUT_ARR_PTRS_FROZEN0_info) \ - SymI_HasProto(stg_SMALL_MUT_ARR_PTRS_DIRTY_info) \ - SymI_HasProto(stg_SMALL_MUT_ARR_PTRS_FROZEN_info) \ - SymI_HasProto(stg_SMALL_MUT_ARR_PTRS_FROZEN0_info) \ - SymI_HasProto(stg_MUT_VAR_CLEAN_info) \ - SymI_HasProto(stg_MUT_VAR_DIRTY_info) \ - SymI_HasProto(stg_WEAK_info) \ - SymI_HasProto(stg_ap_v_info) \ - SymI_HasProto(stg_ap_f_info) \ - SymI_HasProto(stg_ap_d_info) \ - SymI_HasProto(stg_ap_l_info) \ - SymI_HasProto(stg_ap_v16_info) \ - SymI_HasProto(stg_ap_v32_info) \ - SymI_HasProto(stg_ap_v64_info) \ - SymI_HasProto(stg_ap_n_info) \ - SymI_HasProto(stg_ap_p_info) \ - SymI_HasProto(stg_ap_pv_info) \ - SymI_HasProto(stg_ap_pp_info) \ - SymI_HasProto(stg_ap_ppv_info) \ - SymI_HasProto(stg_ap_ppp_info) \ - SymI_HasProto(stg_ap_pppv_info) \ - SymI_HasProto(stg_ap_pppp_info) \ - SymI_HasProto(stg_ap_ppppp_info) \ - SymI_HasProto(stg_ap_pppppp_info) \ - SymI_HasProto(stg_ap_0_fast) \ - SymI_HasProto(stg_ap_v_fast) \ - SymI_HasProto(stg_ap_f_fast) \ - SymI_HasProto(stg_ap_d_fast) \ - SymI_HasProto(stg_ap_l_fast) \ - SymI_HasProto(stg_ap_v16_fast) \ - SymI_HasProto(stg_ap_v32_fast) \ - SymI_HasProto(stg_ap_v64_fast) \ - SymI_HasProto(stg_ap_n_fast) \ - SymI_HasProto(stg_ap_p_fast) \ - SymI_HasProto(stg_ap_pv_fast) \ - SymI_HasProto(stg_ap_pp_fast) \ - SymI_HasProto(stg_ap_ppv_fast) \ - SymI_HasProto(stg_ap_ppp_fast) \ - SymI_HasProto(stg_ap_pppv_fast) \ - SymI_HasProto(stg_ap_pppp_fast) \ - SymI_HasProto(stg_ap_ppppp_fast) \ - SymI_HasProto(stg_ap_pppppp_fast) \ - SymI_HasProto(stg_ap_1_upd_info) \ - SymI_HasProto(stg_ap_2_upd_info) \ - SymI_HasProto(stg_ap_3_upd_info) \ - SymI_HasProto(stg_ap_4_upd_info) \ - SymI_HasProto(stg_ap_5_upd_info) \ - SymI_HasProto(stg_ap_6_upd_info) \ - SymI_HasProto(stg_ap_7_upd_info) \ - SymI_HasProto(stg_exit) \ - SymI_HasProto(stg_sel_0_upd_info) \ - SymI_HasProto(stg_sel_1_upd_info) \ - SymI_HasProto(stg_sel_2_upd_info) \ - SymI_HasProto(stg_sel_3_upd_info) \ - SymI_HasProto(stg_sel_4_upd_info) \ - SymI_HasProto(stg_sel_5_upd_info) \ - SymI_HasProto(stg_sel_6_upd_info) \ - SymI_HasProto(stg_sel_7_upd_info) \ - SymI_HasProto(stg_sel_8_upd_info) \ - SymI_HasProto(stg_sel_9_upd_info) \ - SymI_HasProto(stg_sel_10_upd_info) \ - SymI_HasProto(stg_sel_11_upd_info) \ - SymI_HasProto(stg_sel_12_upd_info) \ - SymI_HasProto(stg_sel_13_upd_info) \ - SymI_HasProto(stg_sel_14_upd_info) \ - SymI_HasProto(stg_sel_15_upd_info) \ - SymI_HasProto(stg_sel_0_noupd_info) \ - SymI_HasProto(stg_sel_1_noupd_info) \ - SymI_HasProto(stg_sel_2_noupd_info) \ - SymI_HasProto(stg_sel_3_noupd_info) \ - SymI_HasProto(stg_sel_4_noupd_info) \ - SymI_HasProto(stg_sel_5_noupd_info) \ - SymI_HasProto(stg_sel_6_noupd_info) \ - SymI_HasProto(stg_sel_7_noupd_info) \ - SymI_HasProto(stg_sel_8_noupd_info) \ - SymI_HasProto(stg_sel_9_noupd_info) \ - SymI_HasProto(stg_sel_10_noupd_info) \ - SymI_HasProto(stg_sel_11_noupd_info) \ - SymI_HasProto(stg_sel_12_noupd_info) \ - SymI_HasProto(stg_sel_13_noupd_info) \ - SymI_HasProto(stg_sel_14_noupd_info) \ - SymI_HasProto(stg_sel_15_noupd_info) \ - SymI_HasProto(stg_upd_frame_info) \ - SymI_HasProto(stg_bh_upd_frame_info) \ - SymI_HasProto(suspendThread) \ - SymI_HasProto(stg_takeMVarzh) \ - SymI_HasProto(stg_readMVarzh) \ - SymI_HasProto(stg_threadStatuszh) \ - SymI_HasProto(stg_tryPutMVarzh) \ - SymI_HasProto(stg_tryTakeMVarzh) \ - SymI_HasProto(stg_tryReadMVarzh) \ - SymI_HasProto(stg_unmaskAsyncExceptionszh) \ - SymI_HasProto(unloadObj) \ - SymI_HasProto(stg_unsafeThawArrayzh) \ - SymI_HasProto(stg_waitReadzh) \ - SymI_HasProto(stg_waitWritezh) \ - SymI_HasProto(stg_writeTVarzh) \ - SymI_HasProto(stg_yieldzh) \ - SymI_NeedsProto(stg_interp_constr_entry) \ - SymI_HasProto(stg_arg_bitmaps) \ - SymI_HasProto(large_alloc_lim) \ - SymI_HasProto(g0) \ - SymI_HasProto(allocate) \ - SymI_HasProto(allocateExec) \ - SymI_HasProto(flushExec) \ - SymI_HasProto(freeExec) \ - SymI_HasProto(getAllocations) \ - SymI_HasProto(revertCAFs) \ - SymI_HasProto(RtsFlags) \ - SymI_NeedsDataProto(rts_breakpoint_io_action) \ - SymI_NeedsDataProto(rts_stop_next_breakpoint) \ - SymI_NeedsDataProto(rts_stop_on_exception) \ - SymI_HasProto(stopTimer) \ - SymI_HasProto(n_capabilities) \ - SymI_HasProto(enabled_capabilities) \ - SymI_HasProto(stg_traceCcszh) \ - SymI_HasProto(stg_traceEventzh) \ - SymI_HasProto(stg_traceMarkerzh) \ - SymI_HasProto(getMonotonicNSec) \ - SymI_HasProto(lockFile) \ - SymI_HasProto(unlockFile) \ - SymI_HasProto(startProfTimer) \ - SymI_HasProto(stopProfTimer) \ - SymI_HasProto(atomic_inc) \ - SymI_HasProto(atomic_dec) \ - SymI_HasProto(hs_spt_lookup) \ - SymI_HasProto(hs_spt_insert) \ - SymI_HasProto(hs_spt_remove) \ - SymI_HasProto(hs_spt_keys) \ - SymI_HasProto(hs_spt_key_count) \ - RTS_USER_SIGNALS_SYMBOLS \ - RTS_INTCHAR_SYMBOLS - - -// 64-bit support functions in libgcc.a -#if defined(__GNUC__) && SIZEOF_VOID_P <= 4 && !defined(_ABIN32) -#define RTS_LIBGCC_SYMBOLS \ - SymI_NeedsProto(__divdi3) \ - SymI_NeedsProto(__udivdi3) \ - SymI_NeedsProto(__moddi3) \ - SymI_NeedsProto(__umoddi3) \ - SymI_NeedsProto(__muldi3) \ - SymI_NeedsProto(__ashldi3) \ - SymI_NeedsProto(__ashrdi3) \ - SymI_NeedsProto(__lshrdi3) \ - SymI_NeedsProto(__fixunsdfdi) -#else -#define RTS_LIBGCC_SYMBOLS -#endif - -#if defined(darwin_HOST_OS) && defined(powerpc_HOST_ARCH) - // Symbols that don't have a leading underscore - // on Mac OS X. They have to receive special treatment, - // see machoInitSymbolsWithoutUnderscore() -#define RTS_MACHO_NOUNDERLINE_SYMBOLS \ - SymI_NeedsProto(saveFP) \ - SymI_NeedsProto(restFP) -#endif - -/* entirely bogus claims about types of these symbols */ -#define SymI_NeedsProto(vvv) extern void vvv(void); -#define SymI_NeedsDataProto(vvv) extern StgWord vvv[]; -#if defined(COMPILING_WINDOWS_DLL) -#define SymE_HasProto(vvv) SymE_HasProto(vvv); -# if defined(x86_64_HOST_ARCH) -# define SymE_NeedsProto(vvv) extern void __imp_ ## vvv (void); -# define SymE_NeedsDataProto(vvv) SymE_NeedsProto(vvv) -# else -# define SymE_NeedsProto(vvv) extern void _imp__ ## vvv (void); -# define SymE_NeedsDataProto(vvv) SymE_NeedsProto(vvv) -# endif -#else -#define SymE_NeedsProto(vvv) SymI_NeedsProto(vvv); -#define SymE_NeedsDataProto(vvv) SymI_NeedsDataProto(vvv); -#define SymE_HasProto(vvv) SymI_HasProto(vvv) -#endif -#define SymI_HasProto(vvv) /**/ -#define SymI_HasProto_redirect(vvv,xxx) /**/ -RTS_SYMBOLS -RTS_RET_SYMBOLS -RTS_POSIX_ONLY_SYMBOLS -RTS_MINGW_ONLY_SYMBOLS -RTS_CYGWIN_ONLY_SYMBOLS -RTS_DARWIN_ONLY_SYMBOLS -RTS_LIBGCC_SYMBOLS -RTS_LIBFFI_SYMBOLS -#undef SymI_NeedsProto -#undef SymI_NeedsDataProto -#undef SymI_HasProto -#undef SymI_HasProto_redirect -#undef SymE_HasProto -#undef SymE_HasDataProto -#undef SymE_NeedsProto -#undef SymE_NeedsDataProto - -#ifdef LEADING_UNDERSCORE -#define MAYBE_LEADING_UNDERSCORE_STR(s) ("_" s) -#else -#define MAYBE_LEADING_UNDERSCORE_STR(s) (s) -#endif - -#define SymI_HasProto(vvv) { MAYBE_LEADING_UNDERSCORE_STR(#vvv), \ - (void*)(&(vvv)) }, -#define SymI_HasDataProto(vvv) \ - SymI_HasProto(vvv) -#define SymE_HasProto(vvv) { MAYBE_LEADING_UNDERSCORE_STR(#vvv), \ - (void*)DLL_IMPORT_DATA_REF(vvv) }, -#define SymE_HasDataProto(vvv) \ - SymE_HasProto(vvv) - -#define SymI_NeedsProto(vvv) SymI_HasProto(vvv) -#define SymI_NeedsDataProto(vvv) SymI_HasDataProto(vvv) -#define SymE_NeedsProto(vvv) SymE_HasProto(vvv) -#define SymE_NeedsDataProto(vvv) SymE_HasDataProto(vvv) - -// SymI_HasProto_redirect allows us to redirect references to one symbol to -// another symbol. See newCAF/newRetainedCAF/newGCdCAF for an example. -#define SymI_HasProto_redirect(vvv,xxx) \ - { MAYBE_LEADING_UNDERSCORE_STR(#vvv), \ - (void*)(&(xxx)) }, - -static RtsSymbolVal rtsSyms[] = { - RTS_SYMBOLS - RTS_RET_SYMBOLS - RTS_POSIX_ONLY_SYMBOLS - RTS_MINGW_ONLY_SYMBOLS - RTS_CYGWIN_ONLY_SYMBOLS - RTS_DARWIN_ONLY_SYMBOLS - RTS_LIBGCC_SYMBOLS - RTS_LIBFFI_SYMBOLS -#if defined(darwin_HOST_OS) && defined(i386_HOST_ARCH) - // dyld stub code contains references to this, - // but it should never be called because we treat - // lazy pointers as nonlazy. - { "dyld_stub_binding_helper", (void*)0xDEADBEEF }, -#endif - { 0, 0 } /* sentinel */ -}; - - -/* ----------------------------------------------------------------------------- * Insert symbols into hash tables, checking for duplicates. * * Returns: 0 on failure, nonzero on success @@ -1565,7 +384,7 @@ static RtsSymbolVal rtsSyms[] = { static int ghciInsertSymbolTable( pathchar* obj_name, HashTable *table, - char* key, + const char* key, void *data, HsBool weak, ObjectCode *owner) |