void printPtr( StgPtr p ) { const char *raw; raw = lookupGHCName(p); if (raw != NULL) { printZcoded(raw); } else { debugBelch("%p", p); } }
void printPtr( StgPtr p ) { const char *raw; raw = lookupGHCName(p); if (raw != NULL) { debugBelch("<%s>", raw); debugBelch("[%p]", p); } else { debugBelch("%p", p); } }