[project @ 2005-11-24 10:39:59 by simonmar]

bugfix to new raiseAsync_

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index a82b6a7..84df020 100644 (file)
--- 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: