diff --git a/libgomp/affinity-fmt.c b/libgomp/affinity-fmt.c index 9f40e37f9a1e4405164f1c77661a56f3b7b1a1ff..75940b554a7a3427d0978f777e3a61b6e16066f4 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 9216998f6f7bbfbe2bc86700826e718a2425753a..69ce1d24ee001f786ae960c185a1092f3b966e18 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 07f97656e51c0ca051728ee4d4f91a500d184d1e..d171c7992eb0f5a43a675cfe0cb1ea7fd0e4eb5e 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 f11bdfa85c48c67c7e6ec7091d8d4542449713dc..709ceeb7b01f9f83d670b60c3da7a081a34bcbdf 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 e32e5b2fdb0f3fadc3fcc532c4fa0390a618ea10..4b4892fb35ed98431fa3c4ee3fc4ccbcbf2354de 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) {