X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FLinker.c;h=7c1cd40e85f8c19e24ac96cc7859571a02f319e9;hp=3b2dd1e6a6bfc631e53175fd71cc8c554716218a;hb=51e6b90f8305ef9b50d7623908893f573b2f2116;hpb=69db8adf9c151d9e997a95b09b14e2b0c740c6be

diff --git a/rts/Linker.c b/rts/Linker.c
index 3b2dd1e..7c1cd40 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1464,7 +1464,6 @@ loadObj( char *path )
    close(fd);
 
 #else /* !USE_MMAP */
-
    /* load the image into memory */
    f = fopen(path, "rb");
    if (!f)
@@ -1492,10 +1491,12 @@ loadObj( char *path )
    oc->image = stgMallocBytes(oc->fileSize, "loadObj(image)");
 #  endif
 
-   n = fread ( oc->image, 1, oc->fileSize, f );
-   if (n != oc->fileSize)
-      barf("loadObj: error whilst reading `%s'", path);
-
+   {
+       int n;
+       n = fread ( oc->image, 1, oc->fileSize, f );
+       if (n != oc->fileSize)
+           barf("loadObj: error whilst reading `%s'", path);
+   }
    fclose(f);
 #endif /* USE_MMAP */