https://gcc.gnu.org/g:7b0fc6721b89ac9c04730b0f8e8f320f5b8d30b7
commit 7b0fc6721b89ac9c04730b0f8e8f320f5b8d30b7 Author: Mikael Morin <[email protected]> Date: Thu Aug 6 14:01:26 2026 +0200 Refactoring gfc_set_descriptor_from_scalar Refactoring gfc_set_descriptor_from_scalar. Modif en-tête Diff: --- gcc/fortran/trans-descriptor.cc | 10 +--------- gcc/fortran/trans-descriptor.h | 4 ++-- 2 files changed, 3 insertions(+), 11 deletions(-) diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index 2fd17458b656..4895bcd820ce 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -1031,19 +1031,11 @@ gfc_set_descriptor_from_scalar (stmtblock_t *block, tree descr, tree scalar, } -void -gfc_set_descriptor_from_scalar (stmtblock_t *block, tree descr, tree scalar) -{ - gfc_set_descriptor_from_scalar (block, descr, scalar, NULL_TREE, NULL_TREE); -} - - void gfc_set_descriptor_from_scalar_class (stmtblock_t *block, tree descr, tree scalar) { - tree tmp = gfc_class_data_get (scalar); - gfc_set_descriptor_from_scalar (block, descr, tmp, NULL_TREE, NULL_TREE); + gfc_set_descriptor_from_scalar (block, descr, gfc_class_data_get (scalar)); } diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h index 469026b3dd7a..5c0d68b63236 100644 --- a/gcc/fortran/trans-descriptor.h +++ b/gcc/fortran/trans-descriptor.h @@ -86,7 +86,7 @@ void gfc_grow_array (stmtblock_t *, tree, tree); void gfc_copy_coarray_desc_part (stmtblock_t *, tree, tree); void gfc_set_descriptor_from_scalar_class (stmtblock_t *, tree, tree); -void gfc_set_descriptor_from_scalar (stmtblock_t *, tree, tree); -void gfc_set_descriptor_from_scalar (stmtblock_t *, tree, tree, tree, tree); +void gfc_set_descriptor_from_scalar (stmtblock_t *, tree, tree, + tree = NULL_TREE, tree = NULL_TREE); #endif /* GFC_TRANS_DESCRIPTOR_H */
