/* -----------------------------------------------------------------------------
- * $Id: HeapStackCheck.hc,v 1.3 1999/02/05 16:02:43 simonm Exp $
+ * $Id: HeapStackCheck.hc,v 1.6 1999/03/17 16:25:07 sewardj 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_
+ Sp--;
+ Sp[0] = (W_)&stg_yield_noregs_info;
+ YIELD_GENERIC;
+ FE_
+}
+
FN_(stg_yield_to_Hugs)
{
FB_
FE_
}
+/* -----------------------------------------------------------------------------
+ Blocks
+ -------------------------------------------------------------------------- */
+
FN_(stg_gen_block)
{
FB_