diff options
author | Moritz Angermann <moritz.angermann@gmail.com> | 2020-08-25 09:48:07 +0800 |
---|---|---|
committer | Moritz Angermann <moritz.angermann@gmail.com> | 2020-08-25 09:48:07 +0800 |
commit | d99397a0e8e0ce78e98efae67ee1ba2524ca16d6 (patch) | |
tree | 992355e394bf4be5422d2b3a0d0925718ebc6457 | |
parent | 05550a5abc369e1cc4fc48def532ca9ba9adcad7 (diff) | |
download | haskell-wip/angerman/fixup-3433.tar.gz |
[fixup 3433] move debugBelch into IF_DEBUG(linker)wip/angerman/fixup-3433
The commit in dff1cb3d9c111808fec60190747272b973547c52 incorrectly left
the `debugBelch` function without a comment or IF_DEBUG(linker,)
decoration. This rectifies it.
Needs at least a 8.10 backport, as it was backported in 6471cc6aff80d5deebbdb1bf7b677b31ed2af3d5
-rw-r--r-- | rts/linker/Elf.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/linker/Elf.c b/rts/linker/Elf.c index 722643d326..73d68caa5f 100644 --- a/rts/linker/Elf.c +++ b/rts/linker/Elf.c @@ -903,8 +903,9 @@ ocGetNames_ELF ( ObjectCode* oc ) common_used += symbol->elf_sym->st_size; ASSERT(common_used <= common_size); - debugBelch("COMMON symbol, size %ld name %s allocated at %p\n", - symbol->elf_sym->st_size, nm, symbol->addr); + IF_DEBUG(linker, + debugBelch("COMMON symbol, size %ld name %s allocated at %p\n", + symbol->elf_sym->st_size, nm, symbol->addr)); /* Pointless to do addProddableBlock() for this area, since the linker should never poke around in it. */ |