mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

,xx for RTL images

Browse source 
* module/scripts/disassemble.scm (disassemble):
* module/system/vm/disassembler.scm (disassemble-file): Factor
  disassemble-file out.

* module/system/repl/command.scm (disassemble-file): Map ,xx to
  disassemble RTL images.
This commit is contained in:
Andy Wingo 2013-08-29 20:50:19 +02:00
parent 610295ec9d
commit 93009a7aca
3 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/system/vm/disassembler.scm
View file

@ -32,7 +32,8 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-4)
#:export (disassemble-program
disassemble-image))
disassemble-image
disassemble-file))
(define-syntax-rule (u32-ref buf n)
(bytevector-u32-native-ref buf (* n 4)))
@ -357,3 +358,8 @@ address of that offset."
ctx)
(display "\n\n" port)))))
(values))
(define (disassemble-file file)
(let* ((thunk (load-thunk-from-file file))
(elf (find-mapped-elf-image (rtl-program-code thunk))))
(disassemble-image elf)))