Jacek Caban : vbscript: Added interp_mcall implementation.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 308b2641d929c88a80361d1077e4ab5c2d5fbea3
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=308b2641d929c88a80361d1077e4ab5c2d5fbea3

Author: Jacek Caban <jacek at codeweavers.com>
Date:   Thu Sep 15 14:21:44 2011 +0200

vbscript: Added interp_mcall implementation.

---

 dlls/vbscript/interp.c       |    5 +++--
 dlls/vbscript/tests/lang.vbs |    4 ++++
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c
index beacfe9..2d0b7cb 100644
--- 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");
-    return E_NOTIMPL;
+    TRACE("\n");
+
+    return do_mcall(ctx, NULL);
 }
 
 static HRESULT assign_ident(exec_ctx_t *ctx, BSTR name, VARIANT *val, BOOL own_val)
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index ec85614..06542cd 100644
--- 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()