yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Guile: add value-const-value

Browse Source 
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.
This commit is contained in:
George Barrett 2021-04-29 03:32:56 +10:00 committed by Andrew Burgess
parent 9d4fc61d41
commit ee35ce8200
7 changed files with 51 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/ChangeLog
View File

@ -1,3 +1,10 @@
2021-05-12 George Barrett <bob@bob131.so>
* 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.
2021-05-12 George Barrett <bob@bob131.so>
* NEWS (Guile API): Note the addition of new procedures.

5
gdb/NEWS
View File

@ -207,8 +207,9 @@ QMemTags
value-referenced-value procedure now handles rvalue reference
values.
** New procedures for obtaining reference values:
value-reference-value and value-rvalue-reference-value.
** New procedures for obtaining value variants:
value-reference-value, value-rvalue-reference-value and
value-const-value.
*** Changes in GDB 10

5
gdb/doc/ChangeLog
View File

@ -1,3 +1,8 @@
2021-05-12 George Barrett <bob@bob131.so>
* guile.texi (Values From Inferior In Guile): Add documentation
for value-const-value.
2021-05-12 George Barrett <bob@bob131.so>
* guile.texi (Values From Inferior In Guile): Add documentation

5
gdb/doc/guile.texi
View File

@ -811,6 +811,11 @@ Return a new @code{<gdb:value>} object which is an rvalue reference to
the value encapsulated by @code{<gdb:value>} object @var{value}.
@end deffn
@deffn {Scheme Procedure} value-const-value value
Return a new @code{<gdb:value>} object which is a @samp{const} version
of @code{<gdb:value>} object @var{value}.
@end deffn
@deffn {Scheme Procedure} value-field value field-name
Return field @var{field-name} from @code{<gdb:value>} object @var{value}.
@end deffn

23
gdb/guile/scm-value.c
View File

@ -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\

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2021-05-12 George Barrett <bob@bob131.so>
* gdb.guile/scm-value.exp (test_value_in_inferior): Add test for
value-const-value.
2021-05-12 George Barrett <bob@bob131.so>
* gdb.guile/scm-value.exp (test_value_in_inferior): Add test for

3
gdb/testsuite/gdb.guile/scm-value.exp
View File

@ -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 {} {