vbscript: Fix potential crash if script site creation failed.

dba0fe36 · Nikolay Sivov · Alexandre Julliard · ab854893 · dba0fe36
Commit dba0fe36 authored Feb 16, 2015 by Nikolay Sivov Committed by Alexandre Julliard Feb 16, 2015
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

global.c dlls/vbscript/global.c +3 -2

No files found.
--- a/dlls/vbscript/global.c
+++ b/dlls/vbscript/global.c
@@ -209,11 +209,12 @@ static HRESULT set_object_site(script_ctx_t *ctx, IUnknown *obj)
        return S_OK;

    ax_site = create_ax_site(ctx);
-    if(ax_site)
+    if(ax_site) {
        hres = IObjectWithSite_SetSite(obj_site, ax_site);
+        IUnknown_Release(ax_site);
+    }
    else
        hres = E_OUTOFMEMORY;
-    IUnknown_Release(ax_site);
    IObjectWithSite_Release(obj_site);
    return hres;
 }