--- a/hedgewars/uUtils.pas	Thu Dec 18 00:03:53 2014 +0300
+++ b/hedgewars/uUtils.pas	Sat Jan 03 23:46:26 2015 +0300
@@ -74,6 +74,7 @@
 procedure Write(var f: textfile; s: shortstring);
 procedure WriteLn(var f: textfile; s: shortstring);
 function StrLength(s: PChar): Longword;
+procedure SetLengthA(var s: ansistring; len: Longword);
 {$ENDIF}
 
 function  isPhone: Boolean; inline;