diff options
| author | gwright@antiope.com <unknown> | 2011-02-09 22:24:23 +0000 |
|---|---|---|
| committer | gwright@antiope.com <unknown> | 2011-02-09 22:24:23 +0000 |
| commit | a914a2249f13e36695060084465e97c2174ab71d (patch) | |
| tree | e1a9a5fce34c7b7b828613224f0216dcd9762888 /rts | |
| parent | 72c4f62494fa63aa6db846ff5e02828da6a9278b (diff) | |
| download | haskell-a914a2249f13e36695060084465e97c2174ab71d.tar.gz | |
Fix #4867, ghci displays negative floats incorrectly
This patch fixes the erroneous relocations that caused
the bug in ticket #4867. External addresses and global
offset table entries were relocated correctly, but all other
relocations were incorrectly calculated. This caused, for
example, bad references to constants stored in the __const
section of the __TEXT segment.
This bug only affected OS X on 64-bit platforms.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Linker.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 70aae3b0f9..ee7a9c9e38 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -4690,9 +4690,7 @@ static int relocateSection( } else { - value = sections[reloc->r_symbolnum-1].offset - - sections[reloc->r_symbolnum-1].addr - + (uint64_t) image; + value = relocateAddress(oc, nSections, sections, reloc->r_address); } IF_DEBUG(linker, debugBelch("relocateSection: value = %p\n", (void *)value)); |