mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-22 19:44:10 +02:00
Code Activity

add ability to disassemble ELF images

Browse source 
* module/scripts/disassemble.scm (disassemble): Update to work with
  RTl (and only RTL, as that's the future).

* module/system/vm/debug.scm (for-each-elf-symbol): New public
  interface.
  (debug-context-from-image): New helper.
  (find-debug-context): Use the helper.

* module/system/vm/disassembler.scm (disassemble-image): New public
  interface.
This commit is contained in:
Andy Wingo 2013-08-29 20:43:03 +02:00
parent c96933fd54
commit 610295ec9d
3 changed files with 55 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

29
module/system/vm/debug.scm
View file

@ -33,6 +33,7 @@
#:use-module (srfi srfi-9)
#:export (debug-context-image
debug-context-base
debug-context-text-base
program-debug-info-name
program-debug-info-context
@ -52,6 +53,8 @@
arity-has-keyword-args?
arity-is-case-lambda?
debug-context-from-image
for-each-elf-symbol
find-debug-context
find-program-debug-info
arity-arguments-alist
@ -79,6 +82,19 @@
@var{context}."
(elf-bytes (debug-context-elf context)))
(define (for-each-elf-symbol context proc)
"Call @var{proc} on each symbol in the symbol table of @var{context}."
(let ((elf (debug-context-elf context)))
(cond
((elf-section-by-name elf ".symtab")
=> (lambda (symtab)
(let ((len (elf-symbol-table-len symtab))
(strtab (elf-section elf (elf-section-link symtab))))
(let lp ((n 0))
(when (< n len)
(proc (elf-symbol-table-ref elf symtab n strtab))
(lp (1+ n))))))))))
;;; A program debug info (PDI) is a handle on debugging meta-data for a
;;; particular program.
;;;
@ -117,17 +133,20 @@ offset from the beginning of the ELF image in 32-bit units."
(debug-context-text-base (program-debug-info-context pdi)))
4))
(define (find-debug-context addr)
"Find and return the debugging context corresponding to the ELF image
containing the address @var{addr}. @var{addr} is an integer."
(let* ((bv (find-mapped-elf-image addr))
(elf (parse-elf bv))
(define (debug-context-from-image bv)
"Build a debugging context corresponding to a given ELF image."
(let* ((elf (parse-elf bv))
(base (pointer-address (bytevector->pointer (elf-bytes elf))))
(text-base (elf-section-offset
(or (elf-section-by-name elf ".rtl-text")
(error "ELF object has no text section")))))
(make-debug-context elf base text-base)))
(define (find-debug-context addr)
"Find and return the debugging context corresponding to the ELF image
containing the address @var{addr}. @var{addr} is an integer."
(debug-context-from-image (find-mapped-elf-image addr)))
(define (find-elf-symbol elf text-offset)
"Search the symbol table of @var{elf} for the ELF symbol containing
@var{text-offset}. @var{text-offset} is a byte offset in the text