994 |
This begins the collection of output from the current command if that |
This begins the collection of output from the current command if that |
995 |
happens to be appropriate." |
happens to be appropriate." |
996 |
(unless gdb-pending-triggers |
(unless gdb-pending-triggers |
997 |
(gdb-get-selected-frame) |
(gdb-get-selected-frame) |
998 |
(gdb-invalidate-frames) |
(gdb-invalidate-frames) |
999 |
(gdb-invalidate-breakpoints) |
(gdb-invalidate-breakpoints) |
1000 |
;; Do this through gdb-get-selected-frame -> gdb-frame-handler |
;; Do this through gdb-get-selected-frame -> gdb-frame-handler |
1001 |
;; so gdb-frame-address is updated. |
;; so gdb-frame-address is updated. |
1002 |
;; (gdb-invalidate-assembler) |
;; (gdb-invalidate-assembler) |
1003 |
(gdb-invalidate-registers) |
(gdb-invalidate-registers) |
1004 |
(gdb-invalidate-memory) |
(gdb-invalidate-memory) |
1005 |
(gdb-invalidate-locals) |
(gdb-invalidate-locals) |
1006 |
(gdb-invalidate-threads) |
(gdb-invalidate-threads) |
1007 |
(unless (eq system-type 'darwin) ;Breaks on Darwin's GDB-5.3. |
(unless (eq system-type 'darwin) ;Breaks on Darwin's GDB-5.3. |
1008 |
;; FIXME: with GDB-6 on Darwin, this might very well work. |
;; FIXME: with GDB-6 on Darwin, this might very well work. |
1009 |
;; only needed/used with speedbar/watch expressions |
;; only needed/used with speedbar/watch expressions |
1010 |
(when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)) |
(when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)) |
1011 |
(setq gdb-var-changed t) ; force update |
(setq gdb-var-changed t) ; force update |
1012 |
(dolist (var gdb-var-list) |
(dolist (var gdb-var-list) |
1013 |
(setcar (nthcdr 5 var) nil)) |
(setcar (nthcdr 5 var) nil)) |
1014 |
(gdb-var-update)))) |
(gdb-var-update)))) |
1015 |
(let ((sink gdb-output-sink)) |
(let ((sink gdb-output-sink)) |
1016 |
(cond |
(cond |
1017 |
((eq sink 'user) t) |
((eq sink 'user) t) |
1695 |
(setq buffer-read-only t) |
(setq buffer-read-only t) |
1696 |
(use-local-map gdb-registers-mode-map) |
(use-local-map gdb-registers-mode-map) |
1697 |
(run-mode-hooks 'gdb-registers-mode-hook) |
(run-mode-hooks 'gdb-registers-mode-hook) |
1698 |
'gdb-invalidate-registers) |
(if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)) |
1699 |
|
'gdb-invalidate-registers |
1700 |
|
'gdbmi-invalidate-registers)) |
1701 |
|
|
1702 |
(defun gdb-registers-buffer-name () |
(defun gdb-registers-buffer-name () |
1703 |
(with-current-buffer gud-comint-buffer |
(with-current-buffer gud-comint-buffer |