[OMPT] Make sure that OMPT is enabled in runtime entry points that access internals of the runtime

[sconvent]

Summary

Make sure that OMPT is enabled in runtime entry points that access internals of the runtime.
Else, return an appropiate value indicating an error or that the data is not available.

[Hahnfeld]

runtime/src/ompt-general.cpp

458

Should we put an if (ompt_enabled.enabled) return ompt_get_callback_failure at the very beginning of the function? That seems invariant to the switch-case...

runtime/src/ompt-specific.cpp

198

Is this needed in internal functions or does it just make things easier? I'm worried that adding these checks to internal functions will degrade performance...

[sconvent]

Address Jonas' comments:

[sconvent]

runtime/src/ompt-general.cpp

458

You meant if (!ompt_enabled.enabled) right?

[Hahnfeld]

runtime/src/ompt-general.cpp

458

Sure :D

runtime/src/ompt-specific.cpp

235

I think you do the same for the other functions in this file as well.

334

Same here

[sconvent]

Move ompt_enabled.enabled checks out of internal functions

[sconvent]

Add check to ompt_get_state()

[sconvent]

Add a testcase that calls the runtime entry points when OMPT is not enabled.

[jmellorcrummey]

None of this makes sense. If OMPT is not enabled, there should be no call to the ompt_initializer. For that reason, no tool should get pointers to OMPT runtime entry points if OMPT is not enabled. Therefore, the OMPT runtime entry points don’t need to check if OMPT is enabled.

[protze.joachim]

The OMPT tool can decide at multiple points to be inactive, here we look at:

4.2.1.2 Initializing an OMPT Tool

If a tool initializer returns a non-zero value, the tool will be activated for the execution; otherwise, the tool will be inactive.

This tool behavior is represented in line 136 of the test-code. Similar behavior is also expect after the ompt_finalize_tool is added: the tool should be inactive, but the runtime should still not crash or reboot if the tool calls some of the runtime entry points after calling ompt_finalize_tool.

[jmellorcrummey]

Commenting from my phone without a spec (flying without a net): I think we should change the name of the bit ompt_enabled.enabled to ompt_enabled.activated. That would make joachim’s distinction clear. I was commenting on the setting of OMP_TOOL=enabled. There is a difference between enabled and activated. Simon’s commentary in and about the test case muddled the activated vs. enabled distinction.

[protze.joachim]

In D47717#1135481, @jmellorcrummey wrote:

I think we should change the name of the bit ompt_enabled.enabled to ompt_enabled.activated. That would make joachim’s distinction clear. I was commenting on the setting of OMP_TOOL=enabled. There is a difference between enabled and activated.

I think, we should first make this distinction clear in the OpenMP spec. Then we can change the name of this bit.

[protze.joachim]

I would like to commit this patch before the 7.0 branch.
Changing the name of the bit can be done in a later patch.
@jmellorcrummey do you agree, can you remove your request for changes?

[protze.joachim]

The patch in general looks good to me.

If the name of the variable is an issue, I look forward for a patch fixing this name :)

runtime/src/ompt-general.cpp

OMPT_API_ROUTINE int ompt_get_callback(ompt_callbacks_t which,
                                        ompt_callback_t *callback) {
   switch (which) {
 
 #define ompt_event_macro(event_name, callback_type, event_id)                  \
   case event_name:                                                             \
     if (ompt_event_implementation_status(event_name)) {                        \
       ompt_callback_t mycb =                                                   \
           (ompt_callback_t)ompt_callbacks.ompt_callback(event_name);           \
-      if (mycb) {                                                              \
+      if (ompt_enabled.enabled && ompt_enabled.event_name && mycb) {           \
         *callback = mycb;                                                      \
         return ompt_get_callback_success;                                      \
       }                                                                        \
     }                                                                          \
     return ompt_get_callback_failure;
 
     FOREACH_OMPT_EVENT(ompt_event_macro)
 

 #endif
 }
 
 OMPT_API_ROUTINE int ompt_get_place_num(void) {
 // copied from kmp_ftn_entry.h (but modified)
 #if !KMP_AFFINITY_SUPPORTED
   return -1;
 #else
-  if (__kmp_get_gtid() < 0)
+  if (!ompt_enabled.enabled || __kmp_get_gtid() < 0)
     return -1;
 
   int gtid;
   kmp_info_t *thread;
   if (!KMP_AFFINITY_CAPABLE())
     return -1;
   gtid = __kmp_entry_gtid();
   thread = __kmp_thread_from_gtid(gtid);
   if (thread == NULL || thread->th.th_current_place < 0)
     return -1;
   return thread->th.th_current_place;
 #endif
 }
 
 OMPT_API_ROUTINE int ompt_get_partition_place_nums(int place_nums_size,
                                                    int *place_nums) {
 // copied from kmp_ftn_entry.h (but modified)
 #if !KMP_AFFINITY_SUPPORTED
   return 0;
 #else
-  if (__kmp_get_gtid() < 0)
+  if (!ompt_enabled.enabled || __kmp_get_gtid() < 0)
     return 0;
 
   int i, gtid, place_num, first_place, last_place, start, end;
   kmp_info_t *thread;
   if (!KMP_AFFINITY_CAPABLE())
     return 0;
   gtid = __kmp_entry_gtid();
   thread = __kmp_thread_from_gtid(gtid);

 }
 
 /*****************************************************************************
  * places
  ****************************************************************************/
 
 OMPT_API_ROUTINE int ompt_get_proc_id(void) {
 #if KMP_OS_LINUX
-  if (__kmp_get_gtid() < 0)
+  if (!ompt_enabled.enabled || __kmp_get_gtid() < 0)
     return -1;
 
   return sched_getcpu();
 #else
   return -1;
 #endif
 }
 

runtime/src/ompt-specific.cpp

 // interface operations
 //******************************************************************************
 
 //----------------------------------------------------------
 // thread support
 //----------------------------------------------------------
 
 ompt_data_t *__ompt_get_thread_data_internal() {
-  if (__kmp_get_gtid() >= 0) {
+  if (ompt_enabled.enabled && __kmp_get_gtid() >= 0) {
     kmp_info_t *thread = ompt_get_thread();
     if (thread == NULL)
       return NULL;
     return &(thread->th.ompt_thread_info.thread_data);
   }
   return NULL;
 }
 

 
 //----------------------------------------------------------
 // parallel region support
 //----------------------------------------------------------
 
 int __ompt_get_parallel_info_internal(int ancestor_level,
                                       ompt_data_t **parallel_data,
                                       int *team_size) {
-  if (__kmp_get_gtid() >= 0) {
+  if (ompt_enabled.enabled && __kmp_get_gtid() >= 0) {
     ompt_team_info_t *info;
     if (team_size) {
       info = __ompt_get_teaminfo(ancestor_level, team_size);
     } else {
       info = __ompt_get_teaminfo(ancestor_level, NULL);
     }
     if (parallel_data) {
       *parallel_data = info ? &(info->parallel_data) : NULL;

 // task support
 //----------------------------------------------------------
 
 int __ompt_get_task_info_internal(int ancestor_level, int *type,
                                   ompt_data_t **task_data,
                                   omp_frame_t **task_frame,
                                   ompt_data_t **parallel_data,
                                   int *thread_num) {
-  if (__kmp_get_gtid() < 0)
+  if (!ompt_enabled.enabled || __kmp_get_gtid() < 0)
     return 0;
 
   if (ancestor_level < 0)
     return 0;
 
   // copied from __ompt_get_scheduling_taskinfo
   ompt_task_info_t *info = NULL;
   ompt_team_info_t *team_info = NULL;