Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

guile: Add 'history-append!' procedure.

Browse Source 
gdb/
2014-02-26  Ludovic Courtès  <ludo@gnu.org>

	* guile/scm-value.c (gdbscm_history_append_x): New function.
	(value_functions): Add it.

gdb/testsuite/
2014-02-26  Ludovic Courtès  <ludo@gnu.org>

	* gdb.guile/scm-value.exp (test_value_in_inferior): Add
	test for 'history-append!'.

gdb/doc/
2014-02-26  Ludovic Courtès  <ludo@gnu.org>

	* gdb/doc/guile.texi (Basic Guile): Document 'history-append!'.
This commit is contained in:
Ludovic Courtès
2014-02-18 23:35:46 +01:00
parent d763de106f
commit 7a5a839f3a
6 changed files with 56 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1297,6 +1297,27 @@ gdbscm_history_ref (SCM index)
return vlscm_scm_from_value (res_val);
}
/* (history-append! <gdb:value>) -> index
Append VALUE to GDB's value history. Return its index in the history. */
static SCM
gdbscm_history_append_x (SCM value)
{
int res_index = -1;
struct value *v;
volatile struct gdb_exception except;
v = vlscm_scm_to_value (value);
TRY_CATCH (except, RETURN_MASK_ALL)
{
res_index = record_latest_value (v);
}
GDBSCM_HANDLE_GDB_EXCEPTION (except);
return scm_from_int (res_index);
}
/* Initialize the Scheme value code. */
@@ -1459,6 +1480,10 @@ Evaluates string in gdb and returns the result as a <gdb:value> object." },
"\
Return the specified value from GDB's value history." },
{ "history-append!", 1, 0, 0, gdbscm_history_append_x,
"\
Append the specified value onto GDB's value history." },
END_FUNCTIONS
};