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

Packager: fixed compilation breakage with FPC 3.0.4 after r59720 #0e016b16dc, bug #34652 and lots of other reports.

Browse Source 
git-svn-id: trunk@59731 -
This commit is contained in:
maxim 2018-12-05 22:35:14 +00:00
parent d69ccc1655
commit 6d64beff69
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packager/fppkghelper.pas
View File

@ -125,11 +125,17 @@ begin
end; end;
function TFppkgHelper.GetPackageUnitPath(const PackageName: string): string; function TFppkgHelper.GetPackageUnitPath(const PackageName: string): string;
{$IFNDEF VER3_0}
var var
FppkgPackage: TFPPackage; FppkgPackage: TFPPackage;
{$ENDIF VER3_0}
begin begin
{$IFNDEF VER3_0}
FppkgPackage := FFPpkg.FindPackage(PackageName, pkgpkInstalled); FppkgPackage := FFPpkg.FindPackage(PackageName, pkgpkInstalled);
Result := FppkgPackage.PackagesStructure.GetUnitDirectory(FppkgPackage); Result := FppkgPackage.PackagesStructure.GetUnitDirectory(FppkgPackage);
{$ELSE }
Result := '';
{$ENDIF VER3_0}
end; end;
finalization finalization