Fix README
[ghc.git] / rts / Exception.cmm
index 4970aa2..9661c23 100644 (file)
@@ -370,6 +370,7 @@ INFO_TABLE_RET(stg_catch_frame, CATCH_FRAME,
                                   exceptions_blocked,handler))
     return (P_ ret)
 {
+    unwind Sp = Sp + SIZEOF_StgCatchFrame;
     return (ret);
 }