https://gcc.gnu.org/g:741aab102d5286aee88dc62d251cbc845cbe92eb
commit 741aab102d5286aee88dc62d251cbc845cbe92eb Author: Mikael Morin <mik...@gcc.gnu.org> Date: Mon Jun 30 18:45:32 2025 +0200 Correction en-têtes Diff: --- gcc/fortran/trans-descriptor.h | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h index d313d9fab175..1ef752a9e478 100644 --- a/gcc/fortran/trans-descriptor.h +++ b/gcc/fortran/trans-descriptor.h @@ -16,6 +16,26 @@ You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see <http://www.gnu.org/licenses/>. */ +#ifndef GFC_TRANS_DESCRIPTOR_H +#define GFC_TRANS_DESCRIPTOR_H + +/* Build a null array descriptor constructor. */ +tree gfc_array_dataptr_type (tree); +tree gfc_build_null_descriptor (tree); +tree gfc_build_default_class_descriptor (tree, gfc_typespec &); +void gfc_clear_descriptor (stmtblock_t *block, gfc_symbol *, tree); +void gfc_nullify_descriptor (stmtblock_t *block, gfc_expr *, tree); +void gfc_clear_descriptor (stmtblock_t *block, gfc_symbol *, gfc_expr *, tree); +void gfc_set_scalar_null_descriptor (stmtblock_t *block, tree, gfc_symbol *, gfc_expr *, tree); +void gfc_set_descriptor_with_shape (stmtblock_t *, tree, tree, + gfc_expr *, locus *); +tree gfc_get_scalar_to_descriptor_type (tree scalar, symbol_attribute attr); +void gfc_set_descriptor_from_scalar (stmtblock_t *, tree, tree, + symbol_attribute *, tree = NULL_TREE); +void gfc_copy_sequence_descriptor (stmtblock_t &, tree, tree, bool); +void gfc_set_gfc_from_cfi (stmtblock_t *, stmtblock_t *, tree, tree, tree, + gfc_symbol *, bool, bool, bool); +int gfc_descriptor_rank (tree); tree gfc_get_cfi_desc_base_addr (tree desc); tree gfc_get_cfi_desc_elem_len (tree desc); @@ -71,3 +91,4 @@ gfc_get_descriptor_offsets_for_info (const_tree desc_type, tree *data_off, tree *stride_suboff, tree *lower_suboff, tree *upper_suboff); +#endif /* GFC_TRANS_DESCRIPTOR_H */