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

vbscript: Added interp_me implementation.

This commit is contained in:
Jacek Caban 2011-09-19 14:10:08 +02:00 committed by Alexandre Julliard
parent eef966faf7
commit afffa2c58c
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dlls/vbscript/interp.c
View File

@ -710,8 +710,14 @@ static HRESULT interp_stop(exec_ctx_t *ctx)
static HRESULT interp_me(exec_ctx_t *ctx)
{
FIXME("\n");
return E_NOTIMPL;
VARIANT v;
TRACE("\n");
IDispatch_AddRef(ctx->this_obj);
V_VT(&v) = VT_DISPATCH;
V_DISPATCH(&v) = ctx->this_obj;
return stack_push(ctx, &v);
}
static HRESULT interp_bool(exec_ctx_t *ctx)

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

@ -620,6 +620,16 @@ Call ok(not (x is Nothing), "x is 1")
Call ok(Nothing is Nothing, "Nothing is not Nothing")
Call ok(x is obj and true, "x is obj and true is false")
Class TestMe
Public Sub Test(MyMe)
Call ok(Me is MyMe, "Me is not MyMe")
End Sub
End Class
Set obj = New TestMe
Call obj.test(obj)
Call ok(getVT(test) = "VT_DISPATCH", "getVT(test) = " & getVT(test))
Call ok(Me is Test, "Me is not Test")
reportSuccess()