diff options
author | Ben Gamari <ben@smart-cactus.org> | 2022-05-11 15:50:30 -0400 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-06-20 12:21:49 +0100 |
commit | d23e91bdb6ba17974537e1e4cbb53a6cf530e7de (patch) | |
tree | 690c000c99f223cf82904c5d65bcca09b3a8aaa0 | |
parent | f23ce8c06234be43289a73e60061b9642ba1f5cb (diff) | |
download | haskell-d23e91bdb6ba17974537e1e4cbb53a6cf530e7de.tar.gz |
rts: Add debug output on ocResolve failure
This makes it easier to see how resolution failures nest.
(cherry picked from commit 30b8b7f182972ea5abb3be862302d3127a36a259)
-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) |