Fix #3429: a tricky race condition
authorSimon Marlow <marlowsd@gmail.com>
Tue, 18 Aug 2009 11:29:42 +0000 (11:29 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 18 Aug 2009 11:29:42 +0000 (11:29 +0000)
commitc5cafbcca54c4b1117bc43b31d86afa583fb7f62
tree3ae6d082522b09a05efba47e55501b6dbad91a97
parent0dffc568e18d34eeb6d1899ea767a3814d6be167
Fix #3429: a tricky race condition

There were two bugs, and had it not been for the first one we would
not have noticed the second one, so this is quite fortunate.

The first bug is in stg_unblockAsyncExceptionszh_ret, when we found a
pending exception to raise, but don't end up raising it, there was a
missing adjustment to the stack pointer.

The second bug was that this case was actually happening at all: it
ought to be incredibly rare, because the pending exception thread
would have to be killed between us finding it and attempting to raise
the exception.  This made me suspicious.  It turned out that there was
a race condition on the tso->flags field; multiple threads were
updating this bitmask field non-atomically (one of the bits is the
dirty-bit for the generational GC).  The fix is to move the dirty bit
into its own field of the TSO, making the TSO one word larger (sadly).
includes/mkDerivedConstants.c
includes/rts/Constants.h
includes/rts/storage/TSO.h
rts/Exception.cmm
rts/PrimOps.cmm
rts/Sanity.c
rts/Threads.c
rts/sm/Scav.c
rts/sm/Storage.c