hedgewars/uMisc.pas
changeset 2693 3207e0eacd43
parent 2691 c0da3a98c01c
child 2697 75880595a9f1
--- a/hedgewars/uMisc.pas	Tue Jan 12 07:32:15 2010 +0000
+++ b/hedgewars/uMisc.pas	Wed Jan 13 09:41:35 2010 +0000
@@ -588,14 +588,17 @@
 {$I-}
 for i:= 0 to 7 do
 begin
-	assign(f, 
-{$IFDEF IPHONEOS}
-	string(IPH_getDocumentsPath())
+{$IFDEF IPHONEDBG}
+	f:= stderr;
 {$ELSE}
-	ParamStr(1)
+	assign(f, 
+  {$IFDEF IPHONEOS}
+	  string(IPH_getDocumentsPath())
+  {$ELSE}
+	  ParamStr(1)
+  {$ENDIF}
+	  + '/debug' + inttostr(i) + '.txt');
 {$ENDIF}
-	+ '/debug' + inttostr(i) + '.txt');
-//	f:= stderr;
 	rewrite(f);
 	if IOResult = 5 then
 	begin