paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Bart for mantis 35271 committed. Avoid create directory block when extractfilepath(<filename>) is empty

Browse Source 
git-svn-id: trunk@41860 -
This commit is contained in:
marco 2019-04-11 08:03:13 +00:00
parent b9e3a0692c
commit 93a3764cd5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpcmkcfg/fpcmkcfg.pp
View File

@ -499,7 +499,7 @@ Procedure CreateFile;
Var Var
Fout : Text; Fout : Text;
S,BFN : String; S,BFN,ODir : String;
I : Integer; I : Integer;
begin begin
@ -527,7 +527,8 @@ begin
else else
Writeln(Format(SBackupCreated,[ExtractFileName(OutputFileName),ExtractFileName(BFN)])); Writeln(Format(SBackupCreated,[ExtractFileName(OutputFileName),ExtractFileName(BFN)]));
end; end;
if (OutputFileName<>'') and not DirectoryExists(ExtractFilePath(OutputFileName)) then ODir:=ExtractFilePath(OutputFileName);
if (OutputFileName<>'') and (ODir<>'') and not DirectoryExists(ODir) then
begin begin
if CreateDir then if CreateDir then
begin begin