From: simonmar <unknown>
Date: Tue, 3 Jan 2006 12:57:10 +0000 (+0000)
Subject: [project @ 2006-01-03 12:57:10 by simonmar]
X-Git-Tag: final_switch_to_darcs,_this_repo_is_now_live~70
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=51e758f45a08f4e7e80a3eccf0f26ff04a50fa4a;hp=ce9d03fa27ce85072d8ac1426d5420a5c0c215ee

[project @ 2006-01-03 12:57:10 by simonmar]
sanity bugfix: use TSO_OFFSET_stack instead of OFFSET_stack
---

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