hedgewars/uUtils.pas
changeset 5239 f34f391a223b
parent 5151 cbadb9fa52fc
child 5286 22c1f4833a86
child 5831 80f2a44becea
equal deleted inserted replaced
5238:46ddaf14509d 5239:f34f391a223b
   357         else
   357         else
   358         begin
   358         begin
   359             i:= 0;
   359             i:= 0;
   360             while(i < 7) do
   360             while(i < 7) do
   361             begin
   361             begin
   362                 assign(f, ParamStr(1) + '/Logs/' + cLogfileBase + inttostr(i) + '.log');
   362                 assign(f, UserPathPrefix + '/Logs/' + cLogfileBase + inttostr(i) + '.log');
   363                 rewrite(f);
   363                 rewrite(f);
   364                 if IOResult = 0 then break;
   364                 if IOResult = 0 then break;
   365                 inc(i)
   365                 inc(i)
   366             end;
   366             end;
   367             if i = 7 then f:= stderr; // if everything fails, write to stderr
   367             if i = 7 then f:= stderr; // if everything fails, write to stderr