diff options
| author | Tamar Christina <tamar@zhox.com> | 2015-10-17 15:19:56 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-10-17 15:20:02 +0200 |
| commit | 603a369dbf46c70759d680708ae48326f7121b28 (patch) | |
| tree | 219549f97932606b23ba238ed4d93a0813ec3944 /rts | |
| parent | 3340fe01bc6842c2cad53271541dce6699512ce0 (diff) | |
| download | haskell-603a369dbf46c70759d680708ae48326f7121b28.tar.gz | |
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
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Linker.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 173b90d6a3..51db363eb3 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -4736,7 +4736,7 @@ ocGetNames_PEi386 ( ObjectCode* oc ) addSection(§ions[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(§ions[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 ) { |