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 * (c) The GHC Team, 1998-2000
* *
...@@ -213,16 +213,6 @@ FN_(killThreadzh_fast) ...@@ -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 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 * (c) The GHC Team, 1998-2000
* *
...@@ -1013,6 +1013,17 @@ FN_(yieldzh_fast) ...@@ -1013,6 +1013,17 @@ FN_(yieldzh_fast)
FE_ FE_
} }
FN_(myThreadIdzh_fast)
{
/* no args. */
FB_
RET_N((P_)CurrentTSO);
FE_
}
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* MVar primitives * 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