diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-05-02 13:27:43 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-05-02 13:27:43 +0100 |
| commit | afbaa1120974c3401bfca8d987b4973291f600ec (patch) | |
| tree | 9e2f833097c54cede65e5c6732d3994b3ede8a32 /rts | |
| parent | a53c12a1a366d0b0c15fe3a3ed0c4925b83d7d34 (diff) | |
| download | haskell-afbaa1120974c3401bfca8d987b4973291f600ec.tar.gz | |
Add 'free' to the list of rtsSyms on Win64
Without this, we ended up using
(gdb) info symbol 0x7ff756a10ac
msvcrt!free in section .text of C:\Windows\system32\msvcrt.dll
for free, rather than
(gdb) info symbol 0x2584128
free in section .text of C:\m64\ghci2\q/../inplace/bin/ghc-stage2.exe
but we were trying to put the address into a 32bit relocation.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Linker.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 48667b4645..d4518ceede 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -558,6 +558,7 @@ typedef struct _RtsSymbolVal { RTS_WIN64_ONLY(SymI_NeedsProto(__imp_GetConsoleMode)) \ RTS_WIN64_ONLY(SymI_NeedsProto(__imp_SetConsoleMode)) \ RTS_WIN64_ONLY(SymI_NeedsProto(__imp_FlushConsoleInputBuffer)) \ + RTS_WIN64_ONLY(SymI_HasProto(free)) \ RTS_MINGW_GETTIMEOFDAY_SYM \ SymI_NeedsProto(closedir) |