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

lazbuild: nicer error message on lpi file not found

Browse Source 
git-svn-id: trunk@55541 -
This commit is contained in:
mattias 2017-07-19 11:34:52 +00:00
parent 37cd692b1f
commit 7da30e1cf2
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/lazbuild.lpr
View File

@ -313,7 +313,7 @@ end;
procedure TLazBuildApplication.PackageGraphAddPackage(Pkg: TLazPackage);
begin
if FileExists(Pkg.FileName) then LazPackageLinks.AddUserLink(Pkg);
if FileExistsUTF8(Pkg.FileName) then LazPackageLinks.AddUserLink(Pkg);
end;
function TLazBuildApplication.PackageGraphCheckInterPkgFiles(
@ -381,12 +381,15 @@ begin
// Initialize package graph with base packages etc:
if not Init then exit;
// Apparently not found, could be a known but not installed package
// Could be a known but not installed package
// so try and get package filename from all other known packages
Package:=TLazPackageLink(LazPackageLinks.FindLinkWithPkgName(OriginalFileName));
if Package=nil then begin
// Not found after everything we tried
Error(ErrorFileNotFound,'package not found: '+OriginalFilename);
if CompareFileExt(Filename,'.lpi')=0 then
Error(ErrorFileNotFound,'file not found: '+OriginalFilename)
else
Error(ErrorFileNotFound,'package not found: '+OriginalFilename);
end
else begin
// We found a package link