From: Ian Lynagh <igloo@earth.li>
Date: Tue, 21 Sep 2010 12:17:14 +0000 (+0000)
Subject: Add casts to fix warnings
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=277eb982ef12a1dfcae330271134bf4672437ebe;p=ghc-hetmet.git

Add casts to fix warnings
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 715731b..df91b65 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1727,7 +1727,7 @@ loadArchive( char *path )
                file = stgReallocBytes(file, fileSize, "loadArchive(file)");
            }
            n = fread ( file, 1, fileNameSize, f );
-           if (n != fileNameSize)
+           if (n != (int)fileNameSize)
                barf("loadArchive: Failed reading filename from `%s'", path);
        }
        else {
@@ -1735,7 +1735,7 @@ loadArchive( char *path )
        }
 
        isObject = 0;
-       for (n = 0; n < fileNameSize - 1; n++) {
+       for (n = 0; n < (int)fileNameSize - 1; n++) {
            if ((file[n] == '.') && (file[n] == 'o')) {
                isObject = 1;
                break;