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

* don't report unused hidden parameters

Browse Source
This commit is contained in:
peter 2003-10-03 14:43:29 +00:00
parent 487650ab51
commit 052f635a45
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symtable.pas
View File

@ -698,10 +698,8 @@ implementation
{ also don't count the value parameters which have local copies } { 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 claim for high param of open parameters (PM) }
if (Errorcount<>0) or if (Errorcount<>0) or
(vo_is_self in tvarsym(p).varoptions) or (assigned(tvarsym(p).paraitem) and
(vo_is_vmt in tvarsym(p).varoptions) or tvarsym(p).paraitem.is_hidden) then
(vo_is_high_value in tvarsym(p).varoptions) or
(copy(p.name,1,6)='hidden') then
exit; exit;
if (tvarsym(p).refs=0) then if (tvarsym(p).refs=0) then
begin begin
@ -2261,7 +2259,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.112 2003-10-02 21:13:46 peter Revision 1.113 2003-10-03 14:43:29 peter
* don't report unused hidden parameters
Revision 1.112 2003/10/02 21:13:46 peter
* protected visibility fixes * protected visibility fixes
Revision 1.111 2003/10/01 19:05:33 peter Revision 1.111 2003/10/01 19:05:33 peter