myThreadIdzh_fast: used bogus return convention
/* -----------------------------------------------------------------------------
- * $Id: Exception.hc,v 1.23 2001/12/05 17:35:15 sewardj Exp $
+ * $Id: Exception.hc,v 1.24 2002/02/28 18:44:28 sof Exp $
*
* (c) The GHC Team, 1998-2000
*
}
-FN_(myThreadIdzh_fast)
-{
- /* no args. */
- FB_
- R1.p = (P_)CurrentTSO;
- JMP_(ENTRY_CODE(Sp[0]));
- FE_
-}
-
-
/* -----------------------------------------------------------------------------
Catch frames
-------------------------------------------------------------------------- */
/* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.92 2002/02/28 08:53:58 sof Exp $
+ * $Id: PrimOps.hc,v 1.93 2002/02/28 18:44:29 sof Exp $
*
* (c) The GHC Team, 1998-2000
*
FE_
}
+FN_(myThreadIdzh_fast)
+{
+ /* no args. */
+ FB_
+ RET_N((P_)CurrentTSO);
+ FE_
+}
+
+
+
+
/* -----------------------------------------------------------------------------
* MVar primitives
*