mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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) (define (find-vp)
"Find the scm_vm pointer for the current thread." "Find the scm_vm pointer for the current thread."
(let loop ((frame (newest-frame))) (match (lookup-symbol "scm_i_current_thread")
(and frame ((#f _)
(if (vm-engine-frame? frame) #f)
(frame-read-var frame "vp") ((symbol _)
(loop (frame-older frame)))))) (let ((thread (symbol-value symbol)))
(value-field thread "vm")))))
(define (newest-vm-frame) (define (newest-vm-frame)
"Return the newest VM frame or #f." "Return the newest VM frame or #f."