diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2010-09-25 03:30:26 +0000 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2010-09-25 03:30:26 +0000 |
| commit | 539d3adec64f51a3fb13bb65b7a494d7eded01a0 (patch) | |
| tree | d70b17364ff81c6888e3ac9338aaa5239c426515 /rts/Schedule.c | |
| parent | 83d563cb9ede0ba792836e529b1e2929db926355 (diff) | |
| download | haskell-539d3adec64f51a3fb13bb65b7a494d7eded01a0.tar.gz | |
Don't interrupt when task blocks exceptions, don't immediately start exception.
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 0850749b36..456258c885 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -1820,7 +1820,7 @@ resumeThread (void *task_) if ((tso->flags & TSO_BLOCKEX) == 0) { // avoid locking the TSO if we don't have to if (tso->blocked_exceptions != END_BLOCKED_EXCEPTIONS_QUEUE) { - awakenBlockedExceptionQueue(cap,tso); + maybePerformBlockedException(cap,tso); } } |