diff options
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/scm-math.c | 4 | ||||
| -rw-r--r-- | gdb/guile/scm-value.c | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gdb/guile/scm-math.c b/gdb/guile/scm-math.c index 419f509..c297c45 100644 --- a/gdb/guile/scm-math.c +++ b/gdb/guile/scm-math.c @@ -527,7 +527,7 @@ vlscm_convert_typed_number (const char *func_name, int obj_arg_pos, SCM obj, if (is_integral_type (type) || type->code () == TYPE_CODE_PTR) { - if (TYPE_UNSIGNED (type)) + if (type->is_unsigned ()) { ULONGEST max; @@ -573,7 +573,7 @@ vlscm_convert_typed_number (const char *func_name, int obj_arg_pos, SCM obj, static int vlscm_integer_fits_p (SCM obj, struct type *type) { - if (TYPE_UNSIGNED (type)) + if (type->is_unsigned ()) { ULONGEST max; diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c index c4d4045..ae7937c 100644 --- a/gdb/guile/scm-value.c +++ b/gdb/guile/scm-value.c @@ -888,7 +888,7 @@ gdbscm_value_to_integer (SCM self) } GDBSCM_HANDLE_GDB_EXCEPTION (exc); - if (TYPE_UNSIGNED (type)) + if (type->is_unsigned ()) return gdbscm_scm_from_ulongest (l); else return gdbscm_scm_from_longest (l); @@ -930,7 +930,7 @@ gdbscm_value_to_real (SCM self) d = target_float_to_host_double (value_contents (value), type); check = value_from_host_double (type, d); } - else if (TYPE_UNSIGNED (type)) + else if (type->is_unsigned ()) { d = (ULONGEST) value_as_long (value); check = value_from_ulongest (type, (ULONGEST) d); |