fcl-pas: less hints

git-svn-id: trunk@36648 -

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(

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;