From ba09ea0db4572548cb763f8518e78c23d32dc712 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 22 Apr 2008 16:49:16 +0000 Subject: [PATCH] Make a panic slightly more helpful --- rts/RaiseAsync.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 73c4429..d562e33 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -715,7 +715,7 @@ removeFromQueues(Capability *cap, StgTSO *tso) } default: - barf("removeFromQueues"); + barf("removeFromQueues: %d", tso->why_blocked); } done: @@ -788,7 +788,7 @@ removeFromQueues(Capability *cap, StgTSO *tso) #endif default: - barf("removeFromQueues"); + barf("removeFromQueues: %d", tso->why_blocked); } done: -- 1.7.10.4