hedgewars/uUtils.pas
changeset 4900 8ad0e23e6d63
parent 4737 ca03ce7e0c3f
child 4976 088d40d8aba2
--- a/hedgewars/uUtils.pas	Tue Feb 01 08:15:01 2011 +0100
+++ b/hedgewars/uUtils.pas	Tue Feb 01 15:30:08 2011 +0100
@@ -35,11 +35,9 @@
 
 function  CheckCJKFont(s: ansistring; font: THWFont): THWFont;
 
-{$IFDEF DEBUGFILE}
 procedure AddFileLog(s: shortstring);
-{$ENDIF}
 
-function CheckNoTeamOrHH: boolean; inline;
+function  CheckNoTeamOrHH: boolean; inline;
 
 function  GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt;
 function  GetLaunchY(at: TAmmoType; angle: LongInt): LongInt;
@@ -231,13 +229,14 @@
 end;
 
 
-{$IFDEF DEBUGFILE}
 procedure AddFileLog(s: shortstring);
 begin
+s:= s;
+{$IFDEF DEBUGFILE}
 writeln(f, GameTicks: 6, ': ', s);
 flush(f)
+{$ENDIF}
 end;
-{$ENDIF}
 
 
 function CheckCJKFont(s: ansistring; font: THWFont): THWFont;