paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix ForceDirectory that partially creates a dir if ending char is not PathDelim, for example package output directory will be created correctly

Browse Source 
git-svn-id: trunk@13055 -
This commit is contained in:
jesus 2007-11-27 21:01:11 +00:00
parent 589f0665d7
commit 8ff99369dd
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/fileprocs.pas
View File

@ -603,6 +603,7 @@ var i: integer;
Dir: string; Dir: string;
begin begin
DoDirSeparators(DirectoryName); DoDirSeparators(DirectoryName);
DirectoryName:=IncludeTrailingPathDelimiter(DirectoryName);
i:=1; i:=1;
while i<=length(DirectoryName) do begin while i<=length(DirectoryName) do begin
if DirectoryName[i]=PathDelim then begin if DirectoryName[i]=PathDelim then begin