From 9bca56ac441eccf831c9112b47b4a57162cccd3a Mon Sep 17 00:00:00 2001 From: yury Date: Wed, 26 Dec 2007 16:30:45 +0000 Subject: [PATCH] * Don't issue "Local variable is assigned but never used" warning for external variables. git-svn-id: trunk@9538 - --- compiler/symtable.pas | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/compiler/symtable.pas b/compiler/symtable.pas index 9581d2a8cd..4b8d6a116c 100644 --- a/compiler/symtable.pas +++ b/compiler/symtable.pas @@ -583,8 +583,7 @@ implementation end else if (tsym(sym).owner.symtabletype=ObjectSymtable) then MessagePos2(tsym(sym).fileinfo,sym_n_private_identifier_only_set,tsym(sym).owner.realname^,tsym(sym).realname) - else if not(vo_is_public in tabstractvarsym(sym).varoptions) and - not(vo_is_funcret in tabstractvarsym(sym).varoptions) then + else if tabstractvarsym(sym).varoptions*[vo_is_funcret,vo_is_public,vo_is_external]=[] then MessagePos1(tsym(sym).fileinfo,sym_n_local_identifier_only_set,tsym(sym).realname); end else if (tabstractvarsym(sym).varstate = vs_read_not_warned) and