From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 3 Dec 2010 09:48:40 +0000 (+0000)
Subject: throwTo: report the why_blocked value in the barf()
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c9bb9c464e9f1ab778db936cd389e5ab3550da43

throwTo: report the why_blocked value in the barf()
---

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 3cfb450..7abccde 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -449,7 +449,7 @@ check_target:
         goto retry;
 
     default:
-	barf("throwTo: unrecognised why_blocked value");
+        barf("throwTo: unrecognised why_blocked (%d)", target->why_blocked);
     }
     barf("throwTo");
 }