guile: Type-check the argument to 'history-append!'.
gdb/ 2014-06-05 Ludovic Courtès <ludo@gnu.org> * guile/scm-value.c (gdbscm_history_append_x): Use 'vlscm_get_value_smob_arg_unsafe' instead of 'vlscm_scm_to_value'. gdb/testsuite/ 2014-06-05 Ludovic Courtès <ludo@gnu.org> * gdb.guile/scm-value.exp (test_value_in_inferior): Add test "history-append! type error".
This commit is contained in:
parent
6ef284bd18
commit
fb9347707f
|
@ -1,3 +1,9 @@
|
||||||
|
2014-06-05 Ludovic Courtès <ludo@gnu.org>
|
||||||
|
|
||||||
|
* guile/scm-value.c (gdbscm_history_append_x): Use
|
||||||
|
'vlscm_get_value_smob_arg_unsafe' instead of
|
||||||
|
'vlscm_scm_to_value'.
|
||||||
|
|
||||||
2014-06-05 Simon Marchi <simon.marchi@ericsson.com>
|
2014-06-05 Simon Marchi <simon.marchi@ericsson.com>
|
||||||
|
|
||||||
PR mi/15806
|
PR mi/15806
|
||||||
|
|
|
@ -1295,9 +1295,11 @@ gdbscm_history_append_x (SCM value)
|
||||||
{
|
{
|
||||||
int res_index = -1;
|
int res_index = -1;
|
||||||
struct value *v;
|
struct value *v;
|
||||||
|
value_smob *v_smob;
|
||||||
volatile struct gdb_exception except;
|
volatile struct gdb_exception except;
|
||||||
|
|
||||||
v = vlscm_scm_to_value (value);
|
v_smob = vlscm_get_value_smob_arg_unsafe (value, SCM_ARG1, FUNC_NAME);
|
||||||
|
v = v_smob->value;
|
||||||
|
|
||||||
TRY_CATCH (except, RETURN_MASK_ALL)
|
TRY_CATCH (except, RETURN_MASK_ALL)
|
||||||
{
|
{
|
||||||
|
|
|
@ -1,3 +1,8 @@
|
||||||
|
2014-06-05 Ludovic Courtès <ludo@gnu.org>
|
||||||
|
|
||||||
|
* gdb.guile/scm-value.exp (test_value_in_inferior): Add test
|
||||||
|
"history-append! type error".
|
||||||
|
|
||||||
2014-06-05 Simon Marchi <simon.marchi@ericsson.com>
|
2014-06-05 Simon Marchi <simon.marchi@ericsson.com>
|
||||||
|
|
||||||
* gdb.mi/mi-breakpoint-changed.exp (test_insert_delete_modify): Fix
|
* gdb.mi/mi-breakpoint-changed.exp (test_insert_delete_modify): Fix
|
||||||
|
|
|
@ -71,6 +71,10 @@ proc test_value_in_inferior {} {
|
||||||
gdb_test_no_output "guile (gc)"
|
gdb_test_no_output "guile (gc)"
|
||||||
gdb_test "p \$\$" "= 42"
|
gdb_test "p \$\$" "= 42"
|
||||||
|
|
||||||
|
# Make sure 'history-append!' rejects non-value objects.
|
||||||
|
gdb_test "gu (history-append! 123)" \
|
||||||
|
"ERROR:.* Wrong type argument.*" "history-append! type error"
|
||||||
|
|
||||||
# Test dereferencing the argv pointer.
|
# Test dereferencing the argv pointer.
|
||||||
|
|
||||||
# Just get inferior variable argv the value history, available to guile.
|
# Just get inferior variable argv the value history, available to guile.
|
||||||
|
|
Loading…
Reference in New Issue