Mercurial > vim
diff src/eval.c @ 15478:051937ebaf22 v8.1.0747
patch 8.1.0747: map() with a bad expression doesn't give an error
commit https://github.com/vim/vim/commit/ce9d50df07402cb8e196537a9c4505845adecabc
Author: Bram Moolenaar <Bram@vim.org>
Date: Mon Jan 14 22:22:29 2019 +0100
patch 8.1.0747: map() with a bad expression doesn't give an error
Problem: map() with a bad expression doesn't give an error. (Ingo Karkat)
Solution: Check for giving an error message. (closes https://github.com/vim/vim/issues/3800)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Mon, 14 Jan 2019 22:30:07 +0100 |
parents | 55ccc2d353bd |
children | 18dd04f7c4a1 |
line wrap: on
line diff
--- a/src/eval.c +++ b/src/eval.c @@ -696,6 +696,30 @@ eval_to_bool( return (int)retval; } +/* + * Call eval1() and give an error message if not done at a lower level. + */ + static int +eval1_emsg(char_u **arg, typval_T *rettv, int evaluate) +{ + int ret; + int did_emsg_before = did_emsg; + int called_emsg_before = called_emsg; + + ret = eval1(arg, rettv, evaluate); + if (ret == FAIL) + { + // Report the invalid expression unless the expression evaluation has + // been cancelled due to an aborting error, an interrupt, or an + // exception, or we already gave a more specific error. + // Also check called_emsg for when using assert_fails(). + if (!aborting() && did_emsg == did_emsg_before + && called_emsg == called_emsg_before) + semsg(_(e_invexpr2), arg); + } + return ret; +} + static int eval_expr_typval(typval_T *expr, typval_T *argv, int argc, typval_T *rettv) { @@ -729,7 +753,7 @@ eval_expr_typval(typval_T *expr, typval_ if (s == NULL) return FAIL; s = skipwhite(s); - if (eval1(&s, rettv, TRUE) == FAIL) + if (eval1_emsg(&s, rettv, TRUE) == FAIL) return FAIL; if (*s != NUL) /* check for trailing chars after expr */ { @@ -8464,18 +8488,9 @@ ex_execute(exarg_T *eap) while (*arg != NUL && *arg != '|' && *arg != '\n') { p = arg; - if (eval1(&arg, &rettv, !eap->skip) == FAIL) - { - /* - * Report the invalid expression unless the expression evaluation - * has been cancelled due to an aborting error, an interrupt, or an - * exception. - */ - if (!aborting() && did_emsg == save_did_emsg) - semsg(_(e_invexpr2), p); - ret = FAIL; + ret = eval1_emsg(&arg, &rettv, !eap->skip); + if (ret == FAIL) break; - } if (!eap->skip) { @@ -10758,6 +10773,7 @@ filter_map(typval_T *argvars, typval_T * } else { + // argvars[0].v_type == VAR_LIST vimvars[VV_KEY].vv_type = VAR_NUMBER; for (li = l->lv_first; li != NULL; li = nli)