Tamar Christina pushed to branch wip/bump-win32-tarballs at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • rts/linker/PEi386.c
    ... ... @@ -1313,7 +1313,7 @@ lookupSymbolInDLL_PEi386 ( const SymbolName* lbl, HINSTANCE instance, pathchar*
    1313 1313
              it generates call *__imp_foo, and __imp_foo here has exactly
    
    1314 1314
              the same semantics as in __imp_foo = GetProcAddress(..., "foo")
    
    1315 1315
          */
    
    1316
    -    if (sym == NULL && strncmp (lbl, "__imp_", 6) == 0) {
    
    1316
    +    if (sym == NULL && dependent && strncmp (lbl, "__imp_", 6) == 0) {
    
    1317 1317
             sym = GetProcAddress(instance,
    
    1318 1318
                                  lbl + 6);
    
    1319 1319
             if (sym != NULL) {
    
    ... ... @@ -1329,12 +1329,6 @@ lookupSymbolInDLL_PEi386 ( const SymbolName* lbl, HINSTANCE instance, pathchar*
    1329 1329
                }
    
    1330 1330
         }
    
    1331 1331
     
    
    1332
    -    sym = GetProcAddress(instance, lbl);
    
    1333
    -    if (sym != NULL) {
    
    1334
    -        /*debugBelch("found %s in %s\n", lbl,dll_name);*/
    
    1335
    -        return sym;
    
    1336
    -       }
    
    1337
    -
    
    1338 1332
         return NULL;
    
    1339 1333
     }
    
    1340 1334