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

* avoid testing object types that are simple aliases for unused privates

Browse Source
This commit is contained in:
pierre 2000-01-09 00:37:56 +00:00
parent a67b0c3484
commit beebcdebfc
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symtable.pas
View File

@ -1136,6 +1136,7 @@ implementation
begin begin
if (Errorcount<>0) then if (Errorcount<>0) then
exit; exit;
{ do not claim for inherited private fields !! }
if (psym(p)^.refs=0) and (psym(p)^.owner^.symtabletype=objectsymtable) then if (psym(p)^.refs=0) and (psym(p)^.owner^.symtabletype=objectsymtable) then
MessagePos2(psym(p)^.fileinfo,sym_n_private_method_not_used,psym(p)^.owner^.name^,p^.name) MessagePos2(psym(p)^.fileinfo,sym_n_private_method_not_used,psym(p)^.owner^.name^,p^.name)
{ units references are problematic } { units references are problematic }
@ -1157,8 +1158,12 @@ implementation
procedure objectprivatesymbolused(p : pnamedindexobject); procedure objectprivatesymbolused(p : pnamedindexobject);
begin begin
{
Don't test simple object aliases PM
}
if (psym(p)^.typ=typesym) and if (psym(p)^.typ=typesym) and
(ptypesym(p)^.restype.def^.deftype=objectdef) then (ptypesym(p)^.restype.def^.deftype=objectdef) and
(ptypesym(p)^.restype.def^.typesym=ptypesym(p)) then
pobjectdef(ptypesym(p)^.restype.def)^.symtable^.foreach( pobjectdef(ptypesym(p)^.restype.def)^.symtable^.foreach(
{$ifndef TP}@{$endif}TestPrivate); {$ifndef TP}@{$endif}TestPrivate);
end; end;
@ -2766,7 +2771,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.73 2000-01-07 01:14:41 peter Revision 1.74 2000-01-09 00:37:56 pierre
* avoid testing object types that are simple aliases for unused privates
Revision 1.73 2000/01/07 01:14:41 peter
* updated copyright to 2000 * updated copyright to 2000
Revision 1.72 2000/01/03 19:26:04 peter Revision 1.72 2000/01/03 19:26:04 peter