Mercurial > vim
diff src/vim9compile.c @ 23106:b0c88aa0175b v8.2.2099
patch 8.2.2099: Vim9: some checks are not tested
Commit: https://github.com/vim/vim/commit/918a4249176a8ccec3a34c9c7ef7bf4163676a63
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Dec 6 14:37:08 2020 +0100
patch 8.2.2099: Vim9: some checks are not tested
Problem: Vim9: some checks are not tested.
Solution: Add a few more tests. Give better error messages.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 06 Dec 2020 14:45:04 +0100 |
parents | 9c3a6c33c0e5 |
children | 545ff3b4543c |
line wrap: on
line diff
--- a/src/vim9compile.c +++ b/src/vim9compile.c @@ -2503,7 +2503,8 @@ compile_load( case 'w': isn_type = ISN_LOADW; break; case 't': isn_type = ISN_LOADT; break; case 'b': isn_type = ISN_LOADB; break; - default: semsg(_(e_namespace_not_supported_str), *arg); + default: // cannot happen, just in case + semsg(_(e_namespace_not_supported_str), *arg); goto theend; } if (isn_type != ISN_DROP) @@ -3581,7 +3582,7 @@ compile_subscript( else { if (compile_expr0(arg, cctx) == FAIL) - return FAIL; + return FAIL; if (may_get_next_line_error(p, arg, cctx) == FAIL) return FAIL; *arg = skipwhite(*arg); @@ -4084,7 +4085,7 @@ compile_expr6(char_u **arg, cctx_T *cctx return FAIL; } *arg = skipwhite(op + 1); - if (may_get_next_line(op + 1, arg, cctx) == FAIL) + if (may_get_next_line_error(op + 1, arg, cctx) == FAIL) return FAIL; // get the second expression @@ -4291,7 +4292,7 @@ compile_expr4(char_u **arg, cctx_T *cctx // get the second variable *arg = skipwhite(p + len); - if (may_get_next_line(p + len, arg, cctx) == FAIL) + if (may_get_next_line_error(p + len, arg, cctx) == FAIL) return FAIL; if (compile_expr5(arg, cctx, ppconst) == FAIL) @@ -4390,7 +4391,7 @@ compile_and_or( // eval the next expression *arg = skipwhite(p + 2); - if (may_get_next_line(p + 2, arg, cctx) == FAIL) + if (may_get_next_line_error(p + 2, arg, cctx) == FAIL) return FAIL; if ((opchar == '|' ? compile_expr3(arg, cctx, ppconst) @@ -4584,7 +4585,7 @@ compile_expr1(char_u **arg, cctx_T *cct // evaluate the second expression; any type is accepted *arg = skipwhite(p + 1 + op_falsy); - if (may_get_next_line(p + 1 + op_falsy, arg, cctx) == FAIL) + if (may_get_next_line_error(p + 1 + op_falsy, arg, cctx) == FAIL) return FAIL; if (compile_expr1(arg, cctx, ppconst) == FAIL) return FAIL; @@ -4634,7 +4635,7 @@ compile_expr1(char_u **arg, cctx_T *cct cctx->ctx_skip = save_skip == SKIP_YES || const_value ? SKIP_YES : SKIP_NOT; *arg = skipwhite(p + 1); - if (may_get_next_line(p + 1, arg, cctx) == FAIL) + if (may_get_next_line_error(p + 1, arg, cctx) == FAIL) return FAIL; if (compile_expr1(arg, cctx, ppconst) == FAIL) return FAIL;