diff options
Diffstat (limited to 'final/runtime/src/kmp_itt.cpp')
| -rw-r--r-- | final/runtime/src/kmp_itt.cpp | 160 |
1 files changed, 160 insertions, 0 deletions
diff --git a/final/runtime/src/kmp_itt.cpp b/final/runtime/src/kmp_itt.cpp new file mode 100644 index 0000000..fa286ec --- /dev/null +++ b/final/runtime/src/kmp_itt.cpp @@ -0,0 +1,160 @@ +#include "kmp_config.h" + +#if USE_ITT_BUILD +/* + * kmp_itt.cpp -- ITT Notify interface. + */ + +//===----------------------------------------------------------------------===// +// +// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. +// See https://llvm.org/LICENSE.txt for license information. +// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception +// +//===----------------------------------------------------------------------===// + +#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 */ |