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

diff --git a/rts/Linker.c b/rts/Linker.c
index d0c120b..789093d 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1324,6 +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;
 #  else
    oc->image = stgMallocBytes(oc->fileSize, "loadObj(image)");
 #  endif