1 #include "kmp_config.h" 22 #include "kmp_itt.inl" 28 kmp_int32 __kmp_barrier_domain_count;
29 kmp_int32 __kmp_region_domain_count;
30 __itt_domain* __kmp_itt_barrier_domains[KMP_MAX_FRAME_DOMAINS];
31 __itt_domain* __kmp_itt_region_domains[KMP_MAX_FRAME_DOMAINS];
32 __itt_domain* __kmp_itt_imbalance_domains[KMP_MAX_FRAME_DOMAINS];
33 kmp_int32 __kmp_itt_region_team_size[KMP_MAX_FRAME_DOMAINS];
34 __itt_domain * metadata_domain = NULL;
36 #include "kmp_version.h" 40 KMP_BUILD_ASSERT(
sizeof( kmp_itt_mark_t ) ==
sizeof( __itt_mark_type ) );
52 kmp_int32 __kmp_itt_prepare_delay = 0;
53 kmp_bootstrap_lock_t __kmp_itt_debug_lock = KMP_BOOTSTRAP_LOCK_INITIALIZER( __kmp_itt_debug_lock );
55 #endif // USE_ITT_NOTIFY 57 void __kmp_itt_initialize() {
66 __itt_mark_type version;
67 __kmp_str_buf_init( & buf );
70 "OMP RTL Version %d.%d.%d",
75 if ( __itt_api_version_ptr != NULL ) {
76 __kmp_str_buf_print( & buf,
":%s", __itt_api_version() );
78 version = __itt_mark_create( buf.str );
79 __itt_mark( version, NULL );
80 __kmp_str_buf_free( & buf );
86 void __kmp_itt_destroy() {
88 __kmp_itt_fini_ittlib();
101 case __itt_error_no_module : {
102 char const * library = va_arg( args,
char const * );
104 int sys_err = va_arg( args,
int );
105 __kmp_msg( kmp_ms_warning, KMP_MSG( IttLoadLibFailed, library ), KMP_SYSERRCODE( sys_err ), __kmp_msg_null );
107 char const * sys_err = va_arg( args,
char const * );
108 __kmp_msg( kmp_ms_warning, KMP_MSG( IttLoadLibFailed, library ), KMP_SYSERRMESG( sys_err ), __kmp_msg_null );
111 case __itt_error_no_symbol : {
112 char const * library = va_arg( args,
char const * );
113 char const * symbol = va_arg( args,
char const * );
114 KMP_WARNING( IttLookupFailed, symbol, library );
116 case __itt_error_unknown_group : {
117 char const * var = va_arg( args,
char const * );
118 char const * group = va_arg( args,
char const * );
119 KMP_WARNING( IttUnknownGroup, var, group );
121 case __itt_error_env_too_long : {
122 char const * var = va_arg( args,
char const * );
123 size_t act_len = va_arg( args,
size_t );
124 size_t max_len = va_arg( args,
size_t );
125 KMP_WARNING( IttEnvVarTooLong, var, (
unsigned long) act_len, (
unsigned long) max_len );
127 case __itt_error_cant_read_env : {
128 char const * var = va_arg( args,
char const * );
129 int sys_err = va_arg( args,
int );
130 __kmp_msg( kmp_ms_warning, KMP_MSG( CantGetEnvVar, var ), KMP_ERR( sys_err ), __kmp_msg_null );
132 case __itt_error_system : {
133 char const * func = va_arg( args,
char const * );
134 int sys_err = va_arg( args,
int );
135 __kmp_msg( kmp_ms_warning, KMP_MSG( IttFunctionError, func ), KMP_SYSERRCODE( sys_err ), __kmp_msg_null );
138 KMP_WARNING( IttUnknownError, err );