Commit f33bd72e authored by simonmar's avatar simonmar
Browse files

[project @ 2005-04-22 21:16:27 by simonmar]

fix uses of stderr
parent fbf16357
......@@ -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,
......
......@@ -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
......
......@@ -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);
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment