Skip to content

Commit 09ee315

Browse files
authored
[MLIR][OpenMP] NFC: Uniformize OpenMP ops names (llvm#85393) (#53)
* [MLIR][OpenMP] NFC: Uniformize OpenMP ops names (llvm#85393) This patch proposes the renaming of certain OpenMP dialect operations with the goal of improving readability and following a uniform naming convention for MLIR operations and associated classes. In particular, the following operations are renamed: - `omp.map_info` -> `omp.map.info` - `omp.target_update_data` -> `omp.target_update` - `omp.ordered_region` -> `omp.ordered.region` - `omp.cancellationpoint` -> `omp.cancellation_point` - `omp.bounds` -> `omp.map.bounds` - `omp.reduction.declare` -> `omp.declare_reduction` Also, the following MLIR operation classes have been renamed: - `omp::TaskLoopOp` -> `omp::TaskloopOp` - `omp::TaskGroupOp` -> `omp::TaskgroupOp` - `omp::DataBoundsOp` -> `omp::MapBoundsOp` - `omp::DataOp` -> `omp::TargetDataOp` - `omp::EnterDataOp` -> `omp::TargetEnterDataOp` - `omp::ExitDataOp` -> `omp::TargetExitDataOp` - `omp::UpdateDataOp` -> `omp::TargetUpdateOp` - `omp::ReductionDeclareOp` -> `omp::DeclareReductionOp` - `omp::WsLoopOp` -> `omp::WsloopOp`
1 parent 6f86d2c commit 09ee315

File tree

71 files changed

+718
-721
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

71 files changed

+718
-721
lines changed

Diff for: flang/docs/OpenMP-descriptor-management.md

+6-5
Original file line numberDiff line numberDiff line change
@@ -49,15 +49,16 @@ the lowering to FIR/HLFIR has been performed an OpenMP dialect specific pass for
4949
mappings, with one extra per pointer member in the descriptor that is supported on top of the original
5050
descriptor map operation. These pointers members are linked to the parent descriptor by adding them to
5151
the member field of the original descriptor map operation, they are then inserted into the relevant map
52-
owning operation's (`omp.TargetOp`, `omp.DataOp` etc.) map operand list and in cases where the owning operation
53-
is `IsolatedFromAbove`, it also inserts them as `BlockArgs` to canonicalize the mappings and simplify lowering.
52+
owning operation's (`omp.TargetOp`, `omp.TargetDataOp` etc.) map operand list and in cases where the owning
53+
operation is `IsolatedFromAbove`, it also inserts them as `BlockArgs` to canonicalize the mappings and
54+
simplify lowering.
5455
5556
An example transformation by the `OMPDescriptorMapInfoGenPass`:
5657
5758
```
5859

5960
...
60-
%12 = omp.map_info var_ptr(%1#1 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, !fir.box<!fir.ptr<!fir.array<?xi32>>>) map_clauses(tofrom) capture(ByRef) bounds(%11) -> !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>> {name = "arg_alloc"}
61+
%12 = omp.map.info var_ptr(%1#1 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, !fir.box<!fir.ptr<!fir.array<?xi32>>>) map_clauses(tofrom) capture(ByRef) bounds(%11) -> !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>> {name = "arg_alloc"}
6162
...
6263
omp.target map_entries(%12 -> %arg1, %13 -> %arg2 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, !fir.ref<i32>) {
6364
^bb0(%arg1: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, %arg2: !fir.ref<i32>):
@@ -67,8 +68,8 @@ omp.target map_entries(%12 -> %arg1, %13 -> %arg2 : !fir.ref<!fir.box<!fir.ptr<!
6768

6869
...
6970
%12 = fir.box_offset %1#1 base_addr : (!fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>) -> !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>>
70-
%13 = omp.map_info var_ptr(%1#1 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, !fir.array<?xi32>) var_ptr_ptr(%12 : !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>>) map_clauses(tofrom) capture(ByRef) bounds(%11) -> !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>> {name = ""}
71-
%14 = omp.map_info var_ptr(%1#1 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, !fir.box<!fir.ptr<!fir.array<?xi32>>>) map_clauses(tofrom) capture(ByRef) members(%13 : !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>>) -> !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>> {name = "arg_alloc"}
71+
%13 = omp.map.info var_ptr(%1#1 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, !fir.array<?xi32>) var_ptr_ptr(%12 : !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>>) map_clauses(tofrom) capture(ByRef) bounds(%11) -> !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>> {name = ""}
72+
%14 = omp.map.info var_ptr(%1#1 : !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, !fir.box<!fir.ptr<!fir.array<?xi32>>>) map_clauses(tofrom) capture(ByRef) members(%13 : !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>>) -> !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>> {name = "arg_alloc"}
7273
...
7374
omp.target map_entries(%13 -> %arg1, %14 -> %arg2, %15 -> %arg3 : !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>>, !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, !fir.ref<i32>) {
7475
^bb0(%arg1: !fir.llvm_ptr<!fir.ref<!fir.array<?xi32>>>, %arg2: !fir.ref<!fir.box<!fir.ptr<!fir.array<?xi32>>>>, %arg3: !fir.ref<i32>):

Diff for: flang/lib/Lower/OpenMP/ClauseProcessor.cpp

+5-5
Original file line numberDiff line numberDiff line change
@@ -924,8 +924,8 @@ bool ClauseProcessor::processMap(
924924

925925
Fortran::lower::AddrAndBoundsInfo info =
926926
Fortran::lower::gatherDataOperandAddrAndBounds<
927-
Fortran::parser::OmpObject, mlir::omp::DataBoundsOp,
928-
mlir::omp::DataBoundsType>(
927+
Fortran::parser::OmpObject, mlir::omp::MapBoundsOp,
928+
mlir::omp::MapBoundsType>(
929929
converter, firOpBuilder, semaCtx, stmtCtx, ompObject,
930930
clauseLocation, asFortran, bounds, treatIndexAsSection);
931931

@@ -979,9 +979,9 @@ bool ClauseProcessor::processReduction(
979979
[&](const ClauseTy::Reduction *reductionClause,
980980
const Fortran::parser::CharBlock &) {
981981
ReductionProcessor rp;
982-
rp.addReductionDecl(currentLocation, converter, reductionClause->v,
983-
reductionVars, reductionDeclSymbols,
984-
reductionSymbols);
982+
rp.addDeclareReduction(currentLocation, converter, reductionClause->v,
983+
reductionVars, reductionDeclSymbols,
984+
reductionSymbols);
985985
});
986986
}
987987

Diff for: flang/lib/Lower/OpenMP/ClauseProcessor.h

+2-2
Original file line numberDiff line numberDiff line change
@@ -210,8 +210,8 @@ bool ClauseProcessor::processMotionClauses(
210210
std::stringstream asFortran;
211211
Fortran::lower::AddrAndBoundsInfo info =
212212
Fortran::lower::gatherDataOperandAddrAndBounds<
213-
Fortran::parser::OmpObject, mlir::omp::DataBoundsOp,
214-
mlir::omp::DataBoundsType>(
213+
Fortran::parser::OmpObject, mlir::omp::MapBoundsOp,
214+
mlir::omp::MapBoundsType>(
215215
converter, firOpBuilder, semaCtx, stmtCtx, ompObject,
216216
clauseLocation, asFortran, bounds, treatIndexAsSection);
217217

Diff for: flang/lib/Lower/OpenMP/DataSharingProcessor.cpp

+3-3
Original file line numberDiff line numberDiff line change
@@ -221,7 +221,7 @@ void DataSharingProcessor::insertLastPrivateCompare(mlir::Operation *op) {
221221
firOpBuilder.restoreInsertionPoint(unstructuredSectionsIP);
222222
}
223223
}
224-
} else if (mlir::isa<mlir::omp::WsLoopOp>(op)) {
224+
} else if (mlir::isa<mlir::omp::WsloopOp>(op)) {
225225
// Update the original variable just before exiting the worksharing
226226
// loop. Conversion as follows:
227227
//
@@ -250,8 +250,8 @@ void DataSharingProcessor::insertLastPrivateCompare(mlir::Operation *op) {
250250

251251
mlir::Value iv = op->getRegion(0).front().getArguments()[0];
252252
mlir::Value ub =
253-
mlir::dyn_cast<mlir::omp::WsLoopOp>(op).getUpperBound()[0];
254-
mlir::Value step = mlir::dyn_cast<mlir::omp::WsLoopOp>(op).getStep()[0];
253+
mlir::dyn_cast<mlir::omp::WsloopOp>(op).getUpperBound()[0];
254+
mlir::Value step = mlir::dyn_cast<mlir::omp::WsloopOp>(op).getStep()[0];
255255

256256
// v = iv + step
257257
// cmp = step < 0 ? v < ub : v > ub

Diff for: flang/lib/Lower/OpenMP/OpenMP.cpp

+42-43
Original file line numberDiff line numberDiff line change
@@ -510,7 +510,7 @@ static void createBodyOfOp(Op &op, OpWithBodyGenInfo &info) {
510510

511511
// Start with privatization, so that the lowering of the nested
512512
// code will use the right symbols.
513-
constexpr bool isLoop = std::is_same_v<Op, mlir::omp::WsLoopOp> ||
513+
constexpr bool isLoop = std::is_same_v<Op, mlir::omp::WsloopOp> ||
514514
std::is_same_v<Op, mlir::omp::SimdLoopOp>;
515515
bool privatize = info.clauses && !info.outerCombined;
516516

@@ -611,7 +611,7 @@ static void genBodyOfTargetDataOp(
611611
Fortran::lower::AbstractConverter &converter,
612612
Fortran::semantics::SemanticsContext &semaCtx,
613613
Fortran::lower::pft::Evaluation &eval, bool genNested,
614-
mlir::omp::DataOp &dataOp,
614+
mlir::omp::TargetDataOp &dataOp,
615615
const llvm::SmallVector<mlir::Type> &useDeviceTypes,
616616
const llvm::SmallVector<mlir::Location> &useDeviceLocs,
617617
const llvm::SmallVector<const Fortran::semantics::Symbol *>
@@ -822,7 +822,6 @@ genParallelOp(Fortran::lower::AbstractConverter &converter,
822822
dsp.processStep2();
823823
}
824824

825-
826825
const auto &delayedPrivatizationInfo = dsp.getDelayedPrivatizationInfo();
827826

828827
auto genRegionEntryCB = [&](mlir::Operation *op) {
@@ -977,8 +976,8 @@ genTaskOp(Fortran::lower::AbstractConverter &converter,
977976
dependOperands, allocateOperands, allocatorOperands);
978977
}
979978

980-
static mlir::omp::TaskGroupOp
981-
genTaskGroupOp(Fortran::lower::AbstractConverter &converter,
979+
static mlir::omp::TaskgroupOp
980+
genTaskgroupOp(Fortran::lower::AbstractConverter &converter,
982981
Fortran::semantics::SemanticsContext &semaCtx,
983982
Fortran::lower::pft::Evaluation &eval, bool genNested,
984983
mlir::Location currentLocation,
@@ -988,20 +987,20 @@ genTaskGroupOp(Fortran::lower::AbstractConverter &converter,
988987
cp.processAllocate(allocatorOperands, allocateOperands);
989988
cp.processTODO<Fortran::parser::OmpClause::TaskReduction>(
990989
currentLocation, llvm::omp::Directive::OMPD_taskgroup);
991-
return genOpWithBody<mlir::omp::TaskGroupOp>(
990+
return genOpWithBody<mlir::omp::TaskgroupOp>(
992991
OpWithBodyGenInfo(converter, semaCtx, currentLocation, eval)
993992
.setGenNested(genNested)
994993
.setClauses(&clauseList),
995994
/*task_reduction_vars=*/mlir::ValueRange(),
996995
/*task_reductions=*/nullptr, allocateOperands, allocatorOperands);
997996
}
998997

999-
static mlir::omp::DataOp
1000-
genDataOp(Fortran::lower::AbstractConverter &converter,
1001-
Fortran::semantics::SemanticsContext &semaCtx,
1002-
Fortran::lower::pft::Evaluation &eval, bool genNested,
1003-
mlir::Location currentLocation,
1004-
const Fortran::parser::OmpClauseList &clauseList) {
998+
static mlir::omp::TargetDataOp
999+
genTargetDataOp(Fortran::lower::AbstractConverter &converter,
1000+
Fortran::semantics::SemanticsContext &semaCtx,
1001+
Fortran::lower::pft::Evaluation &eval, bool genNested,
1002+
mlir::Location currentLocation,
1003+
const Fortran::parser::OmpClauseList &clauseList) {
10051004
Fortran::lower::StatementContext stmtCtx;
10061005
mlir::Value ifClauseOperand, deviceOperand;
10071006
llvm::SmallVector<mlir::Value> mapOperands, devicePtrOperands,
@@ -1021,7 +1020,7 @@ genDataOp(Fortran::lower::AbstractConverter &converter,
10211020
cp.processMap(currentLocation, llvm::omp::Directive::OMPD_target_data,
10221021
stmtCtx, mapOperands);
10231022

1024-
auto dataOp = converter.getFirOpBuilder().create<mlir::omp::DataOp>(
1023+
auto dataOp = converter.getFirOpBuilder().create<mlir::omp::TargetDataOp>(
10251024
currentLocation, ifClauseOperand, deviceOperand, devicePtrOperands,
10261025
deviceAddrOperands, mapOperands);
10271026
genBodyOfTargetDataOp(converter, semaCtx, eval, genNested, dataOp,
@@ -1031,11 +1030,11 @@ genDataOp(Fortran::lower::AbstractConverter &converter,
10311030
}
10321031

10331032
template <typename OpTy>
1034-
static OpTy
1035-
genEnterExitUpdateDataOp(Fortran::lower::AbstractConverter &converter,
1036-
Fortran::semantics::SemanticsContext &semaCtx,
1037-
mlir::Location currentLocation,
1038-
const Fortran::parser::OmpClauseList &clauseList) {
1033+
static OpTy genTargetEnterExitDataUpdateOp(
1034+
Fortran::lower::AbstractConverter &converter,
1035+
Fortran::semantics::SemanticsContext &semaCtx,
1036+
mlir::Location currentLocation,
1037+
const Fortran::parser::OmpClauseList &clauseList) {
10391038
fir::FirOpBuilder &firOpBuilder = converter.getFirOpBuilder();
10401039
Fortran::lower::StatementContext stmtCtx;
10411040
mlir::Value ifClauseOperand, deviceOperand;
@@ -1046,15 +1045,15 @@ genEnterExitUpdateDataOp(Fortran::lower::AbstractConverter &converter,
10461045
Fortran::parser::OmpIfClause::DirectiveNameModifier directiveName;
10471046
// GCC 9.3.0 emits a (probably) bogus warning about an unused variable.
10481047
[[maybe_unused]] llvm::omp::Directive directive;
1049-
if constexpr (std::is_same_v<OpTy, mlir::omp::EnterDataOp>) {
1048+
if constexpr (std::is_same_v<OpTy, mlir::omp::TargetEnterDataOp>) {
10501049
directiveName =
10511050
Fortran::parser::OmpIfClause::DirectiveNameModifier::TargetEnterData;
10521051
directive = llvm::omp::Directive::OMPD_target_enter_data;
1053-
} else if constexpr (std::is_same_v<OpTy, mlir::omp::ExitDataOp>) {
1052+
} else if constexpr (std::is_same_v<OpTy, mlir::omp::TargetExitDataOp>) {
10541053
directiveName =
10551054
Fortran::parser::OmpIfClause::DirectiveNameModifier::TargetExitData;
10561055
directive = llvm::omp::Directive::OMPD_target_exit_data;
1057-
} else if constexpr (std::is_same_v<OpTy, mlir::omp::UpdateDataOp>) {
1056+
} else if constexpr (std::is_same_v<OpTy, mlir::omp::TargetUpdateOp>) {
10581057
directiveName =
10591058
Fortran::parser::OmpIfClause::DirectiveNameModifier::TargetUpdate;
10601059
directive = llvm::omp::Directive::OMPD_target_update;
@@ -1068,7 +1067,7 @@ genEnterExitUpdateDataOp(Fortran::lower::AbstractConverter &converter,
10681067
cp.processDepend(dependTypeOperands, dependOperands);
10691068
cp.processNowait(nowaitAttr);
10701069

1071-
if constexpr (std::is_same_v<OpTy, mlir::omp::UpdateDataOp>) {
1070+
if constexpr (std::is_same_v<OpTy, mlir::omp::TargetUpdateOp>) {
10721071
cp.processMotionClauses<Fortran::parser::OmpClause::To>(stmtCtx,
10731072
mapOperands);
10741073
cp.processMotionClauses<Fortran::parser::OmpClause::From>(stmtCtx,
@@ -1265,7 +1264,7 @@ genTargetOp(Fortran::lower::AbstractConverter &converter,
12651264

12661265
ClauseProcessor cp(converter, semaCtx, clauseList);
12671266
cp.processIf(Fortran::parser::OmpIfClause::DirectiveNameModifier::Target,
1268-
ifClauseOperand);
1267+
ifClauseOperand);
12691268
cp.processDevice(stmtCtx, deviceOperand);
12701269
cp.processThreadLimit(stmtCtx, threadLimitOperand);
12711270
cp.processDepend(dependTypeOperands, dependOperands);
@@ -1322,15 +1321,15 @@ genTargetOp(Fortran::lower::AbstractConverter &converter,
13221321
converter.getCurrentLocation());
13231322
if (fir::unwrapRefType(info.addr.getType()).isa<fir::BaseBoxType>())
13241323
bounds =
1325-
Fortran::lower::genBoundsOpsFromBox<mlir::omp::DataBoundsOp,
1326-
mlir::omp::DataBoundsType>(
1324+
Fortran::lower::genBoundsOpsFromBox<mlir::omp::MapBoundsOp,
1325+
mlir::omp::MapBoundsType>(
13271326
converter.getFirOpBuilder(), converter.getCurrentLocation(),
13281327
converter, dataExv, info);
13291328
if (fir::unwrapRefType(info.addr.getType()).isa<fir::SequenceType>()) {
13301329
bool dataExvIsAssumedSize =
13311330
Fortran::semantics::IsAssumedSizeArray(sym.GetUltimate());
1332-
bounds = Fortran::lower::genBaseBoundsOps<mlir::omp::DataBoundsOp,
1333-
mlir::omp::DataBoundsType>(
1331+
bounds = Fortran::lower::genBaseBoundsOps<mlir::omp::MapBoundsOp,
1332+
mlir::omp::MapBoundsType>(
13341333
converter.getFirOpBuilder(), converter.getCurrentLocation(),
13351334
converter, dataExv, dataExvIsAssumedSize);
13361335
}
@@ -1620,19 +1619,19 @@ genOmpSimpleStandalone(Fortran::lower::AbstractConverter &converter,
16201619
firOpBuilder.create<mlir::omp::TaskyieldOp>(currentLocation);
16211620
break;
16221621
case llvm::omp::Directive::OMPD_target_data:
1623-
genDataOp(converter, semaCtx, eval, genNested, currentLocation,
1624-
opClauseList);
1622+
genTargetDataOp(converter, semaCtx, eval, genNested, currentLocation,
1623+
opClauseList);
16251624
break;
16261625
case llvm::omp::Directive::OMPD_target_enter_data:
1627-
genEnterExitUpdateDataOp<mlir::omp::EnterDataOp>(
1626+
genTargetEnterExitDataUpdateOp<mlir::omp::TargetEnterDataOp>(
16281627
converter, semaCtx, currentLocation, opClauseList);
16291628
break;
16301629
case llvm::omp::Directive::OMPD_target_exit_data:
1631-
genEnterExitUpdateDataOp<mlir::omp::ExitDataOp>(
1630+
genTargetEnterExitDataUpdateOp<mlir::omp::TargetExitDataOp>(
16321631
converter, semaCtx, currentLocation, opClauseList);
16331632
break;
16341633
case llvm::omp::Directive::OMPD_target_update:
1635-
genEnterExitUpdateDataOp<mlir::omp::UpdateDataOp>(
1634+
genTargetEnterExitDataUpdateOp<mlir::omp::TargetUpdateOp>(
16361635
converter, semaCtx, currentLocation, opClauseList);
16371636
break;
16381637
case llvm::omp::Directive::OMPD_ordered:
@@ -1850,7 +1849,7 @@ createSimdLoop(Fortran::lower::AbstractConverter &converter,
18501849
.setGenRegionEntryCb(ivCallback));
18511850
}
18521851

1853-
static void createWsLoop(Fortran::lower::AbstractConverter &converter,
1852+
static void createWsloop(Fortran::lower::AbstractConverter &converter,
18541853
Fortran::semantics::SemanticsContext &semaCtx,
18551854
Fortran::lower::pft::Evaluation &eval,
18561855
llvm::omp::Directive ompDirective,
@@ -1887,7 +1886,7 @@ static void createWsLoop(Fortran::lower::AbstractConverter &converter,
18871886
convertLoopBounds(converter, loc, lowerBound, upperBound, step,
18881887
loopVarTypeSize);
18891888

1890-
auto wsLoopOp = firOpBuilder.create<mlir::omp::WsLoopOp>(
1889+
auto wsLoopOp = firOpBuilder.create<mlir::omp::WsloopOp>(
18911890
loc, lowerBound, upperBound, step, linearVars, linearStepVars,
18921891
reductionVars,
18931892
reductionDeclSymbols.empty()
@@ -1934,7 +1933,7 @@ static void createWsLoop(Fortran::lower::AbstractConverter &converter,
19341933
reductionTypes);
19351934
};
19361935

1937-
createBodyOfOp<mlir::omp::WsLoopOp>(
1936+
createBodyOfOp<mlir::omp::WsloopOp>(
19381937
wsLoopOp, OpWithBodyGenInfo(converter, semaCtx, loc, *nestedEval)
19391938
.setClauses(&beginClauseList)
19401939
.setDataSharingProcessor(&dsp)
@@ -1962,7 +1961,7 @@ static void createWsLoop(Fortran::lower::AbstractConverter &converter,
19621961
}
19631962
}
19641963

1965-
static void createSimdWsLoop(
1964+
static void createSimdWsloop(
19661965
Fortran::lower::AbstractConverter &converter,
19671966
Fortran::semantics::SemanticsContext &semaCtx,
19681967
Fortran::lower::pft::Evaluation &eval, llvm::omp::Directive ompDirective,
@@ -1983,7 +1982,7 @@ static void createSimdWsLoop(
19831982
// if clause. Currently if clause can be skipped because we always assume
19841983
// SIMD length = 1.
19851984
DataSharingProcessor dsp(converter, beginClauseList, eval);
1986-
createWsLoop(converter, semaCtx, eval, ompDirective, beginClauseList,
1985+
createWsloop(converter, semaCtx, eval, ompDirective, beginClauseList,
19871986
endClauseList, loc, dsp);
19881987
}
19891988

@@ -2058,7 +2057,7 @@ static void genOMP(Fortran::lower::AbstractConverter &converter,
20582057

20592058
if (llvm::omp::allDoSimdSet.test(ompDirective)) {
20602059
// 2.9.3.2 Workshare SIMD construct
2061-
createSimdWsLoop(converter, semaCtx, eval, ompDirective, loopOpClauseList,
2060+
createSimdWsloop(converter, semaCtx, eval, ompDirective, loopOpClauseList,
20622061
endClauseList, currentLocation);
20632062

20642063
} else if (llvm::omp::allSimdSet.test(ompDirective)) {
@@ -2067,7 +2066,7 @@ static void genOMP(Fortran::lower::AbstractConverter &converter,
20672066
currentLocation);
20682067
genOpenMPReduction(converter, semaCtx, loopOpClauseList);
20692068
} else {
2070-
createWsLoop(converter, semaCtx, eval, ompDirective, loopOpClauseList,
2069+
createWsloop(converter, semaCtx, eval, ompDirective, loopOpClauseList,
20712070
endClauseList, currentLocation, dsp);
20722071
}
20732072
}
@@ -2144,15 +2143,15 @@ genOMP(Fortran::lower::AbstractConverter &converter,
21442143
beginClauseList, directive.v);
21452144
break;
21462145
case llvm::omp::Directive::OMPD_target_data:
2147-
genDataOp(converter, semaCtx, eval, /*genNested=*/true, currentLocation,
2148-
beginClauseList);
2146+
genTargetDataOp(converter, semaCtx, eval, /*genNested=*/true,
2147+
currentLocation, beginClauseList);
21492148
break;
21502149
case llvm::omp::Directive::OMPD_task:
21512150
genTaskOp(converter, semaCtx, eval, /*genNested=*/true, currentLocation,
21522151
beginClauseList);
21532152
break;
21542153
case llvm::omp::Directive::OMPD_taskgroup:
2155-
genTaskGroupOp(converter, semaCtx, eval, /*genNested=*/true,
2154+
genTaskgroupOp(converter, semaCtx, eval, /*genNested=*/true,
21562155
currentLocation, beginClauseList);
21572156
break;
21582157
case llvm::omp::Directive::OMPD_teams:
@@ -2505,7 +2504,7 @@ genOMP(Fortran::lower::AbstractConverter &converter,
25052504
mlir::Operation *Fortran::lower::genOpenMPTerminator(fir::FirOpBuilder &builder,
25062505
mlir::Operation *op,
25072506
mlir::Location loc) {
2508-
if (mlir::isa<mlir::omp::WsLoopOp, mlir::omp::ReductionDeclareOp,
2507+
if (mlir::isa<mlir::omp::WsloopOp, mlir::omp::DeclareReductionOp,
25092508
mlir::omp::AtomicUpdateOp, mlir::omp::SimdLoopOp>(op))
25102509
return builder.create<mlir::omp::YieldOp>(loc);
25112510
else

0 commit comments

Comments
 (0)