From: Ian Lynagh <igloo@earth.li>
Date: Tue, 21 Sep 2010 12:16:42 +0000 (+0000)
Subject: Fix indexing error in archive loader
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=805064fe860dbd4f186f5decd435169fc951a254

Fix indexing error in archive loader
---

diff --git a/rts/Linker.c b/rts/Linker.c
index cb10cc9..33daea3 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -1738,7 +1738,7 @@ loadArchive( char *path )
 
        isObject = 0;
        for (n = 0; n < (int)fileNameSize - 1; n++) {
-           if ((file[n] == '.') && (file[n] == 'o')) {
+           if ((file[n] == '.') && (file[n + 1] == 'o')) {
                isObject = 1;
                break;
            }