/* -----------------------------------------------------------------------------
- * $Id: HeapStackCheck.hc,v 1.4 1999/03/16 13:20:15 simonm Exp $
+ * $Id: HeapStackCheck.hc,v 1.5 1999/03/17 13:19:21 simonm Exp $
*
* (c) The GHC Team, 1998-1999
*
FE_
}
+/* -----------------------------------------------------------------------------
+ Yields
+ -------------------------------------------------------------------------- */
+
FN_(stg_gen_yield)
{
FB_
FE_
}
+INFO_TABLE_SRT_BITMAP(stg_yield_noregs_info, stg_yield_noregs_ret, 0/*BITMAP*/,
+ 0/*SRT*/, 0/*SRT_OFF*/, 0/*SRT_LEN*/,
+ RET_SMALL, const, EF_, 0, 0);
+
+FN_(stg_yield_noregs_ret)
+{
+ FB_
+ JMP_(ENTRY_CODE(Sp[0]))
+ FE_
+}
+
FN_(stg_yield_noregs)
{
FB_
- YIELD_GENERIC
+ Sp--;
+ Sp[0] = (W_)&stg_yield_noregs_info;
+ YIELD_GENERIC;
FE_
}
FE_
}
+/* -----------------------------------------------------------------------------
+ Blocks
+ -------------------------------------------------------------------------- */
+
FN_(stg_gen_block)
{
FB_