https://gcc.gnu.org/g:244a3bef7e7cf6293991ce803c0fda9b9b72fbbe
commit 244a3bef7e7cf6293991ce803c0fda9b9b72fbbe Author: Mikael Morin <[email protected]> Date: Sun Jun 29 14:15:55 2025 +0200 fortran: array descriptor: Remove access to the attribute field Regression tested on powerpc64le-unknown-linux-gnu. OK for master? -- >8 -- The attribute field is not used, this removes the single function giving direct access to it. gcc/fortran/ChangeLog: * trans-descriptor.cc (gfc_conv_descriptor_attribute): Remove function. * trans-descriptor.h (gfc_conv_descriptor_attribute): Remove declaration. Diff: --- gcc/fortran/trans-descriptor.cc | 16 ---------------- gcc/fortran/trans-descriptor.h | 1 - 2 files changed, 17 deletions(-) diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index 1c8560c4b5a9..c3aaacd7514d 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -306,22 +306,6 @@ gfc_conv_descriptor_elem_len_set (stmtblock_t *block, tree desc, tree value) } -tree -gfc_conv_descriptor_attribute (tree desc) -{ - tree tmp; - tree dtype; - - dtype = conv_descriptor_dtype (desc); - tmp = gfc_advance_chain (TYPE_FIELDS (TREE_TYPE (dtype)), - GFC_DTYPE_ATTRIBUTE); - gcc_assert (tmp!= NULL_TREE - && TREE_TYPE (tmp) == short_integer_type_node); - return fold_build3_loc (input_location, COMPONENT_REF, TREE_TYPE (tmp), - dtype, tmp, NULL_TREE); -} - - /* Return a reference to the type discriminator of array descriptor DESC. */ static tree diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h index ba17a50d4621..3ad9b660052c 100644 --- a/gcc/fortran/trans-descriptor.h +++ b/gcc/fortran/trans-descriptor.h @@ -20,7 +20,6 @@ along with GCC; see the file COPYING3. If not see #define GFC_TRANS_DESCRIPTOR_H -tree gfc_conv_descriptor_attribute (tree); tree gfc_get_descriptor_dimension (tree); tree gfc_conv_descriptor_dimension (tree, tree); tree gfc_conv_descriptor_token (tree);
