diff options
| author | Dario Bertini <berdario@google.com> | 2018-11-16 15:46:54 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2018-11-22 16:04:45 -0500 |
| commit | 9e0a23b95c285c4019fd2d36102374ee582f1dcb (patch) | |
| tree | ddda40b65ec946d29e97e2cb23bb4de9ff8c94ca /rts/linker | |
| parent | 3584bd4255eb59be043252c9b4ef16bcbd835c9b (diff) | |
| download | haskell-9e0a23b95c285c4019fd2d36102374ee582f1dcb.tar.gz | |
rts/MachO: Add a bit more debugging output to getNames
Diffstat (limited to 'rts/linker')
| -rw-r--r-- | rts/linker/MachO.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/rts/linker/MachO.c b/rts/linker/MachO.c index e28d1730fa..46fb657e12 100644 --- a/rts/linker/MachO.c +++ b/rts/linker/MachO.c @@ -1613,14 +1613,17 @@ ocGetNames_MachO(ObjectCode* oc) "ocGetNames_MachO(oc->symbols)"); if (oc->info->symCmd) { + debugBelch("ocGetNames_MachO: %d macho symbols\n", oc->info->n_macho_symbols); for (size_t i = 0; i < oc->info->n_macho_symbols; i++) { + SymbolName* nm = oc->info->macho_symbols[i].name; if(oc->info->nlist[i].n_type & N_STAB) - ; + { + IF_DEBUG(linker, debugBelch("ocGetNames_MachO: Skip STAB: %s\n", nm)); + } else if((oc->info->nlist[i].n_type & N_TYPE) == N_SECT) { if(oc->info->nlist[i].n_type & N_EXT) { - SymbolName* nm = oc->info->macho_symbols[i].name; if ( (oc->info->nlist[i].n_desc & N_WEAK_DEF) && lookupSymbol_(nm)) { // weak definition, and we already have a definition @@ -1644,12 +1647,12 @@ ocGetNames_MachO(ObjectCode* oc) } else { - IF_DEBUG(linker, debugBelch("ocGetNames_MachO: \t...not external, skipping\n")); + IF_DEBUG(linker, debugBelch("ocGetNames_MachO: \t...not external, skipping %s\n", nm)); } } else { - IF_DEBUG(linker, debugBelch("ocGetNames_MachO: \t...not defined in this section, skipping\n")); + IF_DEBUG(linker, debugBelch("ocGetNames_MachO: \t...not defined in this section, skipping %s\n", nm)); } } } |