remove empty dir

[ghc-hetmet.git] / ghc / rts / Apply.cmm

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 6678a63..e0ca039 100644 (file)
--- 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();
 }