From: simonmar <unknown>
Date: Wed, 27 Apr 2005 14:09:43 +0000 (+0000)
Subject: [project @ 2005-04-27 14:09:43 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~655
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f424e020a4cf7d7023c93598564b03d7c0847a7a;p=ghc-hetmet.git

[project @ 2005-04-27 14:09:43 by simonmar]
fprintf(stderr,..) --> debugBelch(...)
---

diff --git a/ghc/utils/genapply/GenApply.hs b/ghc/utils/genapply/GenApply.hs
index 9fd2a55..956ef42 100644
--- a/ghc/utils/genapply/GenApply.hs
+++ b/ghc/utils/genapply/GenApply.hs
@@ -304,7 +304,7 @@ genApply regstatus args =
 --        print "  };"
     
        text "",
-       text "IF_DEBUG(apply,foreign \"C\" fprintf(stderr, \"" <> fun_ret_label <> 
+       text "IF_DEBUG(apply,foreign \"C\" debugBelch(\"" <> fun_ret_label <> 
 	  text "... \"); foreign \"C\" printClosure(R1 \"ptr\"));",
 
        text "IF_DEBUG(sanity,foreign \"C\" checkStackFrame(Sp+WDS(" <> int (1 + all_args_size)