0
0
mirror of https://github.com/vim/vim.git synced 2025-09-25 03:54:15 -04:00

Update runtime files

This commit is contained in:
Bram Moolenaar
2021-11-07 20:27:04 +00:00
parent 15d9890eee
commit 113cb513f7
48 changed files with 359 additions and 416 deletions

View File

@@ -2,7 +2,7 @@
"
" Author: Bram Moolenaar
" Copyright: Vim license applies, see ":help license"
" Last Change: 2021 Aug 23
" Last Change: 2021 Oct 26
"
" WORK IN PROGRESS - Only the basics work
" Note: On MS-Windows you need a recent version of gdb. The one included with
@@ -534,7 +534,7 @@ func s:GdbOutCallback(channel, text)
if a:text == '(gdb) ' || a:text == '^done' || a:text[0] == '&'
return
endif
if a:text =~ '^^error,msg='
if a:text =~ '^\^error,msg='
let text = s:DecodeMessage(a:text[11:])
if exists('s:evalexpr') && text =~ 'A syntax error in expression, near\|No symbol .* in current context'
" Silently drop evaluation errors.
@@ -736,9 +736,9 @@ func s:HandleDisasmMsg(msg)
else
let value = substitute(a:msg, '^\~\"[ ]*', '', '')
let value = substitute(value, '^=>[ ]*', '', '')
let value = substitute(value, '\\n\"
let value = substitute(value, '\\n\"\r$', '', '')
let value = substitute(value, '\\n\"$', '', '')
let value = substitute(value, '\\n\"$', '', '')
let value = substitute(value, '\r', '', '')
let value = substitute(value, '\\t', ' ', 'g')
if value != '' || !empty(s:asm_lines)
@@ -982,8 +982,22 @@ func s:Run(args)
endfunc
func s:SendEval(expr)
func s:SendEval(expr)
" clean up expression that may got in because of range
" (newlines and surrounding spaces)
let expr = a:expr
if &filetype ==# 'cobol'
" extra cleanup for COBOL: _every: expression ends with a period,
" a trailing comma is ignored as it commonly separates multiple expr.
let expr = substitute(expr, '\..*', '', '')
let expr = substitute(expr, '[;\n]', ' ', 'g')
let expr = substitute(expr, ',*$', '', '')
else
let expr = substitute(expr, '\n', ' ', 'g')
endif
let expr = substitute(expr, '^ *\(.*\) *', '\1', '')
call s:SendCommand('-data-evaluate-expression "' . expr . '"')
let s:evalexpr = expr
endfunc
" :Evaluate - evaluate what is under the cursor
@@ -1058,7 +1072,8 @@ func s:HandleError(msg)
let s:evalFromBalloonExpr = 0
return
endif
return
let msgVal = substitute(a:msg, '.*msg="\(.*\)"', '\1', '')
echoerr substitute(msgVal, '\\"', '"', 'g')
endfunc
func s:GotoSourcewinOrCreateIt()