X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRetainerProfile.c;h=5684468fd87c11695325c8d98f139afa690a3bff;hb=e0b2097136f30331bae67cb01e66bba749d272c1;hp=2eda8e5de939d2a4b145bc04d2fe1d091d450bcb;hpb=6370689592bcefda7ed023bc721d9c977627997e;p=ghc-hetmet.git

diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c
index 2eda8e5..5684468 100644
--- a/ghc/rts/RetainerProfile.c
+++ b/ghc/rts/RetainerProfile.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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
@@ -10,6 +10,8 @@
 
 #ifdef PROFILING
 
+#include <stdio.h>
+
 #include "Rts.h"
 #include "RtsUtils.h"
 #include "RetainerProfile.h"
@@ -871,8 +873,6 @@ maybeInitRetainerSet( StgClosure *c )
 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