From cd268017cf79a546a494883b4b026a3cbbd9a8a0 Mon Sep 17 00:00:00 2001 From: Bram Moolenaar Date: Thu, 22 Jul 2021 19:11:08 +0200 Subject: [PATCH] patch 8.2.3203: Vim9: compiled string expression causes type error Problem: Vim9: compiled string expression causes type error. (Yegappan Lakshmanan) Solution: Remove the string type from the stack. --- src/evalfunc.c | 4 +++- src/version.c | 2 ++ src/vim9compile.c | 7 +++++-- 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/src/evalfunc.c b/src/evalfunc.c index 92621ec33..6570c5976 100644 --- a/src/evalfunc.c +++ b/src/evalfunc.c @@ -711,6 +711,8 @@ static argcheck_T arg3_slice[] = {arg_slice1, arg_number, arg_number}; static argcheck_T arg4_strpart[] = {arg_string, arg_number, arg_number, arg_bool}; static argcheck_T arg23_win_execute[] = {arg_number, arg_string_or_list_string, arg_string}; static argcheck_T arg4_match_func[] = {arg_string_or_list_any, arg_string, arg_number, arg_number}; +static argcheck_T arg15_search[] = {arg_string, arg_string, arg_number, arg_number, NULL}; + /* * Functions that return the return type of a builtin function. @@ -1738,7 +1740,7 @@ static funcentry_T global_functions[] = ret_number, f_screenrow}, {"screenstring", 2, 2, FEARG_1, arg2_number, ret_string, f_screenstring}, - {"search", 1, 5, FEARG_1, NULL, + {"search", 1, 5, FEARG_1, arg15_search, ret_number, f_search}, {"searchcount", 0, 1, FEARG_1, arg1_dict_any, ret_dict_any, f_searchcount}, diff --git a/src/version.c b/src/version.c index 8eb758c0a..ef2ea8d42 100644 --- a/src/version.c +++ b/src/version.c @@ -755,6 +755,8 @@ static char *(features[]) = static int included_patches[] = { /* Add new patch number below this line */ +/**/ + 3203, /**/ 3202, /**/ diff --git a/src/vim9compile.c b/src/vim9compile.c index 4f7a0397b..23994342c 100644 --- a/src/vim9compile.c +++ b/src/vim9compile.c @@ -3244,6 +3244,9 @@ compile_string(isn_T *isn, cctx_T *cctx) int instr_count; isn_T *instr = NULL; + // Remove the string type from the stack. + --cctx->ctx_type_stack.ga_len; + // Temporarily reset the list of instructions so that the jump labels are // correct. cctx->ctx_instr.ga_len = 0; @@ -4263,8 +4266,8 @@ compile_subscript( } } - // Do not skip over white space to find the "(", "execute 'x' ()" is - // not a function call. + // Do not skip over white space to find the "(", "execute 'x' (expr)" + // is not a function call. if (**arg == '(') { garray_T *stack = &cctx->ctx_type_stack; -- 2.40.0