diff options
Diffstat (limited to 'gdb/guile/scm-utils.c')
| -rw-r--r-- | gdb/guile/scm-utils.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gdb/guile/scm-utils.c b/gdb/guile/scm-utils.c index da45a05..872a1ee 100644 --- a/gdb/guile/scm-utils.c +++ b/gdb/guile/scm-utils.c @@ -201,7 +201,7 @@ extract_arg (char format_char, SCM arg, void *argp, { case 's': { - char **arg_ptr = argp; + char **arg_ptr = (char **) argp; CHECK_TYPE (gdbscm_is_true (scm_string_p (arg)), arg, position, func_name, _("string")); @@ -210,7 +210,7 @@ extract_arg (char format_char, SCM arg, void *argp, } case 't': { - int *arg_ptr = argp; + int *arg_ptr = (int *) argp; /* While in Scheme, anything non-#f is "true", we're strict. */ CHECK_TYPE (gdbscm_is_bool (arg), arg, position, func_name, @@ -220,7 +220,7 @@ extract_arg (char format_char, SCM arg, void *argp, } case 'i': { - int *arg_ptr = argp; + int *arg_ptr = (int *) argp; CHECK_TYPE (scm_is_signed_integer (arg, INT_MIN, INT_MAX), arg, position, func_name, _("int")); @@ -229,7 +229,7 @@ extract_arg (char format_char, SCM arg, void *argp, } case 'u': { - int *arg_ptr = argp; + int *arg_ptr = (int *) argp; CHECK_TYPE (scm_is_unsigned_integer (arg, 0, UINT_MAX), arg, position, func_name, _("unsigned int")); @@ -238,7 +238,7 @@ extract_arg (char format_char, SCM arg, void *argp, } case 'l': { - long *arg_ptr = argp; + long *arg_ptr = (long *) argp; CHECK_TYPE (scm_is_signed_integer (arg, LONG_MIN, LONG_MAX), arg, position, func_name, _("long")); @@ -247,7 +247,7 @@ extract_arg (char format_char, SCM arg, void *argp, } case 'n': { - unsigned long *arg_ptr = argp; + unsigned long *arg_ptr = (unsigned long *) argp; CHECK_TYPE (scm_is_unsigned_integer (arg, 0, ULONG_MAX), arg, position, func_name, _("unsigned long")); @@ -256,7 +256,7 @@ extract_arg (char format_char, SCM arg, void *argp, } case 'L': { - LONGEST *arg_ptr = argp; + LONGEST *arg_ptr = (LONGEST *) argp; CHECK_TYPE (scm_is_signed_integer (arg, INT64_MIN, INT64_MAX), arg, position, func_name, _("LONGEST")); @@ -265,7 +265,7 @@ extract_arg (char format_char, SCM arg, void *argp, } case 'U': { - ULONGEST *arg_ptr = argp; + ULONGEST *arg_ptr = (ULONGEST *) argp; CHECK_TYPE (scm_is_unsigned_integer (arg, 0, UINT64_MAX), arg, position, func_name, _("ULONGEST")); @@ -274,7 +274,7 @@ extract_arg (char format_char, SCM arg, void *argp, } case 'O': { - SCM *arg_ptr = argp; + SCM *arg_ptr = (SCM *) argp; *arg_ptr = arg; break; |