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

IDE: fixed compile under fpc trunk

Browse Source 
git-svn-id: trunk@60118 -
This commit is contained in:
mattias 2019-01-20 10:13:51 +00:00
parent 81add28593
commit 87bfc99a1c
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packager/fppkghelper.pas
View File

@ -8,8 +8,10 @@ uses
Classes, Classes,
SysUtils, SysUtils,
{$IFNDEF VER3_0} {$IFNDEF VER3_0}
IDEDialogs,
pkgFppkg, pkgFppkg,
{$ENDIF VER3_0} LazarusIDEStrConsts,
{$ENDIF}
fprepos, fprepos,
Dialogs; Dialogs;
@ -49,7 +51,10 @@ var
{ TFppkgHelper } { TFppkgHelper }
constructor TFppkgHelper.Create; constructor TFppkgHelper.Create;
{$IFNDEF VER3_0} {$IFDEF VER3_0}
begin
end;
{$ELSE}
var var
FPpkg: TpkgFPpkg; FPpkg: TpkgFPpkg;
begin begin
@ -75,10 +80,6 @@ begin
finally finally
FPpkg.Free; FPpkg.Free;
end; end;
end;
{$ELSE}
begin
end; end;
{$ENDIF VER3_0} {$ENDIF VER3_0}
@ -99,7 +100,9 @@ end;
function TFppkgHelper.HasPackage(const PackageName: string): Boolean; function TFppkgHelper.HasPackage(const PackageName: string): Boolean;
begin begin
{$IFNDEF VER3_0} {$IFDEF VER3_0}
Result := HasFPCPackagesOnly(PackageName);
{$ELSE }
if IsProperlyConfigured() then if IsProperlyConfigured() then
begin begin
Result := Result :=
@ -121,8 +124,6 @@ begin
end end
else else
Result := HasFPCPackagesOnly(PackageName); Result := HasFPCPackagesOnly(PackageName);
{$ELSE }
Result := HasFPCPackagesOnly(PackageName);
{$ENDIF VER3_0} {$ENDIF VER3_0}
end; end;