[gcc(refs/users/mikael/heads/refactor_descriptor_v206.01)] Refactoring gfc_set_descriptor_from_scalar

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 */