[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Utilisation gfc_clear_descriptor dans gfc_conv_derived_to_class

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:fc1734ccc2996a69ad2f1b13006d0745ba57b97b
commit fc1734ccc2996a69ad2f1b13006d0745ba57b97b
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Dec 11 16:03:10 2024 +0100

    Utilisation gfc_clear_descriptor dans gfc_conv_derived_to_class

Diff:
---
 gcc/fortran/trans-expr.cc | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 41d06a99f757..d07c3e12a4e4 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -960,10 +960,9 @@ gfc_conv_derived_to_class (gfc_se *parmse, gfc_expr *e, 
gfc_symbol *fsym,
              tmp = gfc_finish_block (&block);
 
              gfc_init_block (&block);
-             gfc_conv_descriptor_data_set (&block, ctree, null_pointer_node);
+             gfc_clear_descriptor (&block, fsym, ctree);
              if (derived_array && *derived_array != NULL_TREE)
-               gfc_conv_descriptor_data_set (&block, *derived_array,
-                                             null_pointer_node);
+               gfc_clear_descriptor (&block, fsym, *derived_array);
 
              tmp = build3_v (COND_EXPR, cond_optional, tmp,
                              gfc_finish_block (&block));