Commit 603a369d authored by Tamar Christina's avatar Tamar Christina Committed by thomie

Silence the linker on Windows so tests pass

Silence the unconditional debugBelch statements recently added to HEAD
which on Windows cause debug information to always be printed.

Differential Revision: https://phabricator.haskell.org/D1338
parent 3340fe01
......@@ -4736,7 +4736,7 @@ ocGetNames_PEi386 ( ObjectCode* oc )
addSection(&sections[oc->n_sections-1],
SECTIONKIND_RWDATA, SECTION_MALLOC,
bss, globalBssSize, 0, 0, 0);
debugBelch("bss @ %p %" FMT_Word "\n", bss, globalBssSize);
IF_DEBUG(linker, debugBelch("bss @ %p %" FMT_Word "\n", bss, globalBssSize));
addProddableBlock(oc, bss, globalBssSize);
} else {
addSection(&sections[oc->n_sections-1],
......@@ -4781,7 +4781,7 @@ ocGetNames_PEi386 ( ObjectCode* oc )
Allocate zeroed space for it from the BSS section */
addr = bss;
bss = (void *)((StgWord)bss + (StgWord)symtab_i->Value);
debugBelch("bss symbol @ %p %u\n", addr, symtab_i->Value);
IF_DEBUG(linker, debugBelch("bss symbol @ %p %u\n", addr, symtab_i->Value));
}
if (addr != NULL ) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment