/* -----------------------------------------------------------------------------
- * $Id: Exception.hc,v 1.26 2002/12/11 15:36:42 simonmar Exp $
+ * $Id: Exception.hc,v 1.29 2003/06/26 20:47:08 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
VEC_POLY_INFO_TABLE(stg_catch_frame, \
MK_SMALL_BITMAP(CATCH_FRAME_WORDS, CATCH_FRAME_BITMAP), \
- NULL/*srt*/, 0/*srt_off*/, 0/*srt_len*/, CATCH_FRAME,, EF_);
+ NULL/*srt*/, 0/*srt_off*/, 0/*srt_bitmap*/, CATCH_FRAME,, EF_);
/* -----------------------------------------------------------------------------
* The catch infotable
StgPtr p;
StgClosure *raise_closure;
FB_
- /* args : R1 = exception */
+ /* args : R1.p :: Exception */
#if defined(PROFILING)
JMP_(stg_ap_p_ret);
FE_
}
+
+FN_(raiseIOzh_fast)
+{
+ FB_
+ /* Args :: R1.p :: Exception */
+ JMP_(raisezh_fast);
+ FE_
+}