From ec5d73910c754ba9cadc6724d217fb6779545149 Mon Sep 17 00:00:00 2001 From: Robert Shearman Date: Tue, 7 Feb 2006 16:25:42 +0100 Subject: [PATCH] oleaut32: Release interfaces when told to. Make the VT_DISPATCH and VT_UNKNOWN cases of serialize_param match the TKIND_INTERFACE case below by releasing their respective interfaces as necessary. --- dlls/oleaut32/tmarshal.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/dlls/oleaut32/tmarshal.c b/dlls/oleaut32/tmarshal.c index 7c3bddc8b9f..94289951dc9 100644 --- a/dlls/oleaut32/tmarshal.c +++ b/dlls/oleaut32/tmarshal.c @@ -668,11 +668,15 @@ serialize_param( if (debugout) TRACE_(olerelay)("unk(0x%lx)",*arg); if (writeit) hres = _marshal_interface(buf,&IID_IUnknown,(LPUNKNOWN)*arg); + if (dealloc) + IUnknown_Release((LPUNKNOWN)*arg); return hres; case VT_DISPATCH: if (debugout) TRACE_(olerelay)("idisp(0x%lx)",*arg); if (writeit) hres = _marshal_interface(buf,&IID_IDispatch,(LPUNKNOWN)*arg); + if (dealloc) + IUnknown_Release((LPUNKNOWN)*arg); return hres; case VT_VOID: if (debugout) TRACE_(olerelay)("");