FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

dwarf2out.c (gen_array_type_die, [...]): For Fortran multi-dimensional arrays use DW_AT_ordering DW_ORD_col_major.

Browse source 
* dwarf2out.c (gen_array_type_die, gen_descr_array_type_die): For
	Fortran multi-dimensional arrays use DW_AT_ordering
	DW_ORD_col_major.

From-SVN: r130742
This commit is contained in:
Jakub Jelinek 2007-12-10 14:05:15 +01:00 • committed by Jakub Jelinek
parent 7dc4605144
commit 502630f495
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/ChangeLog
View file

@ -1,3 +1,9 @@
2007-12-10 Jakub Jelinek <jakub@redhat.com>
* dwarf2out.c (gen_array_type_die, gen_descr_array_type_die): For
Fortran multi-dimensional arrays use DW_AT_ordering
DW_ORD_col_major.
2007-12-10 Paolo Bonzini <bonzini@gnu.org>
PR target/32086

11
gcc/dwarf2out.c
View file

@ -11636,6 +11636,12 @@ gen_array_type_die (tree type, dw_die_ref context_die)
add_AT_flag (array_die, DW_AT_GNU_vector, 1);
}
/* For Fortran multidimensional arrays use DW_ORD_col_major ordering. */
if (is_fortran ()
&& TREE_CODE (type) == ARRAY_TYPE
&& TREE_CODE (TREE_TYPE (type)) == ARRAY_TYPE)
add_AT_unsigned (array_die, DW_AT_ordering, DW_ORD_col_major);
#if 0
/* We default the array ordering. SDB will probably do
the right things even if DW_AT_ordering is not present. It's not even
@ -11787,6 +11793,11 @@ gen_descr_array_type_die (tree type, struct array_descr_info *info,
add_name_attribute (array_die, type_tag (type));
equate_type_number_to_die (type, array_die);
/* For Fortran multidimensional arrays use DW_ORD_col_major ordering. */
if (is_fortran ()
&& info->ndimensions >= 2)
add_AT_unsigned (array_die, DW_AT_ordering, DW_ORD_col_major);
if (info->data_location)
add_descr_info_field (array_die, DW_AT_data_location, info->data_location,
info->base_decl);