vbscript: Parse empty CASE ELSE clause.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=49439Signed-off-by: Dmitry Kislyuk <dimaki@rocketmail.com> Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

vbscript: Parse empty CASE ELSE clause.
18e7e07a · Dmitry Kislyuk · Alexandre Julliard · b8dc6b24 · 18e7e07a · 18e7e07a
Commit 18e7e07a authored Jun 25, 2020 by Dmitry Kislyuk Committed by Alexandre Julliard Jun 25, 2020
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 1 deletion

parser.y dlls/vbscript/parser.y +1 -1

lang.vbs dlls/vbscript/tests/lang.vbs +8 -0

No files found.
--- a/dlls/vbscript/parser.y
+++ b/dlls/vbscript/parser.y
@@ -301,7 +301,7 @@ Else_opt

 CaseClausules
    : /* empty */                          { $$ = NULL; }
-    | tCASE tELSE StSep StatementsNl       { $$ = new_case_clausule(ctx, NULL, $4, NULL); }
+    | tCASE tELSE StSep StatementsNl_opt   { $$ = new_case_clausule(ctx, NULL, $4, NULL); }
    | tCASE ExpressionList StSep StatementsNl_opt CaseClausules
                                           { $$ = new_case_clausule(ctx, $2, $4, $5); }


--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -681,6 +681,14 @@ select case 1  :
 end select
 Call ok(x, "wrong case")

+select case 0
+    case 1
+    case else
+       'empty else with comment test
+end select
+
+select case 0 : case 1 : case else : end select
+
 if false then
 Sub testsub
    x = true