Revert "Linker: some extra debugging / logging"
authorSimon Marlow <marlowsd@gmail.com>
Tue, 5 Jul 2016 07:41:14 +0000 (08:41 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 5 Jul 2016 07:41:25 +0000 (08:41 +0100)
This reverts commit 6377757918c1e7f63638d6f258cad8d5f02bb6a7.

rts/Linker.c

index 894a31d..b41bc1a 100644 (file)
@@ -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)