fix regression introduced while merging

Author: jprotze

runtime/src/kmp_gsupport.c

@@ -273,7 +273,7 @@ __kmp_GOMP_microtask_wrapper(int *gtid, int *npr, void (*task)(void *),
 
         // set task frame
         ompt_frame = __ompt_get_task_frame_internal(0);
-        ompt_frame->exit_runtime_frame = __builtin_frame_address(1);
+        ompt_frame->exit_runtime_frame = __builtin_frame_address(0);
     }
 #endif
 
@@ -318,7 +318,7 @@ __kmp_GOMP_parallel_microtask_wrapper(int *gtid, int *npr,
 
         // set task frame
         ompt_frame = __ompt_get_task_frame_internal(0);
-        ompt_frame->exit_runtime_frame = __builtin_frame_address(1);
+        ompt_frame->exit_runtime_frame = __builtin_frame_address(0);
     }
 #endif
 
@@ -986,7 +986,7 @@ xexpand(KMP_API_NAME_GOMP_TASK)(void (*func)(void *), void *data, void (*copy_fu
             thread->th.ompt_thread_info.wait_id = 0;
             thread->th.ompt_thread_info.state = ompt_state_work_parallel;
             taskdata->ompt_task_info.frame.exit_runtime_frame =
-                __builtin_frame_address(1);
+                __builtin_frame_address(0);
         }
 #endif
 

runtime/src/kmp_tasking.c

@@ -1222,7 +1222,7 @@ __kmp_invoke_task( kmp_int32 gtid, kmp_task_t *task, kmp_taskdata_t * current_ta
         oldInfo = thread->th.ompt_thread_info;
         thread->th.ompt_thread_info.wait_id = 0;
         thread->th.ompt_thread_info.state = ompt_state_work_parallel;
-        taskdata->ompt_task_info.frame.exit_runtime_frame = __builtin_frame_address(1);
+        taskdata->ompt_task_info.frame.exit_runtime_frame = __builtin_frame_address(0);
     }
 #endif