From 30b8b7f182972ea5abb3be862302d3127a36a259 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Wed, 11 May 2022 15:50:30 -0400
Subject: rts: Add debug output on ocResolve failure

This makes it easier to see how resolution failures nest.
---
 rts/Linker.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.1