| commit | dfd6ece2cb3000d9882a7448b8e8ca379a9949b9 | |
| author | Nathan Froyd <froydnj@codesourcery.com> | |
| Fri, 2 Jul 2010 19:53:24 +0000 (2 19:53 +0000) | ||
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | |
| Fri, 2 Jul 2010 19:53:24 +0000 (2 19:53 +0000) | ||
| tree | 6f03ec4e9f3206b3a12d1205d91d3a68e28415f4 | treesnapshot (tar.gz zip) |
| parent | 0acba2b4cc842831c3893d172082e65ce291608e | commitdiff |
trans-types.h (gfc_add_field_to_struct): Add tree ** parameter.
* trans-types.h (gfc_add_field_to_struct): Add tree ** parameter.
* trans-types.c (gfc_add_field_to_struct_1): New function, most
of which comes from...
(gfc_add_field_to_struct): ...here. Call it. Add new parameter.
(gfc_get_desc_dim_type): Call gfc_add_field_to_struct_1 for
building fields.
(gfc_get_array_descriptor_base): Likewise.
(gfc_get_mixed_entry_union): Likewise.
(gfc_get_derived_type): Add extra chain parameter for
gfc_add_field_to_struct.
* trans-stmt.c (gfc_trans_character_select): Likewise.
* trans-io.c (gfc_build_st_parameter): Likewise.
From-SVN: r161738
* trans-types.h (gfc_add_field_to_struct): Add tree ** parameter.
* trans-types.c (gfc_add_field_to_struct_1): New function, most
of which comes from...
(gfc_add_field_to_struct): ...here. Call it. Add new parameter.
(gfc_get_desc_dim_type): Call gfc_add_field_to_struct_1 for
building fields.
(gfc_get_array_descriptor_base): Likewise.
(gfc_get_mixed_entry_union): Likewise.
(gfc_get_derived_type): Add extra chain parameter for
gfc_add_field_to_struct.
* trans-stmt.c (gfc_trans_character_select): Likewise.
* trans-io.c (gfc_build_st_parameter): Likewise.
From-SVN: r161738