procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gdb): Send -target-detach when buffer is killed (#3794).

Browse source 
(gdb-starting): Moved -data-list-register-names...
(gdb-stopped): ...here so it's sent when first thread stops.
(gdb-registers-handler-custom): Do nothing if register names are
unknown yet.
This commit is contained in:
Dmitry Dzhus 2009-08-11 23:26:04 +00:00
parent 27a9fd5a22
commit cf6e27cf47
2 changed files with 41 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -7,6 +7,11 @@
(gdb-invalidate-disassembly): Do not refresh upon receiving
'update signal. Instead, update all disassembly buffers only after
threads list.
(gdb): Send -target-detach when buffer is killed (#3794).
(gdb-starting): Moved -data-list-register-names...
(gdb-stopped): ...here so it's sent when first thread stops.
(gdb-registers-handler-custom): Do nothing if register names are
unknown yet.
* progmodes/gud.el (gud-stop-subjob): Rewritten without macros
from `gdb-mi.el' to avoid extra tangling.

57
lisp/progmodes/gdb-mi.el
View file

@ -749,7 +749,16 @@ detailed description of this mode.
(local-set-key "\C-i" 'gud-gdb-complete-command)
(setq gdb-first-prompt t)
(setq gud-running nil)
(gdb-update)
(add-hook
'kill-buffer-hook
(function
(lambda ()
(gdb-input (list "-target-detach" 'ignore))))
nil t)
(run-hooks 'gdb-mode-hook))
(defun gdb-init-1 ()
@ -776,6 +785,7 @@ detailed description of this mode.
gdb-buf-publisher '()
gdb-threads-list '()
gdb-breakpoints-list '()
gdb-register-names '()
gdb-non-stop gdb-non-stop-setting)
;;
(setq gdb-buffer-type 'gdbmi)
@ -1854,8 +1864,6 @@ Sets `gdb-thread-number' to new id."
(defun gdb-starting (output-field)
;; CLI commands don't emit ^running at the moment so use gdb-running too.
(gdb-input
(list "-data-list-register-names" 'gdb-register-names-handler))
(setq gdb-inferior-status "running")
(gdb-force-mode-line-update
(propertize gdb-inferior-status 'face font-lock-type-face))
@ -1876,6 +1884,13 @@ current thread and update GDB buffers."
(reason (gdb-get-field result 'reason))
(thread-id (gdb-get-field result 'thread-id)))
;; -data-list-register-names needs to be issued for any stopped
;; thread
(when (not gdb-register-names)
(gdb-input
(list (concat "-data-list-register-names --thread " thread-id)
'gdb-register-names-handler)))
;;; Don't set gud-last-frame here as it's currently done in gdb-frame-handler
;;; because synchronous GDB doesn't give these fields with CLI.
;;; (when file
@ -3553,25 +3568,25 @@ member."
'gdb-invalidate-registers)
(defun gdb-registers-handler-custom ()
(let ((register-values (gdb-get-field (gdb-json-partial-output) 'register-values))
(table (make-gdb-table)))
(dolist (register register-values)
(let* ((register-number (gdb-get-field register 'number))
(value (gdb-get-field register 'value))
(register-name (nth (string-to-number register-number)
gdb-register-names)))
(when register-name
(gdb-table-add-row
table
(list
(propertize register-name 'font-lock-face font-lock-variable-name-face)
(if (member register-number gdb-changed-registers)
(propertize value 'font-lock-face font-lock-warning-face)
value))
`(mouse-face highlight
help-echo "mouse-2: edit value"
gdb-register-name ,register-name)))))
(insert (gdb-table-string table " "))
(when gdb-register-names
(let ((register-values (gdb-get-field (gdb-json-partial-output) 'register-values))
(table (make-gdb-table)))
(dolist (register register-values)
(let* ((register-number (gdb-get-field register 'number))
(value (gdb-get-field register 'value))
(register-name (nth (string-to-number register-number)
gdb-register-names)))
(gdb-table-add-row
table
(list
(propertize register-name 'font-lock-face font-lock-variable-name-face)
(if (member register-number gdb-changed-registers)
(propertize value 'font-lock-face font-lock-warning-face)
value))
`(mouse-face highlight
help-echo "mouse-2: edit value"
gdb-register-name ,register-name))))
(insert (gdb-table-string table " ")))
(setq mode-name
(gdb-current-context-mode-name "Registers"))))