Dmitry Kislyuk : vbscript: Parse empty CASE ELSE clause.

[Alexandre Julliard]

Module: wine
Branch: stable
Commit: 70299c76d16da9dec74a1bbfb305e737344b5bea
URL:    https://source.winehq.org/git/wine.git/?a=commit;h=70299c76d16da9dec74a1bbfb...

Author: Dmitry Kislyuk 
Date:   Thu Jun 25 00:50:46 2020 -0500

vbscript: Parse empty CASE ELSE clause.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=49439
Signed-off-by: Dmitry Kislyuk 
Signed-off-by: Jacek Caban 
Signed-off-by: Alexandre Julliard 
(cherry picked from commit 18e7e07a77a754c4b48c6c9bde225ad5c7295944)
Signed-off-by: Michael Stefaniuc

---

dlls/vbscript/parser.y       | 2 +-
 dlls/vbscript/tests/lang.vbs | 8 ++++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y
index df2c72da959..e5f436bf6db 100644
--- a/dlls/vbscript/parser.y
+++ b/dlls/vbscript/parser.y
@@ -300,7 +300,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); }

diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index fb9f96e4277..eeab0bc5787 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -673,6 +673,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