Tamar Christina pushed to branch wip/bump-win32-tarballs at Glasgow Haskell Compiler / GHC
Commits:
-
ab4d6ed6
by Tamar Christina at 2025-07-14T21:39:32+01:00
1 changed file:
Changes:
... | ... | @@ -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 |