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

project groups: fixed path sep normalization

Browse Source 
git-svn-id: trunk@53230 -
This commit is contained in:
mattias 2016-10-26 16:47:58 +00:00
parent 72ab451ade
commit f22350e1c5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/projectgroups/projectgroup.pp
View File

@ -819,10 +819,10 @@ begin
Target:=Nil; Target:=Nil;
APath:=Format(ARoot+'/Targets/Target%d/',[i]); APath:=Format(ARoot+'/Targets/Target%d/',[i]);
TargetFileName:=XMLConfig.GetValue(APath+'FileName',''); TargetFileName:=XMLConfig.GetValue(APath+'FileName','');
TargetFileName:=TrimFilename(SetDirSeparators(TargetFileName)); TargetFileName:=TrimFilename(GetForcedPathDelims(TargetFileName));
if not FilenameIsAbsolute(TargetFileName) then if not FilenameIsAbsolute(TargetFileName) then
TargetFileName:=TrimFilename(BaseDir+TargetFileName); TargetFileName:=TrimFilename(BaseDir+TargetFileName);
If (TargetFileName<>'') and FileExistsCached(TargetFileName) then begin if (TargetFileName<>'') and FileExistsCached(TargetFileName) then begin
Target:=TIDECompileTarget(AddTarget(TargetFileName)); Target:=TIDECompileTarget(AddTarget(TargetFileName));
if pgloLoadRecursively in Options then if pgloLoadRecursively in Options then
Target.LoadTarget(true); Target.LoadTarget(true);