hedgewars/uMisc.pas
changeset 3377 a3f0849f26bc
parent 3365 37ac593e9027
child 3381 f8800c44b3de
equal deleted inserted replaced
3376:faee68a28b82 3377:a3f0849f26bc
   766 
   766 
   767     ScreenFade      := sfNone;
   767     ScreenFade      := sfNone;
   768 {$IFDEF DEBUGFILE}
   768 {$IFDEF DEBUGFILE}
   769 {$I-}
   769 {$I-}
   770 {$IFDEF IPHONEOS}
   770 {$IFDEF IPHONEOS}
   771     f:= stderr;
   771     Assign(f,'../Documents/debug.txt');
       
   772     Rewrite(f);
   772 {$ELSE}
   773 {$ELSE}
   773     if ParamStr(1) <> '' then
   774     if ParamStr(1) <> '' then
   774         begin
   775         begin
   775         for i:= 0 to 7 do
   776         for i:= 0 to 7 do
   776         begin
   777         begin