mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(gdb-invalidate-assembler): Compare numeric

Browse source 
value of addresses rather than (partial) string value.
(gdb-frame-handler): Change regexp according to above change.
This commit is contained in:
Nick Roberts 2008-04-24 22:26:38 +00:00
parent ed466c8e47
commit 3ed96733c6
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/gdb-ui.el
View file

@ -3538,8 +3538,9 @@ BUFFER nil or omitted means use the current buffer."
(string-equal gdb-selected-frame gdb-previous-frame))
(if (or (not (member 'gdb-invalidate-assembler
gdb-pending-triggers))
(not (string-equal gdb-pc-address
gdb-previous-frame-pc-address)))
(not (equal (string-to-number gdb-pc-address)
(string-to-number
gdb-previous-frame-pc-address))))
(progn
;; take previous disassemble command, if any, off the queue
(with-current-buffer gud-comint-buffer
@ -3550,9 +3551,7 @@ BUFFER nil or omitted means use the current buffer."
(delete item gdb-input-queue))))))
(gdb-enqueue-input
(list
(concat gdb-server-prefix "disassemble "
(if (member gdb-pc-address '(nil "main")) nil "0x")
gdb-pc-address "\n")
(concat gdb-server-prefix "disassemble " gdb-pc-address "\n")
'gdb-assembler-handler))
(push 'gdb-invalidate-assembler gdb-pending-triggers)
(setq gdb-previous-frame-pc-address gdb-pc-address)
@ -3579,7 +3578,7 @@ BUFFER nil or omitted means use the current buffer."
(setq gdb-frame-number (match-string 1))
(setq gdb-frame-address (match-string 2)))
(goto-char (point-min))
(when (re-search-forward ".*=\\s-+0x0*\\(\\S-*\\)\\s-+in\\s-+\\(.*?\\)\
(when (re-search-forward ".*=\\s-+\\(\\S-*\\)\\s-+in\\s-+\\(.*?\\)\
\\(?: (\\(\\S-+?\\):[0-9]+?)\\)*; "
nil t)
(setq gdb-selected-frame (match-string 2))