mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

DWARF return arity fixen

Browse source 
* module/system/vm/dwarf.scm (read-die-abbrev): Fix return arity.
  (read-compilation-unit): Fix return arity of read-die.
This commit is contained in:
Andy Wingo 2013-10-27 20:59:50 +01:00
parent 73ba69a633
commit 2700f19833
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/system/vm/dwarf.scm
View file

@ -1525,8 +1525,7 @@
(values (cond ((zero? code) #f) (values (cond ((zero? code) #f)
((vector-ref (ctx-abbrevs ctx) code)) ((vector-ref (ctx-abbrevs ctx) code))
(else (error "unknown abbrev" ctx code))) (else (error "unknown abbrev" ctx code)))
pos pos)))
#f pos)))
(define (read-die ctx offset) (define (read-die ctx offset)
(let*-values (((abbrev pos) (read-die-abbrev ctx offset))) (let*-values (((abbrev pos) (read-die-abbrev ctx offset)))
@ -1725,7 +1724,7 @@
((addrsize pos) (read-u8 ctx pos)) ((addrsize pos) (read-u8 ctx pos))
((ctx) (make-compilation-unit-context ctx offset-size addrsize ((ctx) (make-compilation-unit-context ctx offset-size addrsize
av start len)) av start len))
((die) (read-die ctx pos))) ((die pos) (read-die ctx pos)))
(populate-context-tree! die) (populate-context-tree! die)
(values die (ctx-end ctx)))) (values die (ctx-end ctx))))