vim: src/vim9cmds.c annotate

annotate src/vim9cmds.c @ 30269:42a6345b91fd v9.0.0470

patch 9.0.0470: in :def function all closures in loop get the same variables Commit: https://github.com/vim/vim/commit/b46c083a5ed9e0c4ac5f3aec577946dcbe8c9dc5 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Sep 15 17:19:37 2022 +0100 patch 9.0.0470: in :def function all closures in loop get the same variables Problem: In a :def function all closures in a loop get the same variables. Solution: When in a loop and a closure refers to a variable declared in the loop, prepare for making a copy of variables for each closure.

author	Bram Moolenaar <Bram@vim.org>
date	Thu, 15 Sep 2022 18:30:04 +0200
parents	6472aa128651
children	61a688be1899

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 {
29744 1e9ee1b61d6d patch 9.0.0212: invalid memory access when compiling :unlet Bram Moolenaar <Bram@vim.org> parents: 29742 diff changeset	95 if (*name == NUL)
1e9ee1b61d6d patch 9.0.0212: invalid memory access when compiling :unlet Bram Moolenaar <Bram@vim.org> parents: 29742 diff changeset	96 {
1e9ee1b61d6d patch 9.0.0212: invalid memory access when compiling :unlet Bram Moolenaar <Bram@vim.org> parents: 29742 diff changeset	97 semsg(_(e_argument_required_for_str), "unlet");
1e9ee1b61d6d patch 9.0.0212: invalid memory access when compiling :unlet Bram Moolenaar <Bram@vim.org> parents: 29742 diff changeset	98 return FAIL;
1e9ee1b61d6d patch 9.0.0212: invalid memory access when compiling :unlet Bram Moolenaar <Bram@vim.org> parents: 29742 diff changeset	99 }
1e9ee1b61d6d patch 9.0.0212: invalid memory access when compiling :unlet Bram Moolenaar <Bram@vim.org> parents: 29742 diff changeset	100
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 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	102 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	103 // "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	104 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	105 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 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	107 return FAIL;
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 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	110 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	111
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 * 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	114 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 compile_unlet(
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 lval_T *lvp,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 char_u *name_end,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 exarg_T *eap,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	120 int deep UNUSED,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	121 void *coookie)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 cctx_T *cctx = coookie;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	124 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	125 int cc = *name_end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 int ret = OK;
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 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	129 return OK;
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 *name_end = NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 if (*p == '$')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	134 // :unlet $ENV_VAR
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	135 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	136 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 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	138 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 lhs_T lhs;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	140
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 // 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	142 // 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	143 // unlet {list}[idx]
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 // 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	145 //
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	146 // 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	147 //
28281 bd1dcc605e58 patch 8.2.4666: Vim9: assignment not recognized in skipped block Bram Moolenaar <Bram@vim.org> parents: 28179 diff changeset	148 ret = compile_lhs(p, &lhs, CMD_unlet, FALSE, FALSE, 0, cctx);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	149
26984 8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	150 // 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	151 // list or dict.
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	152 if (ret == OK)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	153 {
26984 8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	154 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	155 {
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	156 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	157 ret = FAIL;
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	158 }
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	159 else
8dc4782b60ff patch 8.2.4021: missing part of the :import changes Bram Moolenaar <Bram@vim.org> parents: 26935 diff changeset	160 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	161 }
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 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	164 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 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	166 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 ret = FAIL;
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 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 // 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	172 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	173 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	174
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	175 *name_end = cc;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 return ret;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	178
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	179 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 * 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	181 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 compile_lock_unlock(
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 lval_T *lvp,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	185 char_u *name_end,
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	186 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	187 int deep,
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 void *coookie)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	190 cctx_T *cctx = coookie;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 int cc = *name_end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 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	193 int ret = OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 size_t len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	195 char_u *buf;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 isntype_T isn = ISN_EXEC;
29742 2da1753e6a4a patch 9.0.0211: invalid memory access when compiling :lockvar Bram Moolenaar <Bram@vim.org> parents: 28598 diff changeset	197 char *cmd = eap->cmdidx == CMD_lockvar ? "lockvar" : "unlockvar";
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	198
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	199 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	200 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	201
29742 2da1753e6a4a patch 9.0.0211: invalid memory access when compiling :lockvar Bram Moolenaar <Bram@vim.org> parents: 28598 diff changeset	202 if (*p == NUL)
2da1753e6a4a patch 9.0.0211: invalid memory access when compiling :lockvar Bram Moolenaar <Bram@vim.org> parents: 28598 diff changeset	203 {
2da1753e6a4a patch 9.0.0211: invalid memory access when compiling :lockvar Bram Moolenaar <Bram@vim.org> parents: 28598 diff changeset	204 semsg(_(e_argument_required_for_str), cmd);
2da1753e6a4a patch 9.0.0211: invalid memory access when compiling :lockvar Bram Moolenaar <Bram@vim.org> parents: 28598 diff changeset	205 return FAIL;
2da1753e6a4a patch 9.0.0211: invalid memory access when compiling :lockvar Bram Moolenaar <Bram@vim.org> parents: 28598 diff changeset	206 }
2da1753e6a4a patch 9.0.0211: invalid memory access when compiling :lockvar Bram Moolenaar <Bram@vim.org> parents: 28598 diff changeset	207
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	208 // 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	209 if (p[1] != ':')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	210 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 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	212
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 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	214 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	215 char_u *s = p;
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 if (end != '.' && end != '[')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	219 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	220 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	221 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	222
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	223 // 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	224 // 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	225 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	226 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	227 isn = ISN_LOCKUNLOCK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	228 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	229 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	230
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	231 // 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	232 *name_end = NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	233 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	234 buf = alloc(len);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	235 if (buf == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	236 ret = FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	237 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	238 {
27398 472bb63632bd patch 8.2.4227: Vim9: using "lockvar!" in :def function does not work Bram Moolenaar <Bram@vim.org> parents: 27394 diff changeset	239 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	240 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	241 else
472bb63632bd patch 8.2.4227: Vim9: using "lockvar!" in :def function does not work Bram Moolenaar <Bram@vim.org> parents: 27394 diff changeset	242 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	243 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	244
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 vim_free(buf);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	246 *name_end = cc;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	247 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	248 return ret;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	249 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	250
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	251 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	252 * 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	253 * "arg" points to "var".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	254 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	255 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	256 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	257 {
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	258 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	259 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	260
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 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	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 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	264 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	265 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	266 {
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	267 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	268 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	269 }
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	270 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	271 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	272 }
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	273
69a48bcd1d80 patch 8.2.4225: Vim9: depth argument of :lockvar not parsed in :def function Bram Moolenaar <Bram@vim.org> parents: 27299 diff changeset	274 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	275 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	276 cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	277 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	278 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	279
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	280 /*
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	281 * Generate a jump to the ":endif"/":endfor"/":endwhile"/":finally"/":endtry".
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	282 * "funcref_idx" is used for JUMP_WHILE_FALSE
26662 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 static int
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	285 compile_jump_to_end(
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	286 endlabel_T **el,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	287 jumpwhen_T when,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	288 int funcref_idx,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	289 cctx_T *cctx)
26662 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 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	293
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	294 if (endlabel == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	295 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	296 endlabel->el_next = *el;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	297 *el = endlabel;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	298 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	299
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	300 if (when == JUMP_WHILE_FALSE)
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	301 generate_WHILE(cctx, funcref_idx);
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	302 else
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	303 generate_JUMP(cctx, when, 0);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	304 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	305 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	306
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	307 static void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	308 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	309 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	310 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	311
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	312 while (*el != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	313 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 endlabel_T cur = (el);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	315 isn_T *isn;
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 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	318 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	319 *el = cur->el_next;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	320 vim_free(cur);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	321 }
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	324 static void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	325 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	326 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	327 while (*el != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	329 endlabel_T cur = (el);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	330
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	331 *el = cur->el_next;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	332 vim_free(cur);
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
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 * 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	338 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	339 static scope_T *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	340 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	341 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	342 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	343
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	345 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	346 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	347 cctx->ctx_scope = scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	348 scope->se_type = type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	349 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	350 return scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	351 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	352
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	353 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	354 * 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	355 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	356 void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	357 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	358 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	359 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	360
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	361 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	362 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	363 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	364 return;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	365 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	366 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	367 switch (scope->se_type)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	368 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	369 case IF_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	370 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	371 case FOR_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	372 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	373 case WHILE_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	374 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	375 case TRY_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	376 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	377 case NO_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	378 case BLOCK_SCOPE:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	379 break;
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 vim_free(scope);
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	384 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	385 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	386 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	387 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	388
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	389 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	390 && ((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	391 == ISN_CMDMOD)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	392 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	393 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	394 return TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	395 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	396 return FALSE;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	399 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	400 * compile "if expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	401 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	402 * "if expr" Produces instructions:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	403 * 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	404 * JUMP_IF_FALSE end
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	405 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	406 * end:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	407 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	408 * "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	409 * 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	410 * JUMP_IF_FALSE else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	411 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	412 * JUMP_ALWAYS end
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	413 * else:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	414 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	415 * end:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	416 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	417 * "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	418 * 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	419 * JUMP_IF_FALSE elseif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	420 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	421 * JUMP_ALWAYS end
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	422 * elseif:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	423 * 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	424 * JUMP_IF_FALSE else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	425 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	426 * JUMP_ALWAYS end
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	427 * else:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	428 * ... body ...
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	429 * end:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	430 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	431 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	432 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	433 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	434 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	435 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	436 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	437 scope_T *scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	438 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	439 ppconst_T ppconst;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	440
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	441 CLEAR_FIELD(ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	442 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	443 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	444 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	445 return NULL;
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 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	448 {
26883 7f150a4936f2 patch 8.2.3970: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	449 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	450 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	451 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	452 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	453 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	454 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	455 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	456 int error = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	457 int v;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	458
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	459 // 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	460 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	461 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	462 if (error)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	463 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	464 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	465 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	466 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	467 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	468 // 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	469 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	470 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	471 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	472 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	473 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	474 }
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 // 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	477 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	478
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	479 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	480 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	481 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	482 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	483 // "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	484 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	485
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	486 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	487 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	488 // "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	489 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	490 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	491 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	492 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	493 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	494
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	495 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	496 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	497 && skip_save != SKIP_YES)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	498 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	499 // 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	500 // 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	501 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	502 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	503 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	504 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	505 #endif
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 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	508 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	509
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	510 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	511 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	512 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	513 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	514 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	515 int instr_count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	516 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	517 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	518 ppconst_T ppconst;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	519 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	520
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	521 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	522 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	523 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	524 return NULL;
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 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	527 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	528 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	529
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	530 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	531 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	532 // 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	533 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	534 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	535 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	536 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	537 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	538 // 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	539 // 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	540 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	541
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	542 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	543 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	544 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	545
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	546 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	547 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	548 int moved_cmdmod = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	549 int saved_debug = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	550 isn_T debug_isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	551
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	552 // 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	553 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	554 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	555 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	556 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	557 ((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	558 ((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	559 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	560 moved_cmdmod = TRUE;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	563 // 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	564 // ISN_FOR instruction.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	565 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	566 && ((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	567 .isn_type == ISN_DEBUG)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	568 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	569 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	570 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	571 saved_debug = TRUE;
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 if (compile_jump_to_end(&scope->se_u.se_if.is_end_label,
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	575 JUMP_ALWAYS, 0, cctx) == FAIL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	576 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	577 // 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	578 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	579 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	580
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	581 if (moved_cmdmod)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	582 ++instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	583
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	584 if (saved_debug)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	585 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	586 // 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	587 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	588 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	589 ((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	590 ++instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	591 }
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	594 // 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	595 CLEAR_FIELD(ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	596 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	597 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	598 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	599 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	600 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	601 // 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	602 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	603 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	604 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	605 // 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	606 generate_instr_debug(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	607 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	608
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	609 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	610 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	611 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	612 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	613 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	614 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	615 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	616 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	617 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	618 clear_ppconst(&ppconst);
26883 7f150a4936f2 patch 8.2.3970: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	619 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	620 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	621 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	622 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	623 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	624 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	625 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	626 int error = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	627 int v;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	628
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	629 // 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	630 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	631 if (error)
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 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	634 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	635 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	636 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	637 clear_ppconst(&ppconst);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	638 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	639 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	640 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	641 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	642 // 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	643 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	644 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	645 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	646 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	647 return NULL;
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 // 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	650 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	651
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	652 // "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	653 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	654 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	655 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	656
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	657 return p;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	660 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	661 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	662 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	663 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	664 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	665 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	666 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	667
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	668 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	669 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	670 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	671 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	672 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	673 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	674 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	675 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	676 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	677
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	678 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	679 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	680 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	681 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	682 && ((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	683 .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	684 // 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	685 // profiling
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	686 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	687 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	688 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	689 // 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	690 // "else" for profiling
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	691 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	692 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	693 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	694 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	695 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	696 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	697 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	698
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	699 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	700 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	701 // 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	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 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	704 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	705 && compile_jump_to_end(&scope->se_u.se_if.is_end_label,
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	706 JUMP_ALWAYS, 0, cctx) == FAIL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	707 return NULL;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	710 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	711 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	712 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	713 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	714 // 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	715 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	716 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	717 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	718 }
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	721 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	722 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	723 }
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 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	726 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	727
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	728 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	729 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	730 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	731 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	732 ifscope_T *ifscope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	733 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	734 isn_T *isn;
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 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	737 return NULL;
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 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	740 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	741 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	742 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	743 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	744 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	745 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	746 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	747 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	748
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	749 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	750 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	751 // 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	752 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	753 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	754 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	755 // 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	756 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	757
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	758 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	759 // 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	760 // in is skipped
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	761 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	762 && 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	763 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	764 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	765 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	766 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	767 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	768 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	769
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	770 // 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	771 // 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	772 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	773
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	774 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	775 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	776 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	777
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 * 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	780 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	781 * Produces instructions:
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	782 * STORE -1 in loop-idx Set index to -1
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	783 * EVAL expr Result of "expr" on top of stack
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	784 * 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	785 * - 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	786 * - otherwise get item from list and push it
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	787 * - store ec_funcrefs in var "loop-idx" + 1
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	788 * 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	789 * ... body ...
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	790 * ENDLOOP funcref-idx off count Only if closure uses local var
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	791 * JUMP top Jump back to repeat
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	792 * end: DROP Drop the result of "expr"
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	793 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	794 * 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	795 * 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	796 * 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	797 * 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	798 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	799 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	800 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	801 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	802 char_u *arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	803 char_u *arg_end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	804 char_u *name = NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	805 char_u *p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	806 char_u *wp;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	807 int var_count = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	808 int var_list = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	809 int semicolon = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	810 size_t varlen;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	811 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	812 scope_T *scope;
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	813 forscope_T *forscope;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	814 lvar_T *loop_lvar; // loop iteration variable
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	815 lvar_T *funcref_lvar;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	816 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	817 type_T *vartype;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	818 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	819 int idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	820 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	821
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	822 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	823 if (p == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	824 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	825 if (var_count == 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	826 var_count = 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	827 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	828 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	829
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	830 // consume "in"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	831 wp = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	832 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	833 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	834 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	835 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	836 if (*p == ':' && wp != p)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	837 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	838 else
26887 612339679616 patch 8.2.3972: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26883 diff changeset	839 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	840 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	841 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	842 wp = p + 2;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	843 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	844 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	845
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	846 // 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	847 // 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	848 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	849 && ((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	850 .isn_type == ISN_DEBUG)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	851 {
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	852 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	853 .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	854 }
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 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	857 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	858 return NULL;
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	859 forscope = &scope->se_u.se_for;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	860
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	861 // 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	862 // to -1.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	863 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	864 if (loop_lvar == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	865 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	866 drop_scope(cctx);
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	867 return NULL; // out of memory
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 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	870
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	871 // Reserve a variable to store ec_funcrefs.ga_len, used in ISN_ENDLOOP.
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	872 // The variable index is always the loop var index plus one.
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	873 // It is not used when no closures are encountered, we don't know yet.
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	874 funcref_lvar = reserve_local(cctx, (char_u *)"", 0, FALSE, &t_number);
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	875 if (funcref_lvar == NULL)
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	876 {
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	877 drop_scope(cctx);
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	878 return NULL; // out of memory
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	879 }
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	880
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	881 // 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	882 arg = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	883 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	884 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	885 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	886 return NULL;
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 arg_end = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	889
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	890 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	891 {
26771 fc859aea8cec patch 8.2.3914: various spelling mistakes in comments Bram Moolenaar <Bram@vim.org> parents: 26729 diff changeset	892 // 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	893 // 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	894 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	895 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	896 && 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	897 && 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	898 && 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	899 && 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	900 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	901 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	902 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	903 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	904 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	905 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	906
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	907 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	908 item_type = &t_string;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	909 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	910 item_type = &t_number;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	911 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	912 && 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	913 {
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 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	916 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	917 && 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	918 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	919 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	920
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	921 // 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	922 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	923
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	924 // "for_end" is set when ":endfor" is found
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	925 forscope->fs_top_label = current_instr_idx(cctx);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	926
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	927 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	928 {
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	929 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	930 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	931
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	932 // 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	933 // 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	934 // 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	935 // 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	936 // 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	937 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	938 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	939 ++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	940 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	941 }
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	942
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	943 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	944
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	945 arg = arg_start;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	946 if (var_list)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	947 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	948 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	949 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	950
26935 ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	951 // 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	952 --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	953
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	954 // 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	955 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	956 {
26935 ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	957 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	958
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	959 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	960 {
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	961 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	962 return NULL;
ccb9be1cdd71 patch 8.2.3996: Vim9: type checking lacks information about declared type Bram Moolenaar <Bram@vim.org> parents: 26905 diff changeset	963 }
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	964 }
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	967 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	968 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	969 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	970 int opt_flags = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	971 int vimvaridx = -1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 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	973 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	974 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	975
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	976 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	977 varlen = p - arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	978 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	979 if (name == NULL)
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 (*p == ':')
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 p = skipwhite(p + 1);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	984 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	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 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	988 &vimvaridx, &type, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	989 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	990 if (dest != dest_local)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	991 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	992 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	993 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	994 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	995 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	996 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	997 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	998 // 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	999 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	1000 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1002 else
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 // 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	1005 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	1006 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1007 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	1008 goto failed;
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 (!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	1012 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 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	1014 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1015 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	1016 goto failed;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1019 // 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	1020 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	1021 where.wt_variable = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 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	1023 lhs_type = item_type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1024 else if (item_type != &t_unknown
27515 1aff400b819e patch 8.2.4285: Vim9: type of item in for loop not checked properly Bram Moolenaar <Bram@vim.org> parents: 27398 diff changeset	1025 && need_type_where(item_type, lhs_type, -1,
1aff400b819e patch 8.2.4285: Vim9: type of item in for loop not checked properly Bram Moolenaar <Bram@vim.org> parents: 27398 diff changeset	1026 where, cctx, FALSE, FALSE) == FAIL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1027 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1028 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	1029 if (var_lvar == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1030 // 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	1031 goto failed;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1032
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1033 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	1034 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	1035 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	1036 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1037
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038 if (p == ',' \|\| p == ';')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1039 ++p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1040 arg = skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1041 vim_free(name);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1042 }
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1043
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1044 forscope->fs_funcref_idx = funcref_lvar->lv_idx;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1045 // remember the number of variables and closures, used in :endfor
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1046 forscope->fs_local_count = cctx->ctx_locals.ga_len;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1047 forscope->fs_closure_count = cctx->ctx_closure_count;
26662 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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1050 return arg_end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1051
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1052 failed:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1053 vim_free(name);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1054 drop_scope(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1055 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1056 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1057
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1058 /*
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1059 * At :endfor and :endwhile: Generate an ISN_ENDLOOP instruction if any
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1060 * variable was declared that could be used by a new closure.
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1061 */
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1062 static int
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1063 compile_loop_end(
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1064 int prev_local_count,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1065 int prev_closure_count,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1066 int funcref_idx,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1067 cctx_T *cctx)
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1068 {
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1069 if (cctx->ctx_locals.ga_len > prev_local_count
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1070 && cctx->ctx_closure_count > prev_closure_count)
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1071 return generate_ENDLOOP(cctx, funcref_idx, prev_local_count);
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1072 return OK;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1073 }
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1074
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1075 /*
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1076 * compile "endfor"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1077 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1078 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1079 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	1080 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1081 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	1082 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	1083 forscope_T *forscope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1084 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1085
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1086 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1087 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1088
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1089 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	1090 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1091 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	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 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	1095 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	1096 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	1097 {
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1098 // Handle the case that any local variables were declared that might be
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1099 // used in a closure.
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1100 if (compile_loop_end(forscope->fs_local_count,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1101 forscope->fs_closure_count,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1102 forscope->fs_funcref_idx,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1103 cctx) == FAIL)
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1104 return NULL;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1105
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1106 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	1107
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1108 // 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	1109 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	1110
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1111 // 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	1112 // 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	1113 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	1114 + (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	1115 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	1116
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1117 // 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	1118 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	1119
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1120 // 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	1121 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	1122 return NULL;
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 vim_free(scope);
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 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1128 }
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 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1131 * compile "while expr"
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 * Produces instructions:
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1134 * top: EVAL expr Push result of "expr"
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1135 * WHILE funcref-idx end Jump if false
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1136 * ... body ...
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1137 * ENDLOOP funcref-idx off count only if closure uses local var
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1138 * JUMP top Jump back to repeat
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1139 * end:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1140 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1141 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1142 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1143 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	1144 {
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1145 char_u *p = arg;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1146 scope_T *scope;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1147 whilescope_T *whilescope;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1148 lvar_T *funcref_lvar;
26662 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 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	1151 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1152 return NULL;
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1153 whilescope = &scope->se_u.se_while;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1154
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1155 // "endwhile" jumps back here, one before when profiling or using cmdmods
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1156 whilescope->ws_top_label = current_instr_idx(cctx);
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1157
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1158 // Reserve a variable to store ec_funcrefs.ga_len, used in ISN_ENDLOOP.
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1159 // It is not used when no closures are encountered, we don't know yet.
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1160 funcref_lvar = reserve_local(cctx, (char_u *)"", 0, FALSE, &t_number);
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1161 if (funcref_lvar == NULL)
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1162 {
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1163 drop_scope(cctx);
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1164 return NULL; // out of memory
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1165 }
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1166 whilescope->ws_funcref_idx = funcref_lvar->lv_idx;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1167 // remember the number of variables and closures, used in :endwhile
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1168 whilescope->ws_local_count = cctx->ctx_locals.ga_len;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1169 whilescope->ws_closure_count = cctx->ctx_closure_count;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1170
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1171 // compile "expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1172 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	1173 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1174
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1175 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	1176 {
26883 7f150a4936f2 patch 8.2.3970: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	1177 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	1178 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1179 }
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 (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	1182 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1183 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	1184 return FAIL;
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 // 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	1187 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1188
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1189 // "while_end" is set when ":endwhile" is found
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1190 if (compile_jump_to_end(&whilescope->ws_end_label,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1191 JUMP_WHILE_FALSE, funcref_lvar->lv_idx, cctx) == FAIL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1192 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1193 }
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 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1196 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1197
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1198 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1199 * compile "endwhile"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1200 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1201 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1202 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	1203 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1204 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	1205 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	1206
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1207 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1208 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1209 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	1210 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1211 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	1212 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1213 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1214 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	1215 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	1216 {
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1217 whilescope_T *whilescope = &scope->se_u.se_while;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1218
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1219 // Handle the case that any local variables were declared that might be
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1220 // used in a closure.
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1221 if (compile_loop_end(whilescope->ws_local_count,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1222 whilescope->ws_closure_count,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1223 whilescope->ws_funcref_idx,
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1224 cctx) == FAIL)
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1225 return NULL;
42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1226
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1227 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	1228
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1229 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1230 // 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	1231 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	1232 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1233
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1234 // 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	1235 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	1236
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1237 // 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	1238 // 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	1239 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	1240 instr->ga_len, cctx);
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1243 vim_free(scope);
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 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1246 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1247
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 * compile "continue"
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 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1252 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	1253 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1254 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	1255 int try_scopes = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1256 int loop_label;
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 for (;;)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1259 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1260 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1261 {
26887 612339679616 patch 8.2.3972: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26883 diff changeset	1262 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	1263 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1264 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1265 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	1266 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1267 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	1268 break;
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 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	1271 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1272 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	1273 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1274 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1275 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	1276 ++try_scopes;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 scope = scope->se_outer;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1278 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1279
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1280 if (try_scopes > 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1281 // 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	1282 // "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	1283 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	1284 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1285 // 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	1286 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	1287
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1288 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1289 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1290
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1291 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1292 * compile "break"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1293 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1294 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1295 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	1296 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1297 scope_T *scope = cctx->ctx_scope;
28035 9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1298 int try_scopes = 0;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1299 endlabel_T **el;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1300
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1301 for (;;)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1302 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1303 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1304 {
26887 612339679616 patch 8.2.3972: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26883 diff changeset	1305 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	1306 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1307 }
28035 9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1308 if (scope->se_type == FOR_SCOPE)
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1309 {
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1310 el = &scope->se_u.se_for.fs_end_label;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1311 break;
28035 9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1312 }
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1313 if (scope->se_type == WHILE_SCOPE)
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1314 {
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1315 el = &scope->se_u.se_while.ws_end_label;
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1316 break;
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1317 }
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1318 if (scope->se_type == TRY_SCOPE)
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1319 ++try_scopes;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1320 scope = scope->se_outer;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1321 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1322
28035 9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1323 if (try_scopes > 0)
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1324 // Inside one or more try/catch blocks we first need to jump to the
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1325 // "finally" or "endtry" to cleanup. Then come to the next JUMP
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1326 // intruction, which we don't know the index of yet.
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1327 generate_TRYCONT(cctx, try_scopes, cctx->ctx_instr.ga_len + 1);
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1328
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1329 // Jump to the end of the FOR or WHILE loop. The instruction index will be
9f8535cf6f1b patch 8.2.4542: Vim9: "break" inside try/catch not handled correctly Bram Moolenaar <Bram@vim.org> parents: 27891 diff changeset	1330 // filled in later.
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1331 if (compile_jump_to_end(el, JUMP_ALWAYS, 0, cctx) == FAIL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1332 return FAIL;
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 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1335 }
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 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1338 * compile "{" start of block
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 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1341 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	1342 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1343 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	1344 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1345 return skipwhite(arg + 1);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1346 }
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 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1349 * 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	1350 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1351 void
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1352 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	1353 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1354 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	1355
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1356 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	1357 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	1358 vim_free(scope);
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
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 * Compile "try".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1363 * 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	1364 * finally.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1365 * 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	1366 * 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	1367 *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1368 * "try"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1369 * 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	1370 * ... try block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1371 * "throw {exception}"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1372 * EVAL {exception}
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1373 * THROW create exception
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1374 * ... try block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1375 * " catch {expr}"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1376 * JUMP -> finally
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1377 * catch1: PUSH exception
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1378 * EVAL {expr}
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1379 * MATCH
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1380 * JUMP nomatch -> catch2
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1381 * CATCH remove exception
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1382 * ... catch block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1383 * " catch"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1384 * JUMP -> finally
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1385 * catch2: CATCH remove exception
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1386 * ... catch block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1387 * " finally"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1388 * finally:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1389 * ... finally block
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1390 * " endtry"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1391 * 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	1392 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1393 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1394 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	1395 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1396 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	1397 scope_T *try_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1398 scope_T *scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1399
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1400 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1401 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1402
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1403 // 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	1404 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	1405 if (try_scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1406 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1407
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1408 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	1409 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1410 isn_T *isn;
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 // "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	1413 // 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	1414 // "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	1415 // "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	1416 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	1417 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	1418 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	1419 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	1420 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	1421 return NULL;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1424 // 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	1425 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	1426 if (scope == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1427 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1428
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1429 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1430 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1431
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1432 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1433 * Compile "catch {expr}".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1434 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1435 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1436 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	1437 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1438 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	1439 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	1440 char_u *p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1441 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1442
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1443 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1444 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1445
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1446 // 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	1447 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	1448 compile_endblock(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1449 scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1450
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1451 // 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	1452 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	1453 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1454 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	1455 return NULL;
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 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	1459 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1460 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	1461 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1462 }
27084 6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1463 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	1464 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	1465
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1466 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	1467 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1468 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1469 // 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	1470 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	1471 && instr->ga_len > 0
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1472 && ((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	1473 .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	1474 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1475 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1476 // 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	1477 if (compile_jump_to_end(&scope->se_u.se_try.ts_end_label,
30269 42a6345b91fd patch 9.0.0470: in :def function all closures in loop get the same variables Bram Moolenaar <Bram@vim.org> parents: 30168 diff changeset	1478 JUMP_ALWAYS, 0, cctx) == FAIL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1479 return NULL;
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 // 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	1482 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	1483 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	1484 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	1485 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	1486 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1487 // 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	1488 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	1489 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	1490 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1491 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1492 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	1493 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1494 // 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	1495 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	1496 // 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	1497 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	1498 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1499 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1500 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	1501 generate_instr_debug(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1502 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1503
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1504 p = skipwhite(arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1505 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	1506 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1507 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	1508 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	1509 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1510 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1511 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1512 char_u *end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1513 char_u *pat;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1514 char_u *tofree = NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1515 int dropped = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1516 int len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1517
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1518 // 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	1519 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	1520
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1521 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	1522 if (end != p)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1523 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1524 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	1525 vim_free(tofree);
27583 d4921b91542c patch 8.2.4318: various comment and indent mistakes, returning wrong zero Bram Moolenaar <Bram@vim.org> parents: 27515 diff changeset	1526 return NULL;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1527 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1528 if (tofree == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1529 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	1530 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1531 len = (int)(end - tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1532 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	1533 vim_free(tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1534 p += len + 2 + dropped;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1535 if (pat == NULL)
27583 d4921b91542c patch 8.2.4318: various comment and indent mistakes, returning wrong zero Bram Moolenaar <Bram@vim.org> parents: 27515 diff changeset	1536 return NULL;
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1537 if (generate_PUSHS(cctx, &pat) == FAIL)
27583 d4921b91542c patch 8.2.4318: various comment and indent mistakes, returning wrong zero Bram Moolenaar <Bram@vim.org> parents: 27515 diff changeset	1538 return NULL;
26662 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 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	1541 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1542
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1543 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	1544 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	1545 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1546 }
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 (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	1549 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1550
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1551 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	1552 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1553 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1554 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1555
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1556 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1557 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	1558 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1559 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	1560 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	1561 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1562 int this_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1563
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1564 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1565 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1566
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1567 // 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	1568 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	1569 compile_endblock(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1570 scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1571
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1572 // 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	1573 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	1574 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1575 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	1576 return NULL;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1579 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	1580 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1581 // 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	1582 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	1583 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	1584 {
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1585 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	1586 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1587 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1588
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1589 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	1590 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1591 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	1592 && ((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	1593 .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	1594 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1595 // 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	1596 --this_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1597
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1598 // 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	1599 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	1600 .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	1601 --this_instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1602 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1603 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1604
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1605 // 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	1606 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	1607 this_instr, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1608
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1609 // 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	1610 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	1611 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	1612 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	1613 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	1614 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1615 // 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	1616 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	1617 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	1618 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	1619 }
27084 6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1620 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	1621 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	1622 return NULL;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1625 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1626 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1627
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1628 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1629 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	1630 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1631 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	1632 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	1633 isn_T *try_isn;
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 if (misplaced_cmdmod(cctx))
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1636 return NULL;
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 // 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	1639 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	1640 compile_endblock(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1641 scope = cctx->ctx_scope;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1642
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1643 // 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	1644 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	1645 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1646 if (scope == NULL)
26865 bce848ec8b1b patch 8.2.3961: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26857 diff changeset	1647 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	1648 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	1649 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	1650 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	1651 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	1652 else
26857 2aeea8611342 patch 8.2.3957: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26771 diff changeset	1653 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	1654 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1655 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1656
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1657 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	1658 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	1659 {
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	1660 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	1661 && 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	1662 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1663 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	1664 return NULL;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1667 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1668 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	1669 && ((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	1670 .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	1671 // 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	1672 // the exception is rethrown.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1673 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1674 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1675
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1676 // 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	1677 // done by ":finally".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1678 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	1679 instr->ga_len, cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1680
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1681 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	1682 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1683 // 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	1684 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	1685 + 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	1686 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	1687 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1688 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1689
27084 6fc63c6a7ee7 patch 8.2.4071: Vim9: no detection of return in try/endtry Bram Moolenaar <Bram@vim.org> parents: 26984 diff changeset	1690 // 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	1691 // 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	1692 // 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	1693 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	1694 && (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	1695 \|\| !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	1696 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	1697
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1698 compile_endblock(cctx);
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 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	1701 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1702 // 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	1703 // 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	1704 try_isn->isn_arg.tryref.try_ref->try_endtry = instr->ga_len;
28169 bef82285dda0 patch 8.2.4610: some conditions are always true Bram Moolenaar <Bram@vim.org> parents: 28095 diff changeset	1705 if (generate_instr(cctx, ISN_ENDTRY) == NULL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1706 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1707 #ifdef FEAT_PROFILE
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1708 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	1709 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	1710 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1711 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1712 return arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1713 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1714
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1715 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1716 * compile "throw {expr}"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1717 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1718 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1719 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	1720 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1721 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	1722
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1723 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	1724 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1725 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	1726 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1727 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	1728 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1729 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	1730 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1731
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1732 return p;
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
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1735 /*
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1736 * Compile an expression or function call.
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1737 */
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1738 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1739 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	1740 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1741 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1742 int name_only;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1743 long lnum = SOURCING_LNUM;
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 // 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	1746 // 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	1747 // 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	1748 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	1749
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1750 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	1751 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1752
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1753 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	1754 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1755 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	1756 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1757 }
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 // drop the result
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1760 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	1761
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1762 return skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1763 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1764
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1765 /*
30168 6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1766 * Get the local variable index for deferred function calls.
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1767 * Reserve it when not done already.
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1768 * Returns zero for failure.
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1769 */
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1770 int
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1771 get_defer_var_idx(cctx_T *cctx)
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1772 {
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1773 dfunc_T dfunc = ((dfunc_T )def_functions.ga_data)
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1774 + cctx->ctx_ufunc->uf_dfunc_idx;
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1775 if (dfunc->df_defer_var_idx == 0)
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1776 {
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1777 lvar_T lvar = reserve_local(cctx, (char_u )"@defer@", 7,
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1778 TRUE, &t_list_any);
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1779 if (lvar == NULL)
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1780 return 0;
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1781 dfunc->df_defer_var_idx = lvar->lv_idx + 1;
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1782 }
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1783 return dfunc->df_defer_var_idx;
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1784 }
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1785
6472aa128651 patch 9.0.0420: function went missing Bram Moolenaar <Bram@vim.org> parents: 30166 diff changeset	1786 /*
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1787 * Compile "defer func(arg)".
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1788 */
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1789 char_u *
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1790 compile_defer(char_u arg_start, cctx_T cctx)
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1791 {
30166 d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1792 char_u *paren;
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1793 char_u *arg = arg_start;
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1794 int argcount = 0;
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30065 diff changeset	1795 int defer_var_idx;
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1796 type_T *type;
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1797 int func_idx;
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1798
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1799 // Get a funcref for the function name.
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1800 // TODO: better way to find the "(".
30166 d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1801 paren = vim_strchr(arg, '(');
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1802 if (paren == NULL)
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1803 {
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1804 semsg(_(e_missing_parenthesis_str), arg);
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1805 return NULL;
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1806 }
30166 d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1807 *paren = NUL;
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1808 func_idx = find_internal_func(arg);
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1809 if (func_idx >= 0)
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1810 // TODO: better type
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1811 generate_PUSHFUNC(cctx, (char_u *)internal_func_name(func_idx),
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1812 &t_func_any, FALSE);
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1813 else if (compile_expr0(&arg, cctx) == FAIL)
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1814 return NULL;
30166 d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1815 *paren = '(';
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1816
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1817 // check for function type
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1818 type = get_type_on_stack(cctx, 0);
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1819 if (type->tt_type != VAR_FUNC)
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1820 {
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1821 emsg(_(e_function_name_required));
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1822 return NULL;
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1823 }
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1824
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1825 // compile the arguments
30166 d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1826 arg = skipwhite(paren + 1);
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1827 if (compile_arguments(&arg, cctx, &argcount, CA_NOT_SPECIAL) == FAIL)
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1828 return NULL;
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1829
30166 d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1830 if (func_idx >= 0)
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1831 {
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1832 type2_T *argtypes = NULL;
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1833 type2_T shuffled_argtypes[MAX_FUNC_ARGS];
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1834
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1835 if (check_internal_func_args(cctx, func_idx, argcount, FALSE,
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1836 &argtypes, shuffled_argtypes) == FAIL)
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1837 return NULL;
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1838 }
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1839 else if (check_func_args_from_type(cctx, type, argcount, TRUE,
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1840 arg_start) == FAIL)
d1c04b4dc60d patch 9.0.0419: the :defer command does not check the function arguments Bram Moolenaar <Bram@vim.org> parents: 30088 diff changeset	1841 return NULL;
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1842
30083 a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30065 diff changeset	1843 defer_var_idx = get_defer_var_idx(cctx);
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30065 diff changeset	1844 if (defer_var_idx == 0)
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30065 diff changeset	1845 return NULL;
a542dfb1c1a2 patch 9.0.0379: cleaning up after writefile() is a hassle Bram Moolenaar <Bram@vim.org> parents: 30065 diff changeset	1846 if (generate_DEFER(cctx, defer_var_idx - 1, argcount) == FAIL)
30065 6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1847 return NULL;
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1848
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1849 return skipwhite(arg);
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1850 }
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1851
6cf788ab844c patch 9.0.0370: cleaning up afterwards can make a function messy Bram Moolenaar <Bram@vim.org> parents: 30025 diff changeset	1852 /*
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1853 * compile "echo expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1854 * compile "echomsg expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1855 * compile "echoerr expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1856 * compile "echoconsole expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1857 * compile "execute expr"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1858 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1859 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1860 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	1861 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1862 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1863 char_u *prev = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1864 char_u *expr_start;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1865 int count = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1866 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	1867 type_T *type;
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 for (;;)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1870 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1871 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	1872 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1873 expr_start = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1874 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	1875 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1876
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1877 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	1878 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1879 // 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	1880 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	1881 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	1882 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1883 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	1884 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1885 }
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 ++count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1889 prev = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1890 p = skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1891 }
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 if (count > 0)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1894 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1895 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	1896
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1897 // 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	1898 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	1899
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1900 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	1901 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	1902 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	1903 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	1904 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	1905 generate_MULT_EXPR(cctx, ISN_ECHOMSG, count);
30025 d269dd3cd31d patch 9.0.0350: :echowindow does not work in a compiled function Bram Moolenaar <Bram@vim.org> parents: 29744 diff changeset	1906 #ifdef HAS_MESSAGE_WINDOW
d269dd3cd31d patch 9.0.0350: :echowindow does not work in a compiled function Bram Moolenaar <Bram@vim.org> parents: 29744 diff changeset	1907 else if (cmdidx == CMD_echowindow)
d269dd3cd31d patch 9.0.0350: :echowindow does not work in a compiled function Bram Moolenaar <Bram@vim.org> parents: 29744 diff changeset	1908 generate_MULT_EXPR(cctx, ISN_ECHOWINDOW, count);
d269dd3cd31d patch 9.0.0350: :echowindow does not work in a compiled function Bram Moolenaar <Bram@vim.org> parents: 29744 diff changeset	1909 #endif
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1910 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	1911 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	1912 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1913 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	1914
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1915 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	1916 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1917 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1918 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1919
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1920 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1921 * 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	1922 * 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	1923 * 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	1924 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1925 static int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1926 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	1927 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1928 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	1929 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	1930
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1931 if (p == range_end)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1932 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1933 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	1934 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1935
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1936 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1937 * :put r
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1938 * :put ={expr}
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1939 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1940 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1941 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	1942 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1943 char_u *line = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1944 linenr_T lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1945 char *errormsg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1946 int above = eap->forceit;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1947
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1948 eap->regname = *line;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1949
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1950 if (eap->regname == '=')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1951 {
28055 5bf3ed75e26c patch 8.2.4552: in a :def function "put = expr" does not work Bram Moolenaar <Bram@vim.org> parents: 28035 diff changeset	1952 char_u *p = skipwhite(line + 1);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1953
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1954 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	1955 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1956 line = p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1957 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1958 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	1959 ++line;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1960
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1961 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	1962 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1963 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	1964 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1965 else
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 // 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	1968 // "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	1969 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	1970 // cannot happen
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1971 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1972 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	1973 lnum = -1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1974 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1975 lnum = eap->line2;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1976 if (above)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1977 --lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1978 }
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 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	1981 return line;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1984 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1985 * 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	1986 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1987 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1988 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	1989 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1990 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	1991 char_u *p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1992 int has_expr = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1993 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	1994 char_u *tofree = NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1995 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	1996
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1997 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	1998 goto theend;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	1999
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2000 // 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	2001 // EXEC command.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2002 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	2003 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2004 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	2005 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	2006
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2007 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	2008 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2009 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	2010 ->cmod_filter_regmatch.regprog);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2011 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	2012 --instr->ga_len;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2013 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	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 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	2018 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2019 long argt = eap->argt;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2020 int usefilter = FALSE;
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 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	2023
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2024 // 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	2025 // 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	2026 // 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	2027 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	2028 && *eap->arg == '!')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2029 // :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	2030 usefilter = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2031 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	2032 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2033 eap->argt = argt;
28179 49631bf057d3 patch 8.2.4615: mapping with escaped bar does not work in :def function Bram Moolenaar <Bram@vim.org> parents: 28169 diff changeset	2034 separate_nextcmd(eap, TRUE);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2035 if (eap->nextcmd != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2036 nextcmd = eap->nextcmd;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2037 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2038 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	2039 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2040 p = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2041 if (*p != NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2042 ++p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2043 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	2044 ++p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2045 p = skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2046 if (*p == '\|')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2047 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2048 *p = NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2049 nextcmd = p + 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2050 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2051 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2052 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	2053 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2054 // 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	2055 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	2056 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	2057 --p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2058 if (*p == '{')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2059 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2060 exarg_T ea;
27891 6f5c8493a238 patch 8.2.4471: Coverity warns for uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 27583 diff changeset	2061 int flags = 0; // unused
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2062 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	2063
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2064 CLEAR_FIELD(ea);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2065 ea.arg = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2066 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	2067 (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	2068 if (tofree != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2069 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2070 *p = NUL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2071 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	2072 if (line == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2073 goto theend;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2074 vim_free(tofree);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2075 tofree = line;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2076 SOURCING_LNUM = start_lnum;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2077 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2078 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2079 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2080 }
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 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	2083 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2084 // 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	2085 has_expr = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2086 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	2087 if (*eap->arg == '@')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2088 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	2089 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2090
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2091 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	2092 && STRLEN(eap->arg) > 4)
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 int delim = *eap->arg;
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 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	2097 if (*p == delim)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2098 cmd_arg = p + 1;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2101 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	2102 cmd_arg = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2103
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2104 if (cmd_arg != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2105 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2106 exarg_T nea;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2107
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2108 CLEAR_FIELD(nea);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2109 nea.cmd = cmd_arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2110 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	2111 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	2112 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2113 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	2114 if (has_expr)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2115 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	2116 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2117 }
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 (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	2120 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2121 int count = 0;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2122 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	2123
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2124 // :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	2125 // PUSHS ":cmd xxx"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2126 // eval expr1
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2127 // PUSHS "yyy"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2128 // eval expr2
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2129 // PUSHS "zzz"
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2130 // EXECCONCAT 5
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2131 for (;;)
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 if (p > start)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2134 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2135 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	2136
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2137 generate_PUSHS(cctx, &val);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2138 ++count;
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 p += 2;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2141 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	2142 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2143 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	2144 ++count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2145 p = skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2146 if (*p != '`')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2147 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2148 emsg(_(e_missing_backtick));
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2149 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2150 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2151 start = p + 1;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2152
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2153 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	2154 if (p == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2155 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2156 if (*skipwhite(start) != NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2157 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2158 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	2159
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2160 generate_PUSHS(cctx, &val);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2161 ++count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2162 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2163 break;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2164 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2165 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2166 generate_EXECCONCAT(cctx, count);
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 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2169 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	2170
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2171 theend:
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2172 if (*nextcmd != NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2173 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2174 // 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	2175 --nextcmd;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2176 *nextcmd = '\|';
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2177 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2178 vim_free(tofree);
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 return nextcmd;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2181 }
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 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2184 * 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	2185 * ruby << EOF
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2186 * command
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2187 * EOF
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2188 * 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	2189 * get_function_body():
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2190 * 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	2191 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2192 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2193 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	2194 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2195 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	2196 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2197 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2198
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2199 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	2200 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2201 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	2202 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2203 return (char_u *)"";
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2204 }
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 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2208 * :s/pat/repl/
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_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	2212 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2213 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	2214 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	2215
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2216 if (expr != NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2217 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2218 int delimiter = *cmd++;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2219
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2220 // 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	2221 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	2222 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	2223 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2224 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	2225 char_u *end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2226 int expr_res;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2227 int trailing_error;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2228 int instr_count;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2229 isn_T *instr;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2230 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2231
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2232 cmd += 3;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2233 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	2234
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2235 // 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	2236 // labels are correct.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2237 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	2238 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	2239 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	2240 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	2241 if (end[-1] == NUL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2242 end[-1] = delimiter;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2243 cmd = skipwhite(cmd);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2244 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	2245
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2246 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	2247 \|\| 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	2248 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2249 if (trailing_error)
26883 7f150a4936f2 patch 8.2.3970: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26865 diff changeset	2250 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	2251 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	2252 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	2253 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2254 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2255
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2256 // 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	2257 // 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	2258 // 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	2259 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	2260 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	2261 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	2262
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2263 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	2264 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	2265 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2266 int idx;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2267
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2268 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	2269 delete_instr(instr + idx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2270 vim_free(instr);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2271 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2272 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2273 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	2274 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	2275
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2276 // skip over flags
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2277 if (*end == '&')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2278 ++end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2279 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	2280 ++end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2281 return end;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2282 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2283 }
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 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	2286 }
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 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2289 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	2290 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2291 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	2292 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	2293
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2294 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	2295 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2296 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	2297 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2298 if (lhs->lhs_append)
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 // 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	2301 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	2302 cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2303 return NULL;
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
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2306 // 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	2307 // in the variable.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2308 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	2309
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2310 if (lhs->lhs_append)
28598 d550054e1328 patch 8.2.4823: concat more than 2 strings in :def function is inefficient Bram Moolenaar <Bram@vim.org> parents: 28281 diff changeset	2311 generate_CONCAT(cctx, 2);
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2312
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2313 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	2314 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2315 // 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	2316 // list or dict.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2317 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	2318 &t_string, cctx) == FAIL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2319 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2320 }
26729 b969fdb8cd46 patch 8.2.3893: Vim9: many local variables are initialized with an instruction Bram Moolenaar <Bram@vim.org> parents: 26674 diff changeset	2321 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	2322 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2323
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2324 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	2325 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	2326 return arg + 3;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2327 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2328 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	2329 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2330 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2331
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2332 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	2333 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2334 int append = FALSE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2335
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2336 // 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	2337 arg += 2;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2338 if (*arg == '>')
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2339 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2340 ++arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2341 append = TRUE;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2342 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2343 arg = skipwhite(arg);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2344
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2345 if (compile_assign_lhs(arg, lhs, CMD_redir,
28281 bd1dcc605e58 patch 8.2.4666: Vim9: assignment not recognized in skipped block Bram Moolenaar <Bram@vim.org> parents: 28179 diff changeset	2346 FALSE, FALSE, FALSE, 1, cctx) == FAIL)
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2347 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2348 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	2349 -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	2350 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2351 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	2352 lhs->lhs_append = append;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2353 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	2354 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2355 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	2356 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	2357 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2358 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2359
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2360 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	2361 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2362
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2363 // 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	2364 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	2365 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2366
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2367 #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	2368 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2369 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	2370 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2371 isn_T *isn;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2372 char_u *p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2373
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2374 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	2375 if (isn == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2376 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2377 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	2378
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2379 p = eap->arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2380 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	2381 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2382
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2383 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	2384 if (isn == NULL)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2385 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2386 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	2387 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	2388 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2389 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	2390 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	2391 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	2392
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2393 return p;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2394 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2395 #endif
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2396
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2397 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2398 * Compile "return [expr]".
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2399 * 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	2400 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2401 char_u *
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2402 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	2403 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2404 char_u *p = arg;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2405 type_T *stack_type;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2406
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2407 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	2408 {
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	2409 // 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	2410 // 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	2411 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	2412 && (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	2413 {
47dbeda35910 patch 8.2.4138: Vim9: no error for return with argument when invalid Bram Moolenaar <Bram@vim.org> parents: 27084 diff changeset	2414 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	2415 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	2416 }
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2417 if (legacy)
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2418 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2419 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	2420
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2421 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	2422 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	2423 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	2424 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2425 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	2426 (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	2427 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	2428 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2429 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2430 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2431 // 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	2432 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	2433 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2434 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2435
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2436 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	2437 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2438 // "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	2439 // 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	2440 // 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	2441 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	2442 if ((check_return_type && (cctx->ctx_ufunc->uf_ret_type == NULL
28095 8a80c48bd103 patch 8.2.4572: Vim9: return type "any" is changed to first returned type Bram Moolenaar <Bram@vim.org> parents: 28055 diff changeset	2443 \|\| cctx->ctx_ufunc->uf_ret_type == &t_unknown))
26662 4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2444 \|\| (!check_return_type
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2445 && 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	2446 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2447 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	2448 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2449 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2450 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2451 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	2452 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	2453 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2454 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2455 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2456 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2457 else
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2458 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2459 // "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	2460 // always has an argument.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2461 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	2462 && 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	2463 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2464 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	2465 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2466 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2467
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2468 // No argument, return zero.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2469 generate_PUSHNR(cctx, 0);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2470 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2471
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2472 // Undo any command modifiers.
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2473 generate_undo_cmdmods(cctx);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2474
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2475 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	2476 return NULL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2477
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2478 // "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	2479 return skipwhite(p);
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2480 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2481
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2482 /*
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2483 * 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	2484 */
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2485 int
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2486 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	2487 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2488 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	2489 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2490 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	2491 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2492 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2493 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	2494 {
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2495 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	2496 return FAIL;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2497 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2498 return OK;
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2499 }
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2500
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2501
4b23672d1f0e patch 8.2.3860: Vim9: codecov struggles with the file size Bram Moolenaar <Bram@vim.org> parents: diff changeset	2502 #endif // defined(FEAT_EVAL)

Mercurial > vim

annotate src/vim9cmds.c @ 30269:42a6345b91fd v9.0.0470