diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2008-09-11 14:22:33 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@de.ibm.com> | 2008-09-11 14:22:33 +0000 |
| commit | 6d84d3d833b29bb5adc88f462fa5ec9c65f5b143 (patch) | |
| tree | 227c58dee1475797797cef8b5b46a9799f6291b3 /gdb/ada-valprint.c | |
| parent | 8b9b9e1a3a418a932d0ab62df99466c685d7b184 (diff) | |
| download | gdb-6d84d3d833b29bb5adc88f462fa5ec9c65f5b143.zip gdb-6d84d3d833b29bb5adc88f462fa5ec9c65f5b143.tar.gz gdb-6d84d3d833b29bb5adc88f462fa5ec9c65f5b143.tar.bz2 | |
* 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.
Diffstat (limited to 'gdb/ada-valprint.c')
| -rw-r--r-- | gdb/ada-valprint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 5d8d73d..e2f7740 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, |