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

IDE: checking relative package files

Browse Source 
git-svn-id: trunk@21924 -
This commit is contained in:
mattias 2009-09-29 20:38:19 +00:00
parent 4f168cab7d
commit 2455dce6c7
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packager/packagelinks.pas
View File

@ -722,12 +722,18 @@ procedure TPackageLinks.IteratePackagesInTree(MustExist: boolean;
var
ANode: TAVLTreeNode;
PkgLink: TPackageLink;
AFilename: String;
begin
ANode:=LinkTree.FindLowest;
while ANode<>nil do begin
PkgLink:=TPackageLink(ANode.Data);
//debugln('TPackageLinks.IteratePackagesInTree PkgLink.Filename=',PkgLink.Filename);
if (not MustExist) or FileExistsUTF8(PkgLink.Filename) then
AFilename:=PkgLink.Filename;
if not FilenameIsAbsolute(AFilename)
and (EnvironmentOptions.LazarusDirectory<>'') then begin
AFilename:=TrimFilename(EnvironmentOptions.LazarusDirectory+PathDelim+AFilename);
end;
if (not MustExist) or FileExistsUTF8(AFilename) then
Event(PkgLink);
ANode:=LinkTree.FindSuccessor(ANode);
end;

3
packager/packagesystem.pas
View File

@ -450,7 +450,8 @@ begin
BeginUpdate(false);
try
AFilename:=PkgLink.Filename;
if not FilenameIsAbsolute(AFilename) then begin
if (not FilenameIsAbsolute(AFilename))
and (EnvironmentOptions.LazarusDirectory<>'') then begin
// a package in the lazarus sources
AFilename:=TrimFilename(EnvironmentOptions.LazarusDirectory+PathDelim+AFilename);
end;