commit 8922860afb2cf9e89417c0c1417f1fb4458d3b44
author Bram Moolenaar <Bram@vim.org> Sun Apr 05 22:14:54 2020 +0200
committer Bram Moolenaar <Bram@vim.org> Sun Apr 05 22:14:54 2020 +0200
tree ac4d2e2ae32f60ac80389414e50878b0fa35c080
parent 5ba8d3578c835edcfb7e3b132e623c12e62f250b

patch 8.2.0519: Vim9: return type not properly checked

Problem:    Vim9: return type not properly checked.
Solution:   Check type properly, also at runtime.

src/testdir/test_vim9_func.vim

diff --git a/src/testdir/test_vim9_func.vim b/src/testdir/test_vim9_func.vim
index c122168..74653b1 100644
--- a/src/testdir/test_vim9_func.vim
+++ b/src/testdir/test_vim9_func.vim
@@ -380,6 +380,10 @@
   return arg
 enddef
 
+def FuncOneArgRetAny(arg: any): any
+  return arg
+enddef
+
 def Test_func_type()
   let Ref1: func()
   funcResult = 0
@@ -417,5 +421,20 @@
   CheckDefFailure(['let Ref1: func()', 'Ref1 = FuncOneArgRetNumber'], 'E1013: type mismatch, expected func() but got func(number): number')
 enddef
 
+def Test_func_return_type()
+  let nr: number
+  nr = FuncNoArgRetNumber()
+  assert_equal(1234, nr)
+
+  nr = FuncOneArgRetAny(122)
+  assert_equal(122, nr)
+
+  let str: string
+  str = FuncOneArgRetAny('yes')
+  assert_equal('yes', str)
+
+  CheckDefFailure(['let str: string', 'str = FuncNoArgRetNumber()'], 'E1013: type mismatch, expected string but got number')
+enddef
+
 
 " vim: ts=8 sw=2 sts=2 expandtab tw=80 fdm=marker

src/version.c

diff --git a/src/version.c b/src/version.c
index f420990..6e9f006 100644
--- a/src/version.c
+++ b/src/version.c
@@ -739,6 +739,8 @@
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    519,
+/**/
     518,
 /**/
     517,

src/vim9compile.c

diff --git a/src/vim9compile.c b/src/vim9compile.c
index 98936dd..0dfe5a1 100644
--- a/src/vim9compile.c
+++ b/src/vim9compile.c
@@ -2432,7 +2432,7 @@
 	if (ret == FAIL && give_msg)
 	    type_mismatch(expected, actual);
     }
-    return OK;
+    return ret;
 }
 
 /*
@@ -2444,7 +2444,7 @@
     static int
 need_type(type_T *actual, type_T *expected, int offset, cctx_T *cctx)
 {
-    if (check_type(expected, actual, FALSE))
+    if (check_type(expected, actual, FALSE) == OK)
 	return OK;
     if (actual->tt_type != VAR_ANY && actual->tt_type != VAR_UNKNOWN)
     {
@@ -4069,7 +4069,7 @@
 			lvar->lv_type = stacktype;
 		}
 	    }
-	    else if (check_type(lvar->lv_type, stacktype, TRUE) == FAIL)
+	    else if (need_type(stacktype, lvar->lv_type, -1, cctx) == FAIL)
 		goto theend;
 	}
 	else if (*p != '=' && check_type(type, stacktype, TRUE) == FAIL)