From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 4 Aug 2008 10:57:40 +0000 (+0000)
Subject: FIX BUILD on Windows
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dee01d206954e0a2085d434d0c568bf4a4399686

FIX BUILD on Windows
---

diff --git a/rts/Linker.c b/rts/Linker.c
index 0d56912..7f94856 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -2534,13 +2534,9 @@ ocResolve_PEi386 ( ObjectCode* oc )
                    + sym->Value);
          } else {
             copyName ( sym->Name, strtab, symbol, 1000-1 );
-            S = (UInt32) lookupLocalSymbol( oc, symbol );
-            if ((void*)S != NULL) goto foundit;
             S = (UInt32) lookupSymbol( symbol );
             if ((void*)S != NULL) goto foundit;
             zapTrailingAtSign ( symbol );
-            S = (UInt32) lookupLocalSymbol( oc, symbol );
-            if ((void*)S != NULL) goto foundit;
             S = (UInt32) lookupSymbol( symbol );
             if ((void*)S != NULL) goto foundit;
 	    /* Newline first because the interactive linker has printed "linking..." */