darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-26 12:25:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* ada-lang.c (ada_coerce_to_simple_array_type): Reimplement to

Browse Source 
avoid creating a dummy value.
This commit is contained in:
Ulrich Weigand 2009-05-18 13:47:44 +00:00
parent 830bb937a1
commit 17280b9f0a
2 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2009-05-18 Ulrich Weigand <uweigand@de.ibm.com>
* ada-lang.c (ada_coerce_to_simple_array_type): Reimplement to
avoid creating a dummy value.
2009-05-18 Ulrich Weigand <uweigand@de.ibm.com>
* p-valprint.c (pascal_val_print): Use extract_typed_address

14
gdb/ada-lang.c
View File

@ -1689,13 +1689,13 @@ ada_coerce_to_simple_array (struct value *arr)
struct type *
ada_coerce_to_simple_array_type (struct type *type)
{
struct value *mark = value_mark ();
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);
value_free_to_mark (mark);
return result;
if (ada_is_packed_array_type (type))
return decode_packed_array_type (type);
if (ada_is_array_descriptor_type (type))
return ada_check_typedef (TYPE_TARGET_TYPE (desc_data_type (type)));
return type;
}
/* Non-zero iff TYPE represents a standard GNAT packed-array type. */