diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-02-19 10:26:51 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-02-19 10:26:51 +0000 |
| commit | f1959c4c9794b4018a9b6e1025019526fe1db09d (patch) | |
| tree | a578a00b221d15e0c3ca42bded3c5902a2ecc036 /rts/RaiseAsync.c | |
| parent | 5801be78034f83a82527e5b035a540b4cf9741eb (diff) | |
| download | haskell-f1959c4c9794b4018a9b6e1025019526fe1db09d.tar.gz | |
debugging code
Diffstat (limited to 'rts/RaiseAsync.c')
| -rw-r--r-- | rts/RaiseAsync.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index d562e33680..ee53e0d0a6 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -512,6 +512,11 @@ maybePerformBlockedException (Capability *cap, StgTSO *tso) { StgTSO *source; + if (tso->blocked_exceptions != END_TSO_QUEUE && + (tso->flags & TSO_BLOCKEX) != 0) { + debugTrace(DEBUG_sched, "throwTo: thread %lu has blocked exceptions but is inside block", (unsigned long)tso->id); + } + if (tso->blocked_exceptions != END_TSO_QUEUE && ((tso->flags & TSO_BLOCKEX) == 0 || ((tso->flags & TSO_INTERRUPTIBLE) && interruptible(tso)))) { |