diff options
author | George Barrett <bob@bob131.so> | 2021-04-29 03:32:56 +1000 |
---|---|---|
committer | Andrew Burgess <andrew.burgess@embecosm.com> | 2021-05-12 12:35:36 +0100 |
commit | ee35ce8200dcd1754061d5dc90fb53f9504c6394 (patch) | |
tree | 436b3d555f9ce56c920fee03627b5badbd7d5a84 /gdb/testsuite/gdb.guile | |
parent | 9d4fc61d41a0aef2d199e2b18d238603a8e4be98 (diff) | |
download | gdb-ee35ce8200dcd1754061d5dc90fb53f9504c6394.zip gdb-ee35ce8200dcd1754061d5dc90fb53f9504c6394.tar.gz gdb-ee35ce8200dcd1754061d5dc90fb53f9504c6394.tar.bz2 |
Guile: add value-const-value
The Guile API doesn't currently have an equivalent to the Python API's
gdb.Value.const_value(). This commit adds a procedure with equivalent
semantics to the Guile API.
gdb/ChangeLog:
* NEWS (Guile API): Note the addition of the new procedure.
* guile/scm-value.c (gdbscm_value_const_value): Add
implementation of value-const-value procedure.
(value_functions): Add value-const-value procedure.
gdb/doc/ChangeLog:
* guile.texi (Values From Inferior In Guile): Add documentation
for value-const-value.
gdb/testsuite/ChangeLog:
* gdb.guile/scm-value.exp (test_value_in_inferior): Add test for
value-const-value.
Diffstat (limited to 'gdb/testsuite/gdb.guile')
-rw-r--r-- | gdb/testsuite/gdb.guile/scm-value.exp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-value.exp b/gdb/testsuite/gdb.guile/scm-value.exp index b3f785c..982b9bf 100644 --- a/gdb/testsuite/gdb.guile/scm-value.exp +++ b/gdb/testsuite/gdb.guile/scm-value.exp @@ -183,6 +183,9 @@ proc test_value_in_inferior {} { "test value-rvalue-reference-value" gdb_test "gu (equal? argv (value-referenced-value argv-rref))" "#t" gdb_test "gu (eqv? (type-code (value-type argv-rref)) TYPE_CODE_RVALUE_REF)" "#t" + + gdb_test "gu (equal? (value-type (value-const-value argv)) (type-const (value-type argv)))" \ + "#t" } proc test_strings {} { |