X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FApply.cmm;fp=ghc%2Frts%2FApply.cmm;h=e0ca03944cc1c4e7fa9dec54b0931b4783b3f842;hb=4368121d93643f6f108c1dc79ac212bf02e56f98;hp=6678a6347110a6f130bc2216b9d8db0793f7ac34;hpb=354cefe72823fd519063b526ed7f76968ba80f5e;p=ghc-hetmet.git

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 6678a63..e0ca039 100644
--- a/ghc/rts/Apply.cmm
+++ b/ghc/rts/Apply.cmm
@@ -32,7 +32,7 @@ stg_ap_0_fast
     IF_DEBUG(sanity,
 	foreign "C" checkStackChunk(Sp "ptr",
 				    CurrentTSO + TSO_OFFSET_StgTSO_stack +
-				    WDS(StgTSO_stack_size(CurrentTSO)) "ptr") [R1]);
+				    WDS(TO_W_(StgTSO_stack_size(CurrentTSO))) "ptr") [R1]);
 
     ENTER();
 }