diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-09-21 12:16:24 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-09-21 12:16:24 +0000 |
| commit | 2a4cd5365060c75d474af1532cd3ebb8ddc94996 (patch) | |
| tree | 7d917b87d2b551f2492d11bba111bbb5f5bfc840 /rts/Linker.c | |
| parent | 277eb982ef12a1dfcae330271134bf4672437ebe (diff) | |
| download | haskell-2a4cd5365060c75d474af1532cd3ebb8ddc94996.tar.gz | |
Add some -Dl belches
Diffstat (limited to 'rts/Linker.c')
| -rw-r--r-- | rts/Linker.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index df91b65144..cb10cc9461 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -1669,6 +1669,8 @@ loadArchive( char *path ) int isObject; char tmp[12]; + IF_DEBUG(linker, debugBelch("loadArchive `%s'\n", path)); + fileSize = 32; file = stgMallocBytes(fileSize, "loadArchive(file)"); @@ -1918,6 +1920,8 @@ static HsInt loadOc( ObjectCode* oc ) { int r; + IF_DEBUG(linker, debugBelch("loadOc\n")); + # if defined(OBJFORMAT_MACHO) && (defined(powerpc_HOST_ARCH) || defined(x86_64_HOST_ARCH)) r = ocAllocateSymbolExtras_MachO ( oc ); if (!r) { @@ -4859,6 +4863,8 @@ static int ocGetNames_MachO(ObjectCode* oc) char *commonStorage = NULL; unsigned long commonCounter; + IF_DEBUG(linker,debugBelch("ocGetNames_MachO\n")); + for(i=0;i<header->ncmds;i++) { if(lc->cmd == LC_SEGMENT || lc->cmd == LC_SEGMENT_64) @@ -4948,6 +4954,7 @@ static int ocGetNames_MachO(ObjectCode* oc) ; // weak definition, and we already have a definition else { + IF_DEBUG(linker,debugBelch("Adding symbol 1 %s\n", nm)); ghciInsertStrHashTable(oc->fileName, symhash, nm, image + sections[nlist[i].n_sect-1].offset @@ -4974,6 +4981,7 @@ static int ocGetNames_MachO(ObjectCode* oc) nlist[i].n_value = commonCounter; + IF_DEBUG(linker,debugBelch("Adding symbol 2 %s\n", nm)); ghciInsertStrHashTable(oc->fileName, symhash, nm, (void*)commonCounter); oc->symbols[curSymbol++] = nm; |