X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FApply.cmm;h=9af9b11a970b9b07d47a0af9542fc405544e7eca;hb=d108044bef62f6a0d579c92ced5e8188f72edc2d;hp=a98edeef91a22c9ab1992d062b16395f38f1d3c6;hpb=2777940384ce4740954062bedd0f6813698fc72a;p=ghc-hetmet.git

diff --git a/rts/Apply.cmm b/rts/Apply.cmm
index a98edee..9af9b11 100644
--- a/rts/Apply.cmm
+++ b/rts/Apply.cmm
@@ -30,9 +30,7 @@ stg_ap_0_fast
 	foreign "C" printClosure(R1 "ptr") [R1]);
 
     IF_DEBUG(sanity,
-	foreign "C" checkStackChunk(Sp "ptr",
-				    CurrentTSO + TSO_OFFSET_StgTSO_stack +
-				    WDS(TO_W_(StgTSO_stack_size(CurrentTSO))) "ptr") [R1]);
+	foreign "C" checkStackFrame(Sp "ptr") [R1]);
 
     ENTER();
 }