[PATCH v3 0/1] MR10485: vbscript: Return proper errors for orphan Loop and Next keywords.

[Francis De Brabandere (＠francisdb)]

When Loop or Next appear outside their enclosing Do/For blocks, Windows
returns specific error codes: 1038 ("loop without do") and 1055
("unexpected Next"). Detect these tokens in parser_error() and set the
proper HRESULT instead of the generic E_FAIL.

--
  v3: vbscript: Return proper errors for orphan Loop and Next keywords.
 
https://gitlab.winehq.org/wine/wine/-/merge_requests/10485

[PATCH v3 1/1] vbscript: Return proper errors for orphan Loop and Next keywords.

[Francis De Brabandere]

From: Francis De Brabandere <[e-mail]>

When Loop or Next appear outside their enclosing Do/For blocks, Windows
returns specific error codes: 1038 ("loop without do") and 1055
("unexpected Next"). Detect these tokens in parser_error() and set the
proper HRESULT instead of the generic E_FAIL.
---
 dlls/vbscript/parser.y    | 13 +++++++++++--
 dlls/vbscript/tests/run.c |  4 ++--
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y
index 2ecc5870aac..f488234c2c6 100644
--- a/dlls/vbscript/parser.y
+++ b/dlls/vbscript/parser.y
@@ -636,8 +636,17 @@ static int parser_error(unsigned *loc, parser_ctx_t *ctx, const char *str)
     if(ctx->error_loc == -1)
         ctx->error_loc = *loc;
     if(ctx->hres == S_OK) {
-        WARN("%s: %s\n", debugstr_w(ctx->code + *loc), debugstr_a(str));
-        ctx->hres = MAKE_VBSERROR(VBSE_SYNTAX_ERROR);
+        switch(ctx->last_token) {
+        case tLOOP:
+            ctx->hres = MAKE_VBSERROR(VBSE_LOOP_WITHOUT_DO);
+            break;
+        case tNEXT:
+            ctx->hres = MAKE_VBSERROR(VBSE_UNEXPECTED_NEXT);
+            break;
+        default:
+            WARN("%s: %s\n", debugstr_w(ctx->code + *loc), debugstr_a(str));
+            ctx->hres = MAKE_VBSERROR(VBSE_SYNTAX_ERROR);
+        }
     }else {
         WARN("%s: %08lx\n", debugstr_w(ctx->code + *loc), ctx->hres);
     }
diff --git a/dlls/vbscript/tests/run.c b/dlls/vbscript/tests/run.c
index d05b46574bf..97dd63e7420 100644
--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -3007,7 +3007,7 @@ static void test_parse_errors(void)
             /* 'loop' without 'do' - error 1038 */
             L"Loop\n",
             0, 0,
-            NULL, S_OK, -1038
+            NULL, S_OK, 1038
         },
         {
             /* Invalid 'exit' statement - error 1039 */
@@ -3073,7 +3073,7 @@ static void test_parse_errors(void)
             /* Unexpected 'Next' - error 1055 */
             L"Next\n",
             0, 0,
-            NULL, S_OK, -1055
+            NULL, S_OK, 1055
         },
         {
             /* 'Default' must also specify 'Public' - error 1057 */
-- 
GitLab

https://gitlab.winehq.org/wine/wine/-/merge_requests/10485