8#ifndef __STDC_FORMAT_MACROS
9#define __STDC_FORMAT_MACROS
19#include "../../src/kmp_platform.h"
22#define _TOOL_PREFIX ""
28 "ompt_thread_UNDEFINED",
"ompt_thread_initial",
"ompt_thread_worker",
32 "ompt_task_UNDEFINED",
37 "ompt_task_early_fulfill",
38 "ompt_task_late_fulfill",
40 "ompt_taskwait_complete"
43 "ompt_cancel_parallel",
"ompt_cancel_sections",
44 "ompt_cancel_loop",
"ompt_cancel_taskgroup",
45 "ompt_cancel_activated",
"ompt_cancel_detected",
46 "ompt_cancel_discarded_task"};
51 "ompt_work_single_executor",
52 "ompt_work_single_other",
53 "ompt_work_workshare",
54 "ompt_work_distribute",
57 "ompt_work_workdistribute",
58 "ompt_work_loop_static",
59 "ompt_work_loop_dynamic",
60 "ompt_work_loop_guided",
61 "ompt_work_loop_other"};
65 "ompt_event_sections",
66 "ompt_event_single_in_block",
67 "ompt_event_single_others",
68 "ompt_event_workshare",
69 "ompt_event_distribute",
70 "ompt_event_taskloop",
72 "ompt_event_workdistribute",
73 "ompt_event_loop_static",
74 "ompt_event_loop_dynamic",
75 "ompt_event_loop_guided",
76 "ompt_event_loop_other"};
79 "ompt_dependence_type_UNDEFINED",
80 "ompt_dependence_type_in",
81 "ompt_dependence_type_out",
82 "ompt_dependence_type_inout",
83 "ompt_dependence_type_mutexinoutset",
84 "ompt_dependence_type_source",
85 "ompt_dependence_type_sink",
86 "ompt_dependence_type_inoutset",
113 "ompt_dependence_type_out_all_memory",
114 "ompt_dependence_type_inout_all_memory"
121 "barrier_implementation",
125 "barrier_implicit_workshare",
126 "barrier_implicit_parallel",
130 char *progress = buffer;
131 if (
type & ompt_task_initial)
132 progress += sprintf(progress,
"ompt_task_initial");
133 if (
type & ompt_task_implicit)
134 progress += sprintf(progress,
"ompt_task_implicit");
135 if (
type & ompt_task_explicit)
136 progress += sprintf(progress,
"ompt_task_explicit");
137 if (
type & ompt_task_target)
138 progress += sprintf(progress,
"ompt_task_target");
139 if (
type & ompt_task_taskwait)
140 progress += sprintf(progress,
"ompt_task_taskwait");
141 if (
type & ompt_task_undeferred)
142 progress += sprintf(progress,
"|ompt_task_undeferred");
143 if (
type & ompt_task_untied)
144 progress += sprintf(progress,
"|ompt_task_untied");
145 if (
type & ompt_task_final)
146 progress += sprintf(progress,
"|ompt_task_final");
147 if (
type & ompt_task_mergeable)
148 progress += sprintf(progress,
"|ompt_task_mergeable");
149 if (
type & ompt_task_merged)
150 progress += sprintf(progress,
"|ompt_task_merged");
172 if (!(enterf == (ompt_frame_application | ompt_frame_cfa) ||
173 enterf == (ompt_frame_runtime | ompt_frame_cfa))) {
174 printf(
"enter_frame_flags (%i) is invalid\n", enterf);
177 if (!(exitf == (ompt_frame_application | ompt_frame_cfa) ||
178 exitf == (ompt_frame_runtime | ompt_frame_cfa))) {
179 printf(
"exit_frame_flags (%i) is invalid\n", exitf);
182 assert(enterf == (ompt_frame_application | ompt_frame_cfa) ||
183 enterf == (ompt_frame_runtime | ompt_frame_cfa));
184 assert(exitf == (ompt_frame_application | ompt_frame_cfa) ||
185 exitf == (ompt_frame_runtime | ompt_frame_cfa));
188 int task_type, thread_num;
190 ompt_data_t *task_parallel_data;
191 ompt_data_t *task_data;
193 &task_parallel_data, &thread_num);
197 printf(
"%" PRIu64
": task level %d: parallel_id=%" PRIx64
198 ", task_id=%" PRIx64
", exit_frame=%p, reenter_frame=%p, "
199 "task_type=%s=%d, thread_num=%d\n",
201 exists_task ? task_parallel_data->value : 0,
202 exists_task ? task_data->value : 0,
frame->exit_frame.ptr,
203 frame->enter_frame.ptr, buffer, task_type, thread_num);
208#define get_frame_address(level) __builtin_frame_address(level)
210#define print_frame(level) \
211 printf("%" PRIu64 ": __builtin_frame_address(%d)=%p\n", \
212 ompt_get_thread_data()->value, level, get_frame_address(level))
216#if defined(TEST_NEED_PRINT_FRAME_FROM_OUTLINED_FN)
217#if defined(DEBUG) && defined(__clang__) && __clang_major__ >= 5
218#define print_frame_from_outlined_fn(level) print_frame(level + 1)
220#define print_frame_from_outlined_fn(level) print_frame(level)
223#if defined(__clang__) && __clang_major__ >= 5
225 "Clang 5.0 and later add an additional wrapper for outlined functions when compiling with debug information."
227 "Please define -DDEBUG iff you manually pass in -g to make the tests succeed!"
242#define define_ompt_label(id) \
251#define get_ompt_label_address(id) (&&ompt_label_##id)
255#define print_current_address(id) \
256 define_ompt_label(id) \
257 print_possible_return_addresses(get_ompt_label_address(id))
259#if KMP_ARCH_X86 || KMP_ARCH_X86_64
262#define print_possible_return_addresses(addr) \
263 printf("%" PRIu64 ": current_address=%p or %p for non-void functions\n", \
264 ompt_get_thread_data()->value, ((char *)addr) - 1, \
271#define print_possible_return_addresses(addr) \
272 printf("%" PRIu64 ": current_address=%p or %p\n", \
273 ompt_get_thread_data()->value, ((char *)addr) - 8, \
275#elif KMP_ARCH_AARCH64 || KMP_ARCH_AARCH64_32
282#define print_possible_return_addresses(addr) \
283 printf("%" PRIu64 ": current_address=%p or %p or %p\n", \
284 ompt_get_thread_data()->value, ((char *)addr) - 4, \
285 ((char *)addr) - 8, ((char *)addr) - 12)
286#elif KMP_ARCH_RISCV64
287#if __riscv_compressed
293#define print_possible_return_addresses(addr) \
294 printf("%" PRIu64 ": current_address=%p or %p\n", \
295 ompt_get_thread_data()->value, ((char *)addr) - 6, \
303#define print_possible_return_addresses(addr) \
304 printf("%" PRIu64 ": current_address=%p or %p\n", \
305 ompt_get_thread_data()->value, ((char *)addr) - 8, \
308#elif KMP_ARCH_LOONGARCH64
313#define print_possible_return_addresses(addr) \
314 printf("%" PRIu64 ": current_address=%p or %p or %p\n", \
315 ompt_get_thread_data()->value, ((char *)addr) - 4, \
316 ((char *)addr) - 8, ((char *)addr) - 12)
320#define print_possible_return_addresses(addr) \
321 printf("%" PRIu64 ": current_address=%p or %p\n", \
322 ompt_get_thread_data()->value, ((char *)addr) - 8, \
336#define print_possible_return_addresses(addr) \
337 printf("%" PRIu64 ": current_address=%p or %p or %p\n", \
338 ompt_get_thread_data()->value, ((char *)addr) - 2, \
339 ((char *)addr) - 8, ((char *)addr) - 12)
344#define print_possible_return_addresses(addr) \
345 printf("%" PRIu64 ": current_address=%p or %p\n", \
346 ompt_get_thread_data()->value, ((char *)addr) - 12, \
349#error Unsupported target architecture, cannot determine address offset!
360#define print_fuzzy_address(id) \
361 define_ompt_label(id) print_fuzzy_address_blocks(get_ompt_label_address(id))
365#define FUZZY_ADDRESS_DISCARD_NIBBLES 2
366#define FUZZY_ADDRESS_DISCARD_BYTES (1 << ((FUZZY_ADDRESS_DISCARD_NIBBLES) * 4))
367#define print_fuzzy_address_blocks(addr) \
368 printf("%" PRIu64 ": fuzzy_address=0x%" PRIx64 " or 0x%" PRIx64 \
369 " or 0x%" PRIx64 " or 0x%" PRIx64 " (%p)\n", \
370 ompt_get_thread_data()->value, \
371 ((uint64_t)addr) / FUZZY_ADDRESS_DISCARD_BYTES - 1, \
372 ((uint64_t)addr) / FUZZY_ADDRESS_DISCARD_BYTES, \
373 ((uint64_t)addr) / FUZZY_ADDRESS_DISCARD_BYTES + 1, \
374 ((uint64_t)addr) / FUZZY_ADDRESS_DISCARD_BYTES + 2, addr)
376#define register_ompt_callback_t(name, type) \
378 type f_##name = &on_##name; \
379 if (ompt_set_callback(name, (ompt_callback_t)f_##name) == ompt_set_never) \
380 printf("0: Could not register callback '" #name "'\n"); \
383#define register_ompt_callback(name) register_ompt_callback_t(name, name##_t)
385#ifndef USE_PRIVATE_TOOL
388 ompt_wait_id_t wait_id,
389 const void *codeptr_ra) {
391 case ompt_mutex_lock:
392 printf(
"%" PRIu64
":" _TOOL_PREFIX " ompt_event_wait_lock: wait_id=%" PRIu64
393 ", hint=%" PRIu32
", impl=%" PRIu32
", codeptr_ra=%p \n",
396 case ompt_mutex_test_lock:
398 " ompt_event_wait_test_lock: wait_id=%" PRIu64
", hint=%" PRIu32
399 ", impl=%" PRIu32
", codeptr_ra=%p \n",
402 case ompt_mutex_nest_lock:
404 " ompt_event_wait_nest_lock: wait_id=%" PRIu64
", hint=%" PRIu32
405 ", impl=%" PRIu32
", codeptr_ra=%p \n",
408 case ompt_mutex_test_nest_lock:
410 " ompt_event_wait_test_nest_lock: wait_id=%" PRIu64
", hint=%" PRIu32
411 ", impl=%" PRIu32
", codeptr_ra=%p \n",
414 case ompt_mutex_critical:
416 " ompt_event_wait_critical: wait_id=%" PRIu64
", hint=%" PRIu32
417 ", impl=%" PRIu32
", codeptr_ra=%p \n",
420 case ompt_mutex_atomic:
422 " ompt_event_wait_atomic: wait_id=%" PRIu64
", hint=%" PRIu32
423 ", impl=%" PRIu32
", codeptr_ra=%p \n",
426 case ompt_mutex_ordered:
428 " ompt_event_wait_ordered: wait_id=%" PRIu64
", hint=%" PRIu32
429 ", impl=%" PRIu32
", codeptr_ra=%p \n",
438 ompt_wait_id_t wait_id,
439 const void *codeptr_ra) {
441 case ompt_mutex_lock:
443 " ompt_event_acquired_lock: wait_id=%" PRIu64
", codeptr_ra=%p \n",
446 case ompt_mutex_test_lock:
448 " ompt_event_acquired_test_lock: wait_id=%" PRIu64
449 ", codeptr_ra=%p \n",
452 case ompt_mutex_nest_lock:
454 " ompt_event_acquired_nest_lock_first: wait_id=%" PRIu64
455 ", codeptr_ra=%p \n",
458 case ompt_mutex_test_nest_lock:
460 " ompt_event_acquired_test_nest_lock_first: wait_id=%" PRIu64
461 ", codeptr_ra=%p \n",
464 case ompt_mutex_critical:
466 " ompt_event_acquired_critical: wait_id=%" PRIu64
467 ", codeptr_ra=%p \n",
470 case ompt_mutex_atomic:
472 " ompt_event_acquired_atomic: wait_id=%" PRIu64
", codeptr_ra=%p \n",
475 case ompt_mutex_ordered:
477 " ompt_event_acquired_ordered: wait_id=%" PRIu64
478 ", codeptr_ra=%p \n",
487 ompt_wait_id_t wait_id,
488 const void *codeptr_ra) {
490 case ompt_mutex_lock:
492 " ompt_event_release_lock: wait_id=%" PRIu64
", codeptr_ra=%p \n",
495 case ompt_mutex_nest_lock:
497 " ompt_event_release_nest_lock_last: wait_id=%" PRIu64
498 ", codeptr_ra=%p \n",
501 case ompt_mutex_critical:
503 " ompt_event_release_critical: wait_id=%" PRIu64
504 ", codeptr_ra=%p \n",
507 case ompt_mutex_atomic:
509 " ompt_event_release_atomic: wait_id=%" PRIu64
", codeptr_ra=%p \n",
512 case ompt_mutex_ordered:
514 " ompt_event_release_ordered: wait_id=%" PRIu64
", codeptr_ra=%p \n",
523 ompt_wait_id_t wait_id,
524 const void *codeptr_ra) {
526 case ompt_scope_begin:
528 " ompt_event_acquired_nest_lock_next: wait_id=%" PRIu64
529 ", codeptr_ra=%p \n",
534 " ompt_event_release_nest_lock_prev: wait_id=%" PRIu64
535 ", codeptr_ra=%p \n",
538 case ompt_scope_beginend:
539 printf(
"ompt_scope_beginend should never be passed to %s\n", __func__);
545 ompt_scope_endpoint_t endpoint,
546 ompt_data_t *parallel_data,
547 ompt_data_t *task_data,
548 const void *codeptr_ra) {
549 if (endpoint == ompt_scope_beginend) {
550 printf(
"ompt_scope_beginend should never be passed to %s\n", __func__);
553 if (kind == ompt_sync_region_reduction) {
554 printf(
"ompt_sync_region_reduction should never be passed to %s\n",
558 uint64_t parallel_data_value = parallel_data ? parallel_data->value : 0;
559 const char *begin_or_end = (endpoint == ompt_scope_begin) ?
"begin" :
"end";
560 printf(
"%" PRIu64
":" _TOOL_PREFIX " ompt_event_%s_%s: parallel_id=%" PRIx64
561 ", task_id=%" PRIx64
", codeptr_ra=%p\n",
563 begin_or_end, parallel_data_value, task_data->value, codeptr_ra);
565 case ompt_sync_region_barrier:
566 case ompt_sync_region_barrier_implicit:
567 case ompt_sync_region_barrier_implicit_workshare:
568 case ompt_sync_region_barrier_implicit_parallel:
569 case ompt_sync_region_barrier_teams:
570 case ompt_sync_region_barrier_explicit:
571 case ompt_sync_region_barrier_implementation:
572 if (endpoint == ompt_scope_begin)
579 ompt_scope_endpoint_t endpoint,
580 ompt_data_t *parallel_data,
581 ompt_data_t *task_data,
582 const void *codeptr_ra) {
583 if (endpoint == ompt_scope_beginend) {
584 printf(
"ompt_scope_beginend should never be passed to %s\n", __func__);
587 if (kind == ompt_sync_region_reduction) {
588 printf(
"ompt_sync_region_reduction should never be passed to %s\n",
592 uint64_t parallel_data_value = parallel_data ? parallel_data->value : 0;
593 const char *begin_or_end = (endpoint == ompt_scope_begin) ?
"begin" :
"end";
595 " ompt_event_wait_%s_%s: parallel_id=%" PRIx64
", task_id=%" PRIx64
598 begin_or_end, parallel_data_value, task_data->value, codeptr_ra);
602 ompt_scope_endpoint_t endpoint,
603 ompt_data_t *parallel_data,
604 ompt_data_t *task_data,
605 const void *codeptr_ra) {
607 case ompt_scope_begin:
609 " ompt_event_reduction_begin: parallel_id=%" PRIx64
610 ", task_id=%" PRIx64
", codeptr_ra=%p\n",
612 (parallel_data) ? parallel_data->value : 0, task_data->value,
617 " ompt_event_reduction_end: parallel_id=%" PRIx64
618 ", task_id=%" PRIx64
", codeptr_ra=%p\n",
620 (parallel_data) ? parallel_data->value : 0, task_data->value,
623 case ompt_scope_beginend:
624 printf(
"ompt_scope_beginend should never be passed to %s\n", __func__);
630 const void *codeptr_ra) {
631 printf(
"%" PRIu64
":" _TOOL_PREFIX " ompt_event_flush: codeptr_ra=%p\n",
632 thread_data->value, codeptr_ra);
636 const void *codeptr_ra) {
637 const char *first_flag_value;
638 const char *second_flag_value;
639 if (flags & ompt_cancel_parallel)
641 else if (flags & ompt_cancel_sections)
643 else if (flags & ompt_cancel_loop)
645 else if (flags & ompt_cancel_taskgroup)
648 if (flags & ompt_cancel_activated)
650 else if (flags & ompt_cancel_detected)
652 else if (flags & ompt_cancel_discarded_task)
655 printf(
"%" PRIu64
":" _TOOL_PREFIX " ompt_event_cancel: task_id=%" PRIx64
656 ", flags=%s|%s=%" PRIu32
", codeptr_ra=%p\n",
658 second_flag_value, flags, codeptr_ra);
662 ompt_data_t *parallel_data,
663 ompt_data_t *task_data,
664 unsigned int team_size,
665 unsigned int thread_num,
int flags) {
667 case ompt_scope_begin:
669 printf(
"%s\n",
"0: task_data initially not null");
674 if (flags & ompt_task_initial) {
679 if (team_size == 1 && thread_num == 1 && parallel_data->ptr)
680 printf(
"%s\n",
"0: parallel_data initially not null");
683 " ompt_event_initial_task_begin: parallel_id=%" PRIx64
684 ", task_id=%" PRIx64
", actual_parallelism=%" PRIu32
685 ", index=%" PRIu32
", flags=%" PRIu32
"\n",
687 task_data->value, team_size, thread_num, flags);
690 " ompt_event_implicit_task_begin: parallel_id=%" PRIx64
691 ", task_id=%" PRIx64
", team_size=%" PRIu32
", thread_num=%" PRIu32
694 task_data->value, team_size, thread_num);
699 if (flags & ompt_task_initial) {
701 " ompt_event_initial_task_end: parallel_id=%" PRIx64
702 ", task_id=%" PRIx64
", actual_parallelism=%" PRIu32
703 ", index=%" PRIu32
"\n",
705 (parallel_data) ? parallel_data->value : 0, task_data->value,
706 team_size, thread_num);
709 " ompt_event_implicit_task_end: parallel_id=%" PRIx64
710 ", task_id=%" PRIx64
", team_size=%" PRIu32
", thread_num=%" PRIu32
713 (parallel_data) ? parallel_data->value : 0, task_data->value,
714 team_size, thread_num);
717 case ompt_scope_beginend:
718 printf(
"ompt_scope_beginend should never be passed to %s\n", __func__);
725 ompt_wait_id_t wait_id,
726 const void *codeptr_ra) {
728 case ompt_mutex_lock:
729 printf(
"%" PRIu64
":" _TOOL_PREFIX " ompt_event_init_lock: wait_id=%" PRIu64
730 ", hint=%" PRIu32
", impl=%" PRIu32
", codeptr_ra=%p \n",
733 case ompt_mutex_nest_lock:
735 " ompt_event_init_nest_lock: wait_id=%" PRIu64
", hint=%" PRIu32
736 ", impl=%" PRIu32
", codeptr_ra=%p \n",
745 ompt_wait_id_t wait_id,
746 const void *codeptr_ra) {
748 case ompt_mutex_lock:
750 " ompt_event_destroy_lock: wait_id=%" PRIu64
", codeptr_ra=%p \n",
753 case ompt_mutex_nest_lock:
755 " ompt_event_destroy_nest_lock: wait_id=%" PRIu64
756 ", codeptr_ra=%p \n",
765 ompt_scope_endpoint_t endpoint,
766 ompt_data_t *parallel_data,
767 ompt_data_t *task_data, uint64_t
count,
768 const void *codeptr_ra) {
770 case ompt_scope_begin:
771 printf(
"%" PRIu64
":" _TOOL_PREFIX " %s_begin: parallel_id=%" PRIx64
772 ", task_id=%" PRIx64
", codeptr_ra=%p, count=%" PRIu64
"\n",
774 parallel_data->value, task_data->value, codeptr_ra,
count);
777 printf(
"%" PRIu64
":" _TOOL_PREFIX " %s_end: parallel_id=%" PRIx64
778 ", task_id=%" PRIx64
", codeptr_ra=%p, count=%" PRIu64
"\n",
780 parallel_data->value, task_data->value, codeptr_ra,
count);
782 case ompt_scope_beginend:
783 printf(
"ompt_scope_beginend should never be passed to %s\n", __func__);
789 ompt_data_t *task_data,
790 ompt_dispatch_t kind,
792 char *event_name = NULL;
793 void *codeptr_ra = NULL;
794 ompt_dispatch_chunk_t *dispatch_chunk = NULL;
796 case ompt_dispatch_section:
797 event_name =
"ompt_event_section_begin";
800 case ompt_dispatch_ws_loop_chunk:
801 event_name =
"ompt_event_ws_loop_chunk_begin";
802 dispatch_chunk = (ompt_dispatch_chunk_t *)
instance.ptr;
804 case ompt_dispatch_taskloop_chunk:
805 event_name =
"ompt_event_taskloop_chunk_begin";
806 dispatch_chunk = (ompt_dispatch_chunk_t *)
instance.ptr;
808 case ompt_dispatch_distribute_chunk:
809 event_name =
"ompt_event_distribute_chunk_begin";
810 dispatch_chunk = (ompt_dispatch_chunk_t *)
instance.ptr;
813 event_name =
"ompt_ws_loop_iteration_begin";
815 printf(
"%" PRIu64
":" _TOOL_PREFIX " %s: parallel_id=%" PRIx64
816 ", task_id=%" PRIx64
", codeptr_ra=%p, chunk_start=%" PRIu64
817 ", chunk_iterations=%" PRIu64
"\n",
819 task_data->value, codeptr_ra,
820 dispatch_chunk ? dispatch_chunk->start : 0,
821 dispatch_chunk ? dispatch_chunk->iterations : 0);
825 ompt_data_t *parallel_data,
826 ompt_data_t *task_data,
827 const void *codeptr_ra) {
829 case ompt_scope_begin:
831 " ompt_event_masked_begin: parallel_id=%" PRIx64
", task_id=%" PRIx64
834 task_data->value, codeptr_ra);
838 " ompt_event_masked_end: parallel_id=%" PRIx64
", task_id=%" PRIx64
841 task_data->value, codeptr_ra);
843 case ompt_scope_beginend:
844 printf(
"ompt_scope_beginend should never be passed to %s\n", __func__);
850 ompt_data_t *encountering_task_data,
851 const ompt_frame_t *encountering_task_frame, ompt_data_t *parallel_data,
852 uint32_t requested_team_size,
int flag,
const void *codeptr_ra) {
853 if (parallel_data->ptr)
854 printf(
"0: parallel_data initially not null\n");
856 int invoker =
flag & 0xF;
857 const char *
event = (
flag & ompt_parallel_team) ?
"parallel" :
"teams";
858 const char *
size = (
flag & ompt_parallel_team) ?
"team_size" :
"num_teams";
860 " ompt_event_%s_begin: parent_task_id=%" PRIx64
861 ", parent_task_frame.exit=%p, parent_task_frame.reenter=%p, "
862 "parallel_id=%" PRIx64
", requested_%s=%" PRIu32
863 ", codeptr_ra=%p, invoker=%d\n",
865 encountering_task_frame->exit_frame.ptr,
866 encountering_task_frame->enter_frame.ptr, parallel_data->value,
size,
867 requested_team_size, codeptr_ra, invoker);
871 ompt_data_t *encountering_task_data,
872 int flag,
const void *codeptr_ra) {
873 int invoker =
flag & 0xF;
874 const char *
event = (
flag & ompt_parallel_team) ?
"parallel" :
"teams";
875 printf(
"%" PRIu64
":" _TOOL_PREFIX " ompt_event_%s_end: parallel_id=%" PRIx64
876 ", task_id=%" PRIx64
", invoker=%d, codeptr_ra=%p\n",
878 encountering_task_data->value, invoker, codeptr_ra);
883 const ompt_frame_t *encountering_task_frame,
884 ompt_data_t *new_task_data,
int type,
885 int has_dependences,
const void *codeptr_ra) {
886 if (new_task_data->ptr)
887 printf(
"0: new_task_data initially not null\n");
895 " ompt_event_task_create: parent_task_id=%" PRIx64
896 ", parent_task_frame.exit=%p, parent_task_frame.reenter=%p, "
897 "new_task_id=%" PRIx64
898 ", codeptr_ra=%p, task_type=%s=%d, has_dependences=%s\n",
900 encountering_task_data ? encountering_task_data->value : 0,
901 encountering_task_frame ? encountering_task_frame->exit_frame.ptr : NULL,
902 encountering_task_frame ? encountering_task_frame->enter_frame.ptr : NULL,
903 new_task_data->value, codeptr_ra, buffer,
type,
904 has_dependences ?
"yes" :
"no");
908 ompt_task_status_t prior_task_status,
909 ompt_data_t *second_task_data) {
911 " ompt_event_task_schedule: first_task_id=%" PRIx64
912 ", second_task_id=%" PRIx64
", prior_task_status=%s=%d\n",
914 (second_task_data ? second_task_data->value : -1),
916 if (prior_task_status == ompt_task_complete ||
917 prior_task_status == ompt_task_late_fulfill ||
918 prior_task_status == ompt_taskwait_complete) {
919 printf(
"%" PRIu64
":" _TOOL_PREFIX " ompt_event_task_end: task_id=%" PRIx64
926 const ompt_dependence_t *deps,
929 char *progress = buffer;
931 for (
i = 0;
i < ndeps && progress < buffer + 2000;
i++) {
932 if (deps[
i].dependence_type == ompt_dependence_type_source ||
933 deps[
i].dependence_type == ompt_dependence_type_sink)
935 sprintf(progress,
"(%" PRIu64
", %s), ", deps[
i].variable.value,
939 sprintf(progress,
"(%p, %s), ", deps[
i].variable.ptr,
944 printf(
"%" PRIu64
":" _TOOL_PREFIX " ompt_event_dependences: task_id=%" PRIx64
945 ", deps=[%s], ndeps=%d\n",
950 ompt_data_t *second_task_data) {
952 " ompt_event_task_dependence_pair: first_task_id=%" PRIx64
953 ", second_task_id=%" PRIx64
"\n",
955 second_task_data->value);
959 ompt_data_t *thread_data) {
960 if (thread_data->ptr)
961 printf(
"%s\n",
"0: thread_data initially not null");
964 " ompt_event_thread_begin: thread_type=%s=%d, thread_id=%" PRIu64
"\n",
966 thread_type, thread_data->value);
971 " ompt_event_thread_end: thread_id=%" PRIu64
"\n",
976 void *arg,
const void *codeptr_ra) {
977 ompt_frame_t *omptTaskFrame;
980 " ompt_event_control_tool: command=%" PRIu64
", modifier=%" PRIu64
981 ", arg=%p, codeptr_ra=%p, current_task_frame.exit=%p, "
982 "current_task_frame.reenter=%p \n",
984 omptTaskFrame->exit_frame.ptr, omptTaskFrame->enter_frame.ptr);
990 ompt_data_t *task_data;
993 printf(
"%" PRIu64
":" _TOOL_PREFIX " task level %d: task_id=%" PRIx64
"\n",
999 int parallel_level = 0;
1000 ompt_data_t *parallel_data;
1004 " parallel level %d: parallel_id=%" PRIx64
"\n",
1013 const char *message,
size_t length,
1014 const void *codeptr_ra) {
1015 printf(
"%" PRIu64
": ompt_event_runtime_error: severity=%" PRIu32
1016 ", message=%s, length=%" PRIu64
", codeptr_ra=%p\n",
1022 ompt_data_t *tool_data) {
1030 (ompt_get_parallel_info_t)lookup(
"ompt_get_parallel_info");
1039 (ompt_get_place_proc_ids_t)lookup(
"ompt_get_place_proc_ids");
1042 (ompt_get_partition_place_nums_t)lookup(
"ompt_get_partition_place_nums");
1045 (ompt_enumerate_states_t)lookup(
"ompt_enumerate_states");
1047 (ompt_enumerate_mutex_impls_t)lookup(
"ompt_enumerate_mutex_impls");
1055 ompt_callback_sync_region_t);
1057 ompt_callback_sync_region_t);
1063 ompt_callback_mutex_acquire_t);
1077 printf(
"0: NULL_POINTER=%p\n", (
void *)NULL);
1082 printf(
"0: ompt_event_runtime_shutdown\n");
1089 const char *runtime_version) {
static void on_ompt_callback_mutex_released(ompt_mutex_t kind, ompt_wait_id_t wait_id, const void *codeptr_ra)
static void on_ompt_callback_implicit_task(ompt_scope_endpoint_t endpoint, ompt_data_t *parallel_data, ompt_data_t *task_data, unsigned int team_size, unsigned int thread_num, int flags)
static const char * ompt_thread_t_values[]
static void print_ids(int level)
static void on_ompt_callback_parallel_end(ompt_data_t *parallel_data, ompt_data_t *encountering_task_data, int flag, const void *codeptr_ra)
static void on_ompt_callback_flush(ompt_data_t *thread_data, const void *codeptr_ra)
static ompt_get_task_info_t ompt_get_task_info
static ompt_enumerate_states_t ompt_enumerate_states
static const char * ompt_work_events_t_values[]
static void on_ompt_callback_lock_destroy(ompt_mutex_t kind, ompt_wait_id_t wait_id, const void *codeptr_ra)
static void on_ompt_callback_task_schedule(ompt_data_t *first_task_data, ompt_task_status_t prior_task_status, ompt_data_t *second_task_data)
static ompt_get_callback_t ompt_get_callback
static void format_task_type(int type, char *buffer)
static ompt_get_place_proc_ids_t ompt_get_place_proc_ids
static void on_ompt_callback_lock_init(ompt_mutex_t kind, unsigned int hint, unsigned int impl, ompt_wait_id_t wait_id, const void *codeptr_ra)
static ompt_set_callback_t ompt_set_callback
static ompt_get_place_num_t ompt_get_place_num
#define register_ompt_callback(name)
static void on_ompt_callback_masked(ompt_scope_endpoint_t endpoint, ompt_data_t *parallel_data, ompt_data_t *task_data, const void *codeptr_ra)
static void on_ompt_callback_dependences(ompt_data_t *task_data, const ompt_dependence_t *deps, int ndeps)
static ompt_get_partition_place_nums_t ompt_get_partition_place_nums
static void on_ompt_callback_task_create(ompt_data_t *encountering_task_data, const ompt_frame_t *encountering_task_frame, ompt_data_t *new_task_data, int type, int has_dependences, const void *codeptr_ra)
static void on_ompt_callback_error(ompt_severity_t severity, const char *message, size_t length, const void *codeptr_ra)
static void on_ompt_callback_nest_lock(ompt_scope_endpoint_t endpoint, ompt_wait_id_t wait_id, const void *codeptr_ra)
int ompt_initialize(ompt_function_lookup_t lookup, int initial_device_num, ompt_data_t *tool_data)
static void on_ompt_callback_mutex_acquired(ompt_mutex_t kind, ompt_wait_id_t wait_id, const void *codeptr_ra)
static const char * ompt_dependence_type_t_values[36]
static ompt_get_task_memory_t ompt_get_task_memory
void assert_frame_flags(int enterf, int exitf)
static int on_ompt_callback_control_tool(uint64_t command, uint64_t modifier, void *arg, const void *codeptr_ra)
static const char * ompt_task_status_t_values[]
void ompt_finalize(ompt_data_t *tool_data)
static void on_ompt_callback_task_dependence(ompt_data_t *first_task_data, ompt_data_t *second_task_data)
static void on_ompt_callback_mutex_acquire(ompt_mutex_t kind, unsigned int hint, unsigned int impl, ompt_wait_id_t wait_id, const void *codeptr_ra)
#define register_ompt_callback_t(name, type)
static void on_ompt_callback_parallel_begin(ompt_data_t *encountering_task_data, const ompt_frame_t *encountering_task_frame, ompt_data_t *parallel_data, uint32_t requested_team_size, int flag, const void *codeptr_ra)
static ompt_get_num_procs_t ompt_get_num_procs
static void on_ompt_callback_thread_end(ompt_data_t *thread_data)
static void on_ompt_callback_sync_region(ompt_sync_region_t kind, ompt_scope_endpoint_t endpoint, ompt_data_t *parallel_data, ompt_data_t *task_data, const void *codeptr_ra)
static void on_ompt_callback_work(ompt_work_t wstype, ompt_scope_endpoint_t endpoint, ompt_data_t *parallel_data, ompt_data_t *task_data, uint64_t count, const void *codeptr_ra)
static ompt_finalize_tool_t ompt_finalize_tool
static ompt_get_num_places_t ompt_get_num_places
static ompt_get_unique_id_t ompt_get_unique_id
static ompt_get_state_t ompt_get_state
static const char * ompt_cancel_flag_t_values[]
static void on_ompt_callback_thread_begin(ompt_thread_t thread_type, ompt_data_t *thread_data)
static void on_ompt_callback_sync_region_wait(ompt_sync_region_t kind, ompt_scope_endpoint_t endpoint, ompt_data_t *parallel_data, ompt_data_t *task_data, const void *codeptr_ra)
static void on_ompt_callback_dispatch(ompt_data_t *parallel_data, ompt_data_t *task_data, ompt_dispatch_t kind, ompt_data_t instance)
static const char * ompt_work_t_values[]
static const char * ompt_sync_region_t_values[]
static void on_ompt_callback_reduction(ompt_sync_region_t kind, ompt_scope_endpoint_t endpoint, ompt_data_t *parallel_data, ompt_data_t *task_data, const void *codeptr_ra)
static ompt_get_parallel_info_t ompt_get_parallel_info
static void on_ompt_callback_cancel(ompt_data_t *task_data, int flags, const void *codeptr_ra)
static ompt_get_proc_id_t ompt_get_proc_id
static ompt_get_thread_data_t ompt_get_thread_data
static ompt_enumerate_mutex_impls_t ompt_enumerate_mutex_impls
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance * instance
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance ITT_FORMAT p __itt_model_task __itt_model_task_instance ITT_FORMAT p void ITT_FORMAT p void ITT_FORMAT p void size_t ITT_FORMAT d void ITT_FORMAT p const wchar_t ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s no args void ITT_FORMAT p size_t count
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance ITT_FORMAT p __itt_model_task __itt_model_task_instance ITT_FORMAT p void ITT_FORMAT p void ITT_FORMAT p void size_t ITT_FORMAT d void ITT_FORMAT p const wchar_t ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s no args void ITT_FORMAT p size_t ITT_FORMAT d no args const wchar_t const wchar_t ITT_FORMAT s __itt_heap_function void size_t int ITT_FORMAT d __itt_heap_function void ITT_FORMAT p __itt_heap_function void void size_t int ITT_FORMAT d no args no args unsigned int ITT_FORMAT u const __itt_domain __itt_id ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain __itt_id ITT_FORMAT p const __itt_domain __itt_id __itt_timestamp __itt_timestamp ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain ITT_FORMAT p const __itt_domain __itt_string_handle unsigned long long ITT_FORMAT lu const __itt_domain __itt_string_handle unsigned long long ITT_FORMAT lu const __itt_domain __itt_id __itt_string_handle __itt_metadata_type size_t void ITT_FORMAT p const __itt_domain __itt_id __itt_string_handle const wchar_t size_t length
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance ITT_FORMAT p __itt_model_task __itt_model_task_instance ITT_FORMAT p void ITT_FORMAT p void ITT_FORMAT p void size_t ITT_FORMAT d void ITT_FORMAT p const wchar_t ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s no args void ITT_FORMAT p size_t ITT_FORMAT d no args const wchar_t const wchar_t ITT_FORMAT s __itt_heap_function void size_t int ITT_FORMAT d __itt_heap_function void ITT_FORMAT p __itt_heap_function void void size_t int ITT_FORMAT d no args no args unsigned int ITT_FORMAT u const __itt_domain __itt_id ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain __itt_id ITT_FORMAT p const __itt_domain __itt_id __itt_timestamp __itt_timestamp ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain ITT_FORMAT p const __itt_domain __itt_string_handle unsigned long long ITT_FORMAT lu const __itt_domain __itt_string_handle unsigned long long ITT_FORMAT lu const __itt_domain __itt_id __itt_string_handle __itt_metadata_type size_t void ITT_FORMAT p const __itt_domain __itt_id __itt_string_handle const wchar_t size_t ITT_FORMAT lu const __itt_domain __itt_id __itt_relation __itt_id ITT_FORMAT p const wchar_t int ITT_FORMAT __itt_group_mark d __itt_event event
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance ITT_FORMAT p __itt_model_task __itt_model_task_instance ITT_FORMAT p void ITT_FORMAT p void ITT_FORMAT p void size_t ITT_FORMAT d void ITT_FORMAT p const wchar_t ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s no args void ITT_FORMAT p size_t ITT_FORMAT d no args const wchar_t const wchar_t ITT_FORMAT s __itt_heap_function void size_t int ITT_FORMAT d __itt_heap_function void ITT_FORMAT p __itt_heap_function void void size_t int ITT_FORMAT d no args no args unsigned int ITT_FORMAT u const __itt_domain __itt_id ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain __itt_id ITT_FORMAT p const __itt_domain __itt_id __itt_timestamp __itt_timestamp ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain ITT_FORMAT p const __itt_domain __itt_string_handle unsigned long long value
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t size
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance ITT_FORMAT p __itt_model_task __itt_model_task_instance ITT_FORMAT p void ITT_FORMAT p void ITT_FORMAT p void size_t ITT_FORMAT d void ITT_FORMAT p const wchar_t ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s no args void ITT_FORMAT p size_t ITT_FORMAT d no args const wchar_t const wchar_t ITT_FORMAT s __itt_heap_function void size_t int ITT_FORMAT d __itt_heap_function void ITT_FORMAT p __itt_heap_function void void size_t int ITT_FORMAT d no args no args unsigned int ITT_FORMAT u const __itt_domain __itt_id ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain __itt_id ITT_FORMAT p const __itt_domain __itt_id __itt_timestamp __itt_timestamp ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain ITT_FORMAT p const __itt_domain __itt_string_handle unsigned long long ITT_FORMAT lu const __itt_domain __itt_string_handle unsigned long long ITT_FORMAT lu const __itt_domain __itt_id __itt_string_handle __itt_metadata_type size_t void ITT_FORMAT p const __itt_domain __itt_id __itt_string_handle const wchar_t size_t ITT_FORMAT lu const __itt_domain __itt_id __itt_relation __itt_id ITT_FORMAT p const wchar_t int ITT_FORMAT __itt_group_mark d __itt_event ITT_FORMAT __itt_group_mark d void const wchar_t const wchar_t int ITT_FORMAT __itt_group_sync __itt_group_fsync x void const wchar_t int const wchar_t int int ITT_FORMAT __itt_group_sync __itt_group_fsync x void ITT_FORMAT __itt_group_sync __itt_group_fsync p void ITT_FORMAT __itt_group_sync __itt_group_fsync p void size_t ITT_FORMAT lu no args __itt_obj_prop_t __itt_obj_state_t ITT_FORMAT d const char ITT_FORMAT s const char ITT_FORMAT s __itt_frame frame
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance ITT_FORMAT p __itt_model_task __itt_model_task_instance ITT_FORMAT p void ITT_FORMAT p void ITT_FORMAT p void size_t ITT_FORMAT d void ITT_FORMAT p const wchar_t ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s no args void ITT_FORMAT p size_t ITT_FORMAT d no args const wchar_t const wchar_t ITT_FORMAT s __itt_heap_function void size_t int ITT_FORMAT d __itt_heap_function void ITT_FORMAT p __itt_heap_function void void size_t int ITT_FORMAT d no args no args unsigned int ITT_FORMAT u const __itt_domain __itt_id ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain __itt_id ITT_FORMAT p const __itt_domain __itt_id __itt_timestamp __itt_timestamp ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain ITT_FORMAT p const __itt_domain __itt_string_handle unsigned long long ITT_FORMAT lu const __itt_domain __itt_string_handle unsigned long long ITT_FORMAT lu const __itt_domain __itt_id __itt_string_handle __itt_metadata_type type
struct ompt_start_tool_result_t ompt_start_tool_result_t
static ompt_start_tool_result_t * ompt_start_tool_result