X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLdvProfile.c;h=2f9f6ca40adb935463fab60aaae3676671c503c7;hb=b70c8066194c34f7368f5f915f94970ea1decb71;hp=5d96811ed7bc4f59a0adb449af5e68fa14546974;hpb=a0be7e7ccd602efd9b7d35b3e0747a2c4f155ce9;p=ghc-hetmet.git diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c index 5d96811..2f9f6ca 100644 --- a/rts/LdvProfile.c +++ b/rts/LdvProfile.c @@ -108,10 +108,12 @@ processHeapClosureForDead( StgClosure *c ) case MUT_VAR_DIRTY: case BCO: case STABLE_NAME: - case TVAR_WAIT_QUEUE: + case TVAR_WATCH_QUEUE: case TVAR: case TREC_HEADER: case TREC_CHUNK: + case INVARIANT_CHECK_QUEUE: + case ATOMIC_INVARIANT: return size; /*