projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1998-08-14 13:15:26 by sof]
[ghc-hetmet.git]
/
ghc
/
runtime
/
main
/
StgStartup.lhc
diff --git
a/ghc/runtime/main/StgStartup.lhc
b/ghc/runtime/main/StgStartup.lhc
index
6b6b77a
..
57089df
100644
(file)
--- a/
ghc/runtime/main/StgStartup.lhc
+++ b/
ghc/runtime/main/StgStartup.lhc
@@
-310,6
+310,8
@@
STGFUN(ErrorIO_innards)
/* Assumes that "TopClosure" has been set already */
{
FB_
/* Assumes that "TopClosure" has been set already */
{
FB_
+ fflush(stdout);
+ fflush(stderr);
if (ErrorIO_call_count >= 16 /* MAGIC CONSTANT */ ) {
/* Don't wrap the calls; we're done with STG land */
fflush(stdout);
if (ErrorIO_call_count >= 16 /* MAGIC CONSTANT */ ) {
/* Don't wrap the calls; we're done with STG land */
fflush(stdout);
@@
-395,6
+397,8
@@
ErrorIO_innards(STG_NO_ARGS)
/* Assumes that "TopClosure" has been set already */
{
FB_
/* Assumes that "TopClosure" has been set already */
{
FB_
+ fflush(stdout);
+ fflush(stderr);
if (ErrorIO_call_count >= 16 /* MAGIC CONSTANT */ ) {
/* Don't wrap the calls; we're done with STG land */
fflush(stdout);
if (ErrorIO_call_count >= 16 /* MAGIC CONSTANT */ ) {
/* Don't wrap the calls; we're done with STG land */
fflush(stdout);