diff --git a/compiler/symtable.pas b/compiler/symtable.pas index 03eedc8b74..f8d1645fe1 100644 --- a/compiler/symtable.pas +++ b/compiler/symtable.pas @@ -633,7 +633,8 @@ implementation ) and { don't complain about alias for hidden _cmd parameter to obj-c methods } - not (vo_is_msgsel in tabstractvarsym(sym).varoptions) then + not((tsym(sym).typ in [localvarsym,paravarsym]) and + (vo_is_msgsel in tabstractvarsym(sym).varoptions)) then MessagePos2(tsym(sym).fileinfo,sym_h_local_symbol_not_used,SymTypeName[tsym(sym).typ],tsym(sym).prettyname); end; end;