@@ -718,7 +718,6 @@ gatherBoundsOrBoundValues(fir::FirOpBuilder &builder, mlir::Location loc,
718
718
template <typename BoundsOp, typename BoundsType>
719
719
llvm::SmallVector<mlir::Value>
720
720
genBoundsOpsFromBox (fir::FirOpBuilder &builder, mlir::Location loc,
721
- Fortran::lower::AbstractConverter &converter,
722
721
fir::ExtendedValue dataExv,
723
722
Fortran::lower::AddrAndBoundsInfo &info) {
724
723
llvm::SmallVector<mlir::Value> bounds;
@@ -778,7 +777,6 @@ genBoundsOpsFromBox(fir::FirOpBuilder &builder, mlir::Location loc,
778
777
template <typename BoundsOp, typename BoundsType>
779
778
llvm::SmallVector<mlir::Value>
780
779
genBaseBoundsOps (fir::FirOpBuilder &builder, mlir::Location loc,
781
- Fortran::lower::AbstractConverter &converter,
782
780
fir::ExtendedValue dataExv, bool isAssumedSize) {
783
781
mlir::Type idxTy = builder.getIndexType ();
784
782
mlir::Type boundTy = builder.getType <BoundsType>();
@@ -1163,7 +1161,7 @@ AddrAndBoundsInfo gatherDataOperandAddrAndBounds(
1163
1161
info.rawInput = info.addr ;
1164
1162
if (mlir::isa<fir::SequenceType>(fir::unwrapRefType (info.addr .getType ())))
1165
1163
bounds = genBaseBoundsOps<BoundsOp, BoundsType>(builder, operandLocation,
1166
- converter, compExv,
1164
+ compExv,
1167
1165
/* isAssumedSize=*/ false );
1168
1166
asFortran << designator.AsFortran ();
1169
1167
@@ -1189,7 +1187,7 @@ AddrAndBoundsInfo gatherDataOperandAddrAndBounds(
1189
1187
info.addr = boxAddrOp.getVal ();
1190
1188
info.rawInput = info.addr ;
1191
1189
bounds = genBoundsOpsFromBox<BoundsOp, BoundsType>(
1192
- builder, operandLocation, converter, compExv, info);
1190
+ builder, operandLocation, compExv, info);
1193
1191
}
1194
1192
} else {
1195
1193
if (detail::getRef<evaluate::ArrayRef>(designator)) {
@@ -1206,13 +1204,13 @@ AddrAndBoundsInfo gatherDataOperandAddrAndBounds(
1206
1204
if (mlir::isa<fir::BaseBoxType>(
1207
1205
fir::unwrapRefType (info.addr .getType ()))) {
1208
1206
bounds = genBoundsOpsFromBox<BoundsOp, BoundsType>(
1209
- builder, operandLocation, converter, dataExv, info);
1207
+ builder, operandLocation, dataExv, info);
1210
1208
}
1211
1209
bool dataExvIsAssumedSize =
1212
1210
Fortran::semantics::IsAssumedSizeArray (symRef->get ().GetUltimate ());
1213
1211
if (mlir::isa<fir::SequenceType>(fir::unwrapRefType (info.addr .getType ())))
1214
1212
bounds = genBaseBoundsOps<BoundsOp, BoundsType>(
1215
- builder, operandLocation, converter, dataExv, dataExvIsAssumedSize);
1213
+ builder, operandLocation, dataExv, dataExvIsAssumedSize);
1216
1214
asFortran << symRef->get ().name ().ToString ();
1217
1215
} else { // Unsupported
1218
1216
llvm::report_fatal_error (" Unsupported type of OpenACC operand" );
0 commit comments