X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=ee7a9c9e38778e075e86cfd522706b2008196d2b;hb=1ddce51848468501577f36119920e9e32e93fba8;hp=70aae3b0f9cbb26d9278110017b45c40cf2ac36b;hpb=77b29b5685db2f8745d191af1599ed753bef91e7;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 70aae3b..ee7a9c9 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));