Lines Matching full:loc
25 mlir::Location loc, mlir::Value resultBox, in genCharacterSearch() argument
30 auto sourceFile = fir::factory::locationToFilename(builder, loc); in genCharacterSearch()
32 fir::factory::locationToLineNo(builder, loc, fTy.getInput(6)); in genCharacterSearch()
34 auto args = fir::runtime::createArguments(builder, loc, fTy, resultBox, in genCharacterSearch()
37 builder.create<fir::CallOp>(loc, func, args); in genCharacterSearch()
65 static void genAdjust(fir::FirOpBuilder &builder, mlir::Location loc, in genAdjust() argument
71 fir::factory::locationToLineNo(builder, loc, fTy.getInput(3)); in genAdjust()
72 auto sourceFile = fir::factory::locationToFilename(builder, loc); in genAdjust()
73 auto args = fir::runtime::createArguments(builder, loc, fTy, resultBox, in genAdjust()
75 builder.create<fir::CallOp>(loc, adjustFunc, args); in genAdjust()
78 void fir::runtime::genAdjustL(fir::FirOpBuilder &builder, mlir::Location loc, in genAdjustL() argument
81 fir::runtime::getRuntimeFunc<mkRTKey(Adjustl)>(loc, builder); in genAdjustL()
82 genAdjust(builder, loc, resultBox, stringBox, adjustFunc); in genAdjustL()
85 void fir::runtime::genAdjustR(fir::FirOpBuilder &builder, mlir::Location loc, in genAdjustR() argument
88 fir::runtime::getRuntimeFunc<mkRTKey(Adjustr)>(loc, builder); in genAdjustR()
89 genAdjust(builder, loc, resultBox, stringBox, adjustFunc); in genAdjustR()
93 fir::runtime::genCharCompare(fir::FirOpBuilder &builder, mlir::Location loc, in genCharCompare() argument
101 loc, builder); in genCharCompare()
105 loc, builder); in genCharCompare()
109 loc, builder); in genCharCompare()
115 auto args = fir::runtime::createArguments(builder, loc, fTy, lhsBuff, rhsBuff, in genCharCompare()
117 auto tri = builder.create<fir::CallOp>(loc, beginFunc, args).getResult(0); in genCharCompare()
118 auto zero = builder.createIntegerConstant(loc, tri.getType(), 0); in genCharCompare()
119 return builder.create<mlir::arith::CmpIOp>(loc, cmp, tri, zero); in genCharCompare()
123 mlir::Location loc, in genCharCompare() argument
128 TODO(loc, "character compare from descriptors"); in genCharCompare()
133 builder.create<fir::AllocaOp>(loc, base.getType(), /*pinned=*/false); in genCharCompare()
134 builder.create<fir::StoreOp>(loc, base, mem); in genCharCompare()
139 return genCharCompare(builder, loc, cmp, lhsBuffer, fir::getLen(lhs), in genCharCompare()
144 mlir::Location loc, int kind, in genIndex() argument
152 indexFunc = fir::runtime::getRuntimeFunc<mkRTKey(Index1)>(loc, builder); in genIndex()
155 indexFunc = fir::runtime::getRuntimeFunc<mkRTKey(Index2)>(loc, builder); in genIndex()
158 indexFunc = fir::runtime::getRuntimeFunc<mkRTKey(Index4)>(loc, builder); in genIndex()
162 loc, "unsupported CHARACTER kind value. Runtime expects 1, 2, or 4."); in genIndex()
166 fir::runtime::createArguments(builder, loc, fTy, stringBase, stringLen, in genIndex()
168 return builder.create<fir::CallOp>(loc, indexFunc, args).getResult(0); in genIndex()
172 mlir::Location loc, mlir::Value resultBox, in genIndexDescriptor() argument
176 auto indexFunc = fir::runtime::getRuntimeFunc<mkRTKey(Index)>(loc, builder); in genIndexDescriptor()
177 genCharacterSearch(indexFunc, builder, loc, resultBox, stringBox, in genIndexDescriptor()
181 void fir::runtime::genRepeat(fir::FirOpBuilder &builder, mlir::Location loc, in genRepeat() argument
184 auto repeatFunc = fir::runtime::getRuntimeFunc<mkRTKey(Repeat)>(loc, builder); in genRepeat()
186 auto sourceFile = fir::factory::locationToFilename(builder, loc); in genRepeat()
188 fir::factory::locationToLineNo(builder, loc, fTy.getInput(4)); in genRepeat()
191 builder, loc, fTy, resultBox, stringBox, ncopies, sourceFile, sourceLine); in genRepeat()
192 builder.create<fir::CallOp>(loc, repeatFunc, args); in genRepeat()
195 void fir::runtime::genTrim(fir::FirOpBuilder &builder, mlir::Location loc, in genTrim() argument
197 auto trimFunc = fir::runtime::getRuntimeFunc<mkRTKey(Trim)>(loc, builder); in genTrim()
199 auto sourceFile = fir::factory::locationToFilename(builder, loc); in genTrim()
201 fir::factory::locationToLineNo(builder, loc, fTy.getInput(3)); in genTrim()
203 auto args = fir::runtime::createArguments(builder, loc, fTy, resultBox, in genTrim()
205 builder.create<fir::CallOp>(loc, trimFunc, args); in genTrim()
209 mlir::Location loc, mlir::Value resultBox, in genScanDescriptor() argument
212 auto func = fir::runtime::getRuntimeFunc<mkRTKey(Scan)>(loc, builder); in genScanDescriptor()
213 genCharacterSearch(func, builder, loc, resultBox, stringBox, setBox, backBox, in genScanDescriptor()
218 mlir::Location loc, int kind, in genScan() argument
225 func = fir::runtime::getRuntimeFunc<mkRTKey(Scan1)>(loc, builder); in genScan()
228 func = fir::runtime::getRuntimeFunc<mkRTKey(Scan2)>(loc, builder); in genScan()
231 func = fir::runtime::getRuntimeFunc<mkRTKey(Scan4)>(loc, builder); in genScan()
235 loc, "unsupported CHARACTER kind value. Runtime expects 1, 2, or 4."); in genScan()
238 auto args = fir::runtime::createArguments(builder, loc, fTy, stringBase, in genScan()
240 return builder.create<fir::CallOp>(loc, func, args).getResult(0); in genScan()
244 mlir::Location loc, in genVerifyDescriptor() argument
249 auto func = fir::runtime::getRuntimeFunc<mkRTKey(Verify)>(loc, builder); in genVerifyDescriptor()
250 genCharacterSearch(func, builder, loc, resultBox, stringBox, setBox, backBox, in genVerifyDescriptor()
255 mlir::Location loc, int kind, in genVerify() argument
262 func = fir::runtime::getRuntimeFunc<mkRTKey(Verify1)>(loc, builder); in genVerify()
265 func = fir::runtime::getRuntimeFunc<mkRTKey(Verify2)>(loc, builder); in genVerify()
268 func = fir::runtime::getRuntimeFunc<mkRTKey(Verify4)>(loc, builder); in genVerify()
272 loc, "unsupported CHARACTER kind value. Runtime expects 1, 2, or 4."); in genVerify()
275 auto args = fir::runtime::createArguments(builder, loc, fTy, stringBase, in genVerify()
277 return builder.create<fir::CallOp>(loc, func, args).getResult(0); in genVerify()