From 3a578022891714a83d5a981693b945cc0a16b63d Mon Sep 17 00:00:00 2001
From: Robert Wilhelm <robert.wilhelm@gmx.net>
Date: Thu, 24 Nov 2022 08:10:58 +0300
Subject: [PATCH] vbscript: Handle another variant of LTE/GTE tokens.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=53670
Signed-off-by: Nikolay Sivov <nsivov@codeweavers.com>
---
 dlls/vbscript/lex.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/dlls/vbscript/lex.c b/dlls/vbscript/lex.c
index 3374d4eafe1..f425b816cb0 100644
--- 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 '>':