vbscript: Added interp_mcall implementation.

308b2641 · Jacek Caban · Alexandre Julliard · 6ee2e3ac · 308b2641 · 308b2641
Commit 308b2641 authored Sep 15, 2011 by Jacek Caban Committed by Alexandre Julliard Sep 15, 2011
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

interp.c dlls/vbscript/interp.c +3 -2

lang.vbs dlls/vbscript/tests/lang.vbs +4 -0

No files found.
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -374,8 +374,9 @@ static HRESULT interp_mcall(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)

--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -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())
+obj.publicSub()
+Call obj.publicSub
+Call obj.publicFunction()
 reportSuccess()