--stdout make compiler messages go to stderr

This commit is contained in:
Araq 2011-02-25 21:08:19 +01:00
commit f93ca8e42a
10 changed files with 36 additions and 33 deletions

View file

@ -129,14 +129,14 @@ var
proc HelpOnError(pass: TCmdLinePass) =
if (pass == passCmd1) and not helpWritten:
# BUGFIX 19
MessageOut(getCommandLineDesc())
MsgWriteln(getCommandLineDesc())
helpWritten = true
quit(0)
proc writeAdvancedUsage(pass: TCmdLinePass) =
if (pass == passCmd1) and not advHelpWritten:
# BUGFIX 19
MessageOut(`%`(HelpMessage, [VersionAsString,
MsgWriteln(`%`(HelpMessage, [VersionAsString,
platform.os[platform.hostOS].name,
cpu[platform.hostCPU].name]) & AdvancedUsage)
advHelpWritten = true
@ -147,14 +147,14 @@ proc writeVersionInfo(pass: TCmdLinePass) =
if (pass == passCmd1) and not versionWritten:
versionWritten = true
helpWritten = true
messageOut(`%`(HelpMessage, [VersionAsString,
MsgWriteln(`%`(HelpMessage, [VersionAsString,
platform.os[platform.hostOS].name,
cpu[platform.hostCPU].name]))
quit(0)
proc writeCommandLineUsage() =
if not helpWritten:
messageOut(getCommandLineDesc())
MsgWriteln(getCommandLineDesc())
helpWritten = true
proc InvalidCmdLineOption(pass: TCmdLinePass, switch: string, info: TLineInfo) =