paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 18:21:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-pas: less hints

Browse Source 
git-svn-id: trunk@36648 -
This commit is contained in:
Mattias Gaertner 2017-07-05 19:57:56 +00:00
parent a9502f9d3d
commit 6d764dff98
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-passrc/src/pasresolver.pp
View File

@ -8106,6 +8106,7 @@ begin
if Evaluated=nil then
ReleaseEvalValue(Value);
end;
if Proc=nil then ;
end;
function TPasResolver.BI_LowHigh_OnGetCallCompatibility(

5
packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -50,7 +50,10 @@ interface
uses
Classes, SysUtils, AVL_Tree, PasTree, PScanner,
PasResolver, PasResolveEval;
{$IFDEF VerbosePasResolver}
PasResolveEval,
{$ENDIF}
PasResolver;
const
nPAUnitNotUsed = 5023;