[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Essai suppression initialisation span dans gfc_conv_expr_descriptor

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:189a002e64a533d4cbf3b65899f6b886f2934f56

commit 189a002e64a533d4cbf3b65899f6b886f2934f56
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Mar 17 19:26:09 2025 +0100

    Essai suppression initialisation span dans gfc_conv_expr_descriptor

Diff:
---
 gcc/fortran/trans-array.cc     | 8 --------
 gcc/fortran/trans-descriptor.h | 1 -
 2 files changed, 9 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 05ee8dd03920..715a8941ddde 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7432,14 +7432,6 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr)
          else
            gcc_assert (se->ss == ss);
 
-         if (!is_pointer_array (se->expr))
-           {
-             tmp = gfc_get_element_type (TREE_TYPE (se->expr));
-             tmp = fold_convert (gfc_array_index_type,
-                                 size_in_bytes (tmp));
-             gfc_conv_descriptor_span_set (&se->pre, se->expr, tmp);
-           }
-
          se->expr = gfc_build_addr_expr (NULL_TREE, se->expr);
          gfc_conv_expr (se, expr);
 
diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h
index 6e230d67c830..5db80f59a528 100644
--- a/gcc/fortran/trans-descriptor.h
+++ b/gcc/fortran/trans-descriptor.h
@@ -59,7 +59,6 @@ tree gfc_conv_descriptor_token_get (tree);
 tree gfc_conv_descriptor_token_field (tree);
 
 void gfc_conv_descriptor_data_set (stmtblock_t *, tree, tree);
-void gfc_conv_descriptor_offset_set (stmtblock_t *, tree, tree);
 void gfc_conv_descriptor_token_set (stmtblock_t *, tree, tree);
 void gfc_conv_descriptor_dtype_set (stmtblock_t *, tree, tree);
 void gfc_conv_descriptor_dimensions_set (stmtblock_t *, tree, tree);