/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.77 by nickrob, Sun Jun 5 07:55:32 2005 UTC revision 1.78 by nickrob, Mon Jun 13 06:01:12 2005 UTC
# Line 994  sink to `user' in `gdb-stopping', that i Line 994  sink to `user' in `gdb-stopping', that i
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)
# Line 1695  static char *magick[] = { Line 1695  static char *magick[] = {
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

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26