/* -----------------------------------------------------------------------------
- * $Id: RetainerProfile.c,v 1.3 2001/12/12 14:25:03 simonmar Exp $
+ * $Id: RetainerProfile.c,v 1.5 2002/07/18 09:12:35 simonmar Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
#ifdef PROFILING
+#include <stdio.h>
+
#include "Rts.h"
#include "RtsUtils.h"
#include "RetainerProfile.h"
static inline rtsBool
isRetainer( StgClosure *c )
{
- if (get_itbl(c)->prof.closure_desc != NULL && !strcmp(get_itbl(c)->prof.closure_desc,"PCS")) { return rtsTrue; }
-
switch (get_itbl(c)->type) {
//
// True case