@@ -347,7 +347,7 @@ Aligned make(const parser::OmpClause::Aligned &inp,
347
347
348
348
return Aligned{{
349
349
/* Alignment=*/ maybeApply (makeExprFn (semaCtx), t1),
350
- /* List=*/ makeList (t0, semaCtx),
350
+ /* List=*/ makeObjects (t0, semaCtx),
351
351
}};
352
352
}
353
353
@@ -362,7 +362,7 @@ Allocate make(const parser::OmpClause::Allocate &inp,
362
362
return Allocate{{/* AllocatorSimpleModifier=*/ std::nullopt,
363
363
/* AllocatorComplexModifier=*/ std::nullopt,
364
364
/* AlignModifier=*/ std::nullopt,
365
- /* List=*/ makeList (t1, semaCtx)}};
365
+ /* List=*/ makeObjects (t1, semaCtx)}};
366
366
}
367
367
368
368
using Tuple = decltype (Allocate::t);
@@ -374,7 +374,7 @@ Allocate make(const parser::OmpClause::Allocate &inp,
374
374
return {/* AllocatorSimpleModifier=*/ makeExpr (v.v , semaCtx),
375
375
/* AllocatorComplexModifier=*/ std::nullopt,
376
376
/* AlignModifier=*/ std::nullopt,
377
- /* List=*/ makeList (t1, semaCtx)};
377
+ /* List=*/ makeObjects (t1, semaCtx)};
378
378
},
379
379
// complex-modifier + align-modifier
380
380
[&](const wrapped::AllocateModifier::ComplexModifier &v) -> Tuple {
@@ -384,14 +384,14 @@ Allocate make(const parser::OmpClause::Allocate &inp,
384
384
/* AllocatorSimpleModifier=*/ std::nullopt,
385
385
/* AllocatorComplexModifier=*/ Allocator{makeExpr (s0.v , semaCtx)},
386
386
/* AlignModifier=*/ Align{makeExpr (s1.v , semaCtx)},
387
- /* List=*/ makeList (t1, semaCtx)};
387
+ /* List=*/ makeObjects (t1, semaCtx)};
388
388
},
389
389
// align-modifier
390
390
[&](const wrapped::AllocateModifier::Align &v) -> Tuple {
391
391
return {/* AllocatorSimpleModifier=*/ std::nullopt,
392
392
/* AllocatorComplexModifier=*/ std::nullopt,
393
393
/* AlignModifier=*/ Align{makeExpr (v.v , semaCtx)},
394
- /* List=*/ makeList (t1, semaCtx)};
394
+ /* List=*/ makeObjects (t1, semaCtx)};
395
395
},
396
396
},
397
397
t0->u )};
@@ -450,13 +450,13 @@ Collapse make(const parser::OmpClause::Collapse &inp,
450
450
Copyin make (const parser::OmpClause::Copyin &inp,
451
451
semantics::SemanticsContext &semaCtx) {
452
452
// inp.v -> parser::OmpObjectList
453
- return Copyin{/* List=*/ makeList (inp.v , semaCtx)};
453
+ return Copyin{/* List=*/ makeObjects (inp.v , semaCtx)};
454
454
}
455
455
456
456
Copyprivate make (const parser::OmpClause::Copyprivate &inp,
457
457
semantics::SemanticsContext &semaCtx) {
458
458
// inp.v -> parser::OmpObjectList
459
- return Copyprivate{/* List=*/ makeList (inp.v , semaCtx)};
459
+ return Copyprivate{/* List=*/ makeObjects (inp.v , semaCtx)};
460
460
}
461
461
462
462
Default make (const parser::OmpClause::Default &inp,
@@ -641,7 +641,7 @@ Doacross make(const parser::OmpClause::Doacross &inp,
641
641
Enter make (const parser::OmpClause::Enter &inp,
642
642
semantics::SemanticsContext &semaCtx) {
643
643
// inp.v -> parser::OmpObjectList
644
- return Enter{makeList (/* List=*/ inp.v , semaCtx)};
644
+ return Enter{makeObjects (/* List=*/ inp.v , semaCtx)};
645
645
}
646
646
647
647
Exclusive make (const parser::OmpClause::Exclusive &inp,
@@ -671,7 +671,7 @@ Final make(const parser::OmpClause::Final &inp,
671
671
Firstprivate make (const parser::OmpClause::Firstprivate &inp,
672
672
semantics::SemanticsContext &semaCtx) {
673
673
// inp.v -> parser::OmpObjectList
674
- return Firstprivate{/* List=*/ makeList (inp.v , semaCtx)};
674
+ return Firstprivate{/* List=*/ makeObjects (inp.v , semaCtx)};
675
675
}
676
676
677
677
// Flush: empty
@@ -681,7 +681,7 @@ From make(const parser::OmpClause::From &inp,
681
681
// inp.v -> parser::OmpObjectList
682
682
return From{{/* Expectation=*/ std::nullopt, /* Mapper=*/ std::nullopt,
683
683
/* Iterator=*/ std::nullopt,
684
- /* LocatorList=*/ makeList (inp.v , semaCtx)}};
684
+ /* LocatorList=*/ makeObjects (inp.v , semaCtx)}};
685
685
}
686
686
687
687
// Full: empty
@@ -696,7 +696,7 @@ Grainsize make(const parser::OmpClause::Grainsize &inp,
696
696
HasDeviceAddr make (const parser::OmpClause::HasDeviceAddr &inp,
697
697
semantics::SemanticsContext &semaCtx) {
698
698
// inp.v -> parser::OmpObjectList
699
- return HasDeviceAddr{/* List=*/ makeList (inp.v , semaCtx)};
699
+ return HasDeviceAddr{/* List=*/ makeObjects (inp.v , semaCtx)};
700
700
}
701
701
702
702
Hint make (const parser::OmpClause::Hint &inp,
@@ -762,20 +762,20 @@ InReduction make(const parser::OmpClause::InReduction &inp,
762
762
auto &t1 = std::get<parser::OmpObjectList>(inp.v .t );
763
763
return InReduction{
764
764
{/* ReductionIdentifiers=*/ {makeReductionOperator (t0, semaCtx)},
765
- /* List=*/ makeList (t1, semaCtx)}};
765
+ /* List=*/ makeObjects (t1, semaCtx)}};
766
766
}
767
767
768
768
IsDevicePtr make (const parser::OmpClause::IsDevicePtr &inp,
769
769
semantics::SemanticsContext &semaCtx) {
770
770
// inp.v -> parser::OmpObjectList
771
- return IsDevicePtr{/* List=*/ makeList (inp.v , semaCtx)};
771
+ return IsDevicePtr{/* List=*/ makeObjects (inp.v , semaCtx)};
772
772
}
773
773
774
774
Lastprivate make (const parser::OmpClause::Lastprivate &inp,
775
775
semantics::SemanticsContext &semaCtx) {
776
776
// inp.v -> parser::OmpObjectList
777
777
return Lastprivate{{/* LastprivateModifier=*/ std::nullopt,
778
- /* List=*/ makeList (inp.v , semaCtx)}};
778
+ /* List=*/ makeObjects (inp.v , semaCtx)}};
779
779
}
780
780
781
781
Linear make (const parser::OmpClause::Linear &inp,
@@ -817,7 +817,7 @@ Linear make(const parser::OmpClause::Linear &inp,
817
817
Link make (const parser::OmpClause::Link &inp,
818
818
semantics::SemanticsContext &semaCtx) {
819
819
// inp.v -> parser::OmpObjectList
820
- return Link{/* List=*/ makeList (inp.v , semaCtx)};
820
+ return Link{/* List=*/ makeObjects (inp.v , semaCtx)};
821
821
}
822
822
823
823
Map make (const parser::OmpClause::Map &inp,
@@ -844,7 +844,7 @@ Map make(const parser::OmpClause::Map &inp,
844
844
if (!t0) {
845
845
return Map{{/* MapType=*/ std::nullopt, /* MapTypeModifiers=*/ std::nullopt,
846
846
/* Mapper=*/ std::nullopt, /* Iterator=*/ std::nullopt,
847
- /* LocatorList=*/ makeList (t1, semaCtx)}};
847
+ /* LocatorList=*/ makeObjects (t1, semaCtx)}};
848
848
}
849
849
850
850
auto &s0 = std::get<std::optional<parser::OmpMapType::Always>>(t0->t );
@@ -857,7 +857,7 @@ Map make(const parser::OmpClause::Map &inp,
857
857
return Map{{/* MapType=*/ convert1 (s1),
858
858
/* MapTypeModifiers=*/ maybeList,
859
859
/* Mapper=*/ std::nullopt, /* Iterator=*/ std::nullopt,
860
- /* LocatorList=*/ makeList (t1, semaCtx)}};
860
+ /* LocatorList=*/ makeObjects (t1, semaCtx)}};
861
861
}
862
862
863
863
// Match: incomplete
@@ -980,7 +980,7 @@ Priority make(const parser::OmpClause::Priority &inp,
980
980
Private make (const parser::OmpClause::Private &inp,
981
981
semantics::SemanticsContext &semaCtx) {
982
982
// inp.v -> parser::OmpObjectList
983
- return Private{/* List=*/ makeList (inp.v , semaCtx)};
983
+ return Private{/* List=*/ makeObjects (inp.v , semaCtx)};
984
984
}
985
985
986
986
ProcBind make (const parser::OmpClause::ProcBind &inp,
@@ -1010,7 +1010,7 @@ Reduction make(const parser::OmpClause::Reduction &inp,
1010
1010
return Reduction{
1011
1011
{/* ReductionIdentifiers=*/ {makeReductionOperator (t0, semaCtx)},
1012
1012
/* ReductionModifier=*/ std::nullopt,
1013
- /* List=*/ makeList (t1, semaCtx)}};
1013
+ /* List=*/ makeObjects (t1, semaCtx)}};
1014
1014
}
1015
1015
1016
1016
// Relaxed: empty
@@ -1104,7 +1104,7 @@ Severity make(const parser::OmpClause::Severity &inp,
1104
1104
Shared make (const parser::OmpClause::Shared &inp,
1105
1105
semantics::SemanticsContext &semaCtx) {
1106
1106
// inp.v -> parser::OmpObjectList
1107
- return Shared{/* List=*/ makeList (inp.v , semaCtx)};
1107
+ return Shared{/* List=*/ makeObjects (inp.v , semaCtx)};
1108
1108
}
1109
1109
1110
1110
// Simd: empty
@@ -1128,7 +1128,7 @@ TaskReduction make(const parser::OmpClause::TaskReduction &inp,
1128
1128
auto &t1 = std::get<parser::OmpObjectList>(inp.v .t );
1129
1129
return TaskReduction{
1130
1130
{/* ReductionIdentifiers=*/ {makeReductionOperator (t0, semaCtx)},
1131
- /* List=*/ makeList (t1, semaCtx)}};
1131
+ /* List=*/ makeObjects (t1, semaCtx)}};
1132
1132
}
1133
1133
1134
1134
ThreadLimit make (const parser::OmpClause::ThreadLimit &inp,
@@ -1145,7 +1145,7 @@ To make(const parser::OmpClause::To &inp,
1145
1145
// inp.v -> parser::OmpObjectList
1146
1146
return To{{/* Expectation=*/ std::nullopt, /* Mapper=*/ std::nullopt,
1147
1147
/* Iterator=*/ std::nullopt,
1148
- /* LocatorList=*/ makeList (inp.v , semaCtx)}};
1148
+ /* LocatorList=*/ makeObjects (inp.v , semaCtx)}};
1149
1149
}
1150
1150
1151
1151
// UnifiedAddress: empty
@@ -1175,13 +1175,13 @@ Use make(const parser::OmpClause::Use &inp,
1175
1175
UseDeviceAddr make (const parser::OmpClause::UseDeviceAddr &inp,
1176
1176
semantics::SemanticsContext &semaCtx) {
1177
1177
// inp.v -> parser::OmpObjectList
1178
- return UseDeviceAddr{/* List=*/ makeList (inp.v , semaCtx)};
1178
+ return UseDeviceAddr{/* List=*/ makeObjects (inp.v , semaCtx)};
1179
1179
}
1180
1180
1181
1181
UseDevicePtr make (const parser::OmpClause::UseDevicePtr &inp,
1182
1182
semantics::SemanticsContext &semaCtx) {
1183
1183
// inp.v -> parser::OmpObjectList
1184
- return UseDevicePtr{/* List=*/ makeList (inp.v , semaCtx)};
1184
+ return UseDevicePtr{/* List=*/ makeObjects (inp.v , semaCtx)};
1185
1185
}
1186
1186
1187
1187
UsesAllocators make (const parser::OmpClause::UsesAllocators &inp,
@@ -1205,8 +1205,8 @@ Clause makeClause(const Fortran::parser::OmpClause &cls,
1205
1205
cls.u );
1206
1206
}
1207
1207
1208
- List<Clause> makeList (const parser::OmpClauseList &clauses,
1209
- semantics::SemanticsContext &semaCtx) {
1208
+ List<Clause> makeClauses (const parser::OmpClauseList &clauses,
1209
+ semantics::SemanticsContext &semaCtx) {
1210
1210
return makeList (clauses.v , [&](const parser::OmpClause &s) {
1211
1211
return makeClause (s, semaCtx);
1212
1212
});
0 commit comments