paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-28 20:17:20 +01: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); RaiseGDBException(AFileName);
if CompareFilenames(AFileName,FileName)=0 then if CompareFilenames(AFileName,FileName)=0 then
raise Exception.Create(lisInvalidCycleAProjectGroupCannotHaveItselfAsTarget); raise Exception.Create(lisInvalidCycleAProjectGroupCannotHaveItselfAsTarget);
if not FileExistsCached(AFileName) then exit;
Result:=TIDECompileTarget.Create(CompileTarget); Result:=TIDECompileTarget.Create(CompileTarget);
Result.FileName:=AFileName; Result.FileName:=AFileName;
FTargets.Add(Result); FTargets.Add(Result);
@ -870,6 +869,7 @@ begin
begin begin
Target:=TIDECompileTarget(AddTarget(TargetFileName)); Target:=TIDECompileTarget(AddTarget(TargetFileName));
Target.Removed:=True; Target.Removed:=True;
Include(Options,pgloRemoveInvalid);
end; end;
else else
exit; exit;