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

compiler: write dummy restype to calldescnode if we are calling by dipid

Browse Source 
git-svn-id: trunk@14744 -
This commit is contained in:
paul 2010-01-19 08:15:10 +00:00
parent 9f7a69627a
commit 58f43def5c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncal.pas
View File

@ -383,8 +383,11 @@ implementation
calldescnode:=cdataconstnode.create; calldescnode:=cdataconstnode.create;
if dispintfinvoke then if dispintfinvoke then
begin
calldescnode.append(dispid,sizeof(dispid)); calldescnode.append(dispid,sizeof(dispid));
// add dymmy restype byte which is not used by fpc
calldescnode.append(dispid,sizeof(byte));
end;
{ build up parameters and description } { build up parameters and description }
para:=tcallparanode(parametersnode); para:=tcallparanode(parametersnode);
currargpos:=0; currargpos:=0;