mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 02:49:28 +02:00
* don't report unused hidden parameters
This commit is contained in:
parent
487650ab51
commit
052f635a45
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user