@@ -465,7 +465,7 @@ static void genBodyOfTargetDataOp(
465
465
Fortran::lower::AbstractConverter &converter,
466
466
Fortran::semantics::SemanticsContext &semaCtx,
467
467
Fortran::lower::pft::Evaluation &eval, bool genNested,
468
- mlir::omp::DataOp &dataOp,
468
+ mlir::omp::TargetDataOp &dataOp,
469
469
const llvm::SmallVector<mlir::Type> &useDeviceTypes,
470
470
const llvm::SmallVector<mlir::Location> &useDeviceLocs,
471
471
const llvm::SmallVector<const Fortran::semantics::Symbol *>
@@ -779,8 +779,8 @@ genTaskOp(Fortran::lower::AbstractConverter &converter,
779
779
dependOperands, allocateOperands, allocatorOperands);
780
780
}
781
781
782
- static mlir::omp::TaskGroupOp
783
- genTaskGroupOp (Fortran::lower::AbstractConverter &converter,
782
+ static mlir::omp::TaskgroupOp
783
+ genTaskgroupOp (Fortran::lower::AbstractConverter &converter,
784
784
Fortran::semantics::SemanticsContext &semaCtx,
785
785
Fortran::lower::pft::Evaluation &eval, bool genNested,
786
786
mlir::Location currentLocation,
@@ -790,7 +790,7 @@ genTaskGroupOp(Fortran::lower::AbstractConverter &converter,
790
790
cp.processAllocate (allocatorOperands, allocateOperands);
791
791
cp.processTODO <Fortran::parser::OmpClause::TaskReduction>(
792
792
currentLocation, llvm::omp::Directive::OMPD_taskgroup);
793
- return genOpWithBody<mlir::omp::TaskGroupOp >(
793
+ return genOpWithBody<mlir::omp::TaskgroupOp >(
794
794
OpWithBodyGenInfo (converter, semaCtx, currentLocation, eval)
795
795
.setGenNested (genNested)
796
796
.setClauses (&clauseList),
@@ -850,12 +850,12 @@ static void promoteNonCPtrUseDevicePtrArgsToUseDeviceAddr(
850
850
}
851
851
}
852
852
853
- static mlir::omp::DataOp
854
- genDataOp (Fortran::lower::AbstractConverter &converter,
855
- Fortran::semantics::SemanticsContext &semaCtx,
856
- Fortran::lower::pft::Evaluation &eval, bool genNested,
857
- mlir::Location currentLocation,
858
- const Fortran::parser::OmpClauseList &clauseList) {
853
+ static mlir::omp::TargetDataOp
854
+ genTargetDataOp (Fortran::lower::AbstractConverter &converter,
855
+ Fortran::semantics::SemanticsContext &semaCtx,
856
+ Fortran::lower::pft::Evaluation &eval, bool genNested,
857
+ mlir::Location currentLocation,
858
+ const Fortran::parser::OmpClauseList &clauseList) {
859
859
Fortran::lower::StatementContext stmtCtx;
860
860
mlir::Value ifClauseOperand, deviceOperand;
861
861
llvm::SmallVector<mlir::Value> mapOperands, devicePtrOperands,
@@ -889,7 +889,7 @@ genDataOp(Fortran::lower::AbstractConverter &converter,
889
889
cp.processMap (currentLocation, llvm::omp::Directive::OMPD_target_data,
890
890
stmtCtx, mapOperands);
891
891
892
- auto dataOp = converter.getFirOpBuilder ().create <mlir::omp::DataOp >(
892
+ auto dataOp = converter.getFirOpBuilder ().create <mlir::omp::TargetDataOp >(
893
893
currentLocation, ifClauseOperand, deviceOperand, devicePtrOperands,
894
894
deviceAddrOperands, mapOperands);
895
895
genBodyOfTargetDataOp (converter, semaCtx, eval, genNested, dataOp,
@@ -900,7 +900,7 @@ genDataOp(Fortran::lower::AbstractConverter &converter,
900
900
901
901
template <typename OpTy>
902
902
static OpTy
903
- genEnterExitUpdateDataOp (Fortran::lower::AbstractConverter &converter,
903
+ genTargetEnterExitUpdateDataOp (Fortran::lower::AbstractConverter &converter,
904
904
Fortran::semantics::SemanticsContext &semaCtx,
905
905
mlir::Location currentLocation,
906
906
const Fortran::parser::OmpClauseList &clauseList) {
@@ -914,15 +914,15 @@ genEnterExitUpdateDataOp(Fortran::lower::AbstractConverter &converter,
914
914
Fortran::parser::OmpIfClause::DirectiveNameModifier directiveName;
915
915
// GCC 9.3.0 emits a (probably) bogus warning about an unused variable.
916
916
[[maybe_unused]] llvm::omp::Directive directive;
917
- if constexpr (std::is_same_v<OpTy, mlir::omp::EnterDataOp >) {
917
+ if constexpr (std::is_same_v<OpTy, mlir::omp::TargetEnterDataOp >) {
918
918
directiveName =
919
919
Fortran::parser::OmpIfClause::DirectiveNameModifier::TargetEnterData;
920
920
directive = llvm::omp::Directive::OMPD_target_enter_data;
921
- } else if constexpr (std::is_same_v<OpTy, mlir::omp::ExitDataOp >) {
921
+ } else if constexpr (std::is_same_v<OpTy, mlir::omp::TargetExitDataOp >) {
922
922
directiveName =
923
923
Fortran::parser::OmpIfClause::DirectiveNameModifier::TargetExitData;
924
924
directive = llvm::omp::Directive::OMPD_target_exit_data;
925
- } else if constexpr (std::is_same_v<OpTy, mlir::omp::UpdateDataOp >) {
925
+ } else if constexpr (std::is_same_v<OpTy, mlir::omp::TargetUpdateOp >) {
926
926
directiveName =
927
927
Fortran::parser::OmpIfClause::DirectiveNameModifier::TargetUpdate;
928
928
directive = llvm::omp::Directive::OMPD_target_update;
@@ -936,7 +936,7 @@ genEnterExitUpdateDataOp(Fortran::lower::AbstractConverter &converter,
936
936
cp.processDepend (dependTypeOperands, dependOperands);
937
937
cp.processNowait (nowaitAttr);
938
938
939
- if constexpr (std::is_same_v<OpTy, mlir::omp::UpdateDataOp >) {
939
+ if constexpr (std::is_same_v<OpTy, mlir::omp::TargetUpdateOp >) {
940
940
cp.processMotionClauses <Fortran::parser::OmpClause::To>(stmtCtx,
941
941
mapOperands);
942
942
cp.processMotionClauses <Fortran::parser::OmpClause::From>(stmtCtx,
@@ -1409,19 +1409,19 @@ genOmpSimpleStandalone(Fortran::lower::AbstractConverter &converter,
1409
1409
firOpBuilder.create <mlir::omp::TaskyieldOp>(currentLocation);
1410
1410
break ;
1411
1411
case llvm::omp::Directive::OMPD_target_data:
1412
- genDataOp (converter, semaCtx, eval, genNested, currentLocation,
1413
- opClauseList);
1412
+ genTargetDataOp (converter, semaCtx, eval, genNested, currentLocation,
1413
+ opClauseList);
1414
1414
break ;
1415
1415
case llvm::omp::Directive::OMPD_target_enter_data:
1416
- genEnterExitUpdateDataOp <mlir::omp::EnterDataOp >(
1416
+ genTargetEnterExitUpdateDataOp <mlir::omp::TargetEnterDataOp >(
1417
1417
converter, semaCtx, currentLocation, opClauseList);
1418
1418
break ;
1419
1419
case llvm::omp::Directive::OMPD_target_exit_data:
1420
- genEnterExitUpdateDataOp <mlir::omp::ExitDataOp >(
1420
+ genTargetEnterExitUpdateDataOp <mlir::omp::TargetExitDataOp >(
1421
1421
converter, semaCtx, currentLocation, opClauseList);
1422
1422
break ;
1423
1423
case llvm::omp::Directive::OMPD_target_update:
1424
- genEnterExitUpdateDataOp <mlir::omp::UpdateDataOp >(
1424
+ genTargetEnterExitUpdateDataOp <mlir::omp::TargetUpdateOp >(
1425
1425
converter, semaCtx, currentLocation, opClauseList);
1426
1426
break ;
1427
1427
case llvm::omp::Directive::OMPD_ordered:
@@ -1907,15 +1907,15 @@ genOMP(Fortran::lower::AbstractConverter &converter,
1907
1907
beginClauseList, directive.v );
1908
1908
break ;
1909
1909
case llvm::omp::Directive::OMPD_target_data:
1910
- genDataOp (converter, semaCtx, eval, /* genNested=*/ true , currentLocation ,
1911
- beginClauseList);
1910
+ genTargetDataOp (converter, semaCtx, eval, /* genNested=*/ true ,
1911
+ currentLocation, beginClauseList);
1912
1912
break ;
1913
1913
case llvm::omp::Directive::OMPD_task:
1914
1914
genTaskOp (converter, semaCtx, eval, /* genNested=*/ true , currentLocation,
1915
1915
beginClauseList);
1916
1916
break ;
1917
1917
case llvm::omp::Directive::OMPD_taskgroup:
1918
- genTaskGroupOp (converter, semaCtx, eval, /* genNested=*/ true ,
1918
+ genTaskgroupOp (converter, semaCtx, eval, /* genNested=*/ true ,
1919
1919
currentLocation, beginClauseList);
1920
1920
break ;
1921
1921
case llvm::omp::Directive::OMPD_teams:
0 commit comments