summaryrefslogtreecommitdiff
path: root/rts/PrimOps.cmm
diff options
context:
space:
mode:
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r--rts/PrimOps.cmm11
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);
-}