1 #include "kmp_config.h"
2
3 #if USE_ITT_BUILD
4 /*
5 * kmp_itt.cpp -- ITT Notify interface.
6 */
7
8 //===----------------------------------------------------------------------===//
9 //
10 // The LLVM Compiler Infrastructure
11 //
12 // This file is dual licensed under the MIT and the University of Illinois Open
13 // Source Licenses. See LICENSE.txt for details.
14 //
15 //===----------------------------------------------------------------------===//
16
17 #include "kmp_itt.h"
18
19 #if KMP_DEBUG
20 #include "kmp_itt.inl"
21 #endif
22
23 #if USE_ITT_NOTIFY
24
25 #include "ittnotify_config.h"
26 __itt_global __kmp_ittapi_clean_global;
27 extern __itt_global __kmp_itt__ittapi_global;
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;
35 __itt_string_handle *string_handle_imbl = NULL;
36 __itt_string_handle *string_handle_loop = NULL;
37 __itt_string_handle *string_handle_sngl = NULL;
38
39 #include "kmp_i18n.h"
40 #include "kmp_str.h"
41 #include "kmp_version.h"
42
43 KMP_BUILD_ASSERT(sizeof(kmp_itt_mark_t) == sizeof(__itt_mark_type));
44
45 /* Previously used warnings:
46
47 KMP_WARNING( IttAllNotifDisabled );
48 KMP_WARNING( IttObjNotifDisabled );
49 KMP_WARNING( IttMarkNotifDisabled );
50 KMP_WARNING( IttUnloadLibFailed, libittnotify );
51 */
52
53 kmp_int32 __kmp_itt_prepare_delay = 0;
54 kmp_bootstrap_lock_t __kmp_itt_debug_lock =
55 KMP_BOOTSTRAP_LOCK_INITIALIZER(__kmp_itt_debug_lock);
56
57 #endif // USE_ITT_NOTIFY
58
__kmp_itt_reset()59 void __kmp_itt_reset() {
60 #if USE_ITT_NOTIFY
61 __kmp_itt__ittapi_global = __kmp_ittapi_clean_global;
62 #endif
63 }
64
__kmp_itt_initialize()65 void __kmp_itt_initialize() {
66
67 // ITTNotify library is loaded and initialized at first call to any ittnotify
68 // function, so we do not need to explicitly load it any more. Just report OMP
69 // RTL version to ITTNotify.
70
71 #if USE_ITT_NOTIFY
72 // Backup a clean global state
73 __kmp_ittapi_clean_global = __kmp_itt__ittapi_global;
74
75 // Report OpenMP RTL version.
76 kmp_str_buf_t buf;
77 __itt_mark_type version;
78 __kmp_str_buf_init(&buf);
79 __kmp_str_buf_print(&buf, "OMP RTL Version %d.%d.%d", __kmp_version_major,
80 __kmp_version_minor, __kmp_version_build);
81 if (__itt_api_version_ptr != NULL) {
82 __kmp_str_buf_print(&buf, ":%s", __itt_api_version());
83 }
84 version = __itt_mark_create(buf.str);
85 __itt_mark(version, NULL);
86 __kmp_str_buf_free(&buf);
87 #endif
88
89 } // __kmp_itt_initialize
90
__kmp_itt_destroy()91 void __kmp_itt_destroy() {
92 #if USE_ITT_NOTIFY
93 __kmp_itt_fini_ittlib();
94 #endif
95 } // __kmp_itt_destroy
96
__itt_error_handler(__itt_error_code err,va_list args)97 extern "C" void __itt_error_handler(__itt_error_code err, va_list args) {
98
99 switch (err) {
100 case __itt_error_no_module: {
101 char const *library = va_arg(args, char const *);
102 #if KMP_OS_WINDOWS
103 int sys_err = va_arg(args, int);
104 kmp_msg_t err_code = KMP_SYSERRCODE(sys_err);
105 __kmp_msg(kmp_ms_warning, KMP_MSG(IttLoadLibFailed, library), err_code,
106 __kmp_msg_null);
107 if (__kmp_generate_warnings == kmp_warnings_off) {
108 __kmp_str_free(&err_code.str);
109 }
110 #else
111 char const *sys_err = va_arg(args, char const *);
112 kmp_msg_t err_code = KMP_SYSERRMESG(sys_err);
113 __kmp_msg(kmp_ms_warning, KMP_MSG(IttLoadLibFailed, library), err_code,
114 __kmp_msg_null);
115 if (__kmp_generate_warnings == kmp_warnings_off) {
116 __kmp_str_free(&err_code.str);
117 }
118 #endif
119 } break;
120 case __itt_error_no_symbol: {
121 char const *library = va_arg(args, char const *);
122 char const *symbol = va_arg(args, char const *);
123 KMP_WARNING(IttLookupFailed, symbol, library);
124 } break;
125 case __itt_error_unknown_group: {
126 char const *var = va_arg(args, char const *);
127 char const *group = va_arg(args, char const *);
128 KMP_WARNING(IttUnknownGroup, var, group);
129 } break;
130 case __itt_error_env_too_long: {
131 char const *var = va_arg(args, char const *);
132 size_t act_len = va_arg(args, size_t);
133 size_t max_len = va_arg(args, size_t);
134 KMP_WARNING(IttEnvVarTooLong, var, (unsigned long)act_len,
135 (unsigned long)max_len);
136 } break;
137 case __itt_error_cant_read_env: {
138 char const *var = va_arg(args, char const *);
139 int sys_err = va_arg(args, int);
140 kmp_msg_t err_code = KMP_ERR(sys_err);
141 __kmp_msg(kmp_ms_warning, KMP_MSG(CantGetEnvVar, var), err_code,
142 __kmp_msg_null);
143 if (__kmp_generate_warnings == kmp_warnings_off) {
144 __kmp_str_free(&err_code.str);
145 }
146 } break;
147 case __itt_error_system: {
148 char const *func = va_arg(args, char const *);
149 int sys_err = va_arg(args, int);
150 kmp_msg_t err_code = KMP_SYSERRCODE(sys_err);
151 __kmp_msg(kmp_ms_warning, KMP_MSG(IttFunctionError, func), err_code,
152 __kmp_msg_null);
153 if (__kmp_generate_warnings == kmp_warnings_off) {
154 __kmp_str_free(&err_code.str);
155 }
156 } break;
157 default: { KMP_WARNING(IttUnknownError, err); }
158 }
159 } // __itt_error_handler
160
161 #endif /* USE_ITT_BUILD */
162