vbscript: Improve parsing of separators after Option Explicit.

Signed-off-by: Dmitry Kislyuk <dimaki@rocketmail.com> Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

vbscript: Improve parsing of separators after Option Explicit.
5193b6fa · Dmitry Kislyuk · Alexandre Julliard · 0b5473c1 · 5193b6fa · 5193b6fa
Commit 5193b6fa authored Oct 10, 2017 by Dmitry Kislyuk Committed by Alexandre Julliard Oct 11, 2017
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

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

lang.vbs dlls/vbscript/tests/lang.vbs +4 -1

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

 OptionExplicit_opt
    : /* empty */                { $$ = FALSE; }
-    | tOPTION tEXPLICIT tNL      { $$ = TRUE; }
+    | tOPTION tEXPLICIT StSep    { $$ = TRUE; }

 SourceElements
    : /* empty */

--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -16,7 +16,7 @@
 ' Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
 '

-Option Explicit
+OPTION EXPLICIT  : : DIM W

 dim x, y, z
 Dim obj
@@ -53,6 +53,9 @@ Call ok(false = 0, "false <> 0")
 Call ok(&hff = 255, "&hff <> 255")
 Call ok(&Hff = 255, "&Hff <> 255")

+W = 5
+Call ok(W = 5, "W = " & W & " expected " & 5)
+
 x = "xx"
 Call ok(x = "xx", "x = " & x & " expected ""xx""")