Commit 65c6e0da authored by simonm's avatar simonm
Browse files

[project @ 1999-05-07 11:10:45 by simonm]

Don't test for CLOSURE_SHOULD_SPARK in forkzh, because forkzh's argument
is an IO action and we're about to apply it to the state anyway.
parent 6fcc92de
/* -----------------------------------------------------------------------------
* $Id: PrimOps.hc,v 1.25 1999/03/22 13:01:38 simonm Exp $
* $Id: PrimOps.hc,v 1.26 1999/05/07 11:10:45 simonm Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -743,17 +743,14 @@ FN_(forkzh_fast)
FB_
/* args: R1 = closure to spark */
if (closure_SHOULD_SPARK(R1.cl)) {
MAYBE_GC(R1_PTR, forkzh_fast);
MAYBE_GC(R1_PTR, forkzh_fast);
/* create it right now, return ThreadID in R1 */
R1.t = RET_STGCALL2(StgTSO *, createIOThread,
RtsFlags.GcFlags.initialStkSize, R1.cl);
/* create it right now, return ThreadID in R1 */
R1.t = RET_STGCALL2(StgTSO *, createIOThread,
RtsFlags.GcFlags.initialStkSize, R1.cl);
/* switch at the earliest opportunity */
context_switch = 1;
}
/* switch at the earliest opportunity */
context_switch = 1;
JMP_(ENTRY_CODE(Sp[0]));
FE_
......
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