diff options
Diffstat (limited to 'gdb/guile/scm-math.c')
| -rw-r--r-- | gdb/guile/scm-math.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/guile/scm-math.c b/gdb/guile/scm-math.c index 914bb5f..022863d 100644 --- a/gdb/guile/scm-math.c +++ b/gdb/guile/scm-math.c @@ -586,7 +586,7 @@ vlscm_integer_fits_p (SCM obj, struct type *type) if (type->is_unsigned ()) { /* If scm_is_unsigned_integer can't work with this type, just punt. */ - if (TYPE_LENGTH (type) > sizeof (uintmax_t)) + if (type->length () > sizeof (uintmax_t)) return 0; ULONGEST max = get_unsigned_type_max (type); @@ -597,7 +597,7 @@ vlscm_integer_fits_p (SCM obj, struct type *type) LONGEST min, max; /* If scm_is_signed_integer can't work with this type, just punt. */ - if (TYPE_LENGTH (type) > sizeof (intmax_t)) + if (type->length () > sizeof (intmax_t)) return 0; get_signed_type_minmax (type, &min, &max); return scm_is_signed_integer (obj, min, max); @@ -681,7 +681,7 @@ vlscm_convert_bytevector (SCM bv, struct type *type, SCM type_scm, make_vector_type (type); } type = check_typedef (type); - if (TYPE_LENGTH (type) != length) + if (type->length () != length) { *except_scmp = gdbscm_make_out_of_range_error (func_name, arg_pos, type_scm, |