paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-01 21:33:45 +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 } { if the symbol is in a register it is used }
{ 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) then if (Errorcount<>0) or
(copy(p^.name,1,3)='val') or
(copy(p^.name,1,4)='high') then
exit; exit;
if (pvarsym(p)^.refs=0) and if (pvarsym(p)^.refs=0) then
(copy(p^.name,1,3)<>'val') and
(copy(p^.name,1,4)<>'high') then
begin begin
if (psym(p)^.owner^.symtabletype=parasymtable) or pvarsym(p)^.islocalcopy then if (psym(p)^.owner^.symtabletype=parasymtable) or pvarsym(p)^.islocalcopy then
begin begin
@ -922,6 +922,7 @@ implementation
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 }
else if (psym(p)^.refs=0) and not(psym(p)^.typ in [funcretsym,enumsym,unitsym]) then 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); MessagePos2(psym(p)^.fileinfo,sym_h_local_symbol_not_used,SymTypeName[psym(p)^.typ],p^.name);
end; end;
end; end;
@ -2561,7 +2562,10 @@ implementation
end. end.
{ {
$Log$ $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 * Notes/Hints for local syms changed to
Set_varstate function Set_varstate function