September 2011 - Wine-commits

Stefan Dösinger : ddraw/tests: Accept another error when setting an overlay with a NULL rect.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: f41513205c4858619cd56c01803a9f9346d4b1db URL: http://source.winehq.org/git/wine.git/?a=commit;h=f41513205c4858619cd56c018… Author: Stefan Dösinger <stefan(a)codeweavers.com> Date: Thu Sep 15 23:53:56 2011 +0200 ddraw/tests: Accept another error when setting an overlay with a NULL rect. --- dlls/ddraw/tests/overlay.c | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/dlls/ddraw/tests/overlay.c b/dlls/ddraw/tests/overlay.c index 9660d74..4f5a694 100644 --- a/dlls/ddraw/tests/overlay.c +++ b/dlls/ddraw/tests/overlay.c @@ -124,7 +124,8 @@ static void rectangle_settings(void) { /* Passing a NULL dest rect sets the position to 0/0 . Visually it can be seen that the overlay overlays the whole primary(==screen)*/ hr2 = IDirectDrawSurface7_UpdateOverlay(overlay, NULL, primary, NULL, 0, NULL); - ok(hr2 == DD_OK || hr2 == DDERR_INVALIDPARAMS, "IDirectDrawSurface7_UpdateOverlay failed with hr=0x%08x\n", hr); + ok(hr2 == DD_OK || hr2 == DDERR_INVALIDPARAMS + || hr2 == DDERR_OUTOFCAPS, "IDirectDrawSurface7_UpdateOverlay failed with hr=0x%08x\n", hr2); hr = IDirectDrawSurface7_GetOverlayPosition(overlay, &posx, &posy); ok(hr == DD_OK, "IDirectDrawSurface7_GetOverlayPosition failed with hr=0x%08x\n", hr); if (SUCCEEDED(hr2))

1 0

Octavian Voicu : vbscript: Always initialize prev_label to prevent compiler warning.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: 8b903e43e7305656304c0d0d53f8e1b3dcca1add URL: http://source.winehq.org/git/wine.git/?a=commit;h=8b903e43e7305656304c0d0d5… Author: Octavian Voicu <octavian.voicu(a)gmail.com> Date: Mon Sep 19 20:31:58 2011 +0300 vbscript: Always initialize prev_label to prevent compiler warning. --- dlls/vbscript/compile.c | 8 +++----- 1 files changed, 3 insertions(+), 5 deletions(-) diff --git a/dlls/vbscript/compile.c b/dlls/vbscript/compile.c index 6ee86e1..53b7f81 100644 --- a/dlls/vbscript/compile.c +++ b/dlls/vbscript/compile.c @@ -522,11 +522,9 @@ static HRESULT compile_while_statement(compile_ctx_t *ctx, while_statement_t *st if(jmp_end == -1) return E_OUTOFMEMORY; - if(stat->stat.type != STAT_WHILE) { - prev_label = ctx->while_end_label; - if((ctx->while_end_label = alloc_label(ctx)) == -1) - return E_OUTOFMEMORY; - } + prev_label = ctx->while_end_label; + if(stat->stat.type != STAT_WHILE && (ctx->while_end_label = alloc_label(ctx)) == -1) + return E_OUTOFMEMORY; hres = compile_statement(ctx, stat->body); if(FAILED(hres))

1 0

Jacek Caban : vbscript: Added interp_gteq implementation.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: bce6d6ac8a4912b8a8794a783adf9023436c9535 URL: http://source.winehq.org/git/wine.git/?a=commit;h=bce6d6ac8a4912b8a8794a783… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Mon Sep 19 14:07:22 2011 +0200 vbscript: Added interp_gteq implementation. --- dlls/vbscript/interp.c | 14 ++++++++++++-- dlls/vbscript/tests/lang.vbs | 4 ++++ 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index 9a49396..e35a481 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -949,8 +949,18 @@ static HRESULT interp_gt(exec_ctx_t *ctx) static HRESULT interp_gteq(exec_ctx_t *ctx) { - FIXME("\n"); - return E_NOTIMPL; + VARIANT v; + HRESULT hres; + + TRACE("\n"); + + hres = cmp_oper(ctx); + if(FAILED(hres)) + return hres; + + V_VT(&v) = VT_BOOL; + V_BOOL(&v) = hres == VARCMP_GT || hres == VARCMP_EQ ? VARIANT_TRUE : VARIANT_FALSE; + return stack_push(ctx, &v); } static HRESULT interp_lt(exec_ctx_t *ctx) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index c62f17f..149c4a4 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -116,6 +116,10 @@ call ok(false imp false, "false does not imp false?") call ok(not (true imp false), "true imp false?") call ok(false imp null, "false imp null is false?") +Call ok(2 >= 1, "! 2 >= 1") +Call ok(2 >= 2, "! 2 >= 2") +Call ok(not(true >= 2), "true >= 2 ?") + x = 3 Call ok(2+2 = 4, "2+2 = " & (2+2)) Call ok(false + 6 + true = 5, "false + 6 + true <> 5")

1 0

Jacek Caban : vbscript: Added interp_gt implementation.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: 4df350bb221d31f3fdd6bda5eab872304441ca29 URL: http://source.winehq.org/git/wine.git/?a=commit;h=4df350bb221d31f3fdd6bda5e… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Mon Sep 19 14:07:31 2011 +0200 vbscript: Added interp_gt implementation. --- dlls/vbscript/interp.c | 14 ++++++++++++-- dlls/vbscript/tests/lang.vbs | 5 +++++ 2 files changed, 17 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index e35a481..9f1ed2d 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -943,8 +943,18 @@ static HRESULT interp_nequal(exec_ctx_t *ctx) static HRESULT interp_gt(exec_ctx_t *ctx) { - FIXME("\n"); - return E_NOTIMPL; + VARIANT v; + HRESULT hres; + + TRACE("\n"); + + hres = cmp_oper(ctx); + if(FAILED(hres)) + return hres; + + V_VT(&v) = VT_BOOL; + V_BOOL(&v) = hres == VARCMP_GT ? VARIANT_TRUE : VARIANT_FALSE; + return stack_push(ctx, &v); } static HRESULT interp_gteq(exec_ctx_t *ctx) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 149c4a4..76ff346 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -119,6 +119,11 @@ call ok(false imp null, "false imp null is false?") Call ok(2 >= 1, "! 2 >= 1") Call ok(2 >= 2, "! 2 >= 2") Call ok(not(true >= 2), "true >= 2 ?") +Call ok(2 > 1, "! 2 > 1") +Call ok(false > true, "! false < true") +Call ok(0 > true, "! 0 > true") +Call ok(not (true > 0), "true > 0") +Call ok(not (0 > 1 = 1), "0 > 1 = 1") x = 3 Call ok(2+2 = 4, "2+2 = " & (2+2))

1 0

Jacek Caban : vbscript: Added interp_lt implementation.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: ac5db68d02b2cbc1e7f7bd3c69424ffab206a6cb URL: http://source.winehq.org/git/wine.git/?a=commit;h=ac5db68d02b2cbc1e7f7bd3c6… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Mon Sep 19 14:07:39 2011 +0200 vbscript: Added interp_lt implementation. --- dlls/vbscript/interp.c | 14 ++++++++++++-- dlls/vbscript/tests/lang.vbs | 2 ++ 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index 9f1ed2d..a609056 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -975,8 +975,18 @@ static HRESULT interp_gteq(exec_ctx_t *ctx) static HRESULT interp_lt(exec_ctx_t *ctx) { - FIXME("\n"); - return E_NOTIMPL; + VARIANT v; + HRESULT hres; + + TRACE("\n"); + + hres = cmp_oper(ctx); + if(FAILED(hres)) + return hres; + + V_VT(&v) = VT_BOOL; + V_BOOL(&v) = hres == VARCMP_LT ? VARIANT_TRUE : VARIANT_FALSE; + return stack_push(ctx, &v); } static HRESULT interp_lteq(exec_ctx_t *ctx) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 76ff346..699d78c 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -124,6 +124,8 @@ Call ok(false > true, "! false < true") Call ok(0 > true, "! 0 > true") Call ok(not (true > 0), "true > 0") Call ok(not (0 > 1 = 1), "0 > 1 = 1") +Call ok(1 < 2, "! 1 < 2") +Call ok(1 = 1 < 0, "! 1 = 1 < 0") x = 3 Call ok(2+2 = 4, "2+2 = " & (2+2))

1 0

Jacek Caban : vbscript: Added interp_lteq implementation.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: 33a81218adc851966427b50f0c770751c9d33ec7 URL: http://source.winehq.org/git/wine.git/?a=commit;h=33a81218adc851966427b50f0… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Mon Sep 19 14:07:51 2011 +0200 vbscript: Added interp_lteq implementation. --- dlls/vbscript/interp.c | 14 ++++++++++++-- dlls/vbscript/tests/lang.vbs | 2 ++ 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index a609056..d3c3483 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -991,8 +991,18 @@ static HRESULT interp_lt(exec_ctx_t *ctx) static HRESULT interp_lteq(exec_ctx_t *ctx) { - FIXME("\n"); - return E_NOTIMPL; + VARIANT v; + HRESULT hres; + + TRACE("\n"); + + hres = cmp_oper(ctx); + if(FAILED(hres)) + return hres; + + V_VT(&v) = VT_BOOL; + V_BOOL(&v) = hres == VARCMP_LT || hres == VARCMP_EQ ? VARIANT_TRUE : VARIANT_FALSE; + return stack_push(ctx, &v); } static HRESULT interp_concat(exec_ctx_t *ctx) diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index 699d78c..a63f9cf 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -126,6 +126,8 @@ Call ok(not (true > 0), "true > 0") Call ok(not (0 > 1 = 1), "0 > 1 = 1") Call ok(1 < 2, "! 1 < 2") Call ok(1 = 1 < 0, "! 1 = 1 < 0") +Call ok(1 <= 2, "! 1 <= 2") +Call ok(2 <= 2, "! 2 <= 2") x = 3 Call ok(2+2 = 4, "2+2 = " & (2+2))

1 0

Jacek Caban : vbscript: Added is expression implementation.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: 2de6982f46f20895b5f82e9ee602a905f68aa1d5 URL: http://source.winehq.org/git/wine.git/?a=commit;h=2de6982f46f20895b5f82e9ee… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Mon Sep 19 14:08:02 2011 +0200 vbscript: Added is expression implementation. --- dlls/vbscript/compile.c | 2 + dlls/vbscript/interp.c | 71 ++++++++++++++++++++++++++++++++++++++++++ dlls/vbscript/parse.h | 1 + dlls/vbscript/parser.y | 1 + dlls/vbscript/tests/lang.vbs | 12 +++++++ dlls/vbscript/vbscript.h | 1 + 6 files changed, 88 insertions(+), 0 deletions(-) diff --git a/dlls/vbscript/compile.c b/dlls/vbscript/compile.c index c939aea..df08c24 100644 --- a/dlls/vbscript/compile.c +++ b/dlls/vbscript/compile.c @@ -387,6 +387,8 @@ static HRESULT compile_expression(compile_ctx_t *ctx, expression_t *expr) return compile_binary_expression(ctx, (binary_expression_t*)expr, OP_gteq); case EXPR_IDIV: return compile_binary_expression(ctx, (binary_expression_t*)expr, OP_idiv); + case EXPR_IS: + return compile_binary_expression(ctx, (binary_expression_t*)expr, OP_is); case EXPR_IMP: return compile_binary_expression(ctx, (binary_expression_t*)expr, OP_imp); case EXPR_LT: diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index d3c3483..472d23c 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -1005,6 +1005,77 @@ static HRESULT interp_lteq(exec_ctx_t *ctx) return stack_push(ctx, &v); } +static HRESULT disp_cmp(IDispatch *disp1, IDispatch *disp2, VARIANT_BOOL *ret) +{ + IObjectIdentity *identity; + IUnknown *unk1, *unk2; + HRESULT hres; + + if(disp1 == disp2) { + *ret = VARIANT_TRUE; + return S_OK; + } + + if(!disp1 || !disp2) { + *ret = VARIANT_FALSE; + return S_OK; + } + + hres = IDispatch_QueryInterface(disp1, &IID_IUnknown, (void**)&unk1); + if(FAILED(hres)) + return hres; + + hres = IDispatch_QueryInterface(disp2, &IID_IUnknown, (void**)&unk2); + if(FAILED(hres)) { + IUnknown_Release(unk1); + return hres; + } + + if(unk1 == unk2) { + *ret = VARIANT_TRUE; + }else { + hres = IUnknown_QueryInterface(unk1, &IID_IObjectIdentity, (void**)&identity); + if(SUCCEEDED(hres)) { + hres = IObjectIdentity_IsEqualObject(identity, unk2); + IObjectIdentity_Release(identity); + *ret = hres == S_OK ? VARIANT_TRUE : VARIANT_FALSE; + }else { + *ret = VARIANT_FALSE; + } + } + + IUnknown_Release(unk1); + IUnknown_Release(unk2); + return S_OK; +} + +static HRESULT interp_is(exec_ctx_t *ctx) +{ + IDispatch *l, *r; + VARIANT v; + HRESULT hres; + + TRACE("\n"); + + hres = stack_pop_disp(ctx, &r); + if(FAILED(hres)) + return hres; + + hres = stack_pop_disp(ctx, &l); + if(SUCCEEDED(hres)) { + V_VT(&v) = VT_BOOL; + hres = disp_cmp(l, r, &V_BOOL(&v)); + if(l) + IDispatch_Release(l); + } + if(r) + IDispatch_Release(r); + if(FAILED(hres)) + return hres; + + return stack_push(ctx, &v); +} + static HRESULT interp_concat(exec_ctx_t *ctx) { variant_val_t r, l; diff --git a/dlls/vbscript/parse.h b/dlls/vbscript/parse.h index ef7f139..b61582b 100644 --- a/dlls/vbscript/parse.h +++ b/dlls/vbscript/parse.h @@ -31,6 +31,7 @@ typedef enum { EXPR_GTEQ, EXPR_IDIV, EXPR_IMP, + EXPR_IS, EXPR_LT, EXPR_LTEQ, EXPR_MEMBER, diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y index d0c3f70..f25d825 100644 --- a/dlls/vbscript/parser.y +++ b/dlls/vbscript/parser.y @@ -252,6 +252,7 @@ EqualityExpression | EqualityExpression '<' ConcatExpression { $$ = new_binary_expression(ctx, EXPR_LT, $1, $3); CHECK_ERROR; } | EqualityExpression tGTEQ ConcatExpression { $$ = new_binary_expression(ctx, EXPR_GTEQ, $1, $3); CHECK_ERROR; } | EqualityExpression tLTEQ ConcatExpression { $$ = new_binary_expression(ctx, EXPR_LTEQ, $1, $3); CHECK_ERROR; } + | EqualityExpression tIS ConcatExpression { $$ = new_binary_expression(ctx, EXPR_IS, $1, $3); CHECK_ERROR; } ConcatExpression : AdditiveExpression { $$ = $1; } diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index a63f9cf..64230dc 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -608,4 +608,16 @@ funcCalled = "" Set obj = Nothing Call ok(funcCalled = "terminate", "funcCalled = " & funcCalled) +Set obj = new EmptyClass +Set x = obj +Set y = new EmptyClass + +Call ok(obj is x, "obj is not x") +Call ok(x is obj, "x is not obj") +Call ok(not (obj is y), "obj is not y") +Call ok(not obj is y, "obj is not y") +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") + reportSuccess() diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h index c73f11d..6083511 100644 --- a/dlls/vbscript/vbscript.h +++ b/dlls/vbscript/vbscript.h @@ -167,6 +167,7 @@ typedef enum { X(icallv, 1, ARG_BSTR, ARG_UINT) \ X(idiv, 1, 0, 0) \ X(imp, 1, 0, 0) \ + X(is, 1, 0, 0) \ X(jmp, 0, ARG_ADDR, 0) \ X(jmp_false, 0, ARG_ADDR, 0) \ X(jmp_true, 0, ARG_ADDR, 0) \

1 0

Jacek Caban : vbscript: Store reference to collected object in collect_objects.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: 79a2650de7a9e04430a523f2a8d9b262acca0f60 URL: http://source.winehq.org/git/wine.git/?a=commit;h=79a2650de7a9e04430a523f2a… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Mon Sep 19 14:08:15 2011 +0200 vbscript: Store reference to collected object in collect_objects. --- dlls/vbscript/vbdisp.c | 26 +++++++++++++------------- 1 files changed, 13 insertions(+), 13 deletions(-) diff --git a/dlls/vbscript/vbdisp.c b/dlls/vbscript/vbdisp.c index 14fb8b0..19a511e 100644 --- a/dlls/vbscript/vbdisp.c +++ b/dlls/vbscript/vbdisp.c @@ -123,21 +123,21 @@ static HRESULT invoke_variant_prop(vbdisp_t *This, VARIANT *v, WORD flags, DISPP return hres; } -static void run_terminator(vbdisp_t *This) +static BOOL run_terminator(vbdisp_t *This) { + DISPPARAMS dp = {0}; + if(This->terminator_ran) - return; + return TRUE; This->terminator_ran = TRUE; - if(This->desc->class_terminate_id) { - DISPPARAMS dp = {0}; - - This->ref++; - exec_script(This->desc->ctx, This->desc->funcs[This->desc->class_terminate_id].entries[VBDISP_CALLGET], - (IDispatch*)&This->IDispatchEx_iface, &dp, NULL); - This->ref--; - } + if(!This->desc->class_terminate_id) + return TRUE; + This->ref++; + exec_script(This->desc->ctx, This->desc->funcs[This->desc->class_terminate_id].entries[VBDISP_CALLGET], + (IDispatch*)&This->IDispatchEx_iface, &dp, NULL); + return !--This->ref; } static void clean_props(vbdisp_t *This) @@ -196,9 +196,7 @@ static ULONG WINAPI DispatchEx_Release(IDispatchEx *iface) TRACE("(%p) ref=%d\n", This, ref); - if(!ref) - run_terminator(This); - if(!ref) { + if(!ref && run_terminator(This)) { clean_props(This); list_remove(&This->entry); heap_free(This); @@ -431,8 +429,10 @@ void collect_objects(script_ctx_t *ctx) run_terminator(iter); LIST_FOR_EACH_ENTRY_SAFE(iter, iter2, &ctx->objects, vbdisp_t, entry) { + IDispatchEx_AddRef(&iter->IDispatchEx_iface); clean_props(iter); iter->desc = NULL; + IDispatchEx_Release(&iter->IDispatchEx_iface); } }

1 0

Jacek Caban : vbscript: Added global object' s isObject function stub implementation.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: 4e9d29907cd682bd7c854fda203cfbdb4271a595 URL: http://source.winehq.org/git/wine.git/?a=commit;h=4e9d29907cd682bd7c854fda2… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Mon Sep 19 14:08:38 2011 +0200 vbscript: Added global object's isObject function stub implementation. --- .gitignore | 1 + dlls/vbscript/Makefile.in | 7 ++++- dlls/vbscript/compile.c | 15 +++++++-- dlls/vbscript/global.c | 58 +++++++++++++++++++++++++++++++++++++ dlls/vbscript/interp.c | 8 +++++ dlls/vbscript/vbdisp.c | 58 +++++++++++++++++++++++++++++++++---- dlls/vbscript/vbscript.c | 2 + dlls/vbscript/vbscript.h | 40 ++++++++++++++++++++++++- dlls/vbscript/vbscript_main.c | 63 +++++++++++++++++++++++++++++++++++++++++ 9 files changed, 239 insertions(+), 13 deletions(-) Diff: http://source.winehq.org/git/wine.git/?a=commitdiff;h=4e9d29907cd682bd7c854…

1 0

Jacek Caban : vbscript: Added isObject implementation.
by Alexandre Julliard 19 Sep '11

19 Sep '11

Module: wine Branch: master Commit: 8bcd9876d30970a5ee8457c5275d36f6ada319e8 URL: http://source.winehq.org/git/wine.git/?a=commit;h=8bcd9876d30970a5ee8457c52… Author: Jacek Caban <jacek(a)codeweavers.com> Date: Mon Sep 19 14:08:48 2011 +0200 vbscript: Added isObject implementation. --- dlls/vbscript/global.c | 12 ++++++++++-- 1 files changed, 10 insertions(+), 2 deletions(-) diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c index 87aef8f..0e71acf 100644 --- a/dlls/vbscript/global.c +++ b/dlls/vbscript/global.c @@ -25,8 +25,16 @@ WINE_DEFAULT_DEBUG_CHANNEL(vbscript); static HRESULT Global_IsObject(vbdisp_t *This, VARIANT *arg, unsigned args_cnt, VARIANT *res) { - FIXME("\n"); - return E_NOTIMPL; + TRACE("(%s)\n", debugstr_variant(arg)); + + if(V_VT(arg) == (VT_VARIANT|VT_BYREF)) + arg = V_VARIANTREF(arg); + + if(res) { + V_VT(res) = VT_BOOL; + V_BOOL(res) = V_VT(arg) == VT_DISPATCH ? VARIANT_TRUE : VARIANT_FALSE; + } + return S_OK; } static const builtin_prop_t global_props[] = {

1 0