/* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.15 2000/07/08 17:04:17 panne Exp $
+ * $Id: ProfHeap.c,v 1.18 2000/11/13 14:40:37 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
} else {
fprint_ccs(fp, ccs->prevStack,components-1);
- fprintf(fp,"%s/%s",cc->label,ccs->ccsID);
+ fprintf(fp,"/%s",cc->label);
}
}
break;
case CONSTR:
- if (((StgClosure *)p)->header.info == &DEAD_WEAK_info) {
- size = sizeofW(StgWeak);
- break;
+ if (((StgClosure *)p)->header.info == &stg_DEAD_WEAK_info
+ && !(LOOKS_LIKE_GHC_INFO(*(p + sizeW_fromITBL(info))))) {
+ size = sizeofW(StgWeak);
+ break;
}
/* else, fall through... */