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

vbscript: Added interp_mcall implementation.

This commit is contained in:
Jacek Caban 2011-09-15 14:21:44 +02:00 committed by Alexandre Julliard
parent 6ee2e3ac91
commit 308b2641d9
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dlls/vbscript/interp.c
View File

@ -374,8 +374,9 @@ static HRESULT interp_mcall(exec_ctx_t *ctx)
static HRESULT interp_mcallv(exec_ctx_t *ctx) static HRESULT interp_mcallv(exec_ctx_t *ctx)
{ {
FIXME("\n"); TRACE("\n");
return E_NOTIMPL;
return do_mcall(ctx, NULL);
} }
static HRESULT assign_ident(exec_ctx_t *ctx, BSTR name, VARIANT *val, BOOL own_val) static HRESULT assign_ident(exec_ctx_t *ctx, BSTR name, VARIANT *val, BOOL own_val)

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

@ -405,4 +405,8 @@ Set obj = New TestClass
Call ok(obj.publicFunction = 4, "obj.publicFunction = " & obj.publicFunction) Call ok(obj.publicFunction = 4, "obj.publicFunction = " & obj.publicFunction)
Call ok(obj.publicFunction() = 4, "obj.publicFunction() = " & obj.publicFunction()) Call ok(obj.publicFunction() = 4, "obj.publicFunction() = " & obj.publicFunction())
obj.publicSub()
Call obj.publicSub
Call obj.publicFunction()
reportSuccess() reportSuccess()