summaryrefslogtreecommitdiff
path: root/module/system/vm/disassembler.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-19 19:16:26 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-19 19:36:27 +0100
commitd1100525ff1b4e6e1fdb7d818cef3ec7a838e002 (patch)
treec4d591a87c6fc2856ce2ee1e10a81e0c08afaf77 /module/system/vm/disassembler.scm
parent0bd1e9c6a0420816111e4dc109d6dd30f9f8cd73 (diff)
downloadguile-d1100525ff1b4e6e1fdb7d818cef3ec7a838e002.tar.gz
rtl-program-code -> program-code
* libguile/programs.h: * libguile/programs.c (scm_program_code): Rename from scm_rtl_program_code. Also renames rtl-program-code to program-code. * module/statprof.scm: * module/system/repl/command.scm: * module/system/repl/debug.scm: * module/system/vm/coverage.scm: * module/system/vm/disassembler.scm: * module/system/vm/program.scm: * module/system/vm/traps.scm: * test-suite/tests/dwarf.test: * test-suite/tests/rtl.test: Adapt callers.
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r--module/system/vm/disassembler.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm
index 27b90c3d6..cfc8a15f3 100644
--- a/module/system/vm/disassembler.scm
+++ b/module/system/vm/disassembler.scm
@@ -350,7 +350,7 @@ address of that offset."
(define* (disassemble-program program #:optional (port (current-output-port)))
(cond
- ((find-program-debug-info (rtl-program-code program))
+ ((find-program-debug-info (program-code program))
=> (lambda (pdi)
(format port "Disassembly of ~S at #x~X:\n\n" program
(program-debug-info-addr pdi))
@@ -417,7 +417,7 @@ address of that offset."
(define* (fold-program-code proc seed program-or-addr #:key raw?)
(cond
((find-program-debug-info (if (program? program-or-addr)
- (rtl-program-code program-or-addr)
+ (program-code program-or-addr)
program-or-addr))
=> (lambda (pdi)
(fold-code-range proc seed
@@ -452,5 +452,5 @@ address of that offset."
(define (disassemble-file file)
(let* ((thunk (load-thunk-from-file file))
- (elf (find-mapped-elf-image (rtl-program-code thunk))))
+ (elf (find-mapped-elf-image (program-code thunk))))
(disassemble-image elf)))