From c2883dfe3256e106345f2a93019b46cdce9a6bbf Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 19 Dec 2001 15:20:27 +0000
Subject: [PATCH] [project @ 2001-12-19 15:20:27 by simonmar] Remove some
 temporary debugging code.

---
 ghc/rts/RetainerProfile.c |    4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c
index 2eda8e5..6f3b09a 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.4 2001/12/19 15:20:27 simonmar Exp $
  *
  * (c) The GHC Team, 2001
  * Author: Sungwoo Park
@@ -871,8 +871,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
-- 
1.7.10.4