vbscript: Fix vanishing statements.

When adding multiple statements (e.g. colon separated SimpleStatements) in function source_add_statement(), tail of linked list was not adjusted. Signed-off-by: Robert Wilhelm <robert.wilhelm@gmx.net> Signed-off-by: Jacek Caban <jacek@codeweavers.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>

vbscript: Fix vanishing statements.
fe59d1a5 · Robert Wilhelm · Alexandre Julliard · 6946d78e · fe59d1a5 · fe59d1a5
Commit fe59d1a5 authored Sep 22, 2020 by Robert Wilhelm Committed by Alexandre Julliard Sep 23, 2020
Show whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

parser.y dlls/vbscript/parser.y +5 -0

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

No files found.
--- a/dlls/vbscript/parser.y
+++ b/dlls/vbscript/parser.y
@@ -516,12 +516,17 @@ static void source_add_statement(parser_ctx_t *ctx, statement_t *stat)
    if(!stat)
        return;

+    /* concatenate both linked lists */
    if(ctx->stats) {
        ctx->stats_tail->next = stat;
        ctx->stats_tail = stat;
    }else {
        ctx->stats = ctx->stats_tail = stat;
    }
+    /* find new tail */
+    while(ctx->stats_tail->next) {
+        ctx->stats_tail=ctx->stats_tail->next;
+    }
 }

 static void source_add_class(parser_ctx_t *ctx, class_decl_t *class_decl)

--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -67,6 +67,9 @@ Call ok(W = 5, "W = " & W & " expected " & 5)
 x = "xx"
 Call ok(x = "xx", "x = " & x & " expected ""xx""")

+Dim public1 : public1 = 42
+Call ok(public1 = 42, "public1=" & public1 & " expected & " & 42)
+
 Call ok(true <> false, "true <> false is false")
 Call ok(not (true <> true), "true <> true is true")
 Call ok(not ("x" <> "x"), """x"" <> ""x"" is true")