Fix r2201
authorunc0rr
Fri, 12 Jun 2009 08:50:20 +0000
changeset 2156 3f1a19802d10
parent 2155 d897222d3339
child 2157 a2fa7f594842
Fix r2201
hedgewars/uMisc.pas
--- a/hedgewars/uMisc.pas	Fri Jun 12 08:47:05 2009 +0000
+++ b/hedgewars/uMisc.pas	Fri Jun 12 08:50:20 2009 +0000
@@ -536,10 +536,6 @@
 {$IFDEF DEBUGFILE}
 procedure AddFileLog(s: shortstring);
 begin
-{$IFDEF IPHONEOS}
-//we are not able (and it is useless) to write a file on device, so we will print on the computer console instead
-f:=stderr;
-{$ENDIF}
 writeln(f, GameTicks: 6, ': ', s);
 flush(f)
 end;
@@ -564,13 +560,13 @@
 
 {$IFDEF DEBUGFILE}
 {$I-}
-f:=stderr;
+f:= stderr;
 rewrite(f);
 {$IFNDEF IPHONEOS}
 if ParamCount <> 0 then
    for i:= 0 to 7 do
-    begin 
-	  assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt');
+    begin
+      assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt');
       rewrite(f);
       if IOResult = 0 then break
     end;