/* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.18 2000/11/13 14:40:37 simonmar Exp $
+ * $Id: ProfHeap.c,v 1.20 2000/12/11 12:36:59 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
info = get_itbl((StgClosure *)p);
switch (info->type) {
- case BCO:
- size = bco_sizeW((StgBCO *)p);
- break;
case CONSTR:
if (((StgClosure *)p)->header.info == &stg_DEAD_WEAK_info
}
/* else, fall through... */
+ case BCO:
case FUN:
case THUNK:
case IND_PERM: