X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FApply.cmm;h=8d19d1402f0453e0eb6834b6316c6c57d101789c;hb=beb5737b7ee42c4e9373a505e7d957206d69a30e;hp=1fe444e3f9cfd43879087dd6f6ab0ef009a5544b;hpb=f33bd72eb97043ab109e6afc9dae7cfa9590b68d;p=ghc-hetmet.git

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 1fe444e..8d19d14 100644
--- a/ghc/rts/Apply.cmm
+++ b/ghc/rts/Apply.cmm
@@ -41,13 +41,13 @@ INFO_TABLE_RET( stg_ap_0,
     // fn is in R1, no args on the stack
 
     IF_DEBUG(apply,
-	foreign "C" fprintf(W_[stderr] "ptr", stg_ap_0_ret_str);
-	foreign "C" printClosure(R1 "ptr"));
+	foreign "C" debugBelch(stg_ap_0_ret_str) [R1];
+	foreign "C" printClosure(R1 "ptr") [R1]);
 
     IF_DEBUG(sanity,
 	foreign "C" checkStackChunk(Sp+WDS(1) "ptr",
-				    CurrentTSO + OFFSET_StgTSO_stack +
-				    WDS(StgTSO_stack_size(CurrentTSO)) "ptr"));
+				    CurrentTSO + TSO_OFFSET_StgTSO_stack +
+				    WDS(StgTSO_stack_size(CurrentTSO)) "ptr") [R1]);
 
     Sp_adj(1);
     ENTER();