From: Francis De Brabandere <francisdb@gmail.com> When one operand was a string and the other numeric, VBScript should have converted the string to a double before comparing. VarCmp did not do this automatically, resulting in incorrect string comparison. Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=56281 --- dlls/vbscript/interp.c | 23 ++++++++++++++++++++++- dlls/vbscript/tests/lang.vbs | 15 +++++++++++++++ 2 files changed, 37 insertions(+), 1 deletion(-) diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c index d8f0f80dfaa..c4db50ac51e 100644 --- a/dlls/vbscript/interp.c +++ b/dlls/vbscript/interp.c @@ -1959,11 +1959,32 @@ static HRESULT interp_imp(exec_ctx_t *ctx) return stack_push(ctx, &v); } +static inline BOOL is_numeric_vt(VARTYPE vt) +{ + return vt == VT_I2 || vt == VT_I4 || vt == VT_R4 || vt == VT_R8 + || vt == VT_CY || vt == VT_DATE || vt == VT_BOOL || vt == VT_UI1; +} + static HRESULT var_cmp(exec_ctx_t *ctx, VARIANT *l, VARIANT *r) { + VARIANT v; + HRESULT hres; + TRACE("%s %s\n", debugstr_variant(l), debugstr_variant(r)); - /* FIXME: Fix comparing string to number */ + /* VBScript compares string to number by converting the string to double, + * while VarCmp would use string comparison. */ + if(V_VT(l) == VT_BSTR && is_numeric_vt(V_VT(r))) { + V_VT(&v) = VT_EMPTY; + hres = VariantChangeType(&v, l, 0, VT_R8); + if(SUCCEEDED(hres)) + return VarCmp(&v, r, ctx->script->lcid, 0); + }else if(V_VT(r) == VT_BSTR && is_numeric_vt(V_VT(l))) { + V_VT(&v) = VT_EMPTY; + hres = VariantChangeType(&v, r, 0, VT_R8); + if(SUCCEEDED(hres)) + return VarCmp(l, &v, ctx->script->lcid, 0); + } return VarCmp(l, r, ctx->script->lcid, 0); } diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs index c0d22606ba6..db1485147cd 100644 --- a/dlls/vbscript/tests/lang.vbs +++ b/dlls/vbscript/tests/lang.vbs @@ -117,6 +117,21 @@ Call ok(1 <> Not 0 = 0, "1 <> Not 0 = 0 should be true") Call ok(0 = Not 1 = 1, "0 = Not 1 = 1 should be true") Call ok(1 > Not 5 > 3, "1 > Not 5 > 3 should be true") Call ok(Not false And false = false, "Not false And false should be false") +x = "0" +Call ok(not (x > 30), """0"" > 30 should be false") +Call ok(x < 30, """0"" < 30 should be true") +Call ok(not ("0" > 30), """0"" > 30 literal should be false") +Call ok("0" < 30, """0"" < 30 literal should be true") +Call ok("10" > 9, """10"" > 9 should be true") +Call ok(not ("10" > 100), """10"" > 100 should be false") +Call ok("10" < 100, """10"" < 100 should be true") +Call ok("42" = 42, """42"" = 42 should be true") +Call ok(not ("42" = 43), """42"" = 43 should be false") +Call ok(doubleAsString(0.5) > 0, """0.5"" > 0 should be true") +Call ok(doubleAsString(0.5) < 1, """0.5"" < 1 should be true") +Call ok(doubleAsString(3.5) = 3.5, """3.5"" = 3.5 should be true") +Call ok(not (doubleAsString(1.5) > 2), """1.5"" > 2 should be false") +Call ok(doubleAsString(2.5) > 2, """2.5"" > 2 should be true") Call ok(getVT(false) = "VT_BOOL", "getVT(false) is not VT_BOOL") Call ok(getVT(true) = "VT_BOOL", "getVT(true) is not VT_BOOL") -- GitLab https://gitlab.winehq.org/wine/wine/-/merge_requests/10314