diff options
author | Andy Wingo <wingo@pobox.com> | 2013-08-29 20:50:19 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-08-29 20:50:19 +0200 |
commit | 93009a7acaf172d1e9a8b3763cf83e616567a04f (patch) | |
tree | 3f1207f77b4268898dcc2f528026ed301e13dffb /module/scripts | |
parent | 610295ec9dbf3c21a59b4e579d0889ca90c499e6 (diff) | |
download | guile-93009a7acaf172d1e9a8b3763cf83e616567a04f.tar.gz |
,xx for RTL images
* 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.
Diffstat (limited to 'module/scripts')
-rw-r--r-- | module/scripts/disassemble.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/module/scripts/disassemble.scm b/module/scripts/disassemble.scm index 3825bc118..426f87c59 100644 --- a/module/scripts/disassemble.scm +++ b/module/scripts/disassemble.scm @@ -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) |