diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-27 20:59:50 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-29 22:53:46 +0100 |
commit | 2700f1983373a336d67bc622538988b36da73f09 (patch) | |
tree | ba18cece6d6d3daa7255d032957793a3a61e3d8d | |
parent | 73ba69a633c63de7ef8344e10fba027102d1f245 (diff) | |
download | guile-2700f1983373a336d67bc622538988b36da73f09.tar.gz |
DWARF return arity fixen
* module/system/vm/dwarf.scm (read-die-abbrev): Fix return arity.
(read-compilation-unit): Fix return arity of read-die.
-rw-r--r-- | module/system/vm/dwarf.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/module/system/vm/dwarf.scm b/module/system/vm/dwarf.scm index da730a692..c545665d5 100644 --- a/module/system/vm/dwarf.scm +++ b/module/system/vm/dwarf.scm @@ -1525,8 +1525,7 @@ (values (cond ((zero? code) #f) ((vector-ref (ctx-abbrevs ctx) code)) (else (error "unknown abbrev" ctx code))) - pos - #f pos))) + pos))) (define (read-die ctx offset) (let*-values (((abbrev pos) (read-die-abbrev ctx offset))) @@ -1725,7 +1724,7 @@ ((addrsize pos) (read-u8 ctx pos)) ((ctx) (make-compilation-unit-context ctx offset-size addrsize av start len)) - ((die) (read-die ctx pos))) + ((die pos) (read-die ctx pos))) (populate-context-tree! die) (values die (ctx-end ctx)))) |