Skip to content

Commit 4004ac8

Browse files
committed
Add thread id to output for parallel regions.
1 parent fedfaed commit 4004ac8

1 file changed

Lines changed: 6 additions & 0 deletions

File tree

include/opdi/logic/omp/instrument/ompLogicOutputInstrument.hpp

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -114,21 +114,25 @@ namespace opdi {
114114

115115
virtual void reverseParallelBegin(ParallelOmpLogic::Data* data) {
116116
TapedOutput::print("R PARB l", omp_get_level(),
117+
"t", omp_get_thread_num(),
117118
"master", data->masterTape);
118119
}
119120

120121
virtual void reverseParallelEnd(ParallelOmpLogic::Data* data) {
121122
TapedOutput::print("R PARE l", omp_get_level(),
123+
"t", omp_get_thread_num(),
122124
"master", data->masterTape);
123125
}
124126

125127
virtual void onParallelBegin(ParallelOmpLogic::Data* data) {
126128
if (data == nullptr) {
127129
TapedOutput::print("F PARB l", omp_get_level(),
130+
"t", omp_get_thread_num(),
128131
"(passive)");
129132
}
130133
else {
131134
TapedOutput::print("F PARB l", omp_get_level(),
135+
"t", omp_get_thread_num(),
132136
"master", data->masterTape,
133137
"mode", data->outerAdjointAccessMode);
134138
}
@@ -137,10 +141,12 @@ namespace opdi {
137141
virtual void onParallelEnd(ParallelOmpLogic::Data* data) {
138142
if (data == nullptr) {
139143
TapedOutput::print("F PARE l", omp_get_level(),
144+
"t", omp_get_thread_num(),
140145
"(passive)");
141146
}
142147
else {
143148
TapedOutput::print("F PARE l", omp_get_level(),
149+
"t", omp_get_thread_num(),
144150
"master", data->masterTape,
145151
"mode", data->outerAdjointAccessMode);
146152
}

0 commit comments

Comments
 (0)