jscript: Added '<=' implementation.

dlls/jscript/engine.c

@@ -1683,10 +1683,27 @@ HRESULT less_expression_eval(exec_ctx_t *ctx, expression_t *_expr, DWORD flags,
     return return_bool(ret, b);
 }
 
-HRESULT lesseq_expression_eval(exec_ctx_t *ctx, expression_t *expr, DWORD flags, jsexcept_t *ei, exprval_t *ret)
+/* ECMA-262 3rd Edition    11.8.3 */
+HRESULT lesseq_expression_eval(exec_ctx_t *ctx, expression_t *_expr, DWORD flags, jsexcept_t *ei, exprval_t *ret)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    binary_expression_t *expr = (binary_expression_t*)_expr;
+    VARIANT rval, lval;
+    BOOL b;
+    HRESULT hres;
+
+    TRACE("\n");
+
+    hres = get_binary_expr_values(ctx, expr, ei, &lval, &rval);
+    if(FAILED(hres))
+        return hres;
+
+    hres = less_eval(ctx, &rval, &lval, ei, &b);
+    VariantClear(&lval);
+    VariantClear(&rval);
+    if(FAILED(hres))
+        return hres;
+
+    return return_bool(ret, !b);
 }
 
 HRESULT greater_expression_eval(exec_ctx_t *ctx, expression_t *expr, DWORD flags, jsexcept_t *ei, exprval_t *ret)

dlls/jscript/tests/lang.js

@@ -202,4 +202,11 @@ ok("abcd" < "abce", "abce < abce failed");
 ok("" < "x", "\"\" < \"x\" failed");
 ok(!(0 < 0), "0 < 0");
 
+ok(1 <= 3.4, "1 <= 3.4 failed");
+ok(!(3.4 <= 1), "3.4 <= 1");
+ok("abc" <= "abcd", "abc <= abcd failed");
+ok("abcd" <= "abce", "abce <= abce failed");
+ok("" <= "x", "\"\" <= \"x\" failed");
+ok(0 <= 0, "0 <= 0 failed");
+
 reportSuccess();