From: vries <vries@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 19 Dec 2018 15:19:56 +0000 (+0000)
Subject: [openacc] Add oacc_get_default_dim
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=e2509e98e76bbb1f7a6ebd9dcf84b4c281519be1;p=thirdparty%2Fgcc.git

[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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@267274 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f2118d8de8d9..8dc0e289f214 100644
--- 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 4457e1a3079b..9c7bd7328d10 100644
--- 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 6186f03649e9..14edcad8a7d3 100644
--- 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;