equal
deleted
inserted
replaced
556 inc(i) |
556 inc(i) |
557 end; |
557 end; |
558 end; |
558 end; |
559 |
559 |
560 {$IFNDEF PAS2C} |
560 {$IFNDEF PAS2C} |
|
561 // if everything fails, write to stderr |
561 if (length(UserPathPrefix) = 0) or (IOResult = 0) then |
562 if (length(UserPathPrefix) = 0) or (IOResult = 0) then |
562 begin |
563 logFile:= stderr; |
563 logFile:= stderr; // if everything fails, write to stderr |
|
564 Rewrite(logFile); |
|
565 end; |
|
566 {$ENDIF} |
564 {$ENDIF} |
567 {$I+} |
565 {$I+} |
568 {$ENDIF} |
566 {$ENDIF} |
569 |
567 |
570 //mobile stuff |
568 //mobile stuff |