diff options
| author | Doug Evans <xdje42@gmail.com> | 2014-05-21 11:52:51 -0700 |
|---|---|---|
| committer | Doug Evans <xdje42@gmail.com> | 2014-05-21 11:52:51 -0700 |
| commit | 4a2722c51f6acc5d4c410b9060d44afe96c294bc (patch) | |
| tree | 09c1a7fb81eef15fbfff34bc70723bbc0cb24401 /gdb/guile/guile-internal.h | |
| parent | 6a3cb8e88a739c967bb9b2d8774bf96b87a7fda4 (diff) | |
| download | gdb-4a2722c51f6acc5d4c410b9060d44afe96c294bc.zip gdb-4a2722c51f6acc5d4c410b9060d44afe96c294bc.tar.gz gdb-4a2722c51f6acc5d4c410b9060d44afe96c294bc.tar.bz2 | |
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.
Diffstat (limited to 'gdb/guile/guile-internal.h')
| -rw-r--r-- | gdb/guile/guile-internal.h | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h index f95f092..b6d01f4 100644 --- a/gdb/guile/guile-internal.h +++ b/gdb/guile/guile-internal.h @@ -274,15 +274,15 @@ extern SCM gdbscm_make_type_error (const char *subr, int arg_pos, extern SCM gdbscm_make_invalid_object_error (const char *subr, int arg_pos, SCM bad_value, const char *error); -extern SCM gdbscm_invalid_object_error (const char *subr, int arg_pos, - SCM bad_value, const char *error) +extern void gdbscm_invalid_object_error (const char *subr, int arg_pos, + SCM bad_value, const char *error) ATTRIBUTE_NORETURN; extern SCM gdbscm_make_out_of_range_error (const char *subr, int arg_pos, SCM bad_value, const char *error); -extern SCM gdbscm_out_of_range_error (const char *subr, int arg_pos, - SCM bad_value, const char *error) +extern void gdbscm_out_of_range_error (const char *subr, int arg_pos, + SCM bad_value, const char *error) ATTRIBUTE_NORETURN; extern SCM gdbscm_make_misc_error (const char *subr, int arg_pos, @@ -307,7 +307,8 @@ extern excp_matcher_func gdbscm_memory_error_p; extern SCM gdbscm_make_memory_error (const char *subr, const char *msg, SCM args); -extern SCM gdbscm_memory_error (const char *subr, const char *msg, SCM args); +extern void gdbscm_memory_error (const char *subr, const char *msg, SCM args) + ATTRIBUTE_NORETURN; /* scm-safe-call.c */ @@ -441,9 +442,6 @@ extern char *gdbscm_scm_to_string (SCM string, size_t *lenp, extern SCM gdbscm_scm_from_string (const char *string, size_t len, const char *charset, int strict); -extern char *gdbscm_scm_to_target_string_unsafe (SCM string, size_t *lenp, - struct gdbarch *gdbarch); - /* scm-symbol.c */ extern int syscm_is_symbol (SCM scm); |