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

* avoid certain wrong notes/hints

Browse Source
This commit is contained in:
pierre 1999-11-19 14:49:15 +00:00
parent 9a9219324f
commit bb6dc0cee8
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/symtable.pas
View File

@ -880,11 +880,11 @@ implementation
{ 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) }
if (Errorcount<>0) then
if (Errorcount<>0) or
(copy(p^.name,1,3)='val') or
(copy(p^.name,1,4)='high') then
exit;
if (pvarsym(p)^.refs=0) and
(copy(p^.name,1,3)<>'val') and
(copy(p^.name,1,4)<>'high') then
if (pvarsym(p)^.refs=0) then
begin
if (psym(p)^.owner^.symtabletype=parasymtable) or pvarsym(p)^.islocalcopy then
begin
@ -922,6 +922,7 @@ implementation
MessagePos2(psym(p)^.fileinfo,sym_n_private_method_not_used,psym(p)^.owner^.name^,p^.name)
{ units references are problematic }
else if (psym(p)^.refs=0) and not(psym(p)^.typ in [funcretsym,enumsym,unitsym]) then
if (psym(p)^.typ<>procsym) or not (pprocsym(p)^.is_global) then
MessagePos2(psym(p)^.fileinfo,sym_h_local_symbol_not_used,SymTypeName[psym(p)^.typ],p^.name);
end;
end;
@ -2561,7 +2562,10 @@ implementation
end.
{
$Log$
Revision 1.64 1999-11-18 15:34:48 pierre
Revision 1.65 1999-11-19 14:49:15 pierre
* avoid certain wrong notes/hints
Revision 1.64 1999/11/18 15:34:48 pierre
* Notes/Hints for local syms changed to
Set_varstate function