diff options
-rw-r--r-- | libgomp/affinity-fmt.c | 3 | ||||
-rw-r--r-- | libgomp/env.c | 2 | ||||
-rw-r--r-- | libgomp/fortran.c | 1 | ||||
-rw-r--r-- | libgomp/icv-device.c | 17 | ||||
-rw-r--r-- | libgomp/icv.c | 2 |
5 files changed, 18 insertions, 7 deletions
diff --git a/libgomp/affinity-fmt.c b/libgomp/affinity-fmt.c index 9f40e37f9a1..75940b554a7 100644 --- a/libgomp/affinity-fmt.c +++ b/libgomp/affinity-fmt.c @@ -37,6 +37,9 @@ #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) { diff --git a/libgomp/env.c b/libgomp/env.c index 9216998f6f7..69ce1d24ee0 100644 --- a/libgomp/env.c +++ b/libgomp/env.c @@ -1416,7 +1416,7 @@ handle_omp_display_env (void) gomp_error ("Invalid value for environment variable OMP_DISPLAY_ENV"); if (display) - omp_display_env (verbose); + ialias_call (omp_display_env) (verbose); } diff --git a/libgomp/fortran.c b/libgomp/fortran.c index 07f97656e51..d171c7992eb 100644 --- a/libgomp/fortran.c +++ b/libgomp/fortran.c @@ -96,6 +96,7 @@ ialias_redirect (omp_destroy_allocator) 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 diff --git a/libgomp/icv-device.c b/libgomp/icv-device.c index f11bdfa85c4..709ceeb7b01 100644 --- a/libgomp/icv-device.c +++ b/libgomp/icv-device.c @@ -35,6 +35,8 @@ omp_set_default_device (int device_num) icv->default_device_var = device_num >= 0 ? device_num : 0; } +ialias (omp_set_default_device) + int omp_get_default_device (void) { @@ -42,18 +44,24 @@ 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) { @@ -61,17 +69,14 @@ 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) diff --git a/libgomp/icv.c b/libgomp/icv.c index e32e5b2fdb0..4b4892fb35e 100644 --- a/libgomp/icv.c +++ b/libgomp/icv.c @@ -30,6 +30,8 @@ #include "gomp-constants.h" #include <limits.h> +ialias_redirect (omp_get_active_level) + void omp_set_num_threads (int n) { |