From 78d3e2b922ab6121372a483ff212b9a45b35552a Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 28 Jun 2020 13:37:22 +0000 Subject: [PATCH] ide: less hints git-svn-id: branches/fixes_2_0@63455 - --- ide/exttoolsconsole.pas | 1 + packager/fppkghelper.pas | 8 +++++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/ide/exttoolsconsole.pas b/ide/exttoolsconsole.pas index cd8836bd5a..0ef1d4f93c 100644 --- a/ide/exttoolsconsole.pas +++ b/ide/exttoolsconsole.pas @@ -229,6 +229,7 @@ end; function TExternalToolsConsole.GetIDEObject(ToolData: TIDEExternalToolData): TObject; begin raise Exception.Create('TExternalToolsConsole.GetIDEObject: Should not happen!'); + Result:=ToolData; end; procedure TExternalToolsConsole.HandleMesages; diff --git a/packager/fppkghelper.pas b/packager/fppkghelper.pas index f2c21a0356..be1adc527e 100644 --- a/packager/fppkghelper.pas +++ b/packager/fppkghelper.pas @@ -6,11 +6,11 @@ interface uses Classes, - SysUtils, + SysUtils {$IFNDEF VER3_0} - pkgFppkg, + , pkgFppkg, fprepos {$ENDIF VER3_0} - fprepos; + ; type @@ -101,6 +101,7 @@ begin end; {$ELSE } Result := True; + if PackageName='' then ; {$ENDIF VER3_0} end; @@ -121,6 +122,7 @@ begin end; end; {$ENDIF VER3_0} + if AList=nil then ; end; finalization