diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-01-07 12:11:42 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-01-07 12:11:42 +0000 |
| commit | 9fd3a4f8760c7e47eb5d4a098559c980d24a9775 (patch) | |
| tree | 0c7e6694ef3c7c7436d9d967a76c7ce1b6c389a0 /rts/RaiseAsync.c | |
| parent | 6e102d0d3820d74d4f849b4c62c86e47b91963b1 (diff) | |
| download | haskell-9fd3a4f8760c7e47eb5d4a098559c980d24a9775.tar.gz | |
add comment
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 1a57e47466..e65cea3bfd 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -558,6 +558,9 @@ maybePerformBlockedException (Capability *cap, StgTSO *tso) return 0; } +// awakenBlockedExceptionQueue(): Just wake up the whole queue of +// blocked exceptions and let them try again. + void awakenBlockedExceptionQueue (Capability *cap, StgTSO *tso) { |