X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FApply.cmm;h=d194252a6ad03233745073d845f8531a2e313560;hb=6e64c691b64f700def0d1582d2c028b653ccd414;hp=2c7a0e919a3848379d331417b30a945ff682cf3c;hpb=423d477bfecd490de1449c59325c8776f91d7aac;p=ghc-hetmet.git

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 2c7a0e9..d194252 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(stderr, 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"));
+				    WDS(StgTSO_stack_size(CurrentTSO)) "ptr") [R1]);
 
     Sp_adj(1);
     ENTER();
@@ -264,7 +264,7 @@ INFO_TABLE(stg_AP_STACK,/*special layout*/0,0,AP_STACK,"AP_STACK","AP_STACK")
   // Reload the stack
   W_ i;
   W_ p;
-  p = ap + SIZEOF_StgHeader + OFFSET_StgAP_STACK_payload;
+  p = ap + SIZEOF_StgThunkHeader + OFFSET_StgAP_STACK_payload;
   i = 0;
 for:
   if (i < Words) {