diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-08 13:29:03 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-08 13:29:03 +0100 |
commit | f41accb9c26e3b4df4170bda04b8860ee962657f (patch) | |
tree | d97ec5b5d0ae7fd616b5cf301c5046d06dccd609 /module/system/vm/debug.scm | |
parent | d547e1c9a647c8218bdf64b00e8c11af1f7d5a0a (diff) | |
download | guile-f41accb9c26e3b4df4170bda04b8860ee962657f.tar.gz |
Fix procedure-arguments on RTL programs, and tweak session.test
* module/ice-9/session.scm (procedure-arguments): Add an rtl-program?
case.
* module/system/vm/debug.scm (arity-arguments-alist): Use the order that
session.test expects.
* test-suite/tests/session.test ("procedure-arguments"): Adapt tests
with keywords for the new starting-with-the-procedure numbering of
locals.
Diffstat (limited to 'module/system/vm/debug.scm')
-rw-r--r-- | module/system/vm/debug.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm index 561143263..09bc16113 100644 --- a/module/system/vm/debug.scm +++ b/module/system/vm/debug.scm @@ -340,12 +340,12 @@ section of the ELF image. Returns an ELF symbol, or @code{#f}." (and (not (is-case-lambda? flags)) `((required . ,(load-symbols 0 nreq)) (optional . ,(load-symbols nreq nopt)) - (rest . ,(and (has-rest? flags) (load-symbol (+ nreq nopt)))) (keyword . ,(if (has-keyword-args? flags) (load-non-immediate (+ nreq nopt (if (has-rest? flags) 1 0))) '())) - (allow-other-keys? . ,(allow-other-keys? flags)))))) + (allow-other-keys? . ,(allow-other-keys? flags)) + (rest . ,(and (has-rest? flags) (load-symbol (+ nreq nopt)))))))) (define (find-first-arity context base addr) (let* ((bv (elf-bytes (debug-context-elf context))) |