--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

@ -44,11 +44,11 @@ proc isDefined(symbol: PIdent): bool =
proc ListSymbols() =
var it: TTabIter
var s = InitTabIter(it, gSymbols)
MessageOut("-- List of currently defined symbols --")
OutWriteln("-- List of currently defined symbols --")
while s != nil:
if s.position == 1: MessageOut(s.name.s)
if s.position == 1: OutWriteln(s.name.s)
s = nextIter(it, gSymbols)
MessageOut("-- End of list --")
OutWriteln("-- End of list --")
proc countDefinedSymbols(): int =
var it: TTabIter
@ -67,8 +67,7 @@ proc InitDefines() =
of cpuI386: DefineSymbol("x86")
of cpuIa64: DefineSymbol("itanium")
of cpuAmd64: DefineSymbol("x8664")
else:
nil
else: nil
case targetOS
of osDOS:
DefineSymbol("msdos")
@ -93,8 +92,7 @@ proc InitDefines() =
DefineSymbol("macintosh")
DefineSymbol("unix")
DefineSymbol("posix")
else:
nil
else: nil
DefineSymbol("cpu" & $cpu[targetCPU].bit)
DefineSymbol(normalize(endianToStr[cpu[targetCPU].endian]))
DefineSymbol(cpu[targetCPU].name)