ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vbscript: Added interp_set_ident implementation.

This commit is contained in:
Jacek Caban 2011-09-15 14:17:51 +02:00 committed by Alexandre Julliard
parent b3a6217ed3
commit f683832ac1
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
dlls/vbscript/interp.c
View File

@ -388,8 +388,19 @@ static HRESULT interp_assign_ident(exec_ctx_t *ctx)
static HRESULT interp_set_ident(exec_ctx_t *ctx)
{
const BSTR arg = ctx->instr->arg1.bstr;
FIXME("%s\n", debugstr_w(arg));
return E_NOTIMPL;
IDispatch *disp;
VARIANT v;
HRESULT hres;
TRACE("%s\n", debugstr_w(arg));
hres = stack_pop_disp(ctx, &disp);
if(FAILED(hres))
return hres;
V_VT(&v) = VT_DISPATCH;
V_DISPATCH(&v) = disp;
return assign_ident(ctx, ctx->instr->arg1.bstr, &v, TRUE);
}
static HRESULT interp_assign_member(exec_ctx_t *ctx)

3
dlls/vbscript/tests/lang.vbs
View File

@ -355,6 +355,9 @@ x = false
ok SetVal(x, true), "SetVal returned false?"
Call ok(x, "x is not set to true by SetVal?")
set x = testObj
Call ok(getVT(x) = "VT_DISPATCH*", "getVT(x=testObj) = " & getVT(x))
Class EmptyClass
End Class