13#ifndef __OMPT_INTERNAL_H__
14#define __OMPT_INTERNAL_H__
16#include "ompt-event-specific.h"
21#define _OMP_EXTERN extern "C"
23#define OMPT_INVOKER(x) \
24 ((x == fork_context_gnu) ? ompt_parallel_invoker_program \
25 : ompt_parallel_invoker_runtime)
27#define ompt_callback(e) e##_callback
29typedef struct ompt_callbacks_internal_s {
30#define ompt_event_macro(event, callback, eventid) \
31 callback ompt_callback(event);
33 FOREACH_OMPT_EVENT(ompt_event_macro)
35#undef ompt_event_macro
36} ompt_callbacks_internal_t;
38typedef struct ompt_callbacks_active_s {
39 unsigned int enabled : 1;
40#define ompt_event_macro(event, callback, eventid) unsigned int event : 1;
42 FOREACH_OMPT_EVENT(ompt_event_macro)
44#undef ompt_event_macro
45} ompt_callbacks_active_t;
47#define TASK_TYPE_DETAILS_FORMAT(info) \
48 ((info->td_flags.task_serial || info->td_flags.tasking_ser) \
49 ? ompt_task_undeferred \
51 ((!(info->td_flags.tiedness)) ? ompt_task_untied : 0x0) | \
52 (info->td_flags.final ? ompt_task_final : 0x0) | \
53 (info->td_flags.merged_if0 ? ompt_task_mergeable : 0x0)
57 ompt_data_t task_data;
58 struct kmp_taskdata *scheduling_parent;
60 ompt_dispatch_chunk_t dispatch_chunk;
64 ompt_data_t parallel_data;
65 void *master_return_address;
68typedef struct ompt_lw_taskteam_s {
69 ompt_team_info_t ompt_team_info;
70 ompt_task_info_t ompt_task_info;
72 struct ompt_lw_taskteam_s *parent;
76 ompt_data_t thread_data;
77 ompt_data_t task_data;
79 ompt_data_t target_task_data;
82 ompt_wait_id_t wait_id;
83 int ompt_task_yielded;
88extern ompt_callbacks_internal_t ompt_callbacks;
90#if OMPT_SUPPORT && OMPT_OPTIONAL
92#define KMP_OMPT_DEPS_ALLOC __kmp_fast_allocate
93#define KMP_OMPT_DEPS_FREE __kmp_fast_free
95#define KMP_OMPT_DEPS_ALLOC __kmp_thread_malloc
96#define KMP_OMPT_DEPS_FREE __kmp_thread_free
104void ompt_pre_init(
void);
105void ompt_post_init(
void);
108#define OMPT_GET_RETURN_ADDRESS(level) __builtin_return_address(level)
109#define OMPT_GET_FRAME_ADDRESS(level) __builtin_frame_address(level)
111int __kmp_control_tool(uint64_t command, uint64_t modifier,
void *arg);
113extern ompt_callbacks_active_t ompt_enabled;
116#define UNLIKELY(x) (x)
117#define OMPT_NOINLINE __declspec(noinline)
119#define UNLIKELY(x) __builtin_expect(!!(x), 0)
120#define OMPT_NOINLINE __attribute__((noinline))