================
@@ -24,6 +24,16 @@
((x == fork_context_gnu) ? ompt_parallel_invoker_program \
: ompt_parallel_invoker_runtime)
+#define OMPT_FRAME_SET(frame, which, ptr_value, flags) \
+ { \
+ frame->which##_frame.ptr = ptr_value; \
+ frame->which##_frame_flags = flags; \
+ }
+
+#define OMPT_FRAME_CLEAR(frame, which) OMPT_FRAME_SET(frame, which, 0, 0)
+
+#define OMPT_FRAME_SET_P(frame, which) (frame->which##_frame.ptr != NULL)
----------------
jprotze wrote:
Is not used and the name is confusing. `OMPT_FRAME_IS_SET`?
https://github.com/llvm/llvm-project/pull/201127