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-lang.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-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 66f01ac..844b25d 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -1759,7 +1759,7 @@ struct type * ada_coerce_to_simple_array_type (struct type *type) { struct value *mark = value_mark (); - struct value *dummy = value_from_longest (builtin_type_long, 0); + struct value *dummy = value_from_longest (builtin_type_int32, 0); struct type *result; deprecated_set_value_type (dummy, type); result = ada_type_of_array (dummy, 0); @@ -2500,7 +2500,7 @@ ada_index_type (struct type *type, int n) has a target type of TYPE_CODE_UNDEF. We compensate here, but perhaps stabsread.c would make more sense. */ if (result_type == NULL || TYPE_CODE (result_type) == TYPE_CODE_UNDEF) - result_type = builtin_type_int; + result_type = builtin_type_int32; return result_type; } @@ -2528,7 +2528,7 @@ ada_array_bound_from_type (struct type * arr_type, int n, int which, if (arr_type == NULL || !ada_is_simple_array_type (arr_type)) { if (typep != NULL) - *typep = builtin_type_int; + *typep = builtin_type_int32; return (LONGEST) - which; } @@ -5842,7 +5842,7 @@ ada_variant_discrim_type (struct type *var_type, struct type *outer_type) struct type *type = ada_lookup_struct_elt_type (outer_type, name, 1, 1, NULL); if (type == NULL) - return builtin_type_int; + return builtin_type_int32; else return type; } @@ -8054,7 +8054,7 @@ assign_component (struct value *container, struct value *lhs, LONGEST index, struct value *elt; if (TYPE_CODE (value_type (lhs)) == TYPE_CODE_ARRAY) { - struct value *index_val = value_from_longest (builtin_type_int, index); + struct value *index_val = value_from_longest (builtin_type_int32, index); elt = unwrap_value (ada_value_subscript (lhs, 1, &index_val)); } else @@ -9504,7 +9504,7 @@ to_fixed_range_type (char *name, struct value *dval, struct objfile *objfile) char *subtype_info; if (raw_type == NULL) - base_type = builtin_type_int; + base_type = builtin_type_int32; else if (TYPE_CODE (raw_type) == TYPE_CODE_RANGE) base_type = TYPE_TARGET_TYPE (raw_type); else |