From: simonmar <unknown>
Date: Wed, 19 Dec 2001 15:20:27 +0000 (+0000)
Subject: [project @ 2001-12-19 15:20:27 by simonmar]
X-Git-Tag: Approximately_9120_patches~366
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c2883dfe3256e106345f2a93019b46cdce9a6bbf;p=ghc-hetmet.git

[project @ 2001-12-19 15:20:27 by simonmar]
Remove some temporary debugging code.
---

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