OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tom de Vries 2017-06-27 15:51:48 +00:00 committed by Tom de Vries
parent 22f1a03704
commit dfb15f6bbb
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgomp/ChangeLog
View File

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

12
libgomp/plugin/plugin-nvptx.c
View File

@ -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;