Commit f424e020 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-04-27 14:09:43 by simonmar]

fprintf(stderr,..) --> debugBelch(...)
parent f74aec1b
......@@ -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)
......
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