From f1959c4c9794b4018a9b6e1025019526fe1db09d Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 19 Feb 2008 10:26:51 +0000 Subject: [PATCH] debugging code --- rts/RaiseAsync.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index d562e33..ee53e0d 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)))) { -- 1.7.10.4