summaryrefslogtreecommitdiff
path: root/rts/linker
diff options
context:
space:
mode:
authorGHC GitLab CI <ghc-ci@gitlab-haskell.org>2022-01-27 18:20:27 -0500
committerBen Gamari <ben@smart-cactus.org>2022-04-06 15:23:48 -0400
commit9eb0a9d96942a3d17e5e2e02b5cd44c3ac513158 (patch)
tree1a0553a07fc24be2a6436632ab0c9c9a930c2081 /rts/linker
parent88d610317a707eb33fe8f1a1a8ab6456279861f2 (diff)
downloadhaskell-9eb0a9d96942a3d17e5e2e02b5cd44c3ac513158.tar.gz
rts/PEi386: Move some debugging output to -DL
Diffstat (limited to 'rts/linker')
-rw-r--r--rts/linker/PEi386.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/linker/PEi386.c b/rts/linker/PEi386.c
index b0be4efad4..df0cdfab52 100644
--- a/rts/linker/PEi386.c
+++ b/rts/linker/PEi386.c
@@ -1301,6 +1301,10 @@ ocVerifyImage_PEi386 ( ObjectCode* oc )
return false;
}
+ i = 0;
+ IF_DEBUG(linker_verbose, i=1);
+ if (i == 0) return true;
+
/* Print the section table. */
debugBelch("\n" );
for (i = 0; i < info->numberOfSections; i++) {