projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-03-21 11:23:59 by sebc]
[ghc-hetmet.git]
/
ghc
/
rts
/
RetainerProfile.c
diff --git
a/ghc/rts/RetainerProfile.c
b/ghc/rts/RetainerProfile.c
index
2eda8e5
..
6f3b09a
100644
(file)
--- 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
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
@@
-871,8
+871,6
@@
maybeInitRetainerSet( StgClosure *c )
static inline rtsBool
isRetainer( 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
switch (get_itbl(c)->type) {
//
// True case