Jacek Caban : vbscript: Support VT_EMPTY in stack_pop_bool.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 18117ccbab3232cf0d81219a37d52837e898ab7b
URL:    https://source.winehq.org/git/wine.git/?a=commit;h=18117ccbab3232cf0d81219a3...

Author: Jacek Caban <jacek(a)codeweavers.com>
Date:   Thu Oct 31 19:16:01 2019 +0100

vbscript: Support VT_EMPTY in stack_pop_bool.

Signed-off-by: Jacek Caban <jacek(a)codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard(a)winehq.org>

---

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

diff --git a/dlls/vbscript/interp.c b/dlls/vbscript/interp.c
index 2b681a0677..ad6454aa57 100644
--- a/dlls/vbscript/interp.c
+++ b/dlls/vbscript/interp.c
@@ -374,6 +374,7 @@ static int stack_pop_bool(exec_ctx_t *ctx, BOOL *b)
         *b = V_BOOL(val.v);
         break;
     case VT_NULL:
+    case VT_EMPTY:
         *b = FALSE;
         break;
     case VT_I2:
diff --git a/dlls/vbscript/tests/lang.vbs b/dlls/vbscript/tests/lang.vbs
index f7cdc92ec4..0520038a02 100644
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -329,6 +329,14 @@ end if
 while false
 wend
 
+if empty then
+   ok false, "if empty executed"
+end if
+
+while empty
+   ok false, "while empty executed"
+wend
+
 x = 0
 WHILE x < 3 : x = x + 1
 Wend