[gcc/devel/omp/gcc-14] OpenACC: Pass pre-allocated 'ptrblock' to 'goacc_noncontig_array_create_ptrblock' [PR76739]

[Paul-Antoine Arras via Gcc-cvs]

https://gcc.gnu.org/g:b27632c02e2d3f8084fc739d7728e95bc3ff7260

commit b27632c02e2d3f8084fc739d7728e95bc3ff7260
Author: Thomas Schwinge <tho...@codesourcery.com>
Date:   Wed Mar 15 14:32:12 2023 +0100

    OpenACC: Pass pre-allocated 'ptrblock' to 
'goacc_noncontig_array_create_ptrblock' [PR76739]
    
    ... to simplify later changes.  No functional change.
    
    Follow-up for og12 commit 15d0f61a7fecdc8fd12857c40879ea3730f6d99f
    "Merge non-contiguous array support patches".
    
            PR other/76739
            libgomp/
            * target.c (gomp_map_vars_internal): Pass pre-allocated 'ptrblock'
            to 'goacc_noncontig_array_create_ptrblock'.
            * oacc-parallel.c (goacc_noncontig_array_create_ptrblock): Adjust.
            * oacc-int.h (goacc_noncontig_array_create_ptrblock): Adjust.

Diff:
---
 libgomp/ChangeLog.omp   | 6 ++++++
 libgomp/oacc-int.h      | 3 ++-
 libgomp/oacc-parallel.c | 5 ++---
 libgomp/target.c        | 5 +++--
 4 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/libgomp/ChangeLog.omp b/libgomp/ChangeLog.omp
index afb7dd62bc1..00292901389 100644
--- a/libgomp/ChangeLog.omp
+++ b/libgomp/ChangeLog.omp
@@ -1,5 +1,11 @@
 2023-04-03  Thomas Schwinge  <tho...@codesourcery.com>
 
+       PR other/76739
+       * target.c (gomp_map_vars_internal): Pass pre-allocated 'ptrblock'
+       to 'goacc_noncontig_array_create_ptrblock'.
+       * oacc-parallel.c (goacc_noncontig_array_create_ptrblock): Adjust.
+       * oacc-int.h (goacc_noncontig_array_create_ptrblock): Adjust.
+
        * libgomp.texi (AMD Radeon, nvptx): Document OpenMP 'pinned'
        memory.
 
diff --git a/libgomp/oacc-int.h b/libgomp/oacc-int.h
index 90e27277d3a..1732f8be48e 100644
--- a/libgomp/oacc-int.h
+++ b/libgomp/oacc-int.h
@@ -213,7 +213,8 @@ struct goacc_ncarray_info
   struct goacc_ncarray ncarray[];
 };
 
-extern void *goacc_noncontig_array_create_ptrblock (struct goacc_ncarray *, 
void *);
+extern void goacc_noncontig_array_create_ptrblock (struct goacc_ncarray *,
+                                                  void *, void *);
 
 
 #ifdef HAVE_ATTRIBUTE_VISIBILITY
diff --git a/libgomp/oacc-parallel.c b/libgomp/oacc-parallel.c
index 4194a9cd1ac..58bed420ee1 100644
--- a/libgomp/oacc-parallel.c
+++ b/libgomp/oacc-parallel.c
@@ -165,13 +165,13 @@ goacc_process_noncontiguous_arrays (size_t mapnum, void 
**hostaddrs,
   return nca_info;
 }
 
-void *
+void
 goacc_noncontig_array_create_ptrblock (struct goacc_ncarray *nca,
+                                      void *ptrblock,
                                       void *tgt_ptrblock_addr)
 {
   struct goacc_ncarray_descr_type *descr = nca->descr;
   void **tgt_data_rows = nca->tgt_data_rows;
-  void *ptrblock = gomp_malloc (nca->ptrblock_size);
   void **curr_dim_ptrblock = (void **) ptrblock;
   size_t n = 1;
 
@@ -210,7 +210,6 @@ goacc_noncontig_array_create_ptrblock (struct goacc_ncarray 
*nca,
       curr_dim_ptrblock = next_dim_ptrblock;
     }
   assert (n == nca->data_row_num);
-  return ptrblock;
 }
 
 /* Handle the mapping pair that are presented when a
diff --git a/libgomp/target.c b/libgomp/target.c
index f1450ce7dcd..0c71b5f84ca 100644
--- a/libgomp/target.c
+++ b/libgomp/target.c
@@ -1988,8 +1988,9 @@ gomp_map_vars_internal (struct gomp_device_descr *devicep,
                 accelerator side ptrblock and copy it in.  */
              if (nca->ptrblock_size)
                {
-                 void *ptrblock = goacc_noncontig_array_create_ptrblock
-                   (nca, target_ptrblock);
+                 void *ptrblock = gomp_malloc (nca->ptrblock_size);
+                 goacc_noncontig_array_create_ptrblock
+                   (nca, ptrblock, target_ptrblock);
                  gomp_copy_host2dev (devicep, aq, target_ptrblock, ptrblock,
                                      nca->ptrblock_size, false, cbufp);
                  if (aq)