From 6d84d3d833b29bb5adc88f462fa5ec9c65f5b143 Mon Sep 17 00:00:00 2001 From: Ulrich Weigand Date: Thu, 11 Sep 2008 14:22:33 +0000 Subject: * ada-lang.c (ada_coerce_to_simple_array_type): Use builtin_type_int32 instead of builtin_type_int as default unspecified integral type. (ada_index_type, ada_array_bound_from_type, ada_variant_discrim_type, assign_component, to_fixed_range_type): Likewise. * ada-typeprint.c (print_range, print_range_bound, print_range_type_named): Likewise. * ada-valprint.c (print_optional_low_bound, ada_val_print_1): Likewise. * eval.c (evaluate_subexp_standard): Likewise. * gnu-v2-abi.c (gnuv2_virtual_fn_field): Likewise. * gnu-v3-abi.c (gnuv3_get_virtual_fn, gnuv3_baseclass_offset, build_gdb_vtable_type): Likewise. * jv-lang.c (java_array_type): Likewise. * m2-typeprint.c (m2_print_bounds, m2_is_long_set_of_type): Likewise. * m2-valprint.c (m2_print_long_set): Likewise. * parse.c (follow_types): Likewise. * p-typeprint.c (pascal_type_print_base): Likewise. * valops.c (value_one, value_array, value_string, value_bitstring): Likewise. * value.c (allocate_repeat_value, value_from_string): Likewise. * varobj.c (c_describe_child): Likewise. * mt-tdep.c (mt_register_type): Likewise. * sh-tdep.c (sh_sh4_build_float_register_type): Likewise. * sh64-tdep.c (sh64_build_float_register_type): Likewise. --- gdb/ada-valprint.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gdb/ada-valprint.c') diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 5d8d73d56de..e2f7740e289 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -122,7 +122,7 @@ print_optional_low_bound (struct ui_file *stream, struct type *type) return 0; break; case TYPE_CODE_UNDEF: - index_type = builtin_type_long; + index_type = builtin_type_int32; /* FALL THROUGH */ default: if (low_bound == 1) @@ -753,7 +753,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0, make_pointer_type (create_array_type (NULL, builtin_type_true_char, - create_range_type (NULL, builtin_type_int, 0, 32)), NULL); + create_range_type (NULL, builtin_type_int32, 0, 32)), NULL); printable_val = value_ind (value_cast (parray_of_char, -- cgit v1.2.1