diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-06-06 00:02:33 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-06-06 00:05:18 +0200 |
| commit | fb9347707fa2ca1cd968d56bc7ae29596c6aff81 (patch) | |
| tree | ffd5897a1d15ef4350f1d9b5936d36d84e72d77e /gdb/guile/scm-value.c | |
| parent | 6ef284bd18c31645eb3ec4e7691a0f07100d6b4e (diff) | |
| download | gdb-fb9347707fa2ca1cd968d56bc7ae29596c6aff81.zip gdb-fb9347707fa2ca1cd968d56bc7ae29596c6aff81.tar.gz gdb-fb9347707fa2ca1cd968d56bc7ae29596c6aff81.tar.bz2 | |
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".
Diffstat (limited to 'gdb/guile/scm-value.c')
| -rw-r--r-- | gdb/guile/scm-value.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c index 8e579a4..0ae8103 100644 --- a/gdb/guile/scm-value.c +++ b/gdb/guile/scm-value.c @@ -1295,9 +1295,11 @@ gdbscm_history_append_x (SCM value) { int res_index = -1; struct value *v; + value_smob *v_smob; 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) { |