equal
deleted
inserted
replaced
522 {$ENDIF} |
522 {$ENDIF} |
523 {$I-} |
523 {$I-} |
524 {$IFNDEF PAS2C} |
524 {$IFNDEF PAS2C} |
525 f:= stderr; // if everything fails, write to stderr |
525 f:= stderr; // if everything fails, write to stderr |
526 {$ENDIF} |
526 {$ENDIF} |
527 if (length(UserPathPrefix) > 0) then |
527 (* if (length(UserPathPrefix) > 0) then |
528 begin |
528 begin |
529 {$IFNDEF PAS2C} |
529 {$IFNDEF PAS2C} |
530 // create directory if it doesn't exist |
530 // create directory if it doesn't exist |
531 if not FileExists(UserPathPrefix + '/Logs/') then |
531 if not FileExists(UserPathPrefix + '/Logs/') then |
532 CreateDir(UserPathPrefix + '/Logs/'); |
532 CreateDir(UserPathPrefix + '/Logs/'); |
538 assign(f, shortstring(UserPathPrefix) + '/Logs/' + logfileBase + inttostr(i) + '.log'); |
538 assign(f, shortstring(UserPathPrefix) + '/Logs/' + logfileBase + inttostr(i) + '.log'); |
539 if IOResult = 0 then |
539 if IOResult = 0 then |
540 break; |
540 break; |
541 inc(i) |
541 inc(i) |
542 end; |
542 end; |
543 end; |
543 end;*) |
544 Rewrite(f); |
544 Rewrite(f); |
545 {$I+} |
545 {$I+} |
546 {$ENDIF} |
546 {$ENDIF} |
547 |
547 |
548 //mobile stuff |
548 //mobile stuff |