/* -----------------------------------------------------------------------------
- * $Id: Exception.hc,v 1.27 2003/05/14 09:13:59 simonmar Exp $
+ * $Id: Exception.hc,v 1.28 2003/06/19 10:42:26 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
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_
+}
\ No newline at end of file