paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 16:31:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: allow Assigned call for dispinterfaces

Browse Source 
git-svn-id: trunk@14750 -
This commit is contained in:
paul 2010-01-19 14:26:11 +00:00
parent 6bc01f8c7e
commit e82edfb0fb
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/pexpr.pas
View File

@ -500,7 +500,7 @@ implementation
procvardef,
classrefdef : ;
objectdef :
if not is_class_or_interface_or_objc(p1.resultdef) then
if not is_class_or_interface_or_dispinterface_or_objc(p1.resultdef) then
begin
Message(parser_e_illegal_parameter_list);
err:=true;