https://gcc.gnu.org/g:f8de9fabc3abea8001526b9bdc41e213d5293cb5
commit f8de9fabc3abea8001526b9bdc41e213d5293cb5
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Tue Jul 1 19:52:09 2025 +0200
Ajout commentaires
Diff:
---
gcc/fortran/trans-descriptor.cc | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 2dc40fbdf3ee..d247c73fc725 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -28,6 +28,10 @@ along with GCC; see the file COPYING3. If not see
#include "trans-types.h"
+/******************************************************************************/
+/* BIND(C) array descriptor (AKA CFI array descriptor) access routines
*/
+/******************************************************************************/
+
/* Build expressions to access members of the CFI descriptor. */
#define CFI_FIELD_BASE_ADDR 0
#define CFI_FIELD_ELEM_LEN 1
@@ -134,6 +138,11 @@ gfc_get_cfi_dim_sm (tree desc, tree idx)
#undef CFI_DIM_FIELD_EXTENT
#undef CFI_DIM_FIELD_SM
+
+/******************************************************************************/
+/* Array descriptor low level access routines.
*/
+/******************************************************************************/
+
/* Build expressions to access the members of an array descriptor.
It's surprisingly easy to mess up here, so never access
an array descriptor by "brute force", always use these
@@ -600,6 +609,10 @@ gfc_conv_descriptor_ubound_set (stmtblock_t *block, tree
desc,
}
+/*******************************************************************************
+ * Array descriptor higher level routines.
*
+
******************************************************************************/
+
/* Build a null array descriptor constructor. */
tree
