Make WriteLnToConsole write to stderr instead of stdout
authorunc0rr
Sun, 10 Apr 2011 20:36:09 +0400
changeset 5132 11d61349efcf
parent 5130 3602ede67ec5
child 5134 97827ad5c904
Make WriteLnToConsole write to stderr instead of stdout
hedgewars/uConsole.pas
--- a/hedgewars/uConsole.pas	Sun Apr 10 20:24:25 2011 +0400
+++ b/hedgewars/uConsole.pas	Sun Apr 10 20:36:09 2011 +0400
@@ -53,7 +53,7 @@
 begin
 {$IFNDEF NOCONSOLE}
 AddFileLog('[Con] ' + s);
-Write(s);
+Write(stderr, s);
 done:= false;
 
 while not done do
@@ -76,7 +76,7 @@
 begin
 {$IFNDEF NOCONSOLE}
 WriteToConsole(s);
-WriteLn;
+WriteLn(stderr);
 inc(CurrLine);
 if CurrLine = cLinesCount then
     CurrLine:= 0;