[OpenMP][Tools] Fix handling of initial-task-end

Latest OpenMP spec says parallel_data is NULL for initial/implicit-task-end.
We nevertheless need to cleanup the ParallelData here, as there is no other
callback for the end of the implicit parallel region. We can use the reference
stored in the TaskData.

Reviewed By: dreachem

Differential Revision: https://reviews.llvm.org/D114005
This commit is contained in:
Joachim Protze 2022-03-31 12:31:18 -05:00 committed by Chi-Chun, Chen
parent 1a6aa8b195
commit 7641e42def
1 changed files with 2 additions and 2 deletions

View File

@ -686,10 +686,10 @@ static void ompt_tsan_implicit_task(ompt_scope_endpoint_t endpoint,
#endif
assert(Data->RefCount == 1 &&
"All tasks should have finished at the implicit barrier!");
Data->Delete();
if (type & ompt_task_initial) {
ToParallelData(parallel_data)->Delete();
Data->Team->Delete();
}
Data->Delete();
TsanFuncExit();
break;
}