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: Avoid accessing values that are optimized out.

Browse source 
* libguile/libguile-3.0-gdb.scm (vm-frame-function-name)[ip-in-symbol?]:
Do not access SYM's value when it's optimized out.
This commit is contained in:
Ludovic Courtès 2020-03-17 22:33:07 +01:00
parent a0aa8f01cc
commit 5d715dd467
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -297,6 +297,7 @@ if the information is not available."
(define (ip-in-symbol? name)
(let ((sym (lookup-symbol-or-false name)))
(and sym
(not (value-optimized-out? (symbol-value sym)))
(let* ((val (symbol-value sym))
(size (type-sizeof (value-type val)))
(char* (type-pointer (arch-char-type (current-arch))))