Lines Matching refs:builder
31 static void genUnreachable(fir::FirOpBuilder &builder, mlir::Location loc) { in genUnreachable() argument
32 builder.create<fir::UnreachableOp>(loc); in genUnreachable()
34 builder.getBlock()->splitBlock(builder.getInsertionPoint()); in genUnreachable()
35 builder.setInsertionPointToStart(newBlock); in genUnreachable()
45 fir::FirOpBuilder &builder = converter.getFirOpBuilder(); in genStopStatement() local
61 loc, builder); in genStopStatement()
65 builder.createConvert(loc, calleeType.getInput(0), x.getAddr())); in genStopStatement()
67 builder.createConvert(loc, calleeType.getInput(1), x.getLen())); in genStopStatement()
71 loc, builder); in genStopStatement()
74 builder.createConvert(loc, calleeType.getInput(0), x); in genStopStatement()
82 callee = fir::runtime::getRuntimeFunc<mkRTKey(StopStatement)>(loc, builder); in genStopStatement()
85 builder.createIntegerConstant(loc, calleeType.getInput(0), 0)); in genStopStatement()
91 operands.push_back(builder.createIntegerConstant( in genStopStatement()
101 builder.createConvert(loc, calleeType.getInput(operands.size()), q)); in genStopStatement()
103 operands.push_back(builder.createIntegerConstant( in genStopStatement()
107 builder.create<fir::CallOp>(loc, callee, operands); in genStopStatement()
108 genUnreachable(builder, loc); in genStopStatement()
113 fir::FirOpBuilder &builder = converter.getFirOpBuilder(); in genFailImageStatement() local
116 fir::runtime::getRuntimeFunc<mkRTKey(FailImageStatement)>(loc, builder); in genFailImageStatement()
117 builder.create<fir::CallOp>(loc, callee, llvm::None); in genFailImageStatement()
118 genUnreachable(builder, loc); in genFailImageStatement()
172 fir::FirOpBuilder &builder = converter.getFirOpBuilder(); in genPauseStatement() local
175 fir::runtime::getRuntimeFunc<mkRTKey(PauseStatement)>(loc, builder); in genPauseStatement()
176 builder.create<fir::CallOp>(loc, callee, llvm::None); in genPauseStatement()
179 mlir::Value Fortran::lower::genAssociated(fir::FirOpBuilder &builder, in genAssociated() argument
185 builder); in genAssociated()
187 builder, loc, func.getFunctionType(), pointer, target); in genAssociated()
188 return builder.create<fir::CallOp>(loc, func, args).getResult(0); in genAssociated()
191 mlir::Value Fortran::lower::genCpuTime(fir::FirOpBuilder &builder, in genCpuTime() argument
194 fir::runtime::getRuntimeFunc<mkRTKey(CpuTime)>(loc, builder); in genCpuTime()
195 return builder.create<fir::CallOp>(loc, func, llvm::None).getResult(0); in genCpuTime()
198 void Fortran::lower::genDateAndTime(fir::FirOpBuilder &builder, in genDateAndTime() argument
205 fir::runtime::getRuntimeFunc<mkRTKey(DateAndTime)>(loc, builder); in genDateAndTime()
207 mlir::Type idxTy = builder.getIndexType(); in genDateAndTime()
216 zero = builder.createIntegerConstant(loc, idxTy, 0); in genDateAndTime()
231 mlir::Value sourceFile = fir::factory::locationToFilename(builder, loc); in genDateAndTime()
233 fir::factory::locationToLineNo(builder, loc, funcTy.getInput(7)); in genDateAndTime()
236 builder, loc, funcTy, dateBuffer, dateLen, timeBuffer, timeLen, in genDateAndTime()
238 builder.create<fir::CallOp>(loc, callee, args); in genDateAndTime()
241 void Fortran::lower::genRandomInit(fir::FirOpBuilder &builder, in genRandomInit() argument
245 fir::runtime::getRuntimeFunc<mkRTKey(RandomInit)>(loc, builder); in genRandomInit()
247 builder, loc, func.getFunctionType(), repeatable, imageDistinct); in genRandomInit()
248 builder.create<fir::CallOp>(loc, func, args); in genRandomInit()
251 void Fortran::lower::genRandomNumber(fir::FirOpBuilder &builder, in genRandomNumber() argument
254 fir::runtime::getRuntimeFunc<mkRTKey(RandomNumber)>(loc, builder); in genRandomNumber()
256 mlir::Value sourceFile = fir::factory::locationToFilename(builder, loc); in genRandomNumber()
258 fir::factory::locationToLineNo(builder, loc, funcTy.getInput(2)); in genRandomNumber()
260 builder, loc, funcTy, harvest, sourceFile, sourceLine); in genRandomNumber()
261 builder.create<fir::CallOp>(loc, func, args); in genRandomNumber()
264 void Fortran::lower::genRandomSeed(fir::FirOpBuilder &builder, in genRandomSeed() argument
273 builder); in genRandomSeed()
274 builder.create<fir::CallOp>(loc, func); in genRandomSeed()
277 func = fir::runtime::getRuntimeFunc<mkRTKey(RandomSeedSize)>(loc, builder); in genRandomSeed()
280 func = fir::runtime::getRuntimeFunc<mkRTKey(RandomSeedPut)>(loc, builder); in genRandomSeed()
283 func = fir::runtime::getRuntimeFunc<mkRTKey(RandomSeedGet)>(loc, builder); in genRandomSeed()
289 mlir::Value sourceFile = fir::factory::locationToFilename(builder, loc); in genRandomSeed()
291 fir::factory::locationToLineNo(builder, loc, funcTy.getInput(2)); in genRandomSeed()
293 builder, loc, funcTy, argBox, sourceFile, sourceLine); in genRandomSeed()
294 builder.create<fir::CallOp>(loc, func, args); in genRandomSeed()
298 void Fortran::lower::genTransfer(fir::FirOpBuilder &builder, mlir::Location loc, in genTransfer() argument
303 fir::runtime::getRuntimeFunc<mkRTKey(Transfer)>(loc, builder); in genTransfer()
305 mlir::Value sourceFile = fir::factory::locationToFilename(builder, loc); in genTransfer()
307 fir::factory::locationToLineNo(builder, loc, fTy.getInput(4)); in genTransfer()
309 builder, loc, fTy, resultBox, sourceBox, moldBox, sourceFile, sourceLine); in genTransfer()
310 builder.create<fir::CallOp>(loc, func, args); in genTransfer()
314 void Fortran::lower::genTransferSize(fir::FirOpBuilder &builder, in genTransferSize() argument
319 fir::runtime::getRuntimeFunc<mkRTKey(TransferSize)>(loc, builder); in genTransferSize()
321 mlir::Value sourceFile = fir::factory::locationToFilename(builder, loc); in genTransferSize()
323 fir::factory::locationToLineNo(builder, loc, fTy.getInput(4)); in genTransferSize()
325 fir::runtime::createArguments(builder, loc, fTy, resultBox, sourceBox, in genTransferSize()
327 builder.create<fir::CallOp>(loc, func, args); in genTransferSize()
332 void Fortran::lower::genSystemClock(fir::FirOpBuilder &builder, in genSystemClock() argument
343 ifOp = builder.create<fir::IfOp>(loc, builder.genIsNotNullAddr(loc, arg), in genSystemClock()
346 ifOp = builder.create<fir::IfOp>( in genSystemClock()
347 loc, builder.create<fir::IsPresentOp>(loc, builder.getI1Type(), arg), in genSystemClock()
351 builder.setInsertionPointToStart(&ifOp.getThenRegion().front()); in genSystemClock()
356 mlir::Value kind = builder.createIntegerConstant(loc, kindTy, integerKind); in genSystemClock()
358 builder.create<fir::CallOp>(loc, func, mlir::ValueRange{kind}) in genSystemClock()
361 builder.createConvert(loc, fir::dyn_cast_ptrEleTy(type), res); in genSystemClock()
362 builder.create<fir::StoreOp>(loc, castRes, arg); in genSystemClock()
364 builder.setInsertionPointAfter(ifOp); in genSystemClock()
368 makeCall(getRuntimeFunc<mkRTKey(SystemClockCount)>(loc, builder), count); in genSystemClock()
370 makeCall(getRuntimeFunc<mkRTKey(SystemClockCountRate)>(loc, builder), rate); in genSystemClock()
372 makeCall(getRuntimeFunc<mkRTKey(SystemClockCountMax)>(loc, builder), max); in genSystemClock()