X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=79febe7b16a8684477426cc6c634041fa253d774;hb=9832b556cc8ea22508926f67c628f12eea3bd38b;hp=789093d8503aed77e8bba3ec170047a2ea6e4cb8;hpb=e576ba5d31fbae54c43e88316fb0dbdba9cbd4ff;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 789093d..79febe7 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1324,7 +1324,7 @@ loadObj( char *path )
     // that the actual sections end up aligned again.
    oc->misalignment = machoGetMisalignment(f);
    oc->image = stgMallocBytes(oc->fileSize + oc->misalignment, "loadObj(image)");
-   oc->image += misalignment;
+   oc->image += oc->misalignment;
 #  else
    oc->image = stgMallocBytes(oc->fileSize, "loadObj(image)");
 #  endif