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 | ad82864c294f7d7aa3b61fd6b00a5fd7d870c69d (patch) | |
| tree | 8c4db51ca3c748ddf3910289149360995be7be5e /gdb/ada-valprint.c | |
| parent | 5b3d5b7dfc22092208dd9434e1035198d19efc47 (diff) | |
| download | gdb-ad82864c294f7d7aa3b61fd6b00a5fd7d870c69d.zip gdb-ad82864c294f7d7aa3b61fd6b00a5fd7d870c69d.tar.gz gdb-ad82864c294f7d7aa3b61fd6b00a5fd7d870c69d.tar.bz2 | |
* 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 565172c..5fb44b1 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 (); |