system/wine
system/wine
1
0
Fork 0
mirror of git://source.winehq.org/git/wine.git synced 2024-10-14 09:41:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

rpcrt4: Write type format strings for coclasses.

Browse source 
Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=19016
Signed-off-by: Zebediah Figura <z.figura12@gmail.com>
Signed-off-by: Huw Davies <huw@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Zebediah Figura 2018-11-14 08:47:59 -06:00 committed by Alexandre Julliard
parent cb8353b6e8
commit 5d44b1d4bd
1 changed files with 31 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
dlls/rpcrt4/ndr_typelib.c
View file

@ -324,6 +324,32 @@ static size_t write_ip_tfs(unsigned char *str, size_t *len, const GUID *iid)
return off;
}
static void get_default_iface(ITypeInfo *typeinfo, WORD count, GUID *iid)
{
ITypeInfo *refinfo;
HREFTYPE reftype;
TYPEATTR *attr;
int flags, i;
for (i = 0; i < count; ++i)
{
ITypeInfo_GetImplTypeFlags(typeinfo, i, &flags);
if (flags & IMPLTYPEFLAG_FDEFAULT)
break;
}
/* If no interface was explicitly marked default, choose the first one. */
if (i == count)
i = 0;
ITypeInfo_GetRefTypeOfImplType(typeinfo, i, &reftype);
ITypeInfo_GetRefTypeInfo(typeinfo, reftype, &refinfo);
ITypeInfo_GetTypeAttr(refinfo, &attr);
*iid = attr->guid;
ITypeInfo_ReleaseTypeAttr(refinfo, attr);
ITypeInfo_Release(refinfo);
}
static size_t write_pointer_tfs(ITypeInfo *typeinfo, unsigned char *str,
size_t *len, TYPEDESC *desc, BOOL toplevel, BOOL onstack)
{
@ -331,6 +357,7 @@ static size_t write_pointer_tfs(ITypeInfo *typeinfo, unsigned char *str,
size_t ref, off = *len;
ITypeInfo *refinfo;
TYPEATTR *attr;
GUID guid;
if (desc->vt == VT_USERDEFINED)
{
@ -358,6 +385,10 @@ static size_t write_pointer_tfs(ITypeInfo *typeinfo, unsigned char *str,
case TKIND_DISPATCH:
write_ip_tfs(str, len, &attr->guid);
break;
case TKIND_COCLASS:
get_default_iface(refinfo, attr->cImplTypes, &guid);
write_ip_tfs(str, len, &guid);
break;
case TKIND_ALIAS:
off = write_pointer_tfs(refinfo, str, len, &attr->tdescAlias, toplevel, onstack);
break;