Jason Millard : vbscript: Update parser to allow statements after ELSE without new line.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 502df086eb87312174131648377be84a05d7f077
URL:    https://gitlab.winehq.org/wine/wine/-/commit/502df086eb87312174131648377be84...

Author: Jason Millard 
Date:   Wed Nov 16 06:45:22 2022 -0500

vbscript: Update parser to allow statements after ELSE without new line.

---

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

diff --git a/dlls/vbscript/parser.y b/dlls/vbscript/parser.y
index 42838d34f17..4b9d53d3bca 100644
--- a/dlls/vbscript/parser.y
+++ b/dlls/vbscript/parser.y
@@ -318,6 +318,7 @@ ElseIf
 Else_opt
     : /* empty */                           { $$ = NULL; }
     | tELSE tNL StatementsNl_opt            { $$ = $3; }
+    | tELSE StatementsNl_opt                { $$ = $2; }

CaseClausules
     : /* empty */                          { $$ = NULL; }
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index 2467b814eff..61258355496 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -282,6 +282,14 @@ Else
 End If
 Call ok(x, "else not called?")

+' Else without following newline
+x = false
+If false Then
+   Call ok(false, "inside if false")
+Else x = true
+End If
+Call ok(x, "else not called?")
+
 x = false
 If false Then
    Call ok(false, "inside if false")