paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 01:05:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed class cast error

Browse Source 
git-svn-id: branches/objc@13737 -
This commit is contained in:
Jonas Maebe 2009-09-18 10:42:09 +00:00
parent d942c99921
commit e41c06391b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/symtable.pas
View File

@ -633,7 +633,8 @@ implementation
) and ) and
{ don't complain about alias for hidden _cmd parameter to { don't complain about alias for hidden _cmd parameter to
obj-c methods } 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); MessagePos2(tsym(sym).fileinfo,sym_h_local_symbol_not_used,SymTypeName[tsym(sym).typ],tsym(sym).prettyname);
end; end;
end; end;