From ba6c51f0f1aa2187dcf5d44371cda910a24d8a84 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 24 Nov 2005 10:39:59 +0000 Subject: [PATCH] [project @ 2005-11-24 10:39:59 by simonmar] bugfix to new raiseAsync_ --- ghc/rts/Schedule.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c index a82b6a7..84df020 100644 --- a/ghc/rts/Schedule.c +++ b/ghc/rts/Schedule.c @@ -3746,7 +3746,7 @@ raiseAsync_(Capability *cap, StgTSO *tso, StgClosure *exception, sp += sizeofW(StgUpdateFrame) - 1; sp[0] = (W_)ap; // push onto stack frame = sp + 1; - break; + continue; //no need to bump frame } case STOP_FRAME: -- 1.7.10.4