vim: src/vim9cmds.c annotate

annotate src/vim9cmds.c @ 27503:4cea92e99a5a v8.2.4279

patch 8.2.4279: Vim9: cannot change item type with map() after range() Commit: https://github.com/vim/vim/commit/8133018f50bc447570825801e93d5ed67e8dac90 Author: Bram Moolenaar <Bram@vim.org> Date: Tue Feb 1 12:11:58 2022 +0000 patch 8.2.4279: Vim9: cannot change item type with map() after range() Problem: Vim9: cannot change item type with map() after range(). Solution: Split the return type in current type and declared type. (closes #9665)

author	Bram Moolenaar <Bram@vim.org>
date	Tue, 01 Feb 2022 13:15:03 +0100
parents	472bb63632bd
children	1aff400b819e

rev	line source
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 * vim9cmds.c: Dealing with commands of a compiled function
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #define USING_FLOAT_STUFF
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	15 #include "vim.h"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	16
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	17 #if defined(FEAT_EVAL) \|\| defined(PROTO)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	18
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 // When not generating protos this is included in proto.h
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 #ifdef PROTO
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 # include "vim9.h"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	23
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	24 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	25 * Get the index of the current instruction.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	26 * This compensates for a preceding ISN_CMDMOD and ISN_PROF_START.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	27 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 current_instr_idx(cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	30 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	31 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	32 int idx = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	33
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 while (idx > 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 if (cctx->ctx_has_cmdmod && ((isn_T *)instr->ga_data)[idx - 1]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	37 .isn_type == ISN_CMDMOD)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	38 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 --idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 continue;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	42 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	43 if (((isn_T *)instr->ga_data)[idx - 1].isn_type == ISN_PROF_START)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 --idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 continue;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	47 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	48 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 if (((isn_T *)instr->ga_data)[idx - 1].isn_type == ISN_DEBUG)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	51 --idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	52 continue;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	53 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	56 return idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	59 * Remove local variables above "new_top".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	60 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	61 static void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	62 unwind_locals(cctx_T *cctx, int new_top)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	63 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	64 if (cctx->ctx_locals.ga_len > new_top)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	65 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	66 int idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	67 lvar_T *lvar;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	68
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	69 for (idx = new_top; idx < cctx->ctx_locals.ga_len; ++idx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	71 lvar = ((lvar_T *)cctx->ctx_locals.ga_data) + idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	72 vim_free(lvar->lv_name);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	73 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	74 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	75 cctx->ctx_locals.ga_len = new_top;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	77
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	78 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	79 * Free all local variables.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	80 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	81 void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	82 free_locals(cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	83 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	84 unwind_locals(cctx, 0);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	85 ga_clear(&cctx->ctx_locals);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	86 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	87
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	88
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 * Check if "name" can be "unlet".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	92 int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 check_vim9_unlet(char_u *name)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 if (name[1] != ':' \|\| vim_strchr((char_u )"gwtb", name) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 // "unlet s:var" is allowed in legacy script.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 if (*name == 's' && !script_is_vim9())
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 semsg(_(e_cannot_unlet_str), name);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	103 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	105
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	107 * Callback passed to ex_unletlock().
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	110 compile_unlet(
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 lval_T *lvp,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 char_u *name_end,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 exarg_T *eap,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	114 int deep UNUSED,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 void *coookie)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 cctx_T *cctx = coookie;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 char_u *p = lvp->ll_name;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 int cc = *name_end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	120 int ret = OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	121
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 if (cctx->ctx_skip == SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	124
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 *name_end = NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 if (*p == '$')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	127 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	128 // :unlet $ENV_VAR
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	129 ret = generate_UNLET(cctx, ISN_UNLETENV, p + 1, eap->forceit);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	131 else if (vim_strchr(p, '.') != NULL \|\| vim_strchr(p, '[') != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 lhs_T lhs;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	134
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	135 // This is similar to assigning: lookup the list/dict, compile the
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	136 // idx/key. Then instead of storing the value unlet the item.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 // unlet {list}[idx]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 // unlet {dict}[key] dict.key
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 //
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 // Figure out the LHS type and other properties.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 //
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 ret = compile_lhs(p, &lhs, CMD_unlet, FALSE, 0, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	143
26984 8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	144 // Use the info in "lhs" to unlet the item at the index in the
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	145 // list or dict.
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	146 if (ret == OK)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 {
26984 8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	148 if (!lhs.lhs_has_index)
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	149 {
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	150 semsg(_(e_cannot_unlet_imported_item_str), p);
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	151 ret = FAIL;
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	152 }
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	153 else
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	154 ret = compile_assign_unlet(p, &lhs, FALSE, &t_void, cctx);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	155 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	156
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 vim_free(lhs.lhs_name);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 else if (check_vim9_unlet(p) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 ret = FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 // Normal name. Only supports g:, w:, t: and b: namespaces.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	166 ret = generate_UNLET(cctx, ISN_UNLET, p, eap->forceit);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	168
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	169 *name_end = cc;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 return ret;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	172
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	174 * Callback passed to ex_unletlock().
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	175 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 compile_lock_unlock(
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	178 lval_T *lvp,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	179 char_u *name_end,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 exarg_T *eap,
27394 69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	181 int deep,
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 void *coookie)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 cctx_T *cctx = coookie;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	185 int cc = *name_end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	186 char_u *p = lvp->ll_name;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	187 int ret = OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 size_t len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 char_u *buf;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	190 isntype_T isn = ISN_EXEC;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	191
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 if (cctx->ctx_skip == SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	194
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	195 // Cannot use :lockvar and :unlockvar on local variables.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 if (p[1] != ':')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	198 char_u *end = find_name_end(p, NULL, NULL, FNE_CHECK_START);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	199
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	200 if (lookup_local(p, end - p, NULL, cctx) == OK)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	201 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	202 char_u *s = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	203
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 if (end != '.' && end != '[')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 emsg(_(e_cannot_lock_unlock_local_variable));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	208 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	209
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	210 // For "d.member" put the local variable on the stack, it will be
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 // passed to ex_lockvar() indirectly.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 if (compile_load(&s, end, cctx, FALSE, FALSE) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	214 isn = ISN_LOCKUNLOCK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	215 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	216 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	217
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 // Checking is done at runtime.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	219 *name_end = NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	220 len = name_end - p + 20;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	221 buf = alloc(len);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	222 if (buf == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	223 ret = FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	224 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	225 {
27398 472bb63632bd patch 8.2.4227: Vim9: using "lockvar!" in :def function does not work Bram Moolenaar <Bram@vim.org> parents: 27394 diff changeset	226 char *cmd = eap->cmdidx == CMD_lockvar ? "lockvar" : "unlockvar";
472bb63632bd patch 8.2.4227: Vim9: using "lockvar!" in :def function does not work Bram Moolenaar <Bram@vim.org> parents: 27394 diff changeset	227
472bb63632bd patch 8.2.4227: Vim9: using "lockvar!" in :def function does not work Bram Moolenaar <Bram@vim.org> parents: 27394 diff changeset	228 if (deep < 0)
472bb63632bd patch 8.2.4227: Vim9: using "lockvar!" in :def function does not work Bram Moolenaar <Bram@vim.org> parents: 27394 diff changeset	229 vim_snprintf((char *)buf, len, "%s! %s", cmd, p);
472bb63632bd patch 8.2.4227: Vim9: using "lockvar!" in :def function does not work Bram Moolenaar <Bram@vim.org> parents: 27394 diff changeset	230 else
472bb63632bd patch 8.2.4227: Vim9: using "lockvar!" in :def function does not work Bram Moolenaar <Bram@vim.org> parents: 27394 diff changeset	231 vim_snprintf((char *)buf, len, "%s %d %s", cmd, deep, p);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	232 ret = generate_EXEC_copy(cctx, isn, buf);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	233
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	234 vim_free(buf);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	235 *name_end = cc;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	236 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	237 return ret;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	238 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	239
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	240 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	241 * compile "unlet var", "lock var" and "unlock var"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	242 * "arg" points to "var".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	243 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	244 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 compile_unletlock(char_u arg, exarg_T eap, cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	246 {
27394 69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	247 int deep = 0;
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	248 char_u *p = arg;
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	249
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	250 if (eap->cmdidx != CMD_unlet)
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	251 {
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	252 if (eap->forceit)
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	253 deep = -1;
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	254 else if (vim_isdigit(*p))
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	255 {
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	256 deep = getdigits(&p);
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	257 p = skipwhite(p);
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	258 }
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	259 else
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	260 deep = 2;
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	261 }
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	262
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	263 ex_unletlock(eap, p, deep, GLV_NO_AUTOLOAD \| GLV_COMPILING,
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	264 eap->cmdidx == CMD_unlet ? compile_unlet : compile_lock_unlock,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	265 cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	266 return eap->nextcmd == NULL ? (char_u *)"" : eap->nextcmd;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	267 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	268
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	269 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	270 * generate a jump to the ":endif"/":endfor"/":endwhile"/":finally"/":endtry".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	271 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	272 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	273 compile_jump_to_end(endlabel_T *el, jumpwhen_T when, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	274 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	275 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	276 endlabel_T *endlabel = ALLOC_CLEAR_ONE(endlabel_T);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	277
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	278 if (endlabel == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	279 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	280 endlabel->el_next = *el;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	281 *el = endlabel;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	282 endlabel->el_end_label = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	283
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	284 generate_JUMP(cctx, when, 0);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	285 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	286 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	287
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	288 static void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	289 compile_fill_jump_to_end(endlabel_T *el, int jump_where, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	290 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	291 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	292
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	293 while (*el != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	294 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	295 endlabel_T cur = (el);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	296 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	297
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	298 isn = ((isn_T *)instr->ga_data) + cur->el_end_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	299 isn->isn_arg.jump.jump_where = jump_where;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	300 *el = cur->el_next;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	301 vim_free(cur);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	302 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	303 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	304
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	305 static void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	306 compile_free_jump_to_end(endlabel_T **el)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	307 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	308 while (*el != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	309 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	310 endlabel_T cur = (el);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	311
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	312 *el = cur->el_next;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	313 vim_free(cur);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	315 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	316
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	317 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	318 * Create a new scope and set up the generic items.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	319 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	320 static scope_T *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	321 new_scope(cctx_T *cctx, scopetype_T type)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	322 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	323 scope_T *scope = ALLOC_CLEAR_ONE(scope_T);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	324
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	325 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	326 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	327 scope->se_outer = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 cctx->ctx_scope = scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	329 scope->se_type = type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	330 scope->se_local_count = cctx->ctx_locals.ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	331 return scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	332 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	333
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	334 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	335 * Free the current scope and go back to the outer scope.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	336 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	337 void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	338 drop_scope(cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	339 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	340 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	341
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	342 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	343 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 iemsg("calling drop_scope() without a scope");
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	345 return;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	346 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	347 cctx->ctx_scope = scope->se_outer;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	348 switch (scope->se_type)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	349 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	350 case IF_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	351 compile_free_jump_to_end(&scope->se_u.se_if.is_end_label); break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	352 case FOR_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	353 compile_free_jump_to_end(&scope->se_u.se_for.fs_end_label); break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	354 case WHILE_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	355 compile_free_jump_to_end(&scope->se_u.se_while.ws_end_label); break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	356 case TRY_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	357 compile_free_jump_to_end(&scope->se_u.se_try.ts_end_label); break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	358 case NO_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	359 case BLOCK_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	360 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	361 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	362 vim_free(scope);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	363 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	364
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	365 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	366 misplaced_cmdmod(cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	367 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	368 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	369
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	370 if (cctx->ctx_has_cmdmod
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	371 && ((isn_T *)instr->ga_data)[instr->ga_len - 1].isn_type
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	372 == ISN_CMDMOD)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	373 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	374 emsg(_(e_misplaced_command_modifier));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	375 return TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	376 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	377 return FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	378 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	379
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	380 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	381 * compile "if expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	382 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	383 * "if expr" Produces instructions:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	384 * EVAL expr Push result of "expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	385 * JUMP_IF_FALSE end
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	386 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	387 * end:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	388 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	389 * "if expr \| else" Produces instructions:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	390 * EVAL expr Push result of "expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	391 * JUMP_IF_FALSE else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	392 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	393 * JUMP_ALWAYS end
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	394 * else:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	395 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	396 * end:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	397 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	398 * "if expr1 \| elseif expr2 \| else" Produces instructions:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	399 * EVAL expr Push result of "expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	400 * JUMP_IF_FALSE elseif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	401 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	402 * JUMP_ALWAYS end
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	403 * elseif:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	404 * EVAL expr Push result of "expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	405 * JUMP_IF_FALSE else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	406 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	407 * JUMP_ALWAYS end
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	408 * else:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	409 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	410 * end:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	411 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	412 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	413 compile_if(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	414 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	415 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	416 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	417 int instr_count = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	418 scope_T *scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	419 skip_T skip_save = cctx->ctx_skip;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	420 ppconst_T ppconst;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	421
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	422 CLEAR_FIELD(ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	423 if (compile_expr1(&p, cctx, &ppconst) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	424 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	425 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	426 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	427 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	428 if (!ends_excmd2(arg, skipwhite(p)))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	429 {
26883 7f150a4936f2 patch 8.2.3970: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	430 semsg(_(e_trailing_characters_str), p);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	431 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	432 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	433 if (cctx->ctx_skip == SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	434 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	435 else if (instr->ga_len == instr_count && ppconst.pp_used == 1)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	436 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	437 int error = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	438 int v;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	439
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	440 // The expression results in a constant.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	441 v = tv_get_bool_chk(&ppconst.pp_tv[0], &error);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	442 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	443 if (error)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	444 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	445 cctx->ctx_skip = v ? SKIP_NOT : SKIP_YES;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	446 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	447 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	448 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	449 // Not a constant, generate instructions for the expression.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	450 cctx->ctx_skip = SKIP_UNKNOWN;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	451 if (generate_ppconst(cctx, &ppconst) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	452 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	453 if (bool_on_stack(cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	454 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	455 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	456
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	457 // CMDMOD_REV must come before the jump
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	458 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	459
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	460 scope = new_scope(cctx, IF_SCOPE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	461 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	462 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	463 scope->se_skip_save = skip_save;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	464 // "is_had_return" will be reset if any block does not end in :return
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	465 scope->se_u.se_if.is_had_return = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	466
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	467 if (cctx->ctx_skip == SKIP_UNKNOWN)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	468 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	469 // "where" is set when ":elseif", "else" or ":endif" is found
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	470 scope->se_u.se_if.is_if_label = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	471 generate_JUMP(cctx, JUMP_IF_FALSE, 0);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	472 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	473 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	474 scope->se_u.se_if.is_if_label = -1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	475
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	476 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	477 if (cctx->ctx_compile_type == CT_PROFILE && cctx->ctx_skip == SKIP_YES
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	478 && skip_save != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	479 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	480 // generated a profile start, need to generate a profile end, since it
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	481 // won't be done after returning
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	482 cctx->ctx_skip = SKIP_NOT;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	483 generate_instr(cctx, ISN_PROF_END);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	484 cctx->ctx_skip = SKIP_YES;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	485 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	486 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	487
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	488 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	489 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	490
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	491 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	492 compile_elseif(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	493 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	494 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	495 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	496 int instr_count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	497 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	498 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	499 ppconst_T ppconst;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	500 skip_T save_skip = cctx->ctx_skip;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	501
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	502 if (scope == NULL \|\| scope->se_type != IF_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	503 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	504 emsg(_(e_elseif_without_if));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	505 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	506 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	507 unwind_locals(cctx, scope->se_local_count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	508 if (!cctx->ctx_had_return)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	509 scope->se_u.se_if.is_had_return = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	510
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	511 if (cctx->ctx_skip == SKIP_NOT)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	512 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	513 // previous block was executed, this one and following will not
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	514 cctx->ctx_skip = SKIP_YES;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	515 scope->se_u.se_if.is_seen_skip_not = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	516 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	517 if (scope->se_u.se_if.is_seen_skip_not)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	518 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	519 // A previous block was executed, skip over expression and bail out.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	520 // Do not count the "elseif" for profiling and cmdmod
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	521 instr->ga_len = current_instr_idx(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	522
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	523 skip_expr_cctx(&p, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	524 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	525 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	526
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	527 if (cctx->ctx_skip == SKIP_UNKNOWN)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	528 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	529 int moved_cmdmod = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	530 int saved_debug = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	531 isn_T debug_isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	532
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	533 // Move any CMDMOD instruction to after the jump
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	534 if (((isn_T *)instr->ga_data)[instr->ga_len - 1].isn_type == ISN_CMDMOD)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	535 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	536 if (GA_GROW_FAILS(instr, 1))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	537 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	538 ((isn_T *)instr->ga_data)[instr->ga_len] =
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	539 ((isn_T *)instr->ga_data)[instr->ga_len - 1];
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	540 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	541 moved_cmdmod = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	542 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	543
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	544 // Remove the already generated ISN_DEBUG, it is written below the
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	545 // ISN_FOR instruction.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	546 if (cctx->ctx_compile_type == CT_DEBUG && instr->ga_len > 0
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	547 && ((isn_T *)instr->ga_data)[instr->ga_len - 1]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	548 .isn_type == ISN_DEBUG)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	549 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	550 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	551 debug_isn = ((isn_T *)instr->ga_data)[instr->ga_len];
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	552 saved_debug = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	553 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	554
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	555 if (compile_jump_to_end(&scope->se_u.se_if.is_end_label,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	556 JUMP_ALWAYS, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	557 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	558 // previous "if" or "elseif" jumps here
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	559 isn = ((isn_T *)instr->ga_data) + scope->se_u.se_if.is_if_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	560 isn->isn_arg.jump.jump_where = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	561
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	562 if (moved_cmdmod)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	563 ++instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	564
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	565 if (saved_debug)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	566 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	567 // move the debug instruction here
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	568 if (GA_GROW_FAILS(instr, 1))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	569 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	570 ((isn_T *)instr->ga_data)[instr->ga_len] = debug_isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	571 ++instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	572 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	573 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	574
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	575 // compile "expr"; if we know it evaluates to FALSE skip the block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	576 CLEAR_FIELD(ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	577 if (cctx->ctx_skip == SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	578 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	579 cctx->ctx_skip = SKIP_UNKNOWN;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	580 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	581 if (cctx->ctx_compile_type == CT_PROFILE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	582 // the previous block was skipped, need to profile this line
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	583 generate_instr(cctx, ISN_PROF_START);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	584 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	585 if (cctx->ctx_compile_type == CT_DEBUG)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	586 // the previous block was skipped, may want to debug this line
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	587 generate_instr_debug(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	588 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	589
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	590 instr_count = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	591 if (compile_expr1(&p, cctx, &ppconst) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	592 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	593 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	594 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	595 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	596 cctx->ctx_skip = save_skip;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	597 if (!ends_excmd2(arg, skipwhite(p)))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	598 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	599 clear_ppconst(&ppconst);
26883 7f150a4936f2 patch 8.2.3970: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	600 semsg(_(e_trailing_characters_str), p);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	601 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	602 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	603 if (scope->se_skip_save == SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	604 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	605 else if (instr->ga_len == instr_count && ppconst.pp_used == 1)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	606 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	607 int error = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	608 int v;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	609
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	610 // The expression result is a constant.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	611 v = tv_get_bool_chk(&ppconst.pp_tv[0], &error);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	612 if (error)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	613 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	614 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	615 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	616 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	617 cctx->ctx_skip = v ? SKIP_NOT : SKIP_YES;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	618 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	619 scope->se_u.se_if.is_if_label = -1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	620 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	621 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	622 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	623 // Not a constant, generate instructions for the expression.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	624 cctx->ctx_skip = SKIP_UNKNOWN;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	625 if (generate_ppconst(cctx, &ppconst) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	626 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	627 if (bool_on_stack(cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	628 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	629
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	630 // CMDMOD_REV must come before the jump
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	631 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	632
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	633 // "where" is set when ":elseif", "else" or ":endif" is found
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	634 scope->se_u.se_if.is_if_label = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	635 generate_JUMP(cctx, JUMP_IF_FALSE, 0);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	636 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	637
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	638 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	639 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	640
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	641 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	642 compile_else(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	643 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	644 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	645 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	646 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	647 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	648
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	649 if (scope == NULL \|\| scope->se_type != IF_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	650 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	651 emsg(_(e_else_without_if));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	652 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	653 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	654 unwind_locals(cctx, scope->se_local_count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	655 if (!cctx->ctx_had_return)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	656 scope->se_u.se_if.is_had_return = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	657 scope->se_u.se_if.is_seen_else = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	658
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	659 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	660 if (cctx->ctx_compile_type == CT_PROFILE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	661 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	662 if (cctx->ctx_skip == SKIP_NOT
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	663 && ((isn_T *)instr->ga_data)[instr->ga_len - 1]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	664 .isn_type == ISN_PROF_START)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	665 // the previous block was executed, do not count "else" for
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	666 // profiling
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	667 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	668 if (cctx->ctx_skip == SKIP_YES && !scope->se_u.se_if.is_seen_skip_not)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	669 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	670 // the previous block was not executed, this one will, do count the
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	671 // "else" for profiling
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	672 cctx->ctx_skip = SKIP_NOT;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	673 generate_instr(cctx, ISN_PROF_END);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	674 generate_instr(cctx, ISN_PROF_START);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	675 cctx->ctx_skip = SKIP_YES;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	676 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	677 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	678 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	679
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	680 if (!scope->se_u.se_if.is_seen_skip_not && scope->se_skip_save != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	681 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	682 // jump from previous block to the end, unless the else block is empty
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	683 if (cctx->ctx_skip == SKIP_UNKNOWN)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	684 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	685 if (!cctx->ctx_had_return
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	686 && compile_jump_to_end(&scope->se_u.se_if.is_end_label,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	687 JUMP_ALWAYS, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	688 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	689 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	690
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	691 if (cctx->ctx_skip == SKIP_UNKNOWN)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	692 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	693 if (scope->se_u.se_if.is_if_label >= 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	694 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	695 // previous "if" or "elseif" jumps here
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	696 isn = ((isn_T *)instr->ga_data) + scope->se_u.se_if.is_if_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	697 isn->isn_arg.jump.jump_where = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	698 scope->se_u.se_if.is_if_label = -1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	699 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	700 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	701
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	702 if (cctx->ctx_skip != SKIP_UNKNOWN)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	703 cctx->ctx_skip = cctx->ctx_skip == SKIP_YES ? SKIP_NOT : SKIP_YES;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	704 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	705
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	706 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	707 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	708
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	709 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	710 compile_endif(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	711 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	712 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	713 ifscope_T *ifscope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	714 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	715 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	716
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	717 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	718 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	719
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	720 if (scope == NULL \|\| scope->se_type != IF_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	721 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	722 emsg(_(e_endif_without_if));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	723 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	724 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	725 ifscope = &scope->se_u.se_if;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	726 unwind_locals(cctx, scope->se_local_count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	727 if (!cctx->ctx_had_return)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	728 ifscope->is_had_return = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	729
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	730 if (scope->se_u.se_if.is_if_label >= 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	731 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	732 // previous "if" or "elseif" jumps here
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	733 isn = ((isn_T *)instr->ga_data) + scope->se_u.se_if.is_if_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	734 isn->isn_arg.jump.jump_where = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	735 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	736 // Fill in the "end" label in jumps at the end of the blocks.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	737 compile_fill_jump_to_end(&ifscope->is_end_label, instr->ga_len, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	738
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	739 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	740 // even when skipping we count the endif as executed, unless the block it's
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	741 // in is skipped
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	742 if (cctx->ctx_compile_type == CT_PROFILE && cctx->ctx_skip == SKIP_YES
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	743 && scope->se_skip_save != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	744 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	745 cctx->ctx_skip = SKIP_NOT;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	746 generate_instr(cctx, ISN_PROF_START);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	747 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	748 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	749 cctx->ctx_skip = scope->se_skip_save;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	750
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	751 // If all the blocks end in :return and there is an :else then the
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	752 // had_return flag is set.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	753 cctx->ctx_had_return = ifscope->is_had_return && ifscope->is_seen_else;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	754
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	755 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	756 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	757 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	758
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	759 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	760 * Compile "for var in expr":
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	761 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	762 * Produces instructions:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	763 * PUSHNR -1
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	764 * STORE loop-idx Set index to -1
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	765 * EVAL expr result of "expr" on top of stack
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	766 * top: FOR loop-idx, end Increment index, use list on bottom of stack
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	767 * - if beyond end, jump to "end"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	768 * - otherwise get item from list and push it
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	769 * STORE var Store item in "var"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	770 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	771 * JUMP top Jump back to repeat
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	772 * end: DROP Drop the result of "expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	773 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	774 * Compile "for [var1, var2] in expr" - as above, but instead of "STORE var":
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	775 * UNPACK 2 Split item in 2
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	776 * STORE var1 Store item in "var1"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	777 * STORE var2 Store item in "var2"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	778 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	779 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	780 compile_for(char_u arg_start, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	781 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	782 char_u *arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	783 char_u *arg_end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	784 char_u *name = NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	785 char_u *p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	786 char_u *wp;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	787 int var_count = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	788 int var_list = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	789 int semicolon = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	790 size_t varlen;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	791 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	792 scope_T *scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	793 lvar_T *loop_lvar; // loop iteration variable
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	794 lvar_T *var_lvar; // variable for "var"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	795 type_T *vartype;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	796 type_T *item_type = &t_any;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	797 int idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	798 int prev_lnum = cctx->ctx_prev_lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	799
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	800 p = skip_var_list(arg_start, TRUE, &var_count, &semicolon, FALSE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	801 if (p == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	802 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	803 if (var_count == 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	804 var_count = 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	805 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	806 var_list = TRUE; // can also be a list of one variable
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	807
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	808 // consume "in"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	809 wp = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	810 if (may_get_next_line_error(wp, &p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	811 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	812 if (STRNCMP(p, "in", 2) != 0 \|\| !IS_WHITE_OR_NUL(p[2]))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	813 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	814 if (*p == ':' && wp != p)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	815 semsg(_(e_no_white_space_allowed_before_colon_str), p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	816 else
26887 612339679616 patch 8.2.3972: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26883 diff changeset	817 emsg(_(e_missing_in_after_for));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	818 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	819 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	820 wp = p + 2;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	821 if (may_get_next_line_error(wp, &p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	822 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	823
26905 c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	824 // Find the already generated ISN_DEBUG to get the line number for the
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	825 // instruction written below the ISN_FOR instruction.
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	826 if (cctx->ctx_compile_type == CT_DEBUG && instr->ga_len > 0
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	827 && ((isn_T *)instr->ga_data)[instr->ga_len - 1]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	828 .isn_type == ISN_DEBUG)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	829 {
26905 c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	830 prev_lnum = ((isn_T *)instr->ga_data)[instr->ga_len - 1]
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	831 .isn_arg.debug.dbg_break_lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	832 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	833
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	834 scope = new_scope(cctx, FOR_SCOPE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	835 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	836 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	837
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	838 // Reserve a variable to store the loop iteration counter and initialize it
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	839 // to -1.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	840 loop_lvar = reserve_local(cctx, (char_u *)"", 0, FALSE, &t_number);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	841 if (loop_lvar == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	842 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	843 // out of memory
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	844 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	845 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	846 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	847 generate_STORENR(cctx, loop_lvar->lv_idx, -1);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	848
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	849 // compile "expr", it remains on the stack until "endfor"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	850 arg = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	851 if (compile_expr0(&arg, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	852 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	853 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	854 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	855 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	856 arg_end = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	857
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	858 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	859 {
26771 fc859aea8cec patch 8.2.3914: various spelling mistakes in comments Bram Moolenaar <Bram@vim.org> parents: 26729 diff changeset	860 // If we know the type of "var" and it is not a supported type we can
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	861 // give an error now.
26935 ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	862 vartype = get_type_on_stack(cctx, 0);
26674 38a270fdd3f6 patch 8.2.3866: Vim9: type checking global variables is inconsistent Bram Moolenaar <Bram@vim.org> parents: 26672 diff changeset	863 if (vartype->tt_type != VAR_LIST
38a270fdd3f6 patch 8.2.3866: Vim9: type checking global variables is inconsistent Bram Moolenaar <Bram@vim.org> parents: 26672 diff changeset	864 && vartype->tt_type != VAR_STRING
38a270fdd3f6 patch 8.2.3866: Vim9: type checking global variables is inconsistent Bram Moolenaar <Bram@vim.org> parents: 26672 diff changeset	865 && vartype->tt_type != VAR_BLOB
38a270fdd3f6 patch 8.2.3866: Vim9: type checking global variables is inconsistent Bram Moolenaar <Bram@vim.org> parents: 26672 diff changeset	866 && vartype->tt_type != VAR_ANY
38a270fdd3f6 patch 8.2.3866: Vim9: type checking global variables is inconsistent Bram Moolenaar <Bram@vim.org> parents: 26672 diff changeset	867 && vartype->tt_type != VAR_UNKNOWN)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	868 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	869 semsg(_(e_for_loop_on_str_not_supported),
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	870 vartype_name(vartype->tt_type));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	871 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	872 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	873 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	874
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	875 if (vartype->tt_type == VAR_STRING)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	876 item_type = &t_string;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	877 else if (vartype->tt_type == VAR_BLOB)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	878 item_type = &t_number;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	879 else if (vartype->tt_type == VAR_LIST
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	880 && vartype->tt_member->tt_type != VAR_ANY)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	881 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	882 if (!var_list)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	883 item_type = vartype->tt_member;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	884 else if (vartype->tt_member->tt_type == VAR_LIST
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	885 && vartype->tt_member->tt_member->tt_type != VAR_ANY)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	886 item_type = vartype->tt_member->tt_member;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	887 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	888
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	889 // CMDMOD_REV must come before the FOR instruction.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	890 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	891
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	892 // "for_end" is set when ":endfor" is found
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	893 scope->se_u.se_for.fs_top_label = current_instr_idx(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	894
26905 c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	895 if (cctx->ctx_compile_type == CT_DEBUG)
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	896 {
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	897 int save_prev_lnum = cctx->ctx_prev_lnum;
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	898 isn_T *isn;
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	899
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	900 // Add ISN_DEBUG here, before deciding to end the loop. There will
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	901 // be another ISN_DEBUG before the next instruction.
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	902 // Use the prev_lnum from the ISN_DEBUG instruction removed above.
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	903 // Increment the variable count so that the loop variable can be
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	904 // inspected.
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	905 cctx->ctx_prev_lnum = prev_lnum;
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	906 isn = generate_instr_debug(cctx);
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	907 ++isn->isn_arg.debug.dbg_var_names_len;
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	908 cctx->ctx_prev_lnum = save_prev_lnum;
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	909 }
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	910
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	911 generate_FOR(cctx, loop_lvar->lv_idx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	912
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	913 arg = arg_start;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	914 if (var_list)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	915 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	916 generate_UNPACK(cctx, var_count, semicolon);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	917 arg = skipwhite(arg + 1); // skip white after '['
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	918
26935 ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	919 // drop the list item
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	920 --cctx->ctx_type_stack.ga_len;
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	921
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	922 // add type of the items
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	923 for (idx = 0; idx < var_count; ++idx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	924 {
26935 ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	925 type_T *type = (semicolon && idx == 0) ? vartype : item_type;
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	926
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	927 if (push_type_stack(cctx, type) == FAIL)
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	928 {
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	929 drop_scope(cctx);
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	930 return NULL;
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	931 }
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	932 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	933 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	934
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	935 for (idx = 0; idx < var_count; ++idx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	936 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	937 assign_dest_T dest = dest_local;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	938 int opt_flags = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	939 int vimvaridx = -1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	940 type_T *type = &t_any;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	941 type_T *lhs_type = &t_any;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	942 where_T where = WHERE_INIT;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	943
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	944 p = skip_var_one(arg, FALSE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	945 varlen = p - arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	946 name = vim_strnsave(arg, varlen);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	947 if (name == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	948 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	949 if (*p == ':')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	950 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	951 p = skipwhite(p + 1);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	952 lhs_type = parse_type(&p, cctx->ctx_type_list, TRUE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	953 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	954
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	955 if (get_var_dest(name, &dest, CMD_for, &opt_flags,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	956 &vimvaridx, &type, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	957 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	958 if (dest != dest_local)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	959 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	960 if (generate_store_var(cctx, dest, opt_flags, vimvaridx,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	961 0, 0, type, name) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	962 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	963 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	964 else if (varlen == 1 && *arg == '_')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	965 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	966 // Assigning to "_": drop the value.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	967 if (generate_instr_drop(cctx, ISN_DROP, 1) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	968 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	969 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	970 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	971 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 // Script var is not supported.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	973 if (STRNCMP(name, "s:", 2) == 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	974 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	975 emsg(_(e_cannot_use_script_variable_in_for_loop));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	976 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	977 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	978
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	979 if (!valid_varname(arg, (int)varlen, FALSE))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	980 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	981 if (lookup_local(arg, varlen, NULL, cctx) == OK)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	982 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	983 semsg(_(e_variable_already_declared), arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	984 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	985 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	986
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	987 // Reserve a variable to store "var".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	988 where.wt_index = var_list ? idx + 1 : 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	989 where.wt_variable = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	990 if (lhs_type == &t_any)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	991 lhs_type = item_type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	992 else if (item_type != &t_unknown
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	993 && (item_type == &t_any
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	994 ? need_type(item_type, lhs_type,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	995 -1, 0, cctx, FALSE, FALSE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	996 : check_type(lhs_type, item_type, TRUE, where))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	997 == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	998 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	999 var_lvar = reserve_local(cctx, arg, varlen, TRUE, lhs_type);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1000 if (var_lvar == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 // out of memory or used as an argument
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1002 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1003
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1004 if (semicolon && idx == var_count - 1)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1005 var_lvar->lv_type = vartype;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1006 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1007 var_lvar->lv_type = item_type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1008 generate_STORE(cctx, ISN_STORE, var_lvar->lv_idx, NULL);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1009 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1010
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1011 if (p == ',' \|\| p == ';')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1012 ++p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 arg = skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1014 vim_free(name);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1015 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1016 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1017
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1018 return arg_end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1019
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1020 failed:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1021 vim_free(name);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1023 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1024 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1025
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1026 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1027 * compile "endfor"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1028 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1029 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1030 compile_endfor(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1031 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1032 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1033 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1034 forscope_T *forscope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1035 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1036
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1037 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1039
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1040 if (scope == NULL \|\| scope->se_type != FOR_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1041 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1042 emsg(_(e_endfor_without_for));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1043 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1044 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1045 forscope = &scope->se_u.se_for;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1046 cctx->ctx_scope = scope->se_outer;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1047 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1048 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1049 unwind_locals(cctx, scope->se_local_count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1050
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1051 // At end of ":for" scope jump back to the FOR instruction.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1052 generate_JUMP(cctx, JUMP_ALWAYS, forscope->fs_top_label);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1053
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1054 // Fill in the "end" label in the FOR statement so it can jump here.
26905 c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	1055 // In debug mode an ISN_DEBUG was inserted.
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	1056 isn = ((isn_T *)instr->ga_data) + forscope->fs_top_label
c2186e32ae42 patch 8.2.3981: Vim9: debugging a for loop doesn't stop before it starts Bram Moolenaar <Bram@vim.org> parents: 26887 diff changeset	1057 + (cctx->ctx_compile_type == CT_DEBUG ? 1 : 0);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1058 isn->isn_arg.forloop.for_end = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1059
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1060 // Fill in the "end" label any BREAK statements
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1061 compile_fill_jump_to_end(&forscope->fs_end_label, instr->ga_len, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1062
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1063 // Below the ":for" scope drop the "expr" list from the stack.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1064 if (generate_instr_drop(cctx, ISN_DROP, 1) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1065 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1066 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1067
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1068 vim_free(scope);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1069
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1070 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1071 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1072
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1073 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1074 * compile "while expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1075 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1076 * Produces instructions:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1077 * top: EVAL expr Push result of "expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1078 * JUMP_IF_FALSE end jump if false
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1079 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1080 * JUMP top Jump back to repeat
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1081 * end:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1082 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1083 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1084 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1085 compile_while(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1086 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1087 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1088 scope_T *scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1089
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1090 scope = new_scope(cctx, WHILE_SCOPE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1091 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1092 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1093
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1094 // "endwhile" jumps back here, one before when profiling or using cmdmods
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1095 scope->se_u.se_while.ws_top_label = current_instr_idx(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1096
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1097 // compile "expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1098 if (compile_expr0(&p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1099 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1100
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1101 if (!ends_excmd2(arg, skipwhite(p)))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1102 {
26883 7f150a4936f2 patch 8.2.3970: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	1103 semsg(_(e_trailing_characters_str), p);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1104 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1105 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1106
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1107 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1108 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1109 if (bool_on_stack(cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1110 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1111
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1112 // CMDMOD_REV must come before the jump
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1113 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1114
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1115 // "while_end" is set when ":endwhile" is found
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1116 if (compile_jump_to_end(&scope->se_u.se_while.ws_end_label,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1117 JUMP_IF_FALSE, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1118 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1119 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1120
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1121 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1122 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1123
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1124 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1125 * compile "endwhile"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1126 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1127 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1128 compile_endwhile(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1129 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1130 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1131 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1132
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1133 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1134 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1135 if (scope == NULL \|\| scope->se_type != WHILE_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1136 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1137 emsg(_(e_endwhile_without_while));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1138 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1139 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1140 cctx->ctx_scope = scope->se_outer;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1141 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1142 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1143 unwind_locals(cctx, scope->se_local_count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1144
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1145 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1146 // count the endwhile before jumping
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1147 may_generate_prof_end(cctx, cctx->ctx_lnum);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1148 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1149
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1150 // At end of ":for" scope jump back to the FOR instruction.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1151 generate_JUMP(cctx, JUMP_ALWAYS, scope->se_u.se_while.ws_top_label);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1152
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1153 // Fill in the "end" label in the WHILE statement so it can jump here.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1154 // And in any jumps for ":break"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1155 compile_fill_jump_to_end(&scope->se_u.se_while.ws_end_label,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1156 instr->ga_len, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1157 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1158
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1159 vim_free(scope);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1160
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1161 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1162 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1163
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1164 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1165 * compile "continue"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1166 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1167 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1168 compile_continue(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1169 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1170 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1171 int try_scopes = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1172 int loop_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1173
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1174 for (;;)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1175 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1176 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1177 {
26887 612339679616 patch 8.2.3972: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26883 diff changeset	1178 emsg(_(e_continue_without_while_or_for));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1179 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1180 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1181 if (scope->se_type == FOR_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1182 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1183 loop_label = scope->se_u.se_for.fs_top_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1184 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1185 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1186 if (scope->se_type == WHILE_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1187 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1188 loop_label = scope->se_u.se_while.ws_top_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1189 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1190 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1191 if (scope->se_type == TRY_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1192 ++try_scopes;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1193 scope = scope->se_outer;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1194 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1195
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1196 if (try_scopes > 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1197 // Inside one or more try/catch blocks we first need to jump to the
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1198 // "finally" or "endtry" to cleanup.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1199 generate_TRYCONT(cctx, try_scopes, loop_label);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1200 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1201 // Jump back to the FOR or WHILE instruction.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1202 generate_JUMP(cctx, JUMP_ALWAYS, loop_label);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1203
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1204 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1205 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1206
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1207 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1208 * compile "break"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1209 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1210 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1211 compile_break(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1212 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1213 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1214 endlabel_T **el;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1215
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1216 for (;;)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1217 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1218 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1219 {
26887 612339679616 patch 8.2.3972: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26883 diff changeset	1220 emsg(_(e_break_without_while_or_for));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1221 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1222 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1223 if (scope->se_type == FOR_SCOPE \|\| scope->se_type == WHILE_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1224 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1225 scope = scope->se_outer;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1226 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1227
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1228 // Jump to the end of the FOR or WHILE loop.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1229 if (scope->se_type == FOR_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1230 el = &scope->se_u.se_for.fs_end_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1231 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1232 el = &scope->se_u.se_while.ws_end_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1233 if (compile_jump_to_end(el, JUMP_ALWAYS, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1234 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1235
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1236 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1237 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1238
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1239 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1240 * compile "{" start of block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1241 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1242 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1243 compile_block(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1244 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1245 if (new_scope(cctx, BLOCK_SCOPE) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1246 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1247 return skipwhite(arg + 1);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1248 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1249
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1250 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1251 * compile end of block: drop one scope
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1252 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1253 void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1254 compile_endblock(cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1255 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1256 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1257
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1258 cctx->ctx_scope = scope->se_outer;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1259 unwind_locals(cctx, scope->se_local_count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1260 vim_free(scope);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1261 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1262
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1263 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1264 * Compile "try".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1265 * Creates a new scope for the try-endtry, pointing to the first catch and
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1266 * finally.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1267 * Creates another scope for the "try" block itself.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1268 * TRY instruction sets up exception handling at runtime.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1269 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1270 * "try"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1271 * TRY -> catch1, -> finally push trystack entry
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1272 * ... try block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1273 * "throw {exception}"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1274 * EVAL {exception}
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1275 * THROW create exception
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1276 * ... try block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 * " catch {expr}"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1278 * JUMP -> finally
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1279 * catch1: PUSH exception
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1280 * EVAL {expr}
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1281 * MATCH
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1282 * JUMP nomatch -> catch2
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1283 * CATCH remove exception
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1284 * ... catch block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1285 * " catch"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1286 * JUMP -> finally
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1287 * catch2: CATCH remove exception
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1288 * ... catch block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1289 * " finally"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1290 * finally:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1291 * ... finally block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1292 * " endtry"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1293 * ENDTRY pop trystack entry, may rethrow
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1294 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1295 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1296 compile_try(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1297 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1298 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1299 scope_T *try_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1300 scope_T *scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1301
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1302 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1303 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1304
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1305 // scope that holds the jumps that go to catch/finally/endtry
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1306 try_scope = new_scope(cctx, TRY_SCOPE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1307 if (try_scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1308 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1309
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1310 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1311 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1312 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1313
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1314 // "try_catch" is set when the first ":catch" is found or when no catch
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1315 // is found and ":finally" is found.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1316 // "try_finally" is set when ":finally" is found
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1317 // "try_endtry" is set when ":endtry" is found
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1318 try_scope->se_u.se_try.ts_try_label = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1319 if ((isn = generate_instr(cctx, ISN_TRY)) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1320 return NULL;
26672 3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1321 isn->isn_arg.tryref.try_ref = ALLOC_CLEAR_ONE(tryref_T);
3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1322 if (isn->isn_arg.tryref.try_ref == NULL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1323 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1324 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1325
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1326 // scope for the try block itself
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1327 scope = new_scope(cctx, BLOCK_SCOPE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1328 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1329 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1330
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1331 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1332 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1333
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1334 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1335 * Compile "catch {expr}".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1336 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1337 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1338 compile_catch(char_u arg, cctx_T cctx UNUSED)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1339 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1340 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1341 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1342 char_u *p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1343 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1344
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1345 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1346 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1347
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1348 // end block scope from :try or :catch
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1349 if (scope != NULL && scope->se_type == BLOCK_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1350 compile_endblock(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1351 scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1352
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1353 // Error if not in a :try scope
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1354 if (scope == NULL \|\| scope->se_type != TRY_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1355 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1356 emsg(_(e_catch_without_try));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1357 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1358 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1359
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1360 if (scope->se_u.se_try.ts_caught_all)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1361 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1362 emsg(_(e_catch_unreachable_after_catch_all));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1363 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1364 }
27084 6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1365 if (!cctx->ctx_had_return)
6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1366 scope->se_u.se_try.ts_no_return = TRUE;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1367
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1368 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1369 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1370 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1371 // the profile-start should be after the jump
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1372 if (cctx->ctx_compile_type == CT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1373 && instr->ga_len > 0
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1374 && ((isn_T *)instr->ga_data)[instr->ga_len - 1]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1375 .isn_type == ISN_PROF_START)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1376 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1377 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1378 // Jump from end of previous block to :finally or :endtry
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1379 if (compile_jump_to_end(&scope->se_u.se_try.ts_end_label,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1380 JUMP_ALWAYS, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1381 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1382
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1383 // End :try or :catch scope: set value in ISN_TRY instruction
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1384 isn = ((isn_T *)instr->ga_data) + scope->se_u.se_try.ts_try_label;
26672 3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1385 if (isn->isn_arg.tryref.try_ref->try_catch == 0)
3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1386 isn->isn_arg.tryref.try_ref->try_catch = instr->ga_len;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1387 if (scope->se_u.se_try.ts_catch_label != 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1388 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1389 // Previous catch without match jumps here
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1390 isn = ((isn_T *)instr->ga_data) + scope->se_u.se_try.ts_catch_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1391 isn->isn_arg.jump.jump_where = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1392 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1393 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1394 if (cctx->ctx_compile_type == CT_PROFILE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1395 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1396 // a "throw" that jumps here needs to be counted
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1397 generate_instr(cctx, ISN_PROF_END);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1398 // the "catch" is also counted
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1399 generate_instr(cctx, ISN_PROF_START);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1400 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1401 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1402 if (cctx->ctx_compile_type == CT_DEBUG)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1403 generate_instr_debug(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1404 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1405
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1406 p = skipwhite(arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1407 if (ends_excmd2(arg, p))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1408 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1409 scope->se_u.se_try.ts_caught_all = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1410 scope->se_u.se_try.ts_catch_label = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1411 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1412 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1413 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1414 char_u *end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1415 char_u *pat;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1416 char_u *tofree = NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1417 int dropped = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1418 int len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1419
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1420 // Push v:exception, push {expr} and MATCH
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1421 generate_instr_type(cctx, ISN_PUSHEXC, &t_string);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1422
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1423 end = skip_regexp_ex(p + 1, *p, TRUE, &tofree, &dropped, NULL);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1424 if (end != p)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1425 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1426 semsg(_(e_separator_mismatch_str), p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1427 vim_free(tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1428 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1429 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1430 if (tofree == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1431 len = (int)(end - (p + 1));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1432 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1433 len = (int)(end - tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1434 pat = vim_strnsave(tofree == NULL ? p + 1 : tofree, len);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1435 vim_free(tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1436 p += len + 2 + dropped;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1437 if (pat == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1438 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1439 if (generate_PUSHS(cctx, &pat) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1440 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1441
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1442 if (generate_COMPARE(cctx, EXPR_MATCH, FALSE) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1443 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1444
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1445 scope->se_u.se_try.ts_catch_label = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1446 if (generate_JUMP(cctx, JUMP_IF_FALSE, 0) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1447 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1448 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1449
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1450 if (cctx->ctx_skip != SKIP_YES && generate_instr(cctx, ISN_CATCH) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1451 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1452
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1453 if (new_scope(cctx, BLOCK_SCOPE) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1454 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1455 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1456 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1457
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1458 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1459 compile_finally(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1460 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1461 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1462 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1463 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1464 int this_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1465
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1466 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1467 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1468
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1469 // end block scope from :try or :catch
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1470 if (scope != NULL && scope->se_type == BLOCK_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1471 compile_endblock(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1472 scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1473
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1474 // Error if not in a :try scope
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1475 if (scope == NULL \|\| scope->se_type != TRY_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1476 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1477 emsg(_(e_finally_without_try));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1478 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1479 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1480
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1481 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1482 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1483 // End :catch or :finally scope: set value in ISN_TRY instruction
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1484 isn = ((isn_T *)instr->ga_data) + scope->se_u.se_try.ts_try_label;
26672 3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1485 if (isn->isn_arg.tryref.try_ref->try_finally != 0)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1486 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1487 emsg(_(e_multiple_finally));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1488 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1489 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1490
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1491 this_instr = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1492 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1493 if (cctx->ctx_compile_type == CT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1494 && ((isn_T *)instr->ga_data)[this_instr - 1]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1495 .isn_type == ISN_PROF_START)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1496 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1497 // jump to the profile start of the "finally"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1498 --this_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1499
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1500 // jump to the profile end above it
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1501 if (this_instr > 0 && ((isn_T *)instr->ga_data)[this_instr - 1]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1502 .isn_type == ISN_PROF_END)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1503 --this_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1504 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1505 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1506
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1507 // Fill in the "end" label in jumps at the end of the blocks.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1508 compile_fill_jump_to_end(&scope->se_u.se_try.ts_end_label,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1509 this_instr, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1510
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1511 // If there is no :catch then an exception jumps to :finally.
26672 3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1512 if (isn->isn_arg.tryref.try_ref->try_catch == 0)
3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1513 isn->isn_arg.tryref.try_ref->try_catch = this_instr;
3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1514 isn->isn_arg.tryref.try_ref->try_finally = this_instr;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1515 if (scope->se_u.se_try.ts_catch_label != 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1516 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1517 // Previous catch without match jumps here
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1518 isn = ((isn_T *)instr->ga_data) + scope->se_u.se_try.ts_catch_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1519 isn->isn_arg.jump.jump_where = this_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1520 scope->se_u.se_try.ts_catch_label = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1521 }
27084 6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1522 scope->se_u.se_try.ts_has_finally = TRUE;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1523 if (generate_instr(cctx, ISN_FINALLY) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1524 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1525 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1526
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1527 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1528 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1529
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1530 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1531 compile_endtry(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1532 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1533 scope_T *scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1534 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1535 isn_T *try_isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1536
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1537 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1538 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1539
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1540 // end block scope from :catch or :finally
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1541 if (scope != NULL && scope->se_type == BLOCK_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1542 compile_endblock(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1543 scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1544
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1545 // Error if not in a :try scope
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1546 if (scope == NULL \|\| scope->se_type != TRY_SCOPE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1547 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1548 if (scope == NULL)
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1549 emsg(_(e_endtry_without_try));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1550 else if (scope->se_type == WHILE_SCOPE)
26857 2aeea8611342 patch 8.2.3957: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26771 diff changeset	1551 emsg(_(e_missing_endwhile));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1552 else if (scope->se_type == FOR_SCOPE)
26857 2aeea8611342 patch 8.2.3957: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26771 diff changeset	1553 emsg(_(e_missing_endfor));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1554 else
26857 2aeea8611342 patch 8.2.3957: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26771 diff changeset	1555 emsg(_(e_missing_endif));
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1556 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1557 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1558
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1559 try_isn = ((isn_T *)instr->ga_data) + scope->se_u.se_try.ts_try_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1560 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1561 {
26672 3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1562 if (try_isn->isn_arg.tryref.try_ref->try_catch == 0
3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1563 && try_isn->isn_arg.tryref.try_ref->try_finally == 0)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1564 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1565 emsg(_(e_missing_catch_or_finally));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1566 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1567 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1568
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1569 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1570 if (cctx->ctx_compile_type == CT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1571 && ((isn_T *)instr->ga_data)[instr->ga_len - 1]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1572 .isn_type == ISN_PROF_START)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1573 // move the profile start after "endtry" so that it's not counted when
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1574 // the exception is rethrown.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1575 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1576 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1577
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1578 // Fill in the "end" label in jumps at the end of the blocks, if not
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1579 // done by ":finally".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1580 compile_fill_jump_to_end(&scope->se_u.se_try.ts_end_label,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1581 instr->ga_len, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1582
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1583 if (scope->se_u.se_try.ts_catch_label != 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1584 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1585 // Last catch without match jumps here
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1586 isn_T isn = ((isn_T )instr->ga_data)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1587 + scope->se_u.se_try.ts_catch_label;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1588 isn->isn_arg.jump.jump_where = instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1589 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1590 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1591
27084 6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1592 // If there is a finally clause that ends in return then we will return.
6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1593 // If one of the blocks didn't end in "return" or we did not catch all
6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1594 // exceptions reset the had_return flag.
6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1595 if (!(scope->se_u.se_try.ts_has_finally && cctx->ctx_had_return)
6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1596 && (scope->se_u.se_try.ts_no_return
6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1597 \|\| !scope->se_u.se_try.ts_caught_all))
6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1598 cctx->ctx_had_return = FALSE;
6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1599
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1600 compile_endblock(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1601
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1602 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1603 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1604 // End :catch or :finally scope: set instruction index in ISN_TRY
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1605 // instruction
26672 3516017e5f54 patch 8.2.3865: Vim9: compiler complains about using "try" as a struct member Bram Moolenaar <Bram@vim.org> parents: 26662 diff changeset	1606 try_isn->isn_arg.tryref.try_ref->try_endtry = instr->ga_len;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1607 if (cctx->ctx_skip != SKIP_YES
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1608 && generate_instr(cctx, ISN_ENDTRY) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1609 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1610 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1611 if (cctx->ctx_compile_type == CT_PROFILE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1612 generate_instr(cctx, ISN_PROF_START);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1613 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1614 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1615 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1616 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1617
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1618 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1619 * compile "throw {expr}"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1620 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1621 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1622 compile_throw(char_u arg, cctx_T cctx UNUSED)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1623 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1624 char_u *p = skipwhite(arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1625
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1626 if (compile_expr0(&p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1627 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1628 if (cctx->ctx_skip == SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1629 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1630 if (may_generate_2STRING(-1, FALSE, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1631 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1632 if (generate_instr_drop(cctx, ISN_THROW, 1) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1633 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1634
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1635 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1636 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1637
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1638 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1639 compile_eval(char_u arg, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1640 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1641 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1642 int name_only;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1643 long lnum = SOURCING_LNUM;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1644
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1645 // find_ex_command() will consider a variable name an expression, assuming
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1646 // that something follows on the next line. Check that something actually
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1647 // follows, otherwise it's probably a misplaced command.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1648 name_only = cmd_is_name_only(arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1649
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1650 if (compile_expr0(&p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1651 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1652
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1653 if (name_only && lnum == SOURCING_LNUM)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1654 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1655 semsg(_(e_expression_without_effect_str), arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1656 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1657 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1658
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1659 // drop the result
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1660 generate_instr_drop(cctx, ISN_DROP, 1);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1661
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1662 return skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1663 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1664
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1665 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1666 * compile "echo expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1667 * compile "echomsg expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1668 * compile "echoerr expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1669 * compile "echoconsole expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1670 * compile "execute expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1671 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1672 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1673 compile_mult_expr(char_u arg, int cmdidx, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1674 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1675 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1676 char_u *prev = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1677 char_u *expr_start;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1678 int count = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1679 int start_ctx_lnum = cctx->ctx_lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1680 type_T *type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1681
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1682 for (;;)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1683 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1684 if (ends_excmd2(prev, p))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1685 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1686 expr_start = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1687 if (compile_expr0(&p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1688 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1689
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1690 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1691 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1692 // check for non-void type
26935 ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	1693 type = get_type_on_stack(cctx, 0);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1694 if (type->tt_type == VAR_VOID)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1695 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1696 semsg(_(e_expression_does_not_result_in_value_str), expr_start);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1697 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1698 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1699 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1700
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1701 ++count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1702 prev = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1703 p = skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1704 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1705
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1706 if (count > 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1707 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1708 long save_lnum = cctx->ctx_lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1709
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1710 // Use the line number where the command started.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1711 cctx->ctx_lnum = start_ctx_lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1712
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1713 if (cmdidx == CMD_echo \|\| cmdidx == CMD_echon)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1714 generate_ECHO(cctx, cmdidx == CMD_echo, count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1715 else if (cmdidx == CMD_execute)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1716 generate_MULT_EXPR(cctx, ISN_EXECUTE, count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1717 else if (cmdidx == CMD_echomsg)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1718 generate_MULT_EXPR(cctx, ISN_ECHOMSG, count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1719 else if (cmdidx == CMD_echoconsole)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1720 generate_MULT_EXPR(cctx, ISN_ECHOCONSOLE, count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1721 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1722 generate_MULT_EXPR(cctx, ISN_ECHOERR, count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1723
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1724 cctx->ctx_lnum = save_lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1725 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1726 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1727 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1728
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1729 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1730 * If "eap" has a range that is not a constant generate an ISN_RANGE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1731 * instruction to compute it and return OK.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1732 * Otherwise return FAIL, the caller must deal with any range.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1733 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1734 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1735 compile_variable_range(exarg_T eap, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1736 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1737 char_u *range_end = skip_range(eap->cmd, TRUE, NULL);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1738 char_u *p = skipdigits(eap->cmd);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1739
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1740 if (p == range_end)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1741 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1742 return generate_RANGE(cctx, vim_strnsave(eap->cmd, range_end - eap->cmd));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1743 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1744
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1745 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1746 * :put r
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1747 * :put ={expr}
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1748 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1749 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1750 compile_put(char_u arg, exarg_T eap, cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1751 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1752 char_u *line = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1753 linenr_T lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1754 char *errormsg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1755 int above = eap->forceit;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1756
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1757 eap->regname = *line;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1758
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1759 if (eap->regname == '=')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1760 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1761 char_u *p = line + 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1762
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1763 if (compile_expr0(&p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1764 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1765 line = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1766 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1767 else if (eap->regname != NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1768 ++line;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1769
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1770 if (compile_variable_range(eap, cctx) == OK)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1771 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1772 lnum = above ? LNUM_VARIABLE_RANGE_ABOVE : LNUM_VARIABLE_RANGE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1773 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1774 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1775 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1776 // Either no range or a number.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1777 // "errormsg" will not be set because the range is ADDR_LINES.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1778 if (parse_cmd_address(eap, &errormsg, FALSE) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1779 // cannot happen
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1780 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1781 if (eap->addr_count == 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1782 lnum = -1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1783 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1784 lnum = eap->line2;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1785 if (above)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1786 --lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1787 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1788
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1789 generate_PUT(cctx, eap->regname, lnum);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1790 return line;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1791 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1792
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1793 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1794 * A command that is not compiled, execute with legacy code.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1795 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1796 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1797 compile_exec(char_u line_arg, exarg_T eap, cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1798 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1799 char_u *line = line_arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1800 char_u *p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1801 int has_expr = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1802 char_u nextcmd = (char_u )"";
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1803 char_u *tofree = NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1804 char_u *cmd_arg = NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1805
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1806 if (cctx->ctx_skip == SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1807 goto theend;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1808
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1809 // If there was a prececing command modifier, drop it and include it in the
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1810 // EXEC command.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1811 if (cctx->ctx_has_cmdmod)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1812 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1813 garray_T *instr = &cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1814 isn_T isn = ((isn_T )instr->ga_data) + instr->ga_len - 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1815
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1816 if (isn->isn_type == ISN_CMDMOD)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1817 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1818 vim_regfree(isn->isn_arg.cmdmod.cf_cmdmod
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1819 ->cmod_filter_regmatch.regprog);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1820 vim_free(isn->isn_arg.cmdmod.cf_cmdmod);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1821 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1822 cctx->ctx_has_cmdmod = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1823 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1824 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1825
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1826 if (eap->cmdidx >= 0 && eap->cmdidx < CMD_SIZE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1827 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1828 long argt = eap->argt;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1829 int usefilter = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1830
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1831 has_expr = argt & (EX_XFILE \| EX_EXPAND);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1832
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1833 // If the command can be followed by a bar, find the bar and truncate
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1834 // it, so that the following command can be compiled.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1835 // The '\|' is overwritten with a NUL, it is put back below.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1836 if ((eap->cmdidx == CMD_write \|\| eap->cmdidx == CMD_read)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1837 && *eap->arg == '!')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1838 // :w !filter or :r !filter or :r! filter
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1839 usefilter = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1840 if ((argt & EX_TRLBAR) && !usefilter)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1841 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1842 eap->argt = argt;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1843 separate_nextcmd(eap);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1844 if (eap->nextcmd != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1845 nextcmd = eap->nextcmd;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1846 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1847 else if (eap->cmdidx == CMD_wincmd)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1848 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1849 p = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1850 if (*p != NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1851 ++p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1852 if (p == 'g' \|\| p == Ctrl_G)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1853 ++p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1854 p = skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1855 if (*p == '\|')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1856 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1857 *p = NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1858 nextcmd = p + 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1859 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1860 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1861 else if (eap->cmdidx == CMD_command \|\| eap->cmdidx == CMD_autocmd)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1862 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1863 // If there is a trailing '{' read lines until the '}'
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1864 p = eap->arg + STRLEN(eap->arg) - 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1865 while (p > eap->arg && VIM_ISWHITE(*p))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1866 --p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1867 if (*p == '{')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1868 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1869 exarg_T ea;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1870 int flags; // unused
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1871 int start_lnum = SOURCING_LNUM;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1872
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1873 CLEAR_FIELD(ea);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1874 ea.arg = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1875 fill_exarg_from_cctx(&ea, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1876 (void)may_get_cmd_block(&ea, p, &tofree, &flags);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1877 if (tofree != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1878 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1879 *p = NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1880 line = concat_str(line, tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1881 if (line == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1882 goto theend;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1883 vim_free(tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1884 tofree = line;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1885 SOURCING_LNUM = start_lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1886 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1887 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1888 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1889 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1890
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1891 if (eap->cmdidx == CMD_syntax && STRNCMP(eap->arg, "include ", 8) == 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1892 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1893 // expand filename in "syntax include [@group] filename"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1894 has_expr = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1895 eap->arg = skipwhite(eap->arg + 7);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1896 if (*eap->arg == '@')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1897 eap->arg = skiptowhite(eap->arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1898 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1899
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1900 if ((eap->cmdidx == CMD_global \|\| eap->cmdidx == CMD_vglobal)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1901 && STRLEN(eap->arg) > 4)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1902 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1903 int delim = *eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1904
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1905 p = skip_regexp_ex(eap->arg + 1, delim, TRUE, NULL, NULL, NULL);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1906 if (*p == delim)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1907 cmd_arg = p + 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1908 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1909
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1910 if (eap->cmdidx == CMD_folddoopen \|\| eap->cmdidx == CMD_folddoclosed)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1911 cmd_arg = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1912
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1913 if (cmd_arg != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1914 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1915 exarg_T nea;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1916
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1917 CLEAR_FIELD(nea);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1918 nea.cmd = cmd_arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1919 p = find_ex_command(&nea, NULL, lookup_scriptitem, NULL);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1920 if (nea.cmdidx < CMD_SIZE)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1921 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1922 has_expr = excmd_get_argt(nea.cmdidx) & (EX_XFILE \| EX_EXPAND);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1923 if (has_expr)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1924 eap->arg = skiptowhite(eap->arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1925 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1926 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1927
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1928 if (has_expr && (p = (char_u )strstr((char )eap->arg, "`=")) != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1929 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1930 int count = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1931 char_u *start = skipwhite(line);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1932
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1933 // :cmd xxx`=expr1`yyy`=expr2`zzz
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1934 // PUSHS ":cmd xxx"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1935 // eval expr1
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1936 // PUSHS "yyy"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1937 // eval expr2
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1938 // PUSHS "zzz"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1939 // EXECCONCAT 5
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1940 for (;;)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1941 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1942 if (p > start)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1943 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1944 char_u *val = vim_strnsave(start, p - start);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1945
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1946 generate_PUSHS(cctx, &val);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1947 ++count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1948 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1949 p += 2;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1950 if (compile_expr0(&p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1951 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1952 may_generate_2STRING(-1, TRUE, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1953 ++count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1954 p = skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1955 if (*p != '`')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1956 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1957 emsg(_(e_missing_backtick));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1958 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1959 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1960 start = p + 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1961
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1962 p = (char_u )strstr((char )start, "`=");
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1963 if (p == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1964 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1965 if (*skipwhite(start) != NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1966 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1967 char_u *val = vim_strsave(start);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1968
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1969 generate_PUSHS(cctx, &val);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1970 ++count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1971 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1972 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1973 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1974 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1975 generate_EXECCONCAT(cctx, count);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1976 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1977 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1978 generate_EXEC_copy(cctx, ISN_EXEC, line);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1979
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1980 theend:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1981 if (*nextcmd != NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1982 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1983 // the parser expects a pointer to the bar, put it back
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1984 --nextcmd;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1985 *nextcmd = '\|';
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1986 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1987 vim_free(tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1988
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1989 return nextcmd;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1990 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1991
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1992 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1993 * A script command with heredoc, e.g.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1994 * ruby << EOF
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1995 * command
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1996 * EOF
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1997 * Has been turned into one long line with NL characters by
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1998 * get_function_body():
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1999 * ruby << EOF<NL> command<NL>EOF
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2000 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2001 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2002 compile_script(char_u line, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2003 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2004 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2005 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2006 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2007
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2008 if ((isn = generate_instr(cctx, ISN_EXEC_SPLIT)) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2009 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2010 isn->isn_arg.string = vim_strsave(line);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2011 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2012 return (char_u *)"";
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2013 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2014
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2015
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2016 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2017 * :s/pat/repl/
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2018 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2019 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2020 compile_substitute(char_u arg, exarg_T eap, cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2021 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2022 char_u *cmd = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2023 char_u expr = (char_u )strstr((char *)cmd, "\\=");
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2024
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2025 if (expr != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2026 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2027 int delimiter = *cmd++;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2028
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2029 // There is a \=expr, find it in the substitute part.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2030 cmd = skip_regexp_ex(cmd, delimiter, magic_isset(), NULL, NULL, NULL);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2031 if (cmd[0] == delimiter && cmd[1] == '\\' && cmd[2] == '=')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2032 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2033 garray_T save_ga = cctx->ctx_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2034 char_u *end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2035 int expr_res;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2036 int trailing_error;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2037 int instr_count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2038 isn_T *instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2039 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2040
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2041 cmd += 3;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2042 end = skip_substitute(cmd, delimiter);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2043
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2044 // Temporarily reset the list of instructions so that the jump
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2045 // labels are correct.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2046 cctx->ctx_instr.ga_len = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2047 cctx->ctx_instr.ga_maxlen = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2048 cctx->ctx_instr.ga_data = NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2049 expr_res = compile_expr0(&cmd, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2050 if (end[-1] == NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2051 end[-1] = delimiter;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2052 cmd = skipwhite(cmd);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2053 trailing_error = cmd != delimiter && cmd != NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2054
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2055 if (expr_res == FAIL \|\| trailing_error
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2056 \|\| GA_GROW_FAILS(&cctx->ctx_instr, 1))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2057 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2058 if (trailing_error)
26883 7f150a4936f2 patch 8.2.3970: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	2059 semsg(_(e_trailing_characters_str), cmd);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2060 clear_instr_ga(&cctx->ctx_instr);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2061 cctx->ctx_instr = save_ga;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2062 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2063 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2064
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2065 // Move the generated instructions into the ISN_SUBSTITUTE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2066 // instructions, then restore the list of instructions before
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2067 // adding the ISN_SUBSTITUTE instruction.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2068 instr_count = cctx->ctx_instr.ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2069 instr = cctx->ctx_instr.ga_data;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2070 instr[instr_count].isn_type = ISN_FINISH;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2071
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2072 cctx->ctx_instr = save_ga;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2073 if ((isn = generate_instr(cctx, ISN_SUBSTITUTE)) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2074 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2075 int idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2076
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2077 for (idx = 0; idx < instr_count; ++idx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2078 delete_instr(instr + idx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2079 vim_free(instr);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2080 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2081 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2082 isn->isn_arg.subs.subs_cmd = vim_strsave(arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2083 isn->isn_arg.subs.subs_instr = instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2084
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2085 // skip over flags
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2086 if (*end == '&')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2087 ++end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2088 while (ASCII_ISALPHA(end) \|\| end == '#')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2089 ++end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2090 return end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2091 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2092 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2093
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2094 return compile_exec(arg, eap, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2095 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2096
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2097 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2098 compile_redir(char_u line, exarg_T eap, cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2099 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2100 char_u *arg = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2101 lhs_T *lhs = &cctx->ctx_redir_lhs;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2102
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2103 if (lhs->lhs_name != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2104 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2105 if (STRNCMP(arg, "END", 3) == 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2106 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2107 if (lhs->lhs_append)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2108 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2109 // First load the current variable value.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2110 if (compile_load_lhs_with_index(lhs, lhs->lhs_whole,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2111 cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2112 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2113 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2114
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2115 // Gets the redirected text and put it on the stack, then store it
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2116 // in the variable.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2117 generate_instr_type(cctx, ISN_REDIREND, &t_string);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2118
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2119 if (lhs->lhs_append)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2120 generate_instr_drop(cctx, ISN_CONCAT, 1);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2121
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2122 if (lhs->lhs_has_index)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2123 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2124 // Use the info in "lhs" to store the value at the index in the
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2125 // list or dict.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2126 if (compile_assign_unlet(lhs->lhs_whole, lhs, TRUE,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2127 &t_string, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2128 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2129 }
26729 b969fdb8cd46 patch 8.2.3893: Vim9: many local variables are initialized with an instruction Bram Moolenaar <Bram@vim.org> parents: 26674 diff changeset	2130 else if (generate_store_lhs(cctx, lhs, -1, FALSE) == FAIL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2131 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2132
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2133 VIM_CLEAR(lhs->lhs_name);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2134 VIM_CLEAR(lhs->lhs_whole);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2135 return arg + 3;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2136 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2137 emsg(_(e_cannot_nest_redir));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2138 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2139 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2140
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2141 if (arg[0] == '=' && arg[1] == '>')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2142 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2143 int append = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2144
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2145 // redirect to a variable is compiled
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2146 arg += 2;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2147 if (*arg == '>')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2148 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2149 ++arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2150 append = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2151 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2152 arg = skipwhite(arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2153
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2154 if (compile_assign_lhs(arg, lhs, CMD_redir,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2155 FALSE, FALSE, 1, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2156 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2157 if (need_type(&t_string, lhs->lhs_member_type,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2158 -1, 0, cctx, FALSE, FALSE) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2159 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2160 generate_instr(cctx, ISN_REDIRSTART);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2161 lhs->lhs_append = append;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2162 if (lhs->lhs_has_index)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2163 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2164 lhs->lhs_whole = vim_strnsave(arg, lhs->lhs_varlen_total);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2165 if (lhs->lhs_whole == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2166 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2167 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2168
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2169 return arg + lhs->lhs_varlen_total;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2170 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2171
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2172 // other redirects are handled like at script level
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2173 return compile_exec(line, eap, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2174 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2175
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2176 #if defined(FEAT_QUICKFIX) \|\| defined(PROTO)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2177 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2178 compile_cexpr(char_u line, exarg_T eap, cctx_T *cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2179 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2180 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2181 char_u *p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2182
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2183 isn = generate_instr(cctx, ISN_CEXPR_AUCMD);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2184 if (isn == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2185 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2186 isn->isn_arg.number = eap->cmdidx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2187
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2188 p = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2189 if (compile_expr0(&p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2190 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2191
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2192 isn = generate_instr(cctx, ISN_CEXPR_CORE);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2193 if (isn == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2194 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2195 isn->isn_arg.cexpr.cexpr_ref = ALLOC_ONE(cexprref_T);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2196 if (isn->isn_arg.cexpr.cexpr_ref == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2197 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2198 isn->isn_arg.cexpr.cexpr_ref->cer_cmdidx = eap->cmdidx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2199 isn->isn_arg.cexpr.cexpr_ref->cer_forceit = eap->forceit;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2200 isn->isn_arg.cexpr.cexpr_ref->cer_cmdline = vim_strsave(skipwhite(line));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2201
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2202 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2203 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2204 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2205
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2206 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2207 * Compile "return [expr]".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2208 * When "legacy" is TRUE evaluate [expr] with legacy syntax
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2209 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2210 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2211 compile_return(char_u arg, int check_return_type, int legacy, cctx_T cctx)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2212 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2213 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2214 type_T *stack_type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2215
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2216 if (p != NUL && p != '\|' && *p != '\n')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2217 {
27299 7218ad7a55d2 patch 8.2.4178: Vim9: invalid error for return type of lambda when debugging Bram Moolenaar <Bram@vim.org> parents: 27219 diff changeset	2218 // For a lambda, "return expr" is always used, also when "expr" results
7218ad7a55d2 patch 8.2.4178: Vim9: invalid error for return type of lambda when debugging Bram Moolenaar <Bram@vim.org> parents: 27219 diff changeset	2219 // in a void.
7218ad7a55d2 patch 8.2.4178: Vim9: invalid error for return type of lambda when debugging Bram Moolenaar <Bram@vim.org> parents: 27219 diff changeset	2220 if (cctx->ctx_ufunc->uf_ret_type->tt_type == VAR_VOID
7218ad7a55d2 patch 8.2.4178: Vim9: invalid error for return type of lambda when debugging Bram Moolenaar <Bram@vim.org> parents: 27219 diff changeset	2221 && (cctx->ctx_ufunc->uf_flags & FC_LAMBDA) == 0)
27219 47dbeda35910 patch 8.2.4138: Vim9: no error for return with argument when invalid Bram Moolenaar <Bram@vim.org> parents: 27084 diff changeset	2222 {
47dbeda35910 patch 8.2.4138: Vim9: no error for return with argument when invalid Bram Moolenaar <Bram@vim.org> parents: 27084 diff changeset	2223 emsg(_(e_returning_value_in_function_without_return_type));
47dbeda35910 patch 8.2.4138: Vim9: no error for return with argument when invalid Bram Moolenaar <Bram@vim.org> parents: 27084 diff changeset	2224 return NULL;
47dbeda35910 patch 8.2.4138: Vim9: no error for return with argument when invalid Bram Moolenaar <Bram@vim.org> parents: 27084 diff changeset	2225 }
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2226 if (legacy)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2227 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2228 int save_flags = cmdmod.cmod_flags;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2229
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2230 generate_LEGACY_EVAL(cctx, p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2231 if (need_type(&t_any, cctx->ctx_ufunc->uf_ret_type, -1,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2232 0, cctx, FALSE, FALSE) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2233 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2234 cmdmod.cmod_flags \|= CMOD_LEGACY;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2235 (void)skip_expr(&p, NULL);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2236 cmdmod.cmod_flags = save_flags;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2237 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2238 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2239 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2240 // compile return argument into instructions
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2241 if (compile_expr0(&p, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2242 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2243 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2244
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2245 if (cctx->ctx_skip != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2246 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2247 // "check_return_type" with uf_ret_type set to &t_unknown is used
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2248 // for an inline function without a specified return type. Set the
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2249 // return type here.
26935 ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	2250 stack_type = get_type_on_stack(cctx, 0);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2251 if ((check_return_type && (cctx->ctx_ufunc->uf_ret_type == NULL
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2252 \|\| cctx->ctx_ufunc->uf_ret_type == &t_unknown
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2253 \|\| cctx->ctx_ufunc->uf_ret_type == &t_any))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2254 \|\| (!check_return_type
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2255 && cctx->ctx_ufunc->uf_ret_type == &t_unknown))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2256 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2257 cctx->ctx_ufunc->uf_ret_type = stack_type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2258 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2259 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2260 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2261 if (need_type(stack_type, cctx->ctx_ufunc->uf_ret_type, -1,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2262 0, cctx, FALSE, FALSE) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2263 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2264 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2265 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2266 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2267 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2268 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2269 // "check_return_type" cannot be TRUE, only used for a lambda which
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2270 // always has an argument.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2271 if (cctx->ctx_ufunc->uf_ret_type->tt_type != VAR_VOID
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2272 && cctx->ctx_ufunc->uf_ret_type->tt_type != VAR_UNKNOWN)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2273 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2274 emsg(_(e_missing_return_value));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2275 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2276 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2277
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2278 // No argument, return zero.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2279 generate_PUSHNR(cctx, 0);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2280 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2281
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2282 // Undo any command modifiers.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2283 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2284
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2285 if (cctx->ctx_skip != SKIP_YES && generate_instr(cctx, ISN_RETURN) == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2286 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2287
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2288 // "return val \| endif" is possible
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2289 return skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2290 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2291
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2292 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2293 * Check if the separator for a :global or :substitute command is OK.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2294 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2295 int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2296 check_global_and_subst(char_u cmd, char_u arg)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2297 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2298 if (arg == cmd + 1 && vim_strchr((char_u )":-.", arg) != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2299 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2300 semsg(_(e_separator_not_supported_str), arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2301 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2302 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2303 if (VIM_ISWHITE(cmd[1]))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2304 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2305 semsg(_(e_no_white_space_allowed_before_separator_str), cmd);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2306 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2307 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2308 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2309 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2310
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2311
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2312 #endif // defined(FEAT_EVAL)

Mercurial > vim

annotate src/vim9cmds.c @ 27503:4cea92e99a5a v8.2.4279