diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-12-02 11:51:09 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-12-02 11:51:09 +0000 |
| commit | 70ae60e2ff29cd0425230b11ef09c8f20785663a (patch) | |
| tree | 2e58a87b9d38f9a3c77e78b49d5ee114d49f999a /rts/Apply.cmm | |
| parent | 12c7ad877a75172186bd408dbc2d5b883dfc1361 (diff) | |
| download | haskell-70ae60e2ff29cd0425230b11ef09c8f20785663a.tar.gz | |
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.
Diffstat (limited to 'rts/Apply.cmm')
| -rw-r--r-- | rts/Apply.cmm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/Apply.cmm b/rts/Apply.cmm index a98edeef91..9af9b11a97 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(); } |