https://gcc.gnu.org/g:4cbef78079d3269d6dee4b5d15bd5687eca2127b
commit 4cbef78079d3269d6dee4b5d15bd5687eca2127b Author: Mikael Morin <[email protected]> Date: Thu Nov 6 14:21:32 2025 +0100 fortran: array descriptor: Rename internal field accessor for span [PR122521] Make the internal accessor for span respect the convention that static functions don't have the `gfc_' prefix. PR fortran/122521 gcc/fortran/ChangeLog: * trans-descriptor.cc (gfc_conv_descriptor_span): Rename ... (conv_descriptor_span): ... to this. (gfc_conv_descriptor_span_get, gfc_conv_descriptor_span_set): Update callers. Diff: --- gcc/fortran/trans-descriptor.cc | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index e27b5ba57b50..1491b346e251 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -172,24 +172,31 @@ gfc_conv_descriptor_dtype_set (stmtblock_t *block, tree desc, tree value) } +/* Return a reference to the span field of the array descriptor DESC. */ + static tree -gfc_conv_descriptor_span (tree desc) +conv_descriptor_span (tree desc) { tree field = gfc_get_descriptor_field (desc, SPAN_FIELD); gcc_assert (TREE_TYPE (field) == gfc_array_index_type); return field; } +/* Return the span value of the array descriptor DESC. */ + tree gfc_conv_descriptor_span_get (tree desc) { - return gfc_conv_descriptor_span (desc); + return conv_descriptor_span (desc); } +/* Add code to BLOCK assigning VALUE to the span field of the array descriptor + DESC. */ + void gfc_conv_descriptor_span_set (stmtblock_t *block, tree desc, tree value) { - tree t = gfc_conv_descriptor_span (desc); + tree t = conv_descriptor_span (desc); gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value)); }
