From 21146fa414558ee31b08b14792feed71778bccdf Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 23 Nov 2009 10:19:18 +0000 Subject: [PATCH] add a couple of assertions --- rts/RaiseAsync.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c index 5a6f8c9..c8a3856 100644 --- a/rts/RaiseAsync.c +++ b/rts/RaiseAsync.c @@ -150,6 +150,8 @@ throwTo (Capability *cap, // the Capability we hold { StgWord status; + ASSERT(target != END_TSO_QUEUE); + // follow ThreadRelocated links in the target first while (target->what_next == ThreadRelocated) { target = target->_link; @@ -169,6 +171,8 @@ retry: debugTrace(DEBUG_sched, "throwTo: retrying..."); check_target: + ASSERT(target != END_TSO_QUEUE); + // Thread already dead? if (target->what_next == ThreadComplete || target->what_next == ThreadKilled) { -- 1.7.10.4