X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=b1bfd7d3c431bb3453fd1eaab5afb57d06464f15;hb=48aefd90f74b4c9522eacdf9a730e50a1dfa29f9;hp=bd0b54398ea913045c251e0c0fdb3427e3dbb669;hpb=7cca410a40cccf0fbeda2155f307baa5619b8130;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index bd0b543..b1bfd7d 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1286,7 +1286,7 @@ loadObj( char *path )
     // reading the file, and then we misalign oc->image on purpose so
     // that the actual sections end up aligned again.
    oc->misalignment = machoGetMisalignment(f);
-   oc->image = stgMallocBytes(oc->fileSize + misalignment, "loadObj(image)");
+   oc->image = stgMallocBytes(oc->fileSize + oc->misalignment, "loadObj(image)");
 #  else
    oc->image = stgMallocBytes(oc->fileSize, "loadObj(image)");
 #  endif