X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=a9c145b6e8e4150d7376affcf48553efb6a991cc;hb=bbc583766a08678d03740354bed216e268306356;hp=6c1446ad4df19f2352212096f73a4262c9b62ea8;hpb=dc25c00f7cbfc014483bb26f5869825b373bd68a;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 6c1446a..a9c145b 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -2509,13 +2509,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..." */