diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2016-07-05 08:41:14 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2016-07-05 08:41:25 +0100 |
| commit | 890ec98cdf144ed7e1efd53c528187deee27b783 (patch) | |
| tree | 44491b44a819bc6d0a77232223525374d5cd1cd7 /rts | |
| parent | 18e71e460488785e520aa83d1de291c23e9f0042 (diff) | |
| download | haskell-890ec98cdf144ed7e1efd53c528187deee27b783.tar.gz | |
Revert "Linker: some extra debugging / logging"
This reverts commit 6377757918c1e7f63638d6f258cad8d5f02bb6a7.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Linker.c | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index 894a31d80d..b41bc1a641 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -1465,27 +1465,6 @@ void ghci_enquire(SymbolAddr* addr) } } } - -void ghci_find(SymbolAddr *addr); -void ghci_find(SymbolAddr *addr) -{ - ObjectCode *oc; - uint32_t i; - - for (oc = objects; oc != NULL; oc = oc->next) { - for (i = 0; i < (uint32_t)oc->n_sections; i++) { - Section *section = &oc->sections[i]; - if (addr > section->start && - (StgWord)addr < (StgWord)section->start+section->size) { - debugBelch("%p is in %" PATH_FMT, addr, - oc->archiveMemberName ? - oc->archiveMemberName : oc->fileName); - debugBelch(", section %d, offset %lx\n", i, - (StgWord)addr - (StgWord)section->start); - } - } - } -} #endif #if RTS_LINKER_USE_MMAP @@ -2558,10 +2537,6 @@ int ocTryLoad (ObjectCode* oc) { } } - IF_DEBUG(linker, debugBelch("Resolving %" PATH_FMT "\n", - oc->archiveMemberName ? - oc->archiveMemberName : oc->fileName)); - # if defined(OBJFORMAT_ELF) r = ocResolve_ELF ( oc ); # elif defined(OBJFORMAT_PEi386) |