diff -r fc52f7c22c9b -r 6155187bf599 hedgewars/uConsole.pas --- a/hedgewars/uConsole.pas Mon Jan 16 10:22:21 2012 +0100 +++ b/hedgewars/uConsole.pas Tue Jan 17 09:01:31 2012 -0500 @@ -32,12 +32,12 @@ uses Types, uVariables, uUtils {$IFDEF ANDROID}, log in 'log.pas'{$ENDIF}; const cLineWidth: LongInt = 0; - cLinesCount = 8; + cLinesCount = 8; type - TTextLine = record - s: shortstring; - end; + TTextLine = record + s: shortstring + end; var ConsoleLines: array[byte] of TTextLine; CurrLine: LongInt; @@ -45,7 +45,7 @@ procedure SetLine(var tl: TTextLine; str: shortstring); begin with tl do - s:= str; + s:= str; end; procedure WriteToConsole(s: shortstring); @@ -55,7 +55,7 @@ {$IFNDEF NOCONSOLE} AddFileLog('[Con] ' + s); {$IFDEF ANDROID} - Log.__android_log_write(Log.Android_LOG_DEBUG, 'HW_Engine', ShortStringAsPChar('[Con]' + s)); + Log.__android_log_write(Log.Android_LOG_DEBUG, 'HW_Engine', ShortStringAsPChar('[Con]' + s)); {$ELSE} Write(stderr, s); done:= false; @@ -68,7 +68,8 @@ if byte(ConsoleLines[CurrLine].s[0]) = cLineWidth then begin inc(CurrLine); - if CurrLine = cLinesCount then CurrLine:= 0; + if CurrLine = cLinesCount then + CurrLine:= 0; PByte(@ConsoleLines[CurrLine].s)^:= 0 end; done:= (Length(s) = 0); @@ -93,7 +94,8 @@ function ShortStringAsPChar(s: shortstring) : PChar; begin - if Length(s) = High(s) then Dec(s[0]); + if Length(s) = High(s) then + Dec(s[0]); s[Ord(Length(s))+1] := #0; exit(@s[1]); end;