changeset 6444 | eddc1e9bcd81 |
parent 6033 | 6bcc36225162 |
child 6528 | fb2918089225 |
--- a/hedgewars/uConsole.pas Sat Nov 26 21:12:23 2011 +0300 +++ b/hedgewars/uConsole.pas Sun Nov 27 00:25:28 2011 +0300 @@ -91,7 +91,7 @@ {$ENDIF} end; -function ShortStringAsPChar(s: ShortString) : PChar; +function ShortStringAsPChar(s: shortstring) : PChar; begin if Length(s) = High(s) then Dec(s[0]); s[Ord(Length(s))+1] := #0;