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

* fix for mantis 17083, change funcdesc field to ptr to array of hresult

Browse Source 
instead of just ptr to scode.

git-svn-id: trunk@15715 -
This commit is contained in:
marco 2010-08-06 03:12:52 +00:00
parent 6e68edac21
commit 38fb33f09a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/winunits-base/src/activex.pp
View File

@ -813,6 +813,8 @@ TYPE
lpDISPID = ^DISPID; lpDISPID = ^DISPID;
MEMBERID = DispId; MEMBERID = DispId;
HREFTYPE = DWord; HREFTYPE = DWord;
TResultList = array[0..high(integer) div 4-50] of HResult;
PResultList = ^TResultList;
PSYSINT = ^SYSINT; PSYSINT = ^SYSINT;
SYSINT = LongInt; SYSINT = LongInt;
@ -1597,7 +1599,7 @@ TYPE
tagFUNCDESC = Record tagFUNCDESC = Record
memid : MEMBERID; memid : MEMBERID;
lprgscode : pSCODE; lprgscode : PResultList;
lprgelemdescParam : lpELEMDESC; // array of param types lprgelemdescParam : lpELEMDESC; // array of param types
FUNCKIND : funckind; FUNCKIND : funckind;
invkind : INVOKEKIND; invkind : INVOKEKIND;