[openacc] Add oacc_get_default_dim

Expose oacc_default_dims to backends.

2018-12-19  Tom de Vries  <tdevries@suse.de>

	* omp-offload.c (oacc_get_default_dim): New function.
	* omp-offload.h (oacc_get_default_dim): Declare.

From-SVN: r267274

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f2118d8de8d94e7ec2f19547dbfb06fe657a63e8..8dc0e289f214d2e002a6983166536a702594dbcf 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2018-12-19  Tom de Vries  <tdevries@suse.de>
+
+       * omp-offload.c (oacc_get_default_dim): New function.
+       * omp-offload.h (oacc_get_default_dim): Declare.
+
 2018-12-19  David Malcolm  <dmalcolm@redhat.com>
 
        PR c++/87504

diff --git a/gcc/omp-offload.c b/gcc/omp-offload.c
index 4457e1a3079b08ef57b8717a6f83e76ae9b8efc1..9c7bd7328d1006bb1cb01bddb98cbd3b898ef677 100644 (file)
--- a/gcc/omp-offload.c
+++ b/gcc/omp-offload.c
@@ -573,6 +573,13 @@ oacc_xform_tile (gcall *call)
 static int oacc_default_dims[GOMP_DIM_MAX];
 static int oacc_min_dims[GOMP_DIM_MAX];
 
+int
+oacc_get_default_dim (int dim)
+{
+  gcc_assert (0 <= dim && dim < GOMP_DIM_MAX);
+  return oacc_default_dims[dim];
+}
+
 /* Parse the default dimension parameter.  This is a set of
    :-separated optional compute dimensions.  Each specified dimension
    is a positive integer.  When device type support is added, it is

diff --git a/gcc/omp-offload.h b/gcc/omp-offload.h
index 6186f03649e931c9817d0f7bb0131b4ee321fe7d..14edcad8a7d3a037ecb7699a0a29d98e3cea14eb 100644 (file)
--- a/gcc/omp-offload.h
+++ b/gcc/omp-offload.h
@@ -22,6 +22,8 @@ along with GCC; see the file COPYING3.  If not see
 #ifndef GCC_OMP_DEVICE_H
 #define GCC_OMP_DEVICE_H
 
+extern int oacc_get_default_dim (int dim);
+
 extern GTY(()) vec<tree, va_gc> *offload_funcs;
 extern GTY(()) vec<tree, va_gc> *offload_vars;