mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00: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

10
module/scripts/disassemble.scm
View file

@ -27,20 +27,12 @@
;;; Code:
(define-module (scripts disassemble)
#:use-module (system vm objcode)
#:use-module (system vm program)
#:use-module (system vm disassembler)
#:use-module ((language assembly disassemble)
#:renamer (symbol-prefix-proc 'asm:))
#:export (disassemble))
(define %summary "Disassemble a compiled .go file.")
(define (disassemble . files)
(for-each (lambda (file)
(let* ((thunk (load-thunk-from-file file))
(elf (find-mapped-elf-image (rtl-program-code thunk))))
(disassemble-image elf)))
files))
(for-each disassemble-file files))
(define main disassemble)