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

compiler: fix calling of dispinterface procedures (issue #0015528)

Browse Source 
git-svn-id: trunk@14683 -
This commit is contained in:
paul 2010-01-16 18:02:55 +00:00
parent 74cc1e0bab
commit fa729dd252
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/ncal.pas
View File

@ -2838,7 +2838,7 @@ implementation
if assigned(methodpointer) and is_dispinterface(methodpointer.resultdef) then
begin
{ if the result is used, we've to insert a call to convert the type to be on the "safe side" }
if cnf_return_value_used in callnodeflags then
if (cnf_return_value_used in callnodeflags) and not is_void(procdefinition.returndef) then
begin
result:=internalstatements(statements);
converted_result_data:=ctempcreatenode.create(procdefinition.returndef,sizeof(procdefinition.returndef),tt_persistent,true);