vbscript: Call GetItemInfo() with original item name.

Signed-off-by: Jacek Caban <jacek@codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Jacek Caban 2016-11-07 14:08:17 +01:00 committed by Alexandre Julliard
parent 8e40577a1a
commit c46dbfb131
2 changed files with 7 additions and 1 deletions

View File

@ -183,7 +183,7 @@ static HRESULT lookup_identifier(exec_ctx_t *ctx, BSTR name, vbdisp_invoke_type_
if(!item->disp) { if(!item->disp) {
IUnknown *unk; 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)) { if(FAILED(hres)) {
WARN("GetItemInfo failed: %08x\n", hres); WARN("GetItemInfo failed: %08x\n", hres);
continue; continue;

View File

@ -2126,6 +2126,12 @@ static void run_tests(void)
CHECK_CALLED(global_success_d); CHECK_CALLED(global_success_d);
CHECK_CALLED(global_success_i); 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_d);
SET_EXPECT(global_vbvar_i); SET_EXPECT(global_vbvar_i);
parse_script_a("Option Explicit\nvbvar = 3"); parse_script_a("Option Explicit\nvbvar = 3");