summaryrefslogtreecommitdiff
path: root/rts
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2007-05-18 12:23:33 +0000
committerSimon Marlow <simonmar@microsoft.com>2007-05-18 12:23:33 +0000
commit1fb4c716c901f08b185439521f91f8cf552797c3 (patch)
treeb8073c687c549f339a33ffb8ead9fab5da5536fc /rts
parent26b80e2f7ae773c33067b7f259e2b83bfb08d6b6 (diff)
downloadhaskell-1fb4c716c901f08b185439521f91f8cf552797c3.tar.gz
remove old comments and commented-out code
Diffstat (limited to 'rts')
-rw-r--r--rts/Exception.cmm11
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;