mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(gdb-registers-mode): Let gdbmi use

Browse Source 
MI command -data-list-register-values.
(gdb-post-prompt): Indent properly.
This commit is contained in:
Nick Roberts 2005-06-13 06:01:12 +00:00
parent 3fd355d44e
commit 1e539d255b
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lisp/progmodes/gdb-ui.el
View File

@ -994,24 +994,24 @@ sink to `user' in `gdb-stopping', that is fine."
This begins the collection of output from the current command if that This begins the collection of output from the current command if that
happens to be appropriate." happens to be appropriate."
(unless gdb-pending-triggers (unless gdb-pending-triggers
(gdb-get-selected-frame) (gdb-get-selected-frame)
(gdb-invalidate-frames) (gdb-invalidate-frames)
(gdb-invalidate-breakpoints) (gdb-invalidate-breakpoints)
;; Do this through gdb-get-selected-frame -> gdb-frame-handler ;; Do this through gdb-get-selected-frame -> gdb-frame-handler
;; so gdb-frame-address is updated. ;; so gdb-frame-address is updated.
;; (gdb-invalidate-assembler) ;; (gdb-invalidate-assembler)
(gdb-invalidate-registers) (gdb-invalidate-registers)
(gdb-invalidate-memory) (gdb-invalidate-memory)
(gdb-invalidate-locals) (gdb-invalidate-locals)
(gdb-invalidate-threads) (gdb-invalidate-threads)
(unless (eq system-type 'darwin) ;Breaks on Darwin's GDB-5.3. (unless (eq system-type 'darwin) ;Breaks on Darwin's GDB-5.3.
;; FIXME: with GDB-6 on Darwin, this might very well work. ;; FIXME: with GDB-6 on Darwin, this might very well work.
;; only needed/used with speedbar/watch expressions ;; only needed/used with speedbar/watch expressions
(when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)) (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame))
(setq gdb-var-changed t) ; force update (setq gdb-var-changed t) ; force update
(dolist (var gdb-var-list) (dolist (var gdb-var-list)
(setcar (nthcdr 5 var) nil)) (setcar (nthcdr 5 var) nil))
(gdb-var-update)))) (gdb-var-update))))
(let ((sink gdb-output-sink)) (let ((sink gdb-output-sink))
(cond (cond
((eq sink 'user) t) ((eq sink 'user) t)
@ -1695,7 +1695,9 @@ static char *magick[] = {
(setq buffer-read-only t) (setq buffer-read-only t)
(use-local-map gdb-registers-mode-map) (use-local-map gdb-registers-mode-map)
(run-mode-hooks 'gdb-registers-mode-hook) (run-mode-hooks 'gdb-registers-mode-hook)
'gdb-invalidate-registers) (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
'gdb-invalidate-registers
'gdbmi-invalidate-registers))
(defun gdb-registers-buffer-name () (defun gdb-registers-buffer-name ()
(with-current-buffer gud-comint-buffer (with-current-buffer gud-comint-buffer