Commit 30c0f81f authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix handling of Python/Guile commands with arguments in gdb-mi.el

* lisp/progmodes/gdb-mi.el (gdb-python-guile-commands-regexp): New
(gdb-control-commands-regexp): Use it.
(gdb-send): Don't increment gdb-control-level if the command
matches gdb-python-guile-commands-regexp and has non-empty
arguments.  Reported by David Boles <> in
parent 6b4b13eb
......@@ -1767,13 +1767,17 @@ static char *magick[] = {
:group 'gdb)
(defvar gdb-python-guile-commands-regexp
"Regexp that matches Python and Guile commands supported by GDB.")
(defvar gdb-control-commands-regexp
"Regexp matching GDB commands that enter a recursive reading loop.
As long as GDB is in the recursive reading loop, it does not expect
commands to be prefixed by \"-interpreter-exec console\".")
......@@ -1831,8 +1835,17 @@ commands to be prefixed by \"-interpreter-exec console\".")
(> gdb-control-level 0))
(setq gdb-control-level (1- gdb-control-level)))
(setq gdb-continuation nil)))
(if (string-match gdb-control-commands-regexp string)
(setq gdb-control-level (1+ gdb-control-level))))
;; Python and Guile commands that have an argument don't enter the
;; recursive reading loop.
(let* ((control-command-p (string-match gdb-control-commands-regexp string))
(command-arg (match-string 3 string))
(python-or-guile-p (string-match gdb-python-guile-commands-regexp
(if (and control-command-p
(or (not python-or-guile-p)
(null command-arg)
(zerop (length command-arg))))
(setq gdb-control-level (1+ gdb-control-level)))))
(defun gdb-mi-quote (string)
"Return STRING quoted properly as an MI argument.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment