Commit 5e91c7ce authored by dias@cs.tufts.edu's avatar dias@cs.tufts.edu

Following Simon M's "take newCAF() out from sm_mutex" patch

parent cf872d0f
......@@ -605,7 +605,10 @@ link_caf cl_info _is_upd = do
-- so that the garbage collector can find them
-- This must be done *before* the info table pointer is overwritten,
-- because the old info table ptr is needed for reversion
; emitRtsCallWithVols rtsPackageId (fsLit "newCAF") [(CmmReg nodeReg,AddrHint)] [node] False
; emitRtsCallWithVols rtsPackageId (fsLit "newCAF")
[ (CmmReg (CmmGlobal BaseReg), AddrHint),
(CmmReg nodeReg, AddrHint) ]
[node] False
-- node is live, so save it.
-- Overwrite the closure with a (static) indirection
......
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