diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2009-11-19 22:42:48 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2009-11-19 22:42:48 +0000 |
| commit | cbf7ffc19ba9cc028c2ecbe5877b8373276e82e3 (patch) | |
| tree | a118cfe69b303a12a7c3b746620731a5cb5f9638 /gdb/ada-valprint.c | |
| parent | b6c6670b002b19dd359d6d6535fdeed2e95fa212 (diff) | |
| download | gdb-cbf7ffc19ba9cc028c2ecbe5877b8373276e82e3.tar.gz | |
* ada-lang.c (packed_array_type): Rename to...
(constrained_packed_array_type): ...and update comment.
(decode_packed_array, decode_constrained_packed_array): Ditto.
(decode_packed_array_type, decode_constrained_packed_array_type):
Ditto.
(ada_is_constrained_packed_array_type): New function.
(ada_is_unconstrained_packed_array_type): New function.
(decode_packed_array_bitsize): New function, extracted from
decode_packed_array_type.
(ada_type_of_array): Add support for unconstrained packed arrays.
(ada_coerce_to_simple_array_ptr, ada_coerce_to_simple_array)
(ada_array_bound_from_type, ada_array_bound, ada_array_length)
(ada_prefer_type, to_fixed_array_type, ada_evaluate_subexp): Resync.
* ada-lang.h (ada_is_packed_array_type,
ada_is_constrained_packed_array_type): Renaming.
* ada-valprint.c (ada_val_print_1): Resync.
* ada-typeprint.c (print_array_type, ada_print_type): Resync.
Diffstat (limited to 'gdb/ada-valprint.c')
| -rw-r--r-- | gdb/ada-valprint.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 565172c2ed4..5fb44b1f3af 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -686,7 +686,8 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0, type = ada_check_typedef (type); - if (ada_is_array_descriptor_type (type) || ada_is_packed_array_type (type)) + if (ada_is_array_descriptor_type (type) + || ada_is_constrained_packed_array_type (type)) { int retn; struct value *mark = value_mark (); |