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/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/guile')
| -rw-r--r-- | gdb/guile/scm-value.c | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c index a07bc7d..24bb554 100644 --- a/gdb/guile/scm-value.c +++ b/gdb/guile/scm-value.c @@ -520,6 +520,24 @@ gdbscm_value_rvalue_reference_value (SCM self) return gdbscm_reference_value (self, TYPE_CODE_RVALUE_REF); } +/* (value-const-value <gdb:value>) -> <gdb:value> */ + +static SCM +gdbscm_value_const_value (SCM self) +{ + value_smob *v_smob + = vlscm_get_value_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); + struct value *value = v_smob->value; + + return gdbscm_wrap ([=] + { + scoped_value_mark free_values; + + struct value *res_val = make_cv_value (1, 0, value); + return vlscm_scm_from_value (res_val); + }); +} + /* (value-type <gdb:value>) -> <gdb:type> */ static SCM @@ -1394,6 +1412,11 @@ Return a <gdb:value> object which is a reference to the given value." }, "\ Return a <gdb:value> object which is an rvalue reference to the given value." }, + { "value-const-value", 1, 0, 0, + as_a_scm_t_subr (gdbscm_value_const_value), + "\ +Return a <gdb:value> object which is a 'const' version of the given value." }, + { "value-field", 2, 0, 0, as_a_scm_t_subr (gdbscm_value_field), "\ Return the specified field of the value.\n\ |