vbscript: Handle another variant of LTE/GTE tokens.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=53670Signed-off-by: Nikolay Sivov <nsivov@codeweavers.com>

vbscript: Handle another variant of LTE/GTE tokens.
3a578022 · Robert Wilhelm · Alexandre Julliard · 63b6ec5a · 3a578022
Commit 3a578022 authored Nov 24, 2022 by Robert Wilhelm Committed by Alexandre Julliard Nov 24, 2022
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 1 deletion

lex.c dlls/vbscript/lex.c +10 -1

No files found.
--- a/dlls/vbscript/lex.c
+++ b/dlls/vbscript/lex.c
@@ -422,7 +422,6 @@ static int parse_next_token(void *lval, unsigned *loc, parser_ctx_t *ctx)
    case ':':
    case ')':
    case ',':
-    case '=':
    case '+':
    case '*':
    case '/':
@@ -477,6 +476,16 @@ static int parse_next_token(void *lval, unsigned *loc, parser_ctx_t *ctx)
        if(*++ctx->ptr == 'h' || *ctx->ptr == 'H')
            return parse_hex_literal(ctx, lval);
        return '&';
+    case '=':
+        switch(*++ctx->ptr) {
+        case '<':
+            ctx->ptr++;
+            return tLTEQ;
+        case '>':
+            ctx->ptr++;
+            return tGTEQ;
+        }
+        return '=';
    case '<':
        switch(*++ctx->ptr) {
        case '>':