diff options
author | Simon Marlow <simonmar@microsoft.com> | 2007-05-18 12:23:33 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2007-05-18 12:23:33 +0000 |
commit | 1fb4c716c901f08b185439521f91f8cf552797c3 (patch) | |
tree | b8073c687c549f339a33ffb8ead9fab5da5536fc /rts | |
parent | 26b80e2f7ae773c33067b7f259e2b83bfb08d6b6 (diff) | |
download | haskell-1fb4c716c901f08b185439521f91f8cf552797c3.tar.gz |
remove old comments and commented-out code
Diffstat (limited to 'rts')
-rw-r--r-- | rts/Exception.cmm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index ec56738040..5f6bd0703d 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -43,10 +43,7 @@ unsafePerformIO thunk will be updated with a stack object containing the unblockAsyncExceptions_ret frame. Later, when someone else evaluates this thunk, the blocked exception state is - not restored, and the result is that unblockAsyncExceptions_ret - will attempt to unblock exceptions in the current thread, but it'll - find that the CurrentTSO->blocked_exceptions is NULL. Hence, we - work around this by checking for NULL in awakenBlockedQueue(). + not restored. -------------------------------------------------------------------------- */ @@ -55,9 +52,6 @@ INFO_TABLE_RET( stg_unblockAsyncExceptionszh_ret, { CInt r; - // Not true: see comments above - // ASSERT(StgTSO_blocked_exceptions(CurrentTSO) != NULL); - StgTSO_flags(CurrentTSO) = StgTSO_flags(CurrentTSO) & ~(TSO_BLOCKEX::I32|TSO_INTERRUPTIBLE::I32); @@ -115,9 +109,6 @@ INFO_TABLE_RET( stg_unblockAsyncExceptionszh_ret, INFO_TABLE_RET( stg_blockAsyncExceptionszh_ret, 0/*framesize*/, 0/*bitmap*/, RET_SMALL ) { - // Not true: see comments above - // ASSERT(StgTSO_blocked_exceptions(CurrentTSO) == NULL); - StgTSO_flags(CurrentTSO) = StgTSO_flags(CurrentTSO) | TSO_BLOCKEX::I32 | TSO_INTERRUPTIBLE::I32; |