[project @ 2006-01-03 12:57:10 by simonmar]

sanity bugfix: use TSO_OFFSET_stack instead of OFFSET_stack

[project @ 2006-01-03 12:57:10 by simonmar]
sanity bugfix: use TSO_OFFSET_stack instead of OFFSET_stack
51e758f4 · simonmar · ce9d03fa · 51e758f4
Commit 51e758f4 authored Jan 03, 2006 by simonmar
--- a/ghc/rts/Apply.cmm
+++ b/ghc/rts/Apply.cmm
@@ -46,7 +46,7 @@ INFO_TABLE_RET( stg_ap_0,

    IF_DEBUG(sanity,
 	foreign "C" checkStackChunk(Sp+WDS(1) "ptr",
-				    CurrentTSO + OFFSET_StgTSO_stack +
+				    CurrentTSO + TSO_OFFSET_StgTSO_stack +
 				    WDS(StgTSO_stack_size(CurrentTSO)) "ptr") [R1]);

    Sp_adj(1);