diff options
| author | tharris@microsoft.com <unknown> | 2006-10-07 12:29:07 +0000 |
|---|---|---|
| committer | tharris@microsoft.com <unknown> | 2006-10-07 12:29:07 +0000 |
| commit | 9cef40bd4dd2536c7a370a1a9b78461c152805cc (patch) | |
| tree | 7a9657ce6af6880cc73775ddeeaccab4cecb7e12 /rts/ClosureFlags.c | |
| parent | 87c36991c22f208623c96506c64c6c163361e45b (diff) | |
| download | haskell-9cef40bd4dd2536c7a370a1a9b78461c152805cc.tar.gz | |
STM invariants
Diffstat (limited to 'rts/ClosureFlags.c')
| -rw-r--r-- | rts/ClosureFlags.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c index 260bf390d0..c282cf3a88 100644 --- a/rts/ClosureFlags.c +++ b/rts/ClosureFlags.c @@ -90,7 +90,9 @@ StgWord16 closure_flags[] = { /* RBH = */ ( _NS| _MUT|_UPT ), /* EVACUATED = */ ( 0 ), /* REMOTE_REF = */ (_HNF| _NS| _UPT ), -/* TVAR_WAIT_QUEUE = */ ( _NS| _MUT|_UPT ), +/* TVAR_WATCH_QUEUE = */ ( _NS| _MUT|_UPT ), +/* INVARIANT_CHECK_QUEUE= */ ( _NS| _MUT|_UPT ), +/* ATOMIC_INVARIANT = */ ( _NS| _MUT|_UPT ), /* TVAR = */ (_HNF| _NS| _MUT|_UPT ), /* TREC_CHUNK = */ ( _NS| _MUT|_UPT ), /* TREC_HEADER = */ ( _NS| _MUT|_UPT ), @@ -99,6 +101,6 @@ StgWord16 closure_flags[] = { /* CATCH_STM_FRAME = */ ( _BTM ) }; -#if N_CLOSURE_TYPES != 71 +#if N_CLOSURE_TYPES != 73 #error Closure types changed: update ClosureFlags.c! #endif |