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-typeprint.c | |
| parent | 5b3d5b7dfc22092208dd9434e1035198d19efc47 (diff) | |
| download | binutils-gdb-ad82864c294f7d7aa3b61fd6b00a5fd7d870c69d.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-typeprint.c')
| -rw-r--r-- | gdb/ada-typeprint.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/ada-typeprint.c b/gdb/ada-typeprint.c index 9fabd68515b..fe902e2e684 100644 --- a/gdb/ada-typeprint.c +++ b/gdb/ada-typeprint.c @@ -352,7 +352,7 @@ print_array_type (struct type *type, struct ui_file *stream, int show, int bitsize; int n_indices; - if (ada_is_packed_array_type (type)) + if (ada_is_constrained_packed_array_type (type)) type = ada_coerce_to_simple_array_type (type); bitsize = 0; @@ -770,7 +770,7 @@ ada_print_type (struct type *type0, char *varstring, struct ui_file *stream, if (ada_is_aligner_type (type)) ada_print_type (ada_aligned_type (type), "", stream, show, level); - else if (ada_is_packed_array_type (type)) + else if (ada_is_constrained_packed_array_type (type)) { if (TYPE_CODE (type) == TYPE_CODE_PTR) { |