X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=7f94856c3c9a37a3cfe6b47e29b5df09c0784956;hb=dee01d206954e0a2085d434d0c568bf4a4399686;hp=0d56912bf87b49092fb83fd79bbabe9578718d82;hpb=c2d0219ac359355d60d6ffac381e4051d79ad729;p=ghc-hetmet.git

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