diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-11-16 21:10:33 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2021-11-24 03:47:39 +0000 |
| commit | eda53c15c47d20311c1e73e4af2348ed331181eb (patch) | |
| tree | 5f4fde45a45639b37e8c2c4a4345a3516ff03283 /rts/linker/PEi386.c | |
| parent | 9dcb2ad15df54e209cfae3dd1f51cf8e8d6c69d5 (diff) | |
| download | haskell-wip/linker-debug.tar.gz | |
linker: Introduce linker_verbose debug outputwip/linker-debug
This splits the -Dl RTS debug output into two distinct flags:
* `+RTS -Dl` shows errors and debug output which scales with at most
O(# objects)
* `+RTS -DL` shows debug output which scales with O(# symbols)t
Diffstat (limited to 'rts/linker/PEi386.c')
| -rw-r--r-- | rts/linker/PEi386.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/linker/PEi386.c b/rts/linker/PEi386.c index f39930c8c5..9f955e1cf8 100644 --- a/rts/linker/PEi386.c +++ b/rts/linker/PEi386.c @@ -1689,7 +1689,7 @@ ocGetNames_PEi386 ( ObjectCode* oc ) Allocate zeroed space for it from the BSS section */ addr = bss; bss = (SymbolAddr*)((StgWord)bss + (StgWord)symValue); - IF_DEBUG(linker, debugBelch("bss symbol @ %p %u\n", addr, symValue)); + IF_DEBUG(linker_verbose, debugBelch("bss symbol @ %p %u\n", addr, symValue)); } else if (secNumber > 0 && section @@ -1708,7 +1708,7 @@ ocGetNames_PEi386 ( ObjectCode* oc ) sym = &oc->info->symbols[oc->n_symbols-1]; sname = get_sym_name (getSymShortName (info, sym), oc); - IF_DEBUG(linker, + IF_DEBUG(linker_verbose, debugBelch("loading symbol `%s' from dll: '%ls' => `%s'\n", sname, oc->fileName, dllName)); @@ -1761,7 +1761,7 @@ ocGetNames_PEi386 ( ObjectCode* oc ) && (!section || (section && section->kind != SECTIONKIND_IMPORT))) { /* debugBelch("addSymbol %p `%s' Weak:%lld \n", addr, sname, isWeak); */ sname = strdup (sname); - IF_DEBUG(linker, debugBelch("addSymbol %p `%s'\n", addr, sname)); + IF_DEBUG(linker_verbose, debugBelch("addSymbol %p `%s'\n", addr, sname)); ASSERT(i < (uint32_t)oc->n_symbols); oc->symbols[i].name = sname; oc->symbols[i].addr = addr; @@ -1869,7 +1869,7 @@ ocResolve_PEi386 ( ObjectCode* oc ) uint64_t symIndex = reloc->SymbolTableIndex; sym = &oc->info->symbols[symIndex]; - IF_DEBUG(linker, + IF_DEBUG(linker_verbose, debugBelch( "reloc sec %2d num %3d: type 0x%-4x " "vaddr 0x%-8lx name `", |