From e41c06391bac49d8ff94e59414003269531501eb Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Fri, 18 Sep 2009 10:42:09 +0000 Subject: [PATCH] * fixed class cast error git-svn-id: branches/objc@13737 - --- compiler/symtable.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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;