diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:16:26 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 19:36:27 +0100 |
commit | d1100525ff1b4e6e1fdb7d818cef3ec7a838e002 (patch) | |
tree | c4d591a87c6fc2856ce2ee1e10a81e0c08afaf77 /module/system/vm/disassembler.scm | |
parent | 0bd1e9c6a0420816111e4dc109d6dd30f9f8cd73 (diff) | |
download | guile-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.scm | 6 |
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))) |