mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Fix trap frame matching

Browse source 
* module/system/vm/traps.scm (program-last-ip): Actually return an
  absolute IP.  Fixes traps!
This commit is contained in:
Andy Wingo 2017-03-01 16:06:53 +01:00
parent 77cfd7e4bf
commit 374b88580c
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/vm/traps.scm
View file

@ -110,7 +110,9 @@
;; Returns an absolute IP.
(define (program-last-ip prog)
(let ((pdi (find-program-debug-info (program-code prog))))
(and pdi (program-debug-info-size pdi))))
(and pdi
(+ (program-debug-info-addr pdi)
(program-debug-info-size pdi)))))
(define (frame-matcher proc)
(let ((proc (if (struct? proc)