diff options
Diffstat (limited to 'gdb/guile/scm-safe-call.c')
| -rw-r--r-- | gdb/guile/scm-safe-call.c | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/gdb/guile/scm-safe-call.c b/gdb/guile/scm-safe-call.c index 6052214..62aec0f 100644 --- a/gdb/guile/scm-safe-call.c +++ b/gdb/guile/scm-safe-call.c @@ -97,7 +97,7 @@ scscm_nop_unwind_handler (void *data, SCM key, SCM args) static SCM scscm_recording_pre_unwind_handler (void *datap, SCM key, SCM args) { - struct with_catch_data *data = datap; + struct with_catch_data *data = (struct with_catch_data *) datap; excp_matcher_func *matcher = data->excp_matcher; if (matcher != NULL && matcher (key)) @@ -126,7 +126,7 @@ scscm_recording_pre_unwind_handler (void *datap, SCM key, SCM args) static SCM scscm_recording_unwind_handler (void *datap, SCM key, SCM args) { - struct with_catch_data *data = datap; + struct with_catch_data *data = (struct with_catch_data *) datap; /* We need to record the stack in the exception since we're about to throw and lose the location that got the exception. We do this by @@ -147,7 +147,7 @@ scscm_recording_unwind_handler (void *datap, SCM key, SCM args) static void * gdbscm_with_catch (void *data) { - struct with_catch_data *d = data; + struct with_catch_data *d = (struct with_catch_data *) data; d->catch_result = scm_c_catch (SCM_BOOL_T, @@ -230,7 +230,7 @@ gdbscm_call_guile (SCM (*func) (void *), void *data, static SCM scscm_call_0_body (void *argsp) { - SCM *args = argsp; + SCM *args = (SCM *) argsp; return scm_call_0 (args[0]); } @@ -248,7 +248,7 @@ gdbscm_safe_call_0 (SCM proc, excp_matcher_func *ok_excps) static SCM scscm_call_1_body (void *argsp) { - SCM *args = argsp; + SCM *args = (SCM *) argsp; return scm_call_1 (args[0], args[1]); } @@ -266,7 +266,7 @@ gdbscm_safe_call_1 (SCM proc, SCM arg0, excp_matcher_func *ok_excps) static SCM scscm_call_2_body (void *argsp) { - SCM *args = argsp; + SCM *args = (SCM *) argsp; return scm_call_2 (args[0], args[1], args[2]); } @@ -284,7 +284,7 @@ gdbscm_safe_call_2 (SCM proc, SCM arg0, SCM arg1, excp_matcher_func *ok_excps) static SCM scscm_call_3_body (void *argsp) { - SCM *args = argsp; + SCM *args = (SCM *) argsp; return scm_call_3 (args[0], args[1], args[2], args[3]); } @@ -303,7 +303,7 @@ gdbscm_safe_call_3 (SCM proc, SCM arg1, SCM arg2, SCM arg3, static SCM scscm_call_4_body (void *argsp) { - SCM *args = argsp; + SCM *args = (SCM *) argsp; return scm_call_4 (args[0], args[1], args[2], args[3], args[4]); } @@ -322,7 +322,7 @@ gdbscm_safe_call_4 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, static SCM scscm_apply_1_body (void *argsp) { - SCM *args = argsp; + SCM *args = (SCM *) argsp; return scm_apply_1 (args[0], args[1], args[2]); } @@ -372,7 +372,8 @@ struct eval_scheme_string_data static void * scscm_eval_scheme_string (void *datap) { - struct eval_scheme_string_data *data = datap; + struct eval_scheme_string_data *data + = (struct eval_scheme_string_data *) datap; SCM result = scm_c_eval_string (data->string); if (data->display_result && !scm_is_eq (result, SCM_UNSPECIFIED)) @@ -402,7 +403,7 @@ gdbscm_safe_eval_string (const char *string, int display_result) result = gdbscm_with_guile (scscm_eval_scheme_string, (void *) &data); if (result != NULL) - return xstrdup (result); + return xstrdup ((char *) result); return NULL; } @@ -413,7 +414,7 @@ gdbscm_safe_eval_string (const char *string, int display_result) static void * scscm_source_scheme_script (void *data) { - const char *filename = data; + const char *filename = (const char *) data; /* The Guile docs don't specify what the result is. Maybe it's SCM_UNSPECIFIED, but the docs should specify that. :-) */ @@ -451,7 +452,7 @@ gdbscm_safe_source_script (const char *filename) xfree (abs_filename); if (result != NULL) - return xstrdup (result); + return xstrdup ((char *) result); return NULL; } |