From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 2 Dec 2009 11:51:09 +0000 (+0000)
Subject: stg_ap_0_fast: sanity-check only the topmost frame, not the whole stack
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=70ae60e2ff29cd0425230b11ef09c8f20785663a

stg_ap_0_fast: sanity-check only the topmost frame, not the whole stack
Sanity checking was getting too slow in some cases, this returns it to
a constant-factor overhead.
---

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();
 }