diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp index d232d55959..9723fe3ab2 100644 --- a/packages/fcl-passrc/src/pasresolver.pp +++ b/packages/fcl-passrc/src/pasresolver.pp @@ -8106,6 +8106,7 @@ begin if Evaluated=nil then ReleaseEvalValue(Value); end; + if Proc=nil then ; end; function TPasResolver.BI_LowHigh_OnGetCallCompatibility( diff --git a/packages/fcl-passrc/src/pasuseanalyzer.pas b/packages/fcl-passrc/src/pasuseanalyzer.pas index 23625a388d..6fcd959a57 100644 --- a/packages/fcl-passrc/src/pasuseanalyzer.pas +++ b/packages/fcl-passrc/src/pasuseanalyzer.pas @@ -50,7 +50,10 @@ interface uses Classes, SysUtils, AVL_Tree, PasTree, PScanner, - PasResolver, PasResolveEval; + {$IFDEF VerbosePasResolver} + PasResolveEval, + {$ENDIF} + PasResolver; const nPAUnitNotUsed = 5023;