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