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

diff --git a/rts/Linker.c b/rts/Linker.c
index d0c120b..79febe7 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 += oc->misalignment;
 #  else
    oc->image = stgMallocBytes(oc->fileSize, "loadObj(image)");
 #  endif