paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not show full path in backup-message

Browse Source 
* Skip path-creation when output is set to stdout

git-svn-id: trunk@17186 -
This commit is contained in:
joost 2011-03-27 11:07:21 +00:00
parent dc5f4b038d
commit 739ea3720c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fpcmkcfg/fpcmkcfg.pp
View File

@ -493,9 +493,9 @@ begin
Halt(1); Halt(1);
end end
else else
Writeln(Format(SBackupCreated,[OutputFileName,BFN])); Writeln(Format(SBackupCreated,[ExtractFileName(OutputFileName),ExtractFileName(BFN)]));
end; end;
if not DirectoryExists(ExtractFilePath(OutputFileName)) then if (OutputFileName<>'') and not DirectoryExists(ExtractFilePath(OutputFileName)) then
begin begin
if CreateDir then if CreateDir then
begin begin