From 51e758f45a08f4e7e80a3eccf0f26ff04a50fa4a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 3 Jan 2006 12:57:10 +0000
Subject: [PATCH 1/1] [project @ 2006-01-03 12:57:10 by simonmar] sanity
 bugfix: use TSO_OFFSET_stack instead of OFFSET_stack

---
 ghc/rts/Apply.cmm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index d194252..a647b37 100644
--- 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);
-- 
1.7.10.4