From f33bd72eb97043ab109e6afc9dae7cfa9590b68d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 22 Apr 2005 21:16:27 +0000
Subject: [PATCH] [project @ 2005-04-22 21:16:27 by simonmar] fix uses of
 stderr

---
 ghc/rts/Apply.cmm     |    2 +-
 ghc/rts/Exception.cmm |    2 +-
 ghc/rts/PrimOps.cmm   |    2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 2c7a0e9..1fe444e 100644
--- a/ghc/rts/Apply.cmm
+++ b/ghc/rts/Apply.cmm
@@ -41,7 +41,7 @@ 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" fprintf(W_[stderr] "ptr", stg_ap_0_ret_str);
 	foreign "C" printClosure(R1 "ptr"));
 
     IF_DEBUG(sanity,
diff --git a/ghc/rts/Exception.cmm b/ghc/rts/Exception.cmm
index edabf54..1c5d47c 100644
--- a/ghc/rts/Exception.cmm
+++ b/ghc/rts/Exception.cmm
@@ -330,7 +330,7 @@ raisezh_fast
      * the info was only displayed for an *uncaught* exception.
      */
     if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags)) {
-      foreign "C" fprintCCS(stderr,W_[CCCS]);
+      foreign "C" fprintCCS(W_[stderr] "ptr",W_[CCCS] "ptr");
     }
 #endif
 
diff --git a/ghc/rts/PrimOps.cmm b/ghc/rts/PrimOps.cmm
index 42ae582..eb190fb 100644
--- a/ghc/rts/PrimOps.cmm
+++ b/ghc/rts/PrimOps.cmm
@@ -289,7 +289,7 @@ mkWeakzh_fast
   StgWeak_link(w)	= W_[weak_ptr_list];
   W_[weak_ptr_list] 	= w;
 
-  IF_DEBUG(weak, foreign "C" fprintf(stderr,stg_weak_msg,w));
+  IF_DEBUG(weak, foreign "C" fprintf(W_[stderr] "ptr",stg_weak_msg,w));
 
   RET_P(w);
 }
-- 
1.7.10.4