diff options
| author | simonmar <unknown> | 2001-12-19 15:20:27 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-12-19 15:20:27 +0000 |
| commit | c2883dfe3256e106345f2a93019b46cdce9a6bbf (patch) | |
| tree | 6650acc8c06bd5674df12ad62965be921915fa7f | |
| parent | 6ed4dbcc5c63bbd87e053eaf368c3b0612997d36 (diff) | |
| download | haskell-c2883dfe3256e106345f2a93019b46cdce9a6bbf.tar.gz | |
[project @ 2001-12-19 15:20:27 by simonmar]
Remove some temporary debugging code.
| -rw-r--r-- | ghc/rts/RetainerProfile.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c index 2eda8e5de9..6f3b09a9ae 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 |