equal
deleted
inserted
replaced
83 procedure WriteLnToConsole(s: shortstring); |
83 procedure WriteLnToConsole(s: shortstring); |
84 begin |
84 begin |
85 {$IFNDEF NOCONSOLE} |
85 {$IFNDEF NOCONSOLE} |
86 WriteToConsole(s); |
86 WriteToConsole(s); |
87 {$IFNDEF ANDROID} |
87 {$IFNDEF ANDROID} |
88 WriteLn(stderr); |
88 WriteLn(stderr, ''); |
89 inc(CurrLine); |
89 inc(CurrLine); |
90 if CurrLine = cLinesCount then |
90 if CurrLine = cLinesCount then |
91 CurrLine:= 0; |
91 CurrLine:= 0; |
92 PByte(@ConsoleLines[CurrLine].s)^:= 0 |
92 PByte(@ConsoleLines[CurrLine].s)^:= 0 |
93 {$ENDIF} |
93 {$ENDIF} |