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:06:09 -0500 |
| commit | 65ced246a0e0b1387a998cc70f4476be06bf67c3 (patch) | |
| tree | 7c8541709237467a971e8abd0fc51aaccb32a3b6 | |
| parent | b6d2d8375e4c1425690e26d1f6bc1578f7ed1043 (diff) | |
| download | haskell-65ced246a0e0b1387a998cc70f4476be06bf67c3.tar.gz | |
rts/MachO: Add a bit more debugging output to getNames
(cherry picked from commit 9e0a23b95c285c4019fd2d36102374ee582f1dcb)
| -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 5812e89cda..70acb16498 100644 --- a/rts/linker/MachO.c +++ b/rts/linker/MachO.c @@ -1612,14 +1612,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 @@ -1643,12 +1646,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)); } } } |