This is an archive of the discontinued LLVM Phabricator instance.

Differential D58211

[5.0] Add omp_get_supported_active_levels()
ClosedPublic

Authored by tlwilmar on Feb 13 2019, 2:57 PM.

Details

Reviewers
jlpeyton
hbae
Commits
rOMP354368: [OpenMP 5.0] Add omp_get_supported_active_levels()
rG154ac075cd04: [OpenMP 5.0] Add omp_get_supported_active_levels()
rL354368: [OpenMP 5.0] Add omp_get_supported_active_levels()
Summary

This patch adds the new 5.0 API function omp_get_supported_active_levels().

Diff Detail

Repository
rOMP OpenMP

Event Timeline

tlwilmar created this revision.Feb 13 2019, 2:57 PM
Herald added a subscriber: jdoerfert. · View Herald TranscriptFeb 13 2019, 2:57 PM
hbae accepted this revision.Feb 13 2019, 3:11 PM

LGTM

This revision is now accepted and ready to land.Feb 13 2019, 3:11 PM
Closed by commit rL354368: [OpenMP 5.0] Add omp_get_supported_active_levels() (authored by jlpeyton). · Explain WhyFeb 19 2019, 10:50 AM
This revision was automatically updated to reflect the committed changes.
Herald added a project: Restricted Project. · View Herald TranscriptFeb 19 2019, 10:50 AM
Herald added a subscriber: llvm-commits. · View Herald Transcript

Revision Contents

PathSize
runtime/
src/
1 line
include/
50/
2 lines
7 lines
9 lines
5 lines
10 lines
4 lines
test/
parallel/
1 line

Diff 186750

runtime/src/dllexports

Show First 20 Lines • Show All 550 Lines • ▼ Show 20 Lines%ifdef OMP_50
omp_display_affinity 750 omp_display_affinity 750
omp_capture_affinity 751 omp_capture_affinity 751
ompc_set_affinity_format 752 ompc_set_affinity_format 752
ompc_get_affinity_format 753 ompc_get_affinity_format 753
ompc_display_affinity 754 ompc_display_affinity 754
ompc_capture_affinity 755 ompc_capture_affinity 755
omp_pause_resource 756 omp_pause_resource 756
omp_pause_resource_all 757 omp_pause_resource_all 757
omp_get_supported_active_levels 758
OMP_NULL_ALLOCATOR DATA OMP_NULL_ALLOCATOR DATA
omp_default_mem_alloc DATA omp_default_mem_alloc DATA
omp_large_cap_mem_alloc DATA omp_large_cap_mem_alloc DATA
omp_const_mem_alloc DATA omp_const_mem_alloc DATA
omp_high_bw_mem_alloc DATA omp_high_bw_mem_alloc DATA
omp_low_lat_mem_alloc DATA omp_low_lat_mem_alloc DATA
omp_cgroup_mem_alloc DATA omp_cgroup_mem_alloc DATA
▲ Show 20 Lines • Show All 651 Lines • Show Last 20 Lines

runtime/src/include/50/omp.h.var

Show First 20 Lines • Show All 251 Lines • ▼ Show 20 Lines#endif
typedef enum omp_pause_resource_t { typedef enum omp_pause_resource_t {
omp_pause_resume = 0, omp_pause_resume = 0,
omp_pause_soft = 1, omp_pause_soft = 1,
omp_pause_hard = 2 omp_pause_hard = 2
} omp_pause_resource_t; } omp_pause_resource_t;
extern int __KAI_KMPC_CONVENTION omp_pause_resource(omp_pause_resource_t, int); extern int __KAI_KMPC_CONVENTION omp_pause_resource(omp_pause_resource_t, int);
extern int __KAI_KMPC_CONVENTION omp_pause_resource_all(omp_pause_resource_t); extern int __KAI_KMPC_CONVENTION omp_pause_resource_all(omp_pause_resource_t);
extern int __KAI_KMPC_CONVENTION omp_get_supported_active_levels(void);
# undef __KAI_KMPC_CONVENTION # undef __KAI_KMPC_CONVENTION
# undef __KMP_IMP # undef __KMP_IMP
/* Warning: /* Warning:
The following typedefs are not standard, deprecated and will be removed in a future release. The following typedefs are not standard, deprecated and will be removed in a future release.
*/ */
typedef int omp_int_t; typedef int omp_int_t;
typedef double omp_wtime_t; typedef double omp_wtime_t;
# ifdef __cplusplus # ifdef __cplusplus
} }
# endif # endif
#endif /* __OMP_H */ #endif /* __OMP_H */

runtime/src/include/50/omp_lib.h.var

Show First 20 Lines • Show All 346 Lines • ▼ Show 20 Lines! ***
end function omp_pause_resource end function omp_pause_resource
function omp_pause_resource_all(kind) bind(c) function omp_pause_resource_all(kind) bind(c)
import import
integer (kind=omp_pause_resource_kind), value :: kind integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind) omp_pause_resource_all integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all end function omp_pause_resource_all
function omp_get_supported_active_levels() bind(c)
import
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_init_lock(svar) bind(c) subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400) !DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock !DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF !DIR$ ENDIF
import import
integer (kind=omp_lock_kind) svar integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock end subroutine omp_init_lock
▲ Show 20 Lines • Show All 306 Lines • ▼ Show 20 Lines
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_initial_device !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_device_num !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_device_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource_all !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource_all
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_supported_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
▲ Show 20 Lines • Show All 65 Lines • ▼ Show 20 Lines
!$omp declare target(omp_get_default_device ) !$omp declare target(omp_get_default_device )
!$omp declare target(omp_set_default_device ) !$omp declare target(omp_set_default_device )
!$omp declare target(omp_is_initial_device ) !$omp declare target(omp_is_initial_device )
!$omp declare target(omp_get_initial_device ) !$omp declare target(omp_get_initial_device )
!$omp declare target(omp_get_num_devices ) !$omp declare target(omp_get_num_devices )
!$omp declare target(omp_get_device_num ) !$omp declare target(omp_get_device_num )
!$omp declare target(omp_pause_resource ) !$omp declare target(omp_pause_resource )
!$omp declare target(omp_pause_resource_all ) !$omp declare target(omp_pause_resource_all )
!$omp declare target(omp_get_supported_active_levels )
!$omp declare target(omp_get_num_teams ) !$omp declare target(omp_get_num_teams )
!$omp declare target(omp_get_team_num ) !$omp declare target(omp_get_team_num )
!$omp declare target(omp_init_lock ) !$omp declare target(omp_init_lock )
!$omp declare target(omp_destroy_lock ) !$omp declare target(omp_destroy_lock )
!$omp declare target(omp_set_lock ) !$omp declare target(omp_set_lock )
!$omp declare target(omp_unset_lock ) !$omp declare target(omp_unset_lock )
!$omp declare target(omp_test_lock ) !$omp declare target(omp_test_lock )
!$omp declare target(omp_init_nest_lock ) !$omp declare target(omp_init_nest_lock )
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

runtime/src/include/50/omp_lib.f.var

Show First 20 Lines • Show All 295 Lines • ▼ Show 20 Lines! ***
end function omp_pause_resource end function omp_pause_resource
function omp_pause_resource_all(kind) function omp_pause_resource_all(kind)
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_pause_resource_kind) kind integer (kind=omp_pause_resource_kind) kind
integer (kind=omp_integer_kind) omp_pause_resource_all integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all end function omp_pause_resource_all
function omp_get_supported_active_levels()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_init_lock(svar) subroutine omp_init_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400) !DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock !DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF !DIR$ ENDIF
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_lock_kind) svar integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock end subroutine omp_init_lock
▲ Show 20 Lines • Show All 324 Lines • ▼ Show 20 Lines
!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num !dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation !dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device !dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device !dec$ attributes alias:'OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device
!dec$ attributes alias:'OMP_GET_MAX_TASK_PRIORITY' :: omp_get_max_task_priority !dec$ attributes alias:'OMP_GET_MAX_TASK_PRIORITY' :: omp_get_max_task_priority
!dec$ attributes alias:'OMP_GET_DEVICE_NUM' :: omp_get_device_num !dec$ attributes alias:'OMP_GET_DEVICE_NUM' :: omp_get_device_num
!dec$ attributes alias:'OMP_PAUSE_RESOURCE' :: omp_pause_resource !dec$ attributes alias:'OMP_PAUSE_RESOURCE' :: omp_pause_resource
!dec$ attributes alias:'OMP_PAUSE_RESOURCE_ALL' :: omp_pause_resource_all !dec$ attributes alias:'OMP_PAUSE_RESOURCE_ALL' :: omp_pause_resource_all
!dec$ attributes alias:'OMP_GET_SUPPORTED_ACTIVE_LEVELS' :: omp_get_supported_active_levels
!dec$ attributes alias:'OMP_CONTROL_TOOL' :: omp_control_tool !dec$ attributes alias:'OMP_CONTROL_TOOL' :: omp_control_tool
!dec$ attributes alias:'OMP_SET_AFFINITY_FORMAT' :: omp_set_affinity_format !dec$ attributes alias:'OMP_SET_AFFINITY_FORMAT' :: omp_set_affinity_format
!dec$ attributes alias:'OMP_GET_AFFINITY_FORMAT' :: omp_get_affinity_format !dec$ attributes alias:'OMP_GET_AFFINITY_FORMAT' :: omp_get_affinity_format
!dec$ attributes alias:'OMP_DISPLAY_AFFINITY' :: omp_display_affinity !dec$ attributes alias:'OMP_DISPLAY_AFFINITY' :: omp_display_affinity
!dec$ attributes alias:'OMP_CAPTURE_AFFINITY' :: omp_capture_affinity !dec$ attributes alias:'OMP_CAPTURE_AFFINITY' :: omp_capture_affinity
!dec$ attributes alias:'omp_init_lock' :: omp_init_lock !dec$ attributes alias:'omp_init_lock' :: omp_init_lock
▲ Show 20 Lines • Show All 74 Lines • ▼ Show 20 Lines
!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num !dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation !dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device !dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'_OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device !dec$ attributes alias:'_OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device
!dec$ attributes alias:'_OMP_GET_MAX_TASK_PRIORTY' :: omp_get_max_task_priority !dec$ attributes alias:'_OMP_GET_MAX_TASK_PRIORTY' :: omp_get_max_task_priority
!dec$ attributes alias:'_OMP_GET_DEVICE_NUM' :: omp_get_device_num !dec$ attributes alias:'_OMP_GET_DEVICE_NUM' :: omp_get_device_num
!dec$ attributes alias:'_OMP_PAUSE_RESOURCE' :: omp_pause_resource !dec$ attributes alias:'_OMP_PAUSE_RESOURCE' :: omp_pause_resource
!dec$ attributes alias:'_OMP_PAUSE_RESOURCE_ALL' :: omp_pause_resource_all !dec$ attributes alias:'_OMP_PAUSE_RESOURCE_ALL' :: omp_pause_resource_all
!dec$ attributes alias:'_OMP_GET_SUPPORTED_ACTIVE_LEVELS' :: omp_get_supported_active_levels
!dec$ attributes alias:'_OMP_CONTROL_TOOL' :: omp_control_tool !dec$ attributes alias:'_OMP_CONTROL_TOOL' :: omp_control_tool
!dec$ attributes alias:'_OMP_SET_AFFINITY_FORMAT' :: omp_set_affinity_format !dec$ attributes alias:'_OMP_SET_AFFINITY_FORMAT' :: omp_set_affinity_format
!dec$ attributes alias:'_OMP_GET_AFFINITY_FORMAT' :: omp_get_affinity_format !dec$ attributes alias:'_OMP_GET_AFFINITY_FORMAT' :: omp_get_affinity_format
!dec$ attributes alias:'_OMP_DISPLAY_AFFINITY' :: omp_display_affinity !dec$ attributes alias:'_OMP_DISPLAY_AFFINITY' :: omp_display_affinity
!dec$ attributes alias:'_OMP_CAPTURE_AFFINITY' :: omp_capture_affinity !dec$ attributes alias:'_OMP_CAPTURE_AFFINITY' :: omp_capture_affinity
!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock !dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
▲ Show 20 Lines • Show All 77 Lines • ▼ Show 20 Lines
!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num !dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation !dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device !dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'omp_get_initial_device_'::omp_get_initial_device !dec$ attributes alias:'omp_get_initial_device_'::omp_get_initial_device
!dec$ attributes alias:'omp_get_max_task_priority_'::omp_get_max_task_priority !dec$ attributes alias:'omp_get_max_task_priority_'::omp_get_max_task_priority
!dec$ attributes alias:'omp_get_device_num_'::omp_get_device_num !dec$ attributes alias:'omp_get_device_num_'::omp_get_device_num
!dec$ attributes alias:'omp_pause_resource_' :: omp_pause_resource !dec$ attributes alias:'omp_pause_resource_' :: omp_pause_resource
!dec$ attributes alias:'omp_pause_resource_all_' :: omp_pause_resource_all !dec$ attributes alias:'omp_pause_resource_all_' :: omp_pause_resource_all
!dec$ attributes alias:'omp_get_supported_active_levels_' :: omp_get_supported_active_levels
!dec$ attributes alias:'omp_set_affinity_format_' :: omp_set_affinity_format !dec$ attributes alias:'omp_set_affinity_format_' :: omp_set_affinity_format
!dec$ attributes alias:'omp_get_affinity_format_' :: omp_get_affinity_format !dec$ attributes alias:'omp_get_affinity_format_' :: omp_get_affinity_format
!dec$ attributes alias:'omp_display_affinity_' :: omp_display_affinity !dec$ attributes alias:'omp_display_affinity_' :: omp_display_affinity
!dec$ attributes alias:'omp_capture_affinity_' :: omp_capture_affinity !dec$ attributes alias:'omp_capture_affinity_' :: omp_capture_affinity
!dec$ attributes alias:'omp_init_lock_'::omp_init_lock !dec$ attributes alias:'omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'omp_init_lock_with_hint_'::omp_init_lock_with_hint !dec$ attributes alias:'omp_init_lock_with_hint_'::omp_init_lock_with_hint
▲ Show 20 Lines • Show All 76 Lines • ▼ Show 20 Lines
!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num !dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation !dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device !dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'_omp_get_initial_device_'::omp_get_initial_device !dec$ attributes alias:'_omp_get_initial_device_'::omp_get_initial_device
!dec$ attributes alias:'_omp_get_max_task_priorty_'::omp_get_max_task_priority !dec$ attributes alias:'_omp_get_max_task_priorty_'::omp_get_max_task_priority
!dec$ attributes alias:'_omp_get_device_num_'::omp_get_device_num !dec$ attributes alias:'_omp_get_device_num_'::omp_get_device_num
!dec$ attributes alias:'_omp_pause_resource_' :: omp_pause_resource !dec$ attributes alias:'_omp_pause_resource_' :: omp_pause_resource
!dec$ attributes alias:'_omp_pause_resource_all_' :: omp_pause_resource_all !dec$ attributes alias:'_omp_pause_resource_all_' :: omp_pause_resource_all
!dec$ attributes alias:'_omp_get_supported_active_levels_' :: omp_get_supported_active_levels
!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock !dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'_omp_init_lock_with_hint_'::omp_init_lock_with_hint !dec$ attributes alias:'_omp_init_lock_with_hint_'::omp_init_lock_with_hint
!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock !dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock !dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock !dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock !dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock !dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
▲ Show 20 Lines • Show All 44 Lines • Show Last 20 Lines

runtime/src/include/50/omp_lib.f90.var

Show First 20 Lines • Show All 311 Lines • ▼ Show 20 Lines! ***
end function omp_pause_resource end function omp_pause_resource
function omp_pause_resource_all(kind) bind(c) function omp_pause_resource_all(kind) bind(c)
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_pause_resource_kind), value :: kind integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind) omp_pause_resource_all integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all end function omp_pause_resource_all
function omp_get_supported_active_levels() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_init_lock(svar) bind(c) subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400) !DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock !DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF !DIR$ ENDIF
use omp_lib_kinds use omp_lib_kinds
integer (kind=omp_lock_kind) svar integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock end subroutine omp_init_lock
▲ Show 20 Lines • Show All 288 Lines • Show Last 20 Lines

runtime/src/kmp_ftn_entry.h

Show First 20 Lines • Show All 1,365 Lines • ▼ Show 20 Lines#if !KMP_OS_WINDOWS
if ((*(void **)(&fptr) = dlsym(RTLD_DEFAULT, "tgt_pause_resource"))) if ((*(void **)(&fptr) = dlsym(RTLD_DEFAULT, "tgt_pause_resource")))
fails = (*fptr)(kind, KMP_DEVICE_ALL); // pause devices fails = (*fptr)(kind, KMP_DEVICE_ALL); // pause devices
#endif #endif
fails += __kmpc_pause_resource(kind); // pause host fails += __kmpc_pause_resource(kind); // pause host
return fails; return fails;
#endif #endif
} }
// Returns the maximum number of nesting levels supported by implementation
int FTN_STDCALL FTN_GET_SUPPORTED_ACTIVE_LEVELS(void) {
#ifdef KMP_STUB
return 1;
#else
return KMP_MAX_ACTIVE_LEVELS_LIMIT;
#endif
}
#endif // OMP_50_ENABLED #endif // OMP_50_ENABLED
// GCC compatibility (versioned symbols) // GCC compatibility (versioned symbols)
#ifdef KMP_USE_VERSION_SYMBOLS #ifdef KMP_USE_VERSION_SYMBOLS
/* These following sections create versioned symbols for the /* These following sections create versioned symbols for the
omp_* routines. The KMP_VERSION_SYMBOL macro expands the API name and omp_* routines. The KMP_VERSION_SYMBOL macro expands the API name and
then maps it to a versioned symbol. then maps it to a versioned symbol.
▲ Show 20 Lines • Show All 89 Lines • ▼ Show 20 Lines
// KMP_VERSION_SYMBOL(FTN_GET_INITIAL_DEVICE, 45, "OMP_4.5"); // KMP_VERSION_SYMBOL(FTN_GET_INITIAL_DEVICE, 45, "OMP_4.5");
#endif #endif
#if OMP_50_ENABLED #if OMP_50_ENABLED
// OMP_5.0 versioned symbols // OMP_5.0 versioned symbols
// KMP_VERSION_SYMBOL(FTN_GET_DEVICE_NUM, 50, "OMP_5.0"); // KMP_VERSION_SYMBOL(FTN_GET_DEVICE_NUM, 50, "OMP_5.0");
// KMP_VERSION_SYMBOL(FTN_PAUSE_RESOURCE, 50, "OMP_5.0"); // KMP_VERSION_SYMBOL(FTN_PAUSE_RESOURCE, 50, "OMP_5.0");
// KMP_VERSION_SYMBOL(FTN_PAUSE_RESOURCE_ALL, 50, "OMP_5.0"); // KMP_VERSION_SYMBOL(FTN_PAUSE_RESOURCE_ALL, 50, "OMP_5.0");
// KMP_VERSION_SYMBOL(FTN_GET_SUPPORTED_ACTIVE_LEVELS, 50, "OMP_5.0");
#endif #endif
#endif // KMP_USE_VERSION_SYMBOLS #endif // KMP_USE_VERSION_SYMBOLS
#ifdef __cplusplus #ifdef __cplusplus
} // extern "C" } // extern "C"
#endif // __cplusplus #endif // __cplusplus
// end of file // // end of file //

runtime/src/kmp_ftn_os.h

Show First 20 Lines • Show All 137 Lines • ▼ Show 20 Lines
#define FTN_FREE omp_free #define FTN_FREE omp_free
#define FTN_GET_DEVICE_NUM omp_get_device_num #define FTN_GET_DEVICE_NUM omp_get_device_num
#define FTN_SET_AFFINITY_FORMAT omp_set_affinity_format #define FTN_SET_AFFINITY_FORMAT omp_set_affinity_format
#define FTN_GET_AFFINITY_FORMAT omp_get_affinity_format #define FTN_GET_AFFINITY_FORMAT omp_get_affinity_format
#define FTN_DISPLAY_AFFINITY omp_display_affinity #define FTN_DISPLAY_AFFINITY omp_display_affinity
#define FTN_CAPTURE_AFFINITY omp_capture_affinity #define FTN_CAPTURE_AFFINITY omp_capture_affinity
#define FTN_PAUSE_RESOURCE omp_pause_resource #define FTN_PAUSE_RESOURCE omp_pause_resource
#define FTN_PAUSE_RESOURCE_ALL omp_pause_resource_all #define FTN_PAUSE_RESOURCE_ALL omp_pause_resource_all
#define FTN_GET_SUPPORTED_ACTIVE_LEVELS omp_get_supported_active_levels
#endif #endif
#endif /* KMP_FTN_PLAIN */ #endif /* KMP_FTN_PLAIN */
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if KMP_FTN_ENTRIES == KMP_FTN_APPEND #if KMP_FTN_ENTRIES == KMP_FTN_APPEND
▲ Show 20 Lines • Show All 115 Lines • ▼ Show 20 Lines
#define FTN_FREE omp_free_ #define FTN_FREE omp_free_
#define FTN_GET_DEVICE_NUM omp_get_device_num_ #define FTN_GET_DEVICE_NUM omp_get_device_num_
#define FTN_SET_AFFINITY_FORMAT omp_set_affinity_format_ #define FTN_SET_AFFINITY_FORMAT omp_set_affinity_format_
#define FTN_GET_AFFINITY_FORMAT omp_get_affinity_format_ #define FTN_GET_AFFINITY_FORMAT omp_get_affinity_format_
#define FTN_DISPLAY_AFFINITY omp_display_affinity_ #define FTN_DISPLAY_AFFINITY omp_display_affinity_
#define FTN_CAPTURE_AFFINITY omp_capture_affinity_ #define FTN_CAPTURE_AFFINITY omp_capture_affinity_
#define FTN_PAUSE_RESOURCE omp_pause_resource_ #define FTN_PAUSE_RESOURCE omp_pause_resource_
#define FTN_PAUSE_RESOURCE_ALL omp_pause_resource_all_ #define FTN_PAUSE_RESOURCE_ALL omp_pause_resource_all_
#define FTN_GET_SUPPORTED_ACTIVE_LEVELS omp_get_supported_active_levels_
#endif #endif
#endif /* KMP_FTN_APPEND */ #endif /* KMP_FTN_APPEND */
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if KMP_FTN_ENTRIES == KMP_FTN_UPPER #if KMP_FTN_ENTRIES == KMP_FTN_UPPER
▲ Show 20 Lines • Show All 115 Lines • ▼ Show 20 Lines
#define FTN_FREE OMP_FREE #define FTN_FREE OMP_FREE
#define FTN_GET_DEVICE_NUM OMP_GET_DEVICE_NUM #define FTN_GET_DEVICE_NUM OMP_GET_DEVICE_NUM
#define FTN_SET_AFFINITY_FORMAT OMP_SET_AFFINITY_FORMAT #define FTN_SET_AFFINITY_FORMAT OMP_SET_AFFINITY_FORMAT
#define FTN_GET_AFFINITY_FORMAT OMP_GET_AFFINITY_FORMAT #define FTN_GET_AFFINITY_FORMAT OMP_GET_AFFINITY_FORMAT
#define FTN_DISPLAY_AFFINITY OMP_DISPLAY_AFFINITY #define FTN_DISPLAY_AFFINITY OMP_DISPLAY_AFFINITY
#define FTN_CAPTURE_AFFINITY OMP_CAPTURE_AFFINITY #define FTN_CAPTURE_AFFINITY OMP_CAPTURE_AFFINITY
#define FTN_PAUSE_RESOURCE OMP_PAUSE_RESOURCE #define FTN_PAUSE_RESOURCE OMP_PAUSE_RESOURCE
#define FTN_PAUSE_RESOURCE_ALL OMP_PAUSE_RESOURCE_ALL #define FTN_PAUSE_RESOURCE_ALL OMP_PAUSE_RESOURCE_ALL
#define FTN_GET_SUPPORTED_ACTIVE_LEVELS OMP_GET_SUPPORTED_ACTIVE_LEVELS
#endif #endif
#endif /* KMP_FTN_UPPER */ #endif /* KMP_FTN_UPPER */
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if KMP_FTN_ENTRIES == KMP_FTN_UAPPEND #if KMP_FTN_ENTRIES == KMP_FTN_UAPPEND
▲ Show 20 Lines • Show All 115 Lines • ▼ Show 20 Lines
#define FTN_FREE OMP_FREE_ #define FTN_FREE OMP_FREE_
#define FTN_GET_DEVICE_NUM OMP_GET_DEVICE_NUM_ #define FTN_GET_DEVICE_NUM OMP_GET_DEVICE_NUM_
#define FTN_SET_AFFINITY_FORMAT OMP_SET_AFFINITY_FORMAT_ #define FTN_SET_AFFINITY_FORMAT OMP_SET_AFFINITY_FORMAT_
#define FTN_GET_AFFINITY_FORMAT OMP_GET_AFFINITY_FORMAT_ #define FTN_GET_AFFINITY_FORMAT OMP_GET_AFFINITY_FORMAT_
#define FTN_DISPLAY_AFFINITY OMP_DISPLAY_AFFINITY_ #define FTN_DISPLAY_AFFINITY OMP_DISPLAY_AFFINITY_
#define FTN_CAPTURE_AFFINITY OMP_CAPTURE_AFFINITY_ #define FTN_CAPTURE_AFFINITY OMP_CAPTURE_AFFINITY_
#define FTN_PAUSE_RESOURCE OMP_PAUSE_RESOURCE_ #define FTN_PAUSE_RESOURCE OMP_PAUSE_RESOURCE_
#define FTN_PAUSE_RESOURCE_ALL OMP_PAUSE_RESOURCE_ALL_ #define FTN_PAUSE_RESOURCE_ALL OMP_PAUSE_RESOURCE_ALL_
#define FTN_GET_SUPPORTED_ACTIVE_LEVELS OMP_GET_SUPPORTED_ACTIVE_LEVELS_
#endif #endif
#endif /* KMP_FTN_UAPPEND */ #endif /* KMP_FTN_UAPPEND */
/* -------------------------- GOMP API NAMES ------------------------ */ /* -------------------------- GOMP API NAMES ------------------------ */
// All GOMP_1.0 symbols // All GOMP_1.0 symbols
#define KMP_API_NAME_GOMP_ATOMIC_END GOMP_atomic_end #define KMP_API_NAME_GOMP_ATOMIC_END GOMP_atomic_end
#define KMP_API_NAME_GOMP_ATOMIC_START GOMP_atomic_start #define KMP_API_NAME_GOMP_ATOMIC_START GOMP_atomic_start
▲ Show 20 Lines • Show All 129 Lines • Show Last 20 Lines

runtime/test/parallel/omp_nested.c

Show All 13 Lines if (omp_get_max_threads() > 4)
omp_set_num_threads(4); omp_set_num_threads(4);
if (omp_get_max_threads() < 2) if (omp_get_max_threads() < 2)
omp_set_num_threads(2); omp_set_num_threads(2);
#endif #endif
int counter = 0; int counter = 0;
#ifdef _OPENMP #ifdef _OPENMP
omp_set_nested(1); omp_set_nested(1);
omp_set_max_active_levels(omp_get_supported_active_levels());
#endif #endif
#pragma omp parallel shared(counter) #pragma omp parallel shared(counter)
{ {
#pragma omp critical #pragma omp critical
counter++; counter++;
#pragma omp parallel #pragma omp parallel
{ {
Show All 19 Lines