paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +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

14
compiler/symtable.pas
View File

@ -1136,6 +1136,7 @@ implementation
begin
if (Errorcount<>0) then
exit;
{ do not claim for inherited private fields !! }
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)
{ units references are problematic }
@ -1157,8 +1158,12 @@ implementation
procedure objectprivatesymbolused(p : pnamedindexobject);
begin
{
Don't test simple object aliases PM
}
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(
{$ifndef TP}@{$endif}TestPrivate);
end;
@ -2766,7 +2771,10 @@ implementation
end.
{
$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
Revision 1.72 2000/01/03 19:26:04 peter
@ -2908,4 +2916,4 @@ end.
* oldtp mode directives better supported
* added some messages to errore.msg
}
}