mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

gdb: Adjust 'find-vp' for Guile 3.0.

Browse source 
* libguile/libguile-3.0-gdb.scm (find-vp): Adjust for Guile 3.0.
This commit is contained in:
Ludovic Courtès 2020-03-17 22:32:18 +01:00
parent 62d1335a61
commit a0aa8f01cc
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/libguile-3.0-gdb.scm
View file

@ -207,11 +207,12 @@ if the information is not available."
(define (find-vp)
"Find the scm_vm pointer for the current thread."
(let loop ((frame (newest-frame)))
(and frame
(if (vm-engine-frame? frame)
(frame-read-var frame "vp")
(loop (frame-older frame))))))
(match (lookup-symbol "scm_i_current_thread")
((#f _)
#f)
((symbol _)
(let ((thread (symbol-value symbol)))
(value-field thread "vm")))))
(define (newest-vm-frame)
"Return the newest VM frame or #f."