STM invariants

[ghc-hetmet.git] / rts / ProfHeap.c

diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c
index c161d0c..2818fb6 100644 (file)
--- a/rts/ProfHeap.c
+++ b/rts/ProfHeap.c
@@ -987,9 +987,19 @@ heapCensusChain( Census *census, bdescr *bd )
                size = sizeofW(StgTRecHeader);
                break;
 
-           case TVAR_WAIT_QUEUE:
+           case TVAR_WATCH_QUEUE:
                prim = rtsTrue;
-               size = sizeofW(StgTVarWaitQueue);
+               size = sizeofW(StgTVarWatchQueue);
+               break;
+               
+           case INVARIANT_CHECK_QUEUE:
+               prim = rtsTrue;
+               size = sizeofW(StgInvariantCheckQueue);
+               break;
+               
+           case ATOMIC_INVARIANT:
+               prim = rtsTrue;
+               size = sizeofW(StgAtomicInvariant);
                break;
                
            case TVAR: