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

lazbuild: fixed error message for broken dependency

Browse Source 
git-svn-id: branches/fixes_1_4@49126 -
This commit is contained in:
mattias 2015-05-21 11:37:36 +00:00
parent a55c7090c1
commit 95b31b96e1
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/lazbuild.lpr
View File

@ -687,23 +687,17 @@ procedure TLazBuildApplication.CheckPackageGraphForCompilation(
begin
Result:='';
for i:=0 to PathList.Count-1 do begin
Item:=TObject(PathList[0]);
Item:=TObject(PathList[i]);
if Result<>'' then
Result:=Result+'->';
if Item is TPkgDependency then begin
if Result<>'' then
Result:=Result+'>';
Result:=Result+TPkgDependency(Item).AsString;
end else if Item is TProject then begin
if Result<>'' then
Result:=Result+'>';
Result:=Result
+'Project:'+ExtractFileNameOnly(TProject(Item).ProjectInfoFile);
end else if Item is TLazPackage then begin
if Result<>'' then
Result:=Result+'>';
Result:=Result+TLazPackage(Item).IDAsString;
end else begin
if Result<>'' then
Result:=Result+'>';
Result:=Result+'Unknown:'+dbgsName(Item);
end;
end;