Show value of GOMP_OPENACC_DIM in libgomp nvptx plugin

2017-06-27  Tom de Vries  <tom@codesourcery.com>

	* plugin/plugin-nvptx.c (notify_var): New function.
	(nvptx_exec): Use notify_var for GOMP_OPENACC_DIM.

From-SVN: r249695

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 8a82d4f5aa6ea54f673aa67acbdad1c187d2a04f..0b5ee745dfb7bd4cbc9f979647fc74e496724b55 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,8 @@
+2017-06-27  Tom de Vries  <tom@codesourcery.com>
+
+       * plugin/plugin-nvptx.c (notify_var): New function.
+       (nvptx_exec): Use notify_var for GOMP_OPENACC_DIM.
+
 2017-06-27  Tom de Vries  <tom@codesourcery.com>
 
        * env.c (parse_unsigned_long_1): Factor out of ...

diff --git a/libgomp/plugin/plugin-nvptx.c b/libgomp/plugin/plugin-nvptx.c
index 0e1b3e2d4f3fc97dbe1861304f173c0ab251c7bc..71630b5735522d7f1c0f70cb1d70dd53ec174a87 100644 (file)
--- a/libgomp/plugin/plugin-nvptx.c
+++ b/libgomp/plugin/plugin-nvptx.c
@@ -867,6 +867,14 @@ nvptx_get_num_devices (void)
   return n;
 }
 
+static void
+notify_var (const char *var_name, const char *env_var)
+{
+  if (env_var == NULL)
+    GOMP_PLUGIN_debug (0, "%s: <Not defined>\n", var_name);
+  else
+    GOMP_PLUGIN_debug (0, "%s: '%s'\n", var_name, env_var);
+}
 
 static bool
 link_ptx (CUmodule *module, const struct targ_ptx_obj *ptx_objs,
@@ -1089,10 +1097,12 @@ nvptx_exec (void (*fn), size_t mapnum, void **hostaddrs, void **devaddrs,
       pthread_mutex_lock (&ptx_dev_lock);
       if (!default_dims[0])
        {
+         const char *var_name = "GOMP_OPENACC_DIM";
          /* We only read the environment variable once.  You can't
             change it in the middle of execution.  The syntax  is
             the same as for the -fopenacc-dim compilation option.  */
-         const char *env_var = getenv ("GOMP_OPENACC_DIM");
+         const char *env_var = getenv (var_name);
+         notify_var (var_name, env_var);
          if (env_var)
            {
              const char *pos = env_var;