hedgewars/uMisc.pas
changeset 3305 91074496d5c9
parent 3295 ced0ee8280ad
child 3337 75e7455c69ed
--- a/hedgewars/uMisc.pas	Sun Apr 04 16:38:00 2010 +0000
+++ b/hedgewars/uMisc.pas	Sun Apr 04 19:51:53 2010 +0000
@@ -651,7 +651,7 @@
 
 
 procedure initModule;
-{$IFDEF DEBUGFILE}var i: LongInt;{$ENDIF}
+{$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF}
 begin
     cDrownSpeed.QWordValue  := 257698038;       // 0.06
     cMaxWindSpeed.QWordValue:= 2147484;     // 0.0005