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.

oleaut32: Release interfaces when told to.
ec5d7391 · Robert Shearman · Alexandre Julliard · af7c0763 · ec5d7391
Commit ec5d7391 authored Feb 07, 2006 by Robert Shearman Committed by Alexandre Julliard Feb 07, 2006
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

tmarshal.c dlls/oleaut32/tmarshal.c +4 -0

No files found.
--- 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)("<void>");