vbscript: Call GetItemInfo() with original item name.

Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

vbscript: Call GetItemInfo() with original item name.
c46dbfb1 · Jacek Caban · Alexandre Julliard · 8e40577a · c46dbfb1 · c46dbfb1
Commit c46dbfb1 authored Nov 07, 2016 by Jacek Caban Committed by Alexandre Julliard Nov 07, 2016
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

interp.c dlls/vbscript/interp.c +1 -1

run.c dlls/vbscript/tests/run.c +6 -0

No files found.
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -183,7 +183,7 @@ static HRESULT lookup_identifier(exec_ctx_t *ctx, BSTR name, vbdisp_invoke_type_
            if(!item->disp) {
                IUnknown *unk;

-                hres = IActiveScriptSite_GetItemInfo(ctx->script->site, name, SCRIPTINFO_IUNKNOWN, &unk, NULL);
+                hres = IActiveScriptSite_GetItemInfo(ctx->script->site, item->name, SCRIPTINFO_IUNKNOWN, &unk, NULL);
                if(FAILED(hres)) {
                    WARN("GetItemInfo failed: %08x\n", hres);
                    continue;

--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -2126,6 +2126,12 @@ static void run_tests(void)
    CHECK_CALLED(global_success_d);
    CHECK_CALLED(global_success_i);

+    SET_EXPECT(global_success_d);
+    SET_EXPECT(global_success_i);
+    parse_script_af(0, "TEST.reportSuccess()");
+    CHECK_CALLED(global_success_d);
+    CHECK_CALLED(global_success_i);
+
    SET_EXPECT(global_vbvar_d);
    SET_EXPECT(global_vbvar_i);
    parse_script_a("Option Explicit\nvbvar = 3");