diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-05-11 15:50:30 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-05-13 12:11:09 -0400 |
| commit | 30b8b7f182972ea5abb3be862302d3127a36a259 (patch) | |
| tree | c26df479a4d675c5c3288374d16b2149b8f14b91 | |
| parent | 668a9ef496f9df7e628397c4de9a0a4fcdcd7e6a (diff) | |
| download | haskell-30b8b7f182972ea5abb3be862302d3127a36a259.tar.gz | |
rts: Add debug output on ocResolve failure
This makes it easier to see how resolution failures nest.
| -rw-r--r-- | rts/Linker.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index e0a3a07dc2..8c7cc2848a 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -1628,7 +1628,10 @@ int ocTryLoad (ObjectCode* oc) { # else barf("ocTryLoad: not implemented on this platform"); # endif - if (!r) { return r; } + if (!r) { + IF_DEBUG(linker, ocDebugBelch(oc, "resolution failed\n")); + return r; + } IF_DEBUG(linker, ocDebugBelch(oc, "protecting mappings\n")); #if defined(NEED_SYMBOL_EXTRAS) |