reactos/wine
1
0
Fork 0
mirror of https://github.com/reactos/wine.git synced 2024-11-25 12:49:45 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

vbscript: Fixed local variable count calculation.

Browse Source
This commit is contained in:
Jacek Caban 2011-10-24 12:30:48 +02:00 committed by Alexandre Julliard
parent a65ef29151
commit 851856af67
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dlls/vbscript/compile.c
View File

@ -746,6 +746,7 @@ static HRESULT compile_dim_statement(compile_ctx_t *ctx, dim_statement_t *stat)
return E_FAIL; return E_FAIL;
} }
ctx->func->var_cnt++;
if(!dim_decl->next) if(!dim_decl->next)
break; break;
dim_decl = dim_decl->next; dim_decl = dim_decl->next;
@ -753,7 +754,6 @@ static HRESULT compile_dim_statement(compile_ctx_t *ctx, dim_statement_t *stat)
dim_decl->next = ctx->dim_decls; dim_decl->next = ctx->dim_decls;
ctx->dim_decls = stat->dim_decls; ctx->dim_decls = stat->dim_decls;
ctx->func->var_cnt++;
return S_OK; return S_OK;
} }

1
dlls/vbscript/tests/lang.vbs
View File

@ -470,6 +470,7 @@ Sub TestSubLocalVal
x = false x = false
Call ok(not x, "local x is not false?") Call ok(not x, "local x is not false?")
Dim x Dim x
Dim a,b, c
End Sub End Sub
x = true x = true