diff options
author | Simon Marlow <simonmar@microsoft.com> | 2006-08-10 13:01:54 +0000 |
---|---|---|
committer | Simon Marlow <simonmar@microsoft.com> | 2006-08-10 13:01:54 +0000 |
commit | 69d5d3266dab36d9bfbe7da8ca9e077619516809 (patch) | |
tree | 8f025e5a8bd8f91c87a3c1169607d699fc590819 /includes | |
parent | 443f2650b2f1b1a3f80b6d37fd77851856e86ea6 (diff) | |
download | haskell-69d5d3266dab36d9bfbe7da8ca9e077619516809.tar.gz |
remove out of date comment
Diffstat (limited to 'includes')
-rw-r--r-- | includes/TSO.h | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/includes/TSO.h b/includes/TSO.h index 4621d4ad69..3f7923d5da 100644 --- a/includes/TSO.h +++ b/includes/TSO.h @@ -215,16 +215,6 @@ typedef struct StgTSO_ { (tso->sp is left pointing at the top word on the stack so that the return value or exception will be retained by a GC). - tso->blocked_exceptions is either: - - NULL if async exceptions are unblocked. - - END_TSO_QUEUE if async exceptions are blocked, but no threads - are currently waiting to deliver. - - (StgTSO *)tso if threads are currently awaiting delivery of - exceptions to this thread. - The 2 cases BlockedOnGA and BlockedOnGA_NoSend are needed in a GUM setup only. They mark a TSO that has entered a FETCH_ME or FETCH_ME_BQ closure, respectively; only the first TSO hitting the |