From ad82864c294f7d7aa3b61fd6b00a5fd7d870c69d Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Thu, 19 Nov 2009 22:42:48 +0000 Subject: * 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. --- gdb/ada-valprint.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gdb/ada-valprint.c') 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 (); -- cgit v1.1