paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:19:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

packager: fix TPkgFile.IsVirtual, use AFile.IsVirtual instead of FilenameIsAbsolute(AFilename) condition in TPkgManager.WarnAboutMissingPackageFiles

Browse Source 
git-svn-id: trunk@30063 -
This commit is contained in:
paul 2011-03-29 08:33:58 +00:00
parent 51d1c34af0
commit f6d82e6429
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/packagedefs.pas
View File

@ -1688,7 +1688,7 @@ end;
function TPkgFile.IsVirtual: boolean; function TPkgFile.IsVirtual: boolean;
begin begin
Result:=FilenameIsAbsolute(Filename); Result:=not FilenameIsAbsolute(Filename);
end; end;
function TPkgFile.GetShortFilename(UseUp: boolean): string; function TPkgFile.GetShortFilename(UseUp: boolean): string;

2
packager/pkgmanager.pas
View File

@ -3379,7 +3379,7 @@ begin
end; end;
if (not APackage.IsVirtual) and FilenameIsAbsolute(AFilename) then if (not APackage.IsVirtual) and FilenameIsAbsolute(AFilename) then
APackage.LongenFilename(AFilename); APackage.LongenFilename(AFilename);
if FilenameIsAbsolute(AFilename) then begin if not AFile.IsVirtual then begin
if not FileExistsCached(AFilename) then begin if not FileExistsCached(AFilename) then begin
if not APackage.IsVirtual then if not APackage.IsVirtual then
AFilename:=CreateRelativePath(AFilename,APackage.Directory); AFilename:=CreateRelativePath(AFilename,APackage.Directory);