paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 21:29:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

projectgroups: fixed adding missing targets, bug #35243

Browse Source 
git-svn-id: trunk@60712 -
This commit is contained in:
mattias 2019-03-17 21:14:23 +00:00
parent 507da49bf0
commit c009fdea46
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/projectgroups/projectgroup.pp
View File

@ -729,7 +729,6 @@ begin
RaiseGDBException(AFileName);
if CompareFilenames(AFileName,FileName)=0 then
raise Exception.Create(lisInvalidCycleAProjectGroupCannotHaveItselfAsTarget);
if not FileExistsCached(AFileName) then exit;
Result:=TIDECompileTarget.Create(CompileTarget);
Result.FileName:=AFileName;
FTargets.Add(Result);
@ -870,6 +869,7 @@ begin
begin
Target:=TIDECompileTarget(AddTarget(TargetFileName));
Target.Removed:=True;
Include(Options,pgloRemoveInvalid);
end;
else
exit;