diff options
| author | Jakub Jelinek <jakub@gcc.gnu.org> | 2019-12-06 14:28:59 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2019-12-06 14:28:59 +0100 |
| commit | 2297a38e0c18eaec95bebf750855fb9a4026ffbf (patch) | |
| tree | c2251d0b4ef7fd2c4a2eec00fabbc88764257094 /gcc/fortran/trans-array.h | |
| parent | 6e4d01d61f2bec57a247de1c5ee538f122ec34a8 (diff) | |
| download | gcc-2297a38e0c18eaec95bebf750855fb9a4026ffbf.zip gcc-2297a38e0c18eaec95bebf750855fb9a4026ffbf.tar.gz gcc-2297a38e0c18eaec95bebf750855fb9a4026ffbf.tar.bz2 | |
re PR fortran/92775 (Incorrect expression in DW_AT_byte_stride on an array)
PR fortran/92775
* trans.h (struct lang_type, struct lang_decl): Remove span member.
(GFC_DECL_SPAN, GFC_TYPE_ARRAY_SPAN): Remove macros.
* trans-array.h (gfc_get_descriptor_offsets_for_info): Add another
argument.
* trans-array.c (gfc_get_descriptor_offsets_for_info): Add SPAN_OFF
argument and initialize *SPAN_OFF to the offset of span field.
* trans-types.c (gfc_get_array_descr_info): Adjust
gfc_get_descriptor_offsets_for_info caller. Compute elem_size
as base->span instead of TYPE_SIZE_UNIT (etype) constant.
From-SVN: r279045
Diffstat (limited to 'gcc/fortran/trans-array.h')
| -rw-r--r-- | gcc/fortran/trans-array.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.h b/gcc/fortran/trans-array.h index 5a7eee7..3d18763 100644 --- a/gcc/fortran/trans-array.h +++ b/gcc/fortran/trans-array.h @@ -163,7 +163,7 @@ void gfc_trans_array_cobounds (tree, stmtblock_t *, const gfc_symbol *); /* Build expressions for accessing components of an array descriptor. */ void gfc_get_descriptor_offsets_for_info (const_tree, tree *, tree *, tree *, tree *, - tree *, tree *, tree *); + tree *, tree *, tree *, tree *); tree gfc_conv_descriptor_data_get (tree); tree gfc_conv_descriptor_data_addr (tree); |