paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 04:49:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't warn about unsed symbols in generic procedures/methods, resolves #18907

Browse Source 
git-svn-id: trunk@18226 -
This commit is contained in:
florian 2011-08-16 19:48:36 +00:00
parent c32bc3a22a
commit 2f58065873
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/symtable.pas
View File

@ -637,14 +637,18 @@ implementation
((tsym(sym).owner.symtabletype in
[parasymtable,localsymtable,ObjectSymtable,recordsymtable,staticsymtable])) then
begin
{ unused symbol should be reported only if no }
{ error is reported }
{ if the symbol is in a register it is used }
{ also don't count the value parameters which have local copies }
{ also don't claim for high param of open parameters (PM) }
{ unused symbol should be reported only if no }
{ error is reported }
{ if the symbol is in a register it is used }
{ also don't count the value parameters which have local copies }
{ also don't claim for high param of open parameters (PM) }
{ also don't complain about unused symbols in generic procedures }
{ and methods }
if (Errorcount<>0) or
([vo_is_hidden_para,vo_is_funcret] * tabstractvarsym(sym).varoptions = [vo_is_hidden_para]) or
(sp_internal in tsym(sym).symoptions) then
(sp_internal in tsym(sym).symoptions) or
((assigned(tsym(sym).owner.defowner) and
(df_generic in tprocdef(tsym(sym).owner.defowner).defoptions))) then
exit;
if (tstoredsym(sym).refs=0) then
begin