ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reverted last VT_USERDEFINED patch (was broken). 

Marshal TKIND_DISPATCH interfaces just like TKIND_INTERFACE.
This commit is contained in:
Marcus Meissner 2002-12-12 22:25:07 +00:00 committed by Alexandre Julliard
parent 561a1a8de0
commit 26ffca49a2
1 changed files with 8 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
dlls/oleaut32/tmarshal.c
View File

@ -508,6 +508,7 @@ serialize_param(
}
ITypeInfo_GetTypeAttr(tinfo2,&tattr);
switch (tattr->typekind) {
case TKIND_DISPATCH:
case TKIND_INTERFACE:
if (writeit)
hres=_marshal_interface(buf,&(tattr->guid),(LPUNKNOWN)arg);
@ -556,25 +557,11 @@ serialize_param(
if (debugout) MESSAGE("}");
break;
}
default: {
TYPEDESC tdesc2;
if (debugout) MESSAGE("U{");
memset(&tdesc2,0,sizeof(tdesc2));
tdesc2.vt = tattr->typekind;
hres = serialize_param(
tinfo2,
writeit,
debugout,
dealloc,
&tdesc2,
arg,
buf
);
if (debugout) MESSAGE("}");
default:
FIXME("Unhandled typekind %d\n",tattr->typekind);
hres = E_FAIL;
break;
}
}
ITypeInfo_Release(tinfo2);
return hres;
}
@ -878,6 +865,7 @@ deserialize_param(
if (alloc)
*arg = (DWORD)HeapAlloc(GetProcessHeap(),0,tattr->cbSizeInstance);
switch (tattr->typekind) {
case TKIND_DISPATCH:
case TKIND_INTERFACE:
if (readit)
hres = _unmarshal_interface(buf,&(tattr->guid),(LPUNKNOWN*)arg);
@ -910,25 +898,11 @@ deserialize_param(
if (debugout) MESSAGE("}");
break;
}
default: {
TYPEDESC tdesc2;
if (debugout) MESSAGE("U{");
memset(&tdesc2,0,sizeof(tdesc2));
tdesc2.vt = tattr->typekind;
hres = deserialize_param(
tinfo2,
readit,
debugout,
alloc,
&tdesc2,
(DWORD*)*arg,
buf
);
if (debugout) MESSAGE("}");
default:
ERR("Unhandled typekind %d\n",tattr->typekind);
hres = E_FAIL;
break;
}
}
}
if (hres)
FIXME("failed to stuballoc in TKIND_RECORD.\n");