1 #include "kmp_config.h" 20 #include "kmp_itt.inl" 25 kmp_int32 __kmp_barrier_domain_count;
26 kmp_int32 __kmp_region_domain_count;
27 __itt_domain *__kmp_itt_barrier_domains[KMP_MAX_FRAME_DOMAINS];
28 __itt_domain *__kmp_itt_region_domains[KMP_MAX_FRAME_DOMAINS];
29 __itt_domain *__kmp_itt_imbalance_domains[KMP_MAX_FRAME_DOMAINS];
30 kmp_int32 __kmp_itt_region_team_size[KMP_MAX_FRAME_DOMAINS];
31 __itt_domain *metadata_domain = NULL;
32 __itt_string_handle *string_handle_imbl = NULL;
33 __itt_string_handle *string_handle_loop = NULL;
34 __itt_string_handle *string_handle_sngl = NULL;
38 #include "kmp_version.h" 40 KMP_BUILD_ASSERT(
sizeof(kmp_itt_mark_t) ==
sizeof(__itt_mark_type));
50 kmp_int32 __kmp_itt_prepare_delay = 0;
51 kmp_bootstrap_lock_t __kmp_itt_debug_lock =
52 KMP_BOOTSTRAP_LOCK_INITIALIZER(__kmp_itt_debug_lock);
54 #endif // USE_ITT_NOTIFY 56 void __kmp_itt_initialize() {
65 __itt_mark_type version;
66 __kmp_str_buf_init(&buf);
67 __kmp_str_buf_print(&buf,
"OMP RTL Version %d.%d.%d", __kmp_version_major,
68 __kmp_version_minor, __kmp_version_build);
69 if (__itt_api_version_ptr != NULL) {
70 __kmp_str_buf_print(&buf,
":%s", __itt_api_version());
72 version = __itt_mark_create(buf.str);
73 __itt_mark(version, NULL);
74 __kmp_str_buf_free(&buf);
79 void __kmp_itt_destroy() {
81 __kmp_itt_fini_ittlib();
85 extern "C" void __itt_error_handler(__itt_error_code err, va_list args) {
88 case __itt_error_no_module: {
89 char const *library = va_arg(args,
char const *);
91 int sys_err = va_arg(args,
int);
92 kmp_msg_t err_code = KMP_SYSERRCODE(sys_err);
93 __kmp_msg(kmp_ms_warning, KMP_MSG(IttLoadLibFailed, library), err_code,
95 if (__kmp_generate_warnings == kmp_warnings_off) {
96 __kmp_str_free(&err_code.str);
99 char const *sys_err = va_arg(args,
char const *);
100 kmp_msg_t err_code = KMP_SYSERRMESG(sys_err);
101 __kmp_msg(kmp_ms_warning, KMP_MSG(IttLoadLibFailed, library), err_code,
103 if (__kmp_generate_warnings == kmp_warnings_off) {
104 __kmp_str_free(&err_code.str);
108 case __itt_error_no_symbol: {
109 char const *library = va_arg(args,
char const *);
110 char const *symbol = va_arg(args,
char const *);
111 KMP_WARNING(IttLookupFailed, symbol, library);
113 case __itt_error_unknown_group: {
114 char const *var = va_arg(args,
char const *);
115 char const *group = va_arg(args,
char const *);
116 KMP_WARNING(IttUnknownGroup, var, group);
118 case __itt_error_env_too_long: {
119 char const *var = va_arg(args,
char const *);
120 size_t act_len = va_arg(args,
size_t);
121 size_t max_len = va_arg(args,
size_t);
122 KMP_WARNING(IttEnvVarTooLong, var, (
unsigned long)act_len,
123 (
unsigned long)max_len);
125 case __itt_error_cant_read_env: {
126 char const *var = va_arg(args,
char const *);
127 int sys_err = va_arg(args,
int);
128 kmp_msg_t err_code = KMP_ERR(sys_err);
129 __kmp_msg(kmp_ms_warning, KMP_MSG(CantGetEnvVar, var), err_code,
131 if (__kmp_generate_warnings == kmp_warnings_off) {
132 __kmp_str_free(&err_code.str);
135 case __itt_error_system: {
136 char const *func = va_arg(args,
char const *);
137 int sys_err = va_arg(args,
int);
138 kmp_msg_t err_code = KMP_SYSERRCODE(sys_err);
139 __kmp_msg(kmp_ms_warning, KMP_MSG(IttFunctionError, func), err_code,
141 if (__kmp_generate_warnings == kmp_warnings_off) {
142 __kmp_str_free(&err_code.str);
145 default: { KMP_WARNING(IttUnknownError, err); }