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 |