| #include "kmp_config.h" |
| |
| #if USE_ITT_BUILD |
| /* |
| * kmp_itt.cpp -- ITT Notify interface. |
| */ |
| |
| //===----------------------------------------------------------------------===// |
| // |
| // The LLVM Compiler Infrastructure |
| // |
| // This file is dual licensed under the MIT and the University of Illinois Open |
| // Source Licenses. See LICENSE.txt for details. |
| // |
| //===----------------------------------------------------------------------===// |
| |
| #include "kmp_itt.h" |
| |
| #if KMP_DEBUG |
| #include "kmp_itt.inl" |
| #endif |
| |
| #if USE_ITT_NOTIFY |
| |
| #include "ittnotify_config.h" |
| __itt_global __kmp_ittapi_clean_global; |
| extern __itt_global __kmp_itt__ittapi_global; |
| kmp_int32 __kmp_barrier_domain_count; |
| kmp_int32 __kmp_region_domain_count; |
| __itt_domain *__kmp_itt_barrier_domains[KMP_MAX_FRAME_DOMAINS]; |
| __itt_domain *__kmp_itt_region_domains[KMP_MAX_FRAME_DOMAINS]; |
| __itt_domain *__kmp_itt_imbalance_domains[KMP_MAX_FRAME_DOMAINS]; |
| kmp_int32 __kmp_itt_region_team_size[KMP_MAX_FRAME_DOMAINS]; |
| __itt_domain *metadata_domain = NULL; |
| __itt_string_handle *string_handle_imbl = NULL; |
| __itt_string_handle *string_handle_loop = NULL; |
| __itt_string_handle *string_handle_sngl = NULL; |
| |
| #include "kmp_i18n.h" |
| #include "kmp_str.h" |
| #include "kmp_version.h" |
| |
| KMP_BUILD_ASSERT(sizeof(kmp_itt_mark_t) == sizeof(__itt_mark_type)); |
| |
| /* Previously used warnings: |
| |
| KMP_WARNING( IttAllNotifDisabled ); |
| KMP_WARNING( IttObjNotifDisabled ); |
| KMP_WARNING( IttMarkNotifDisabled ); |
| KMP_WARNING( IttUnloadLibFailed, libittnotify ); |
| */ |
| |
| kmp_int32 __kmp_itt_prepare_delay = 0; |
| kmp_bootstrap_lock_t __kmp_itt_debug_lock = |
| KMP_BOOTSTRAP_LOCK_INITIALIZER(__kmp_itt_debug_lock); |
| |
| #endif // USE_ITT_NOTIFY |
| |
| void __kmp_itt_reset() { |
| #if USE_ITT_NOTIFY |
| __kmp_itt__ittapi_global = __kmp_ittapi_clean_global; |
| #endif |
| } |
| |
| void __kmp_itt_initialize() { |
| |
| // ITTNotify library is loaded and initialized at first call to any ittnotify |
| // function, so we do not need to explicitly load it any more. Just report OMP |
| // RTL version to ITTNotify. |
| |
| #if USE_ITT_NOTIFY |
| // Backup a clean global state |
| __kmp_ittapi_clean_global = __kmp_itt__ittapi_global; |
| |
| // Report OpenMP RTL version. |
| kmp_str_buf_t buf; |
| __itt_mark_type version; |
| __kmp_str_buf_init(&buf); |
| __kmp_str_buf_print(&buf, "OMP RTL Version %d.%d.%d", __kmp_version_major, |
| __kmp_version_minor, __kmp_version_build); |
| if (__itt_api_version_ptr != NULL) { |
| __kmp_str_buf_print(&buf, ":%s", __itt_api_version()); |
| } |
| version = __itt_mark_create(buf.str); |
| __itt_mark(version, NULL); |
| __kmp_str_buf_free(&buf); |
| #endif |
| |
| } // __kmp_itt_initialize |
| |
| void __kmp_itt_destroy() { |
| #if USE_ITT_NOTIFY |
| __kmp_itt_fini_ittlib(); |
| #endif |
| } // __kmp_itt_destroy |
| |
| extern "C" void __itt_error_handler(__itt_error_code err, va_list args) { |
| |
| switch (err) { |
| case __itt_error_no_module: { |
| char const *library = va_arg(args, char const *); |
| #if KMP_OS_WINDOWS |
| int sys_err = va_arg(args, int); |
| kmp_msg_t err_code = KMP_SYSERRCODE(sys_err); |
| __kmp_msg(kmp_ms_warning, KMP_MSG(IttLoadLibFailed, library), err_code, |
| __kmp_msg_null); |
| if (__kmp_generate_warnings == kmp_warnings_off) { |
| __kmp_str_free(&err_code.str); |
| } |
| #else |
| char const *sys_err = va_arg(args, char const *); |
| kmp_msg_t err_code = KMP_SYSERRMESG(sys_err); |
| __kmp_msg(kmp_ms_warning, KMP_MSG(IttLoadLibFailed, library), err_code, |
| __kmp_msg_null); |
| if (__kmp_generate_warnings == kmp_warnings_off) { |
| __kmp_str_free(&err_code.str); |
| } |
| #endif |
| } break; |
| case __itt_error_no_symbol: { |
| char const *library = va_arg(args, char const *); |
| char const *symbol = va_arg(args, char const *); |
| KMP_WARNING(IttLookupFailed, symbol, library); |
| } break; |
| case __itt_error_unknown_group: { |
| char const *var = va_arg(args, char const *); |
| char const *group = va_arg(args, char const *); |
| KMP_WARNING(IttUnknownGroup, var, group); |
| } break; |
| case __itt_error_env_too_long: { |
| char const *var = va_arg(args, char const *); |
| size_t act_len = va_arg(args, size_t); |
| size_t max_len = va_arg(args, size_t); |
| KMP_WARNING(IttEnvVarTooLong, var, (unsigned long)act_len, |
| (unsigned long)max_len); |
| } break; |
| case __itt_error_cant_read_env: { |
| char const *var = va_arg(args, char const *); |
| int sys_err = va_arg(args, int); |
| kmp_msg_t err_code = KMP_ERR(sys_err); |
| __kmp_msg(kmp_ms_warning, KMP_MSG(CantGetEnvVar, var), err_code, |
| __kmp_msg_null); |
| if (__kmp_generate_warnings == kmp_warnings_off) { |
| __kmp_str_free(&err_code.str); |
| } |
| } break; |
| case __itt_error_system: { |
| char const *func = va_arg(args, char const *); |
| int sys_err = va_arg(args, int); |
| kmp_msg_t err_code = KMP_SYSERRCODE(sys_err); |
| __kmp_msg(kmp_ms_warning, KMP_MSG(IttFunctionError, func), err_code, |
| __kmp_msg_null); |
| if (__kmp_generate_warnings == kmp_warnings_off) { |
| __kmp_str_free(&err_code.str); |
| } |
| } break; |
| default: { KMP_WARNING(IttUnknownError, err); } |
| } |
| } // __itt_error_handler |
| |
| #endif /* USE_ITT_BUILD */ |