Commit 311879d2 authored by sof's avatar sof
Browse files

[project @ 2002-02-28 18:44:28 by sof]

myThreadIdzh_fast: used bogus return convention
parent dd2e00b5
/* -----------------------------------------------------------------------------
* $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
*
......@@ -213,16 +213,6 @@ FN_(killThreadzh_fast)
}
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
*
......@@ -1013,6 +1013,17 @@ FN_(yieldzh_fast)
FE_
}
FN_(myThreadIdzh_fast)
{
/* no args. */
FB_
RET_N((P_)CurrentTSO);
FE_
}
/* -----------------------------------------------------------------------------
* MVar primitives
*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment