diff options
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r-- | rts/PrimOps.cmm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 122bac4e08..8f99105b18 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -2927,14 +2927,3 @@ stg_setThreadAllocationCounterzh ( I64 counter ) StgTSO_alloc_limit(CurrentTSO) = counter + TO_I64(offset); return (); } - -stg_cloneMyStackzh () { - W_ stgStack; - W_ clonedStack; - stgStack = StgTSO_stackobj(CurrentTSO); - StgStack_sp(stgStack) = Sp; - - ("ptr" clonedStack) = ccall cloneStack(MyCapability() "ptr", stgStack "ptr"); - - return (clonedStack); -} |