paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 16:29:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't report sym_w_identifier_only_read for exported or external

Browse Source 
variables

git-svn-id: trunk@2483 -
This commit is contained in:
Jonas Maebe 2006-02-08 20:30:07 +00:00
parent 3b93263965
commit 63b9f00afd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symtable.pas
View File

@ -666,7 +666,7 @@ implementation
MessagePos1(tsym(p).fileinfo,sym_n_local_identifier_only_set,tsym(p).realname);
end
else if (tabstractvarsym(p).varstate = vs_read_not_warned) and
not(vo_is_exported in tabstractvarsym(p).varoptions) then
([vo_is_exported,vo_is_external] * tabstractvarsym(p).varoptions = []) then
MessagePos1(tsym(p).fileinfo,sym_w_identifier_only_read,tsym(p).realname)
end
else if ((tsym(p).owner.symtabletype in