projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
569dbee
)
Make a panic slightly more helpful
author
Ian Lynagh
<igloo@earth.li>
Tue, 22 Apr 2008 16:49:16 +0000
(16:49 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Tue, 22 Apr 2008 16:49:16 +0000
(16:49 +0000)
rts/RaiseAsync.c
patch
|
blob
|
history
diff --git
a/rts/RaiseAsync.c
b/rts/RaiseAsync.c
index
73c4429
..
d562e33
100644
(file)
--- 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: