[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.77 emacs/lisp/progmodes/gdb-ui.el:1.78
*** emacs/lisp/progmodes/gdb-ui.el:1.77 Sun Jun  5 07:55:32 2005
--- emacs/lisp/progmodes/gdb-ui.el      Mon Jun 13 06:01:12 2005
***************
*** 994,1017 ****
  This begins the collection of output from the current command if that
  happens to be appropriate."
    (unless gdb-pending-triggers
!       (gdb-get-selected-frame)
!       (gdb-invalidate-frames)
!       (gdb-invalidate-breakpoints)
!       ;; Do this through gdb-get-selected-frame -> gdb-frame-handler
!       ;; so gdb-frame-address is updated.
!       ;; (gdb-invalidate-assembler)
!       (gdb-invalidate-registers)
!       (gdb-invalidate-memory)
!       (gdb-invalidate-locals)
!       (gdb-invalidate-threads)
!       (unless (eq system-type 'darwin) ;Breaks on Darwin's GDB-5.3.
!         ;; FIXME: with GDB-6 on Darwin, this might very well work.
!         ;; only needed/used with speedbar/watch expressions
!         (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame))
!           (setq gdb-var-changed t)    ; force update
!           (dolist (var gdb-var-list)
!             (setcar (nthcdr 5 var) nil))
!           (gdb-var-update))))
    (let ((sink gdb-output-sink))
      (cond
       ((eq sink 'user) t)
--- 994,1017 ----
  This begins the collection of output from the current command if that
  happens to be appropriate."
    (unless gdb-pending-triggers
!     (gdb-get-selected-frame)
!     (gdb-invalidate-frames)
!     (gdb-invalidate-breakpoints)
!     ;; Do this through gdb-get-selected-frame -> gdb-frame-handler
!     ;; so gdb-frame-address is updated.
!     ;; (gdb-invalidate-assembler)
!     (gdb-invalidate-registers)
!     (gdb-invalidate-memory)
!     (gdb-invalidate-locals)
!     (gdb-invalidate-threads)
!     (unless (eq system-type 'darwin) ;Breaks on Darwin's GDB-5.3.
!       ;; FIXME: with GDB-6 on Darwin, this might very well work.
!       ;; only needed/used with speedbar/watch expressions
!       (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame))
!       (setq gdb-var-changed t)    ; force update
!       (dolist (var gdb-var-list)
!         (setcar (nthcdr 5 var) nil))
!       (gdb-var-update))))
    (let ((sink gdb-output-sink))
      (cond
       ((eq sink 'user) t)
***************
*** 1695,1701 ****
    (setq buffer-read-only t)
    (use-local-map gdb-registers-mode-map)
    (run-mode-hooks 'gdb-registers-mode-hook)
!   'gdb-invalidate-registers)
  
  (defun gdb-registers-buffer-name ()
    (with-current-buffer gud-comint-buffer
--- 1695,1703 ----
    (setq buffer-read-only t)
    (use-local-map gdb-registers-mode-map)
    (run-mode-hooks 'gdb-registers-mode-hook)
!   (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
!       'gdb-invalidate-registers
!     'gdbmi-invalidate-registers))
  
  (defun gdb-registers-buffer-name ()
    (with-current-buffer gud-comint-buffer