From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 21 Nov 2008 08:54:18 +0000 (+0000)
Subject: fix the build when !USE_MMAP
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=51e6b90f8305ef9b50d7623908893f573b2f2116

fix the build when !USE_MMAP
---

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 */