This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[PATCH] gdb-mi.el
- From: Nick Roberts <nickrob at snap dot net dot nz>
- To: gdb-patches at sources dot redhat dot com
- Date: Sun, 14 May 2006 19:34:21 +1200
- Subject: [PATCH] gdb-mi.el
A few more changes to keep in sync.
OK to commit?
--
Nick http://www.inet.net.nz/~nickrob
2006-05-14 Nick Roberts <nickrob@snap.net.nz>
* mi/gdb-mi.el (gdbmi-send): Correct regexp for repeat commands.
(gdbmi): Use new variable name gdb-pc-address.
(gdbmi-frame-handler): Use new variable name gdb-pc-address.
Check that a match has been found.
*** gdb-mi.el 31 Mar 2006 12:46:48 +1200 1.7
--- gdb-mi.el 21 Apr 2006 03:12:45 +1200
***************
*** 170,176 ****
(setq comint-input-sender 'gdbmi-send)
;;
;; (re-)initialise
! (setq gdb-frame-address (if gdb-show-main "main" nil)
gdb-previous-frame-address nil
gdb-memory-address "main"
gdb-previous-frame nil
--- 170,176 ----
(setq comint-input-sender 'gdbmi-send)
;;
;; (re-)initialise
! (setq gdb-pc-address (if gdb-show-main "main" nil)
gdb-previous-frame-address nil
gdb-memory-address "main"
gdb-previous-frame nil
***************
*** 225,231 ****
(setq gdb-output-sink 'user)
(setq gdb-prompting nil)
;; mimic <RET> key to repeat previous command in GDB
! (if (string-match "^\\S+$" string)
(setq gdb-last-command string)
(if gdb-last-command (setq string gdb-last-command)))
(if gdb-enable-debug
--- 225,231 ----
(setq gdb-output-sink 'user)
(setq gdb-prompting nil)
;; mimic <RET> key to repeat previous command in GDB
! (if (not (string-match "^\\s+$" string))
(setq gdb-last-command string)
(if gdb-last-command (setq string gdb-last-command)))
(if gdb-enable-debug
***************
*** 563,584 ****
(goto-char (point-min))
(when (re-search-forward gdb-stack-list-frames-regexp nil t)
(setq gdb-frame-number (match-string 1))
! (setq gdb-frame-address (match-string 2))
(setq gdb-selected-frame (match-string 3))
! (setq gud-last-frame
! (cons (match-string 4) (string-to-number (match-string 5))))
! (gud-display-frame)
! (if gud-overlay-arrow-position
! (let ((buffer (marker-buffer gud-overlay-arrow-position))
! (position (marker-position gud-overlay-arrow-position)))
! (when buffer
! (with-current-buffer buffer
! (setq fringe-indicator-alist
! (if (string-equal gdb-frame-number "0")
! nil
! '((overlay-arrow . hollow-right-triangle))))
! (setq gud-overlay-arrow-position (make-marker))
! (set-marker gud-overlay-arrow-position position)))))
(if (gdb-get-buffer 'gdb-locals-buffer)
(with-current-buffer (gdb-get-buffer 'gdb-locals-buffer)
(setq mode-name (concat "Locals:" gdb-selected-frame))))
--- 563,585 ----
(goto-char (point-min))
(when (re-search-forward gdb-stack-list-frames-regexp nil t)
(setq gdb-frame-number (match-string 1))
! (setq gdb-pc-address (match-string 2))
(setq gdb-selected-frame (match-string 3))
! (when (match-string 4)
! (setq gud-last-frame
! (cons (match-string 4) (string-to-number (match-string 5))))
! (gud-display-frame)
! (if gud-overlay-arrow-position
! (let ((buffer (marker-buffer gud-overlay-arrow-position))
! (position (marker-position gud-overlay-arrow-position)))
! (when buffer
! (with-current-buffer buffer
! (setq fringe-indicator-alist
! (if (string-equal gdb-frame-number "0")
! nil
! '((overlay-arrow . hollow-right-triangle))))
! (setq gud-overlay-arrow-position (make-marker))
! (set-marker gud-overlay-arrow-position position))))))
(if (gdb-get-buffer 'gdb-locals-buffer)
(with-current-buffer (gdb-get-buffer 'gdb-locals-buffer)
(setq mode-name (concat "Locals:" gdb-selected-frame))))