mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

GDB change for dynamically generated code (tiny change)

Browse Source 
Ref: http://lists.gnu.org/archive/html/emacs-devel/2012-01/msg00753.html

* lisp/progmodes/gdb-mi.el (gdb-invalidate-disassembly):
For dynamically generated code, follow $PC.
(gdb-disassembly-handler-custom): Handle no function name case.

Fixes: debbugs:10597
This commit is contained in:
Kaushik Srenevasan 2012-03-13 00:07:10 -07:00 committed by Glenn Morris
parent 4aaa93566b
commit 4a07df36a5
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2012-03-13 Kaushik Srenevasan <ksrenevasan@gmail.com> (tiny change)
* progmodes/gdb-mi.el (gdb-invalidate-disassembly):
For dynamically generated code, follow $PC.
(gdb-disassembly-handler-custom): Handle no function name case.
2012-03-13 Tim Landscheidt <tim@tim-landscheidt.de> (tiny change)
* calendar/icalendar.el (icalendar-export-file, icalendar-import-file):

16
lisp/progmodes/gdb-mi.el
View File

@ -3269,8 +3269,12 @@ DOC is an optional documentation string."
(let* ((frame (gdb-current-buffer-frame))
(file (bindat-get-field frame 'fullname))
(line (bindat-get-field frame 'line)))
(when file
(format "-data-disassemble -f %s -l %s -n -1 -- 0" file line)))
(if file
(format "-data-disassemble -f %s -l %s -n -1 -- 0" file line)
;; If we're unable to get a file name / line for $PC, simply
;; follow $PC, disassembling the next 10 (x ~15 (on IA) ==
;; 150 bytes) instructions.
"-data-disassemble -s $pc -e \"$pc + 150\" -- 0"))
gdb-disassembly-handler
;; We update disassembly only after we have actual frame information
;; about all threads, so no there's `update' signal in this list
@ -3329,8 +3333,12 @@ DOC is an optional documentation string."
(gdb-table-add-row table
(list
(bindat-get-field instr 'address)
(apply #'format "<%s+%s>:"
(gdb-get-many-fields instr 'func-name 'offset))
(let
((func-name (bindat-get-field instr 'func-name))
(offset (bindat-get-field instr 'offset)))
(if func-name
(format "<%s+%s>:" func-name offset)
""))
(bindat-get-field instr 'inst)))
(when (string-equal (bindat-get-field instr 'address)
address)