#include <sys/utsname.h>
#endif
+ialias_redirect (omp_get_team_num)
+ialias_redirect (omp_get_num_teams)
+
bool
gomp_print_string (const char *str, size_t len)
{
gomp_error ("Invalid value for environment variable OMP_DISPLAY_ENV");
if (display)
- omp_display_env (verbose);
+ ialias_call (omp_display_env) (verbose);
}
ialias_redirect (omp_set_default_allocator)
ialias_redirect (omp_get_default_allocator)
ialias_redirect (omp_display_env)
+ialias_redirect (omp_fulfill_event)
#endif
#ifndef LIBGOMP_GNU_SYMBOL_VERSIONING
icv->default_device_var = device_num >= 0 ? device_num : 0;
}
+ialias (omp_set_default_device)
+
int
omp_get_default_device (void)
{
return icv->default_device_var;
}
+ialias (omp_get_default_device)
+
int
omp_get_initial_device (void)
{
return gomp_get_num_devices ();
}
+ialias (omp_get_initial_device)
+
int
omp_get_num_devices (void)
{
return gomp_get_num_devices ();
}
+ialias (omp_get_num_devices)
+
int
omp_is_initial_device (void)
{
return 1;
}
+ialias (omp_is_initial_device)
+
int
omp_get_device_num (void)
{
/* By specification, this is equivalent to omp_get_initial_device
on the host. */
- return omp_get_initial_device ();
+ return ialias_call (omp_get_initial_device) ();
}
-ialias (omp_set_default_device)
-ialias (omp_get_default_device)
-ialias (omp_get_initial_device)
-ialias (omp_get_num_devices)
-ialias (omp_is_initial_device)
ialias (omp_get_device_num)
#include "gomp-constants.h"
#include <limits.h>
+ialias_redirect (omp_get_active_level)
+
void
omp_set_num_threads (int n)
{