diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2008-09-11 14:22:32 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@de.ibm.com> | 2008-09-11 14:22:32 +0000 |
| commit | 327f7fe27eb48ecade45b3b3b6cdad9cbf40c503 (patch) | |
| tree | 44f485087090b256ed03a0d4dced8e71b0588cc7 /gdb/p-typeprint.c | |
| parent | 289b8826e35be970ee99b81d907707a9b3294633 (diff) | |
| download | gdb-327f7fe27eb48ecade45b3b3b6cdad9cbf40c503.tar.gz | |
* 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/p-typeprint.c')
| -rw-r--r-- | gdb/p-typeprint.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c index e2c34e5e9c7..a10982d773b 100644 --- a/gdb/p-typeprint.c +++ b/gdb/p-typeprint.c @@ -756,7 +756,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, { struct type *target = TYPE_TARGET_TYPE (type); if (target == NULL) - target = builtin_type_long; + target = builtin_type_int32; print_type_scalar (target, TYPE_LOW_BOUND (type), stream); fputs_filtered ("..", stream); print_type_scalar (target, TYPE_HIGH_BOUND (type), stream); |