From 4a2722c51f6acc5d4c410b9060d44afe96c294bc Mon Sep 17 00:00:00 2001 From: Doug Evans Date: Wed, 21 May 2014 11:52:51 -0700 Subject: Make exception throwers have void result. Delete unused gdbscm_scm_to_target_string_unsafe. * scm-exception.c (gdbscm_invalid_object_error): Make result is void. (gdbscm_out_of_range_error): Ditto. (gdbscm_memory_error): Ditto. * scm-string.c (gdbscm_scm_to_target_string_unsafe): Delete. * guile-internal.h (gdbscm_invalid_object_error): Update. (gdbscm_out_of_range_error): Update. (gdbscm_memory_error): Update. (gdbscm_scm_to_target_string_unsafe): Delete. --- gdb/guile/scm-exception.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gdb/guile/scm-exception.c') diff --git a/gdb/guile/scm-exception.c b/gdb/guile/scm-exception.c index a96a350f13c..ffe83ede184 100644 --- a/gdb/guile/scm-exception.c +++ b/gdb/guile/scm-exception.c @@ -332,7 +332,7 @@ gdbscm_make_invalid_object_error (const char *subr, int arg_pos, SCM bad_value, /* Throw an invalid-object error. OBJECT is the name of the kind of object that is invalid. */ -SCM +void gdbscm_invalid_object_error (const char *subr, int arg_pos, SCM bad_value, const char *object) { @@ -356,7 +356,7 @@ gdbscm_make_out_of_range_error (const char *subr, int arg_pos, SCM bad_value, /* Throw an out-of-range error. This is the standard Guile out-of-range exception. */ -SCM +void gdbscm_out_of_range_error (const char *subr, int arg_pos, SCM bad_value, const char *error) { @@ -387,7 +387,7 @@ gdbscm_make_memory_error (const char *subr, const char *msg, SCM args) /* Throw a gdb:memory-error exception. */ -SCM +void gdbscm_memory_error (const char *subr, const char *msg, SCM args) { SCM exception = gdbscm_make_memory_error (subr, msg, args); -- cgit v1.2.1