projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New implementation of BLACKHOLEs
[ghc-hetmet.git]
/
rts
/
LdvProfile.c
diff --git
a/rts/LdvProfile.c
b/rts/LdvProfile.c
index
c2e7d7e
..
799d418
100644
(file)
--- a/
rts/LdvProfile.c
+++ b/
rts/LdvProfile.c
@@
-109,13
+109,9
@@
processHeapClosureForDead( StgClosure *c )
case MUT_VAR_CLEAN:
case MUT_VAR_DIRTY:
case BCO:
case MUT_VAR_CLEAN:
case MUT_VAR_DIRTY:
case BCO:
- case STABLE_NAME:
- case TVAR_WATCH_QUEUE:
- case TVAR:
- case TREC_HEADER:
+ case PRIM:
+ case MUT_PRIM:
case TREC_CHUNK:
case TREC_CHUNK:
- case INVARIANT_CHECK_QUEUE:
- case ATOMIC_INVARIANT:
return size;
/*
return size;
/*
@@
-144,7
+140,7
@@
processHeapClosureForDead( StgClosure *c )
case FUN_1_1:
case FUN_0_2:
case BLACKHOLE:
case FUN_1_1:
case FUN_0_2:
case BLACKHOLE:
- case CAF_BLACKHOLE:
+ case BLOCKING_QUEUE:
case IND_PERM:
case IND_OLDGEN_PERM:
/*
case IND_PERM:
case IND_OLDGEN_PERM:
/*