Mercurial > vim

comparison src/vim9execute.c @ 23503:49d866e9b439 v8.2.2294

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.2294: VMS: a few remaining problems Commit: https://github.com/vim/vim/commit/82c38fe508155c11a904e6111b5bfb6adde3fb9a Author: Bram Moolenaar <Bram@vim.org> Date: Mon Jan 4 10:47:26 2021 +0100 patch 8.2.2294: VMS: a few remaining problems Problem: VMS: a few remaining problems. Solution: Add VMS specific changes. Add Lua support. (Zoltan Arpadffy)
author Bram Moolenaar <Bram@vim.org>
date Mon, 04 Jan 2021 11:00:11 +0100
parents d2b1269c2c68
children 872239543313
comparison
equal deleted inserted replaced
23502:f2f8c3848831 23503:49d866e9b439
3387 case ISN_EXEC: 3387 case ISN_EXEC:
3388 smsg("%4d EXEC %s", current, iptr->isn_arg.string); 3388 smsg("%4d EXEC %s", current, iptr->isn_arg.string);
3389 break; 3389 break;
3390 case ISN_EXECCONCAT: 3390 case ISN_EXECCONCAT:
3391 smsg("%4d EXECCONCAT %lld", current, 3391 smsg("%4d EXECCONCAT %lld", current,
3392 (long long)iptr->isn_arg.number); 3392 (varnumber_T)iptr->isn_arg.number);
3393 break; 3393 break;
3394 case ISN_ECHO: 3394 case ISN_ECHO:
3395 { 3395 {
3396 echo_T *echo = &iptr->isn_arg.echo; 3396 echo_T *echo = &iptr->isn_arg.echo;
3397 3397
3400 echo->echo_count); 3400 echo->echo_count);
3401 } 3401 }
3402 break; 3402 break;
3403 case ISN_EXECUTE: 3403 case ISN_EXECUTE:
3404 smsg("%4d EXECUTE %lld", current, 3404 smsg("%4d EXECUTE %lld", current,
3405 (long long)(iptr->isn_arg.number)); 3405 (varnumber_T)(iptr->isn_arg.number));
3406 break; 3406 break;
3407 case ISN_ECHOMSG: 3407 case ISN_ECHOMSG:
3408 smsg("%4d ECHOMSG %lld", current, 3408 smsg("%4d ECHOMSG %lld", current,
3409 (long long)(iptr->isn_arg.number)); 3409 (varnumber_T)(iptr->isn_arg.number));
3410 break; 3410 break;
3411 case ISN_ECHOERR: 3411 case ISN_ECHOERR:
3412 smsg("%4d ECHOERR %lld", current, 3412 smsg("%4d ECHOERR %lld", current,
3413 (long long)(iptr->isn_arg.number)); 3413 (varnumber_T)(iptr->isn_arg.number));
3414 break; 3414 break;
3415 case ISN_LOAD: 3415 case ISN_LOAD:
3416 case ISN_LOADOUTER: 3416 case ISN_LOADOUTER:
3417 { 3417 {
3418 char *add = iptr->isn_type == ISN_LOAD ? "" : "OUTER"; 3418 char *add = iptr->isn_type == ISN_LOAD ? "" : "OUTER";
3419 3419
3420 if (iptr->isn_arg.number < 0) 3420 if (iptr->isn_arg.number < 0)
3421 smsg("%4d LOAD%s arg[%lld]", current, add, 3421 smsg("%4d LOAD%s arg[%lld]", current, add,
3422 (long long)(iptr->isn_arg.number 3422 (varnumber_T)(iptr->isn_arg.number
3423 + STACK_FRAME_SIZE)); 3423 + STACK_FRAME_SIZE));
3424 else 3424 else
3425 smsg("%4d LOAD%s $%lld", current, add, 3425 smsg("%4d LOAD%s $%lld", current, add,
3426 (long long)(iptr->isn_arg.number)); 3426 (varnumber_T)(iptr->isn_arg.number));
3427 } 3427 }
3428 break; 3428 break;
3429 case ISN_LOADV: 3429 case ISN_LOADV:
3430 smsg("%4d LOADV v:%s", current, 3430 smsg("%4d LOADV v:%s", current,
3431 get_vim_var_name(iptr->isn_arg.number)); 3431 get_vim_var_name(iptr->isn_arg.number));
3494 { 3494 {
3495 char *add = iptr->isn_type == ISN_STORE ? "" : "OUTER"; 3495 char *add = iptr->isn_type == ISN_STORE ? "" : "OUTER";
3496 3496
3497 if (iptr->isn_arg.number < 0) 3497 if (iptr->isn_arg.number < 0)
3498 smsg("%4d STORE%s arg[%lld]", current, add, 3498 smsg("%4d STORE%s arg[%lld]", current, add,
3499 (long long)(iptr->isn_arg.number + STACK_FRAME_SIZE)); 3499 (varnumber_T)(iptr->isn_arg.number + STACK_FRAME_SIZE));
3500 else 3500 else
3501 smsg("%4d STORE%s $%lld", current, add, 3501 smsg("%4d STORE%s $%lld", current, add,
3502 (long long)(iptr->isn_arg.number)); 3502 (varnumber_T)(iptr->isn_arg.number));
3503 } 3503 }
3504 break; 3504 break;
3505 case ISN_STOREV: 3505 case ISN_STOREV:
3506 smsg("%4d STOREV v:%s", current, 3506 smsg("%4d STOREV v:%s", current,
3507 get_vim_var_name(iptr->isn_arg.number)); 3507 get_vim_var_name(iptr->isn_arg.number));
3576 break; 3576 break;
3577 3577
3578 // constants 3578 // constants
3579 case ISN_PUSHNR: 3579 case ISN_PUSHNR:
3580 smsg("%4d PUSHNR %lld", current, 3580 smsg("%4d PUSHNR %lld", current,
3581 (long long)(iptr->isn_arg.number)); 3581 (varnumber_T)(iptr->isn_arg.number));
3582 break; 3582 break;
3583 case ISN_PUSHBOOL: 3583 case ISN_PUSHBOOL:
3584 case ISN_PUSHSPEC: 3584 case ISN_PUSHSPEC:
3585 smsg("%4d PUSH %s", current, 3585 smsg("%4d PUSH %s", current,
3586 get_var_special_name(iptr->isn_arg.number)); 3586 get_var_special_name(iptr->isn_arg.number));
3651 case ISN_LOCKCONST: 3651 case ISN_LOCKCONST:
3652 smsg("%4d LOCKCONST", current); 3652 smsg("%4d LOCKCONST", current);
3653 break; 3653 break;
3654 case ISN_NEWLIST: 3654 case ISN_NEWLIST:
3655 smsg("%4d NEWLIST size %lld", current, 3655 smsg("%4d NEWLIST size %lld", current,
3656 (long long)(iptr->isn_arg.number)); 3656 (varnumber_T)(iptr->isn_arg.number));
3657 break; 3657 break;
3658 case ISN_NEWDICT: 3658 case ISN_NEWDICT:
3659 smsg("%4d NEWDICT size %lld", current, 3659 smsg("%4d NEWDICT size %lld", current,
3660 (long long)(iptr->isn_arg.number)); 3660 (varnumber_T)(iptr->isn_arg.number));
3661 break; 3661 break;
3662 3662
3663 // function call 3663 // function call
3664 case ISN_BCALL: 3664 case ISN_BCALL:
3665 { 3665 {
3922 smsg("%4d INVERT (!val)", current); 3922 smsg("%4d INVERT (!val)", current);
3923 else 3923 else
3924 smsg("%4d 2BOOL (!!val)", current); 3924 smsg("%4d 2BOOL (!!val)", current);
3925 break; 3925 break;
3926 case ISN_2STRING: smsg("%4d 2STRING stack[%lld]", current, 3926 case ISN_2STRING: smsg("%4d 2STRING stack[%lld]", current,
3927 (long long)(iptr->isn_arg.number)); 3927 (varnumber_T)(iptr->isn_arg.number));
3928 break; 3928 break;
3929 case ISN_2STRING_ANY: smsg("%4d 2STRING_ANY stack[%lld]", current, 3929 case ISN_2STRING_ANY: smsg("%4d 2STRING_ANY stack[%lld]", current,
3930 (long long)(iptr->isn_arg.number)); 3930 (varnumber_T)(iptr->isn_arg.number));
3931 break; 3931 break;
3932 case ISN_RANGE: smsg("%4d RANGE %s", current, iptr->isn_arg.string); 3932 case ISN_RANGE: smsg("%4d RANGE %s", current, iptr->isn_arg.string);
3933 break; 3933 break;
3934 case ISN_PUT: 3934 case ISN_PUT:
3935 if (iptr->isn_arg.put.put_lnum == LNUM_VARIABLE_RANGE_ABOVE) 3935 if (iptr->isn_arg.put.put_lnum == LNUM_VARIABLE_RANGE_ABOVE)