summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-10-27 20:59:50 +0100
committerAndy Wingo <wingo@pobox.com>2013-10-29 22:53:46 +0100
commit2700f1983373a336d67bc622538988b36da73f09 (patch)
treeba18cece6d6d3daa7255d032957793a3a61e3d8d
parent73ba69a633c63de7ef8344e10fba027102d1f245 (diff)
downloadguile-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.scm5
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))))