1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
//===- TemporaryStack.cpp ---- temporary stack runtime API calls ----------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#include "flang/Optimizer/Builder/Runtime/TemporaryStack.h"
#include "flang/Optimizer/Builder/FIRBuilder.h"
#include "flang/Optimizer/Builder/Runtime/RTBuilder.h"
#include "flang/Runtime/temporary-stack.h"
using namespace Fortran::runtime;
mlir::Value fir::runtime::genCreateValueStack(mlir::Location loc,
fir::FirOpBuilder &builder) {
mlir::func::FuncOp func =
fir::runtime::getRuntimeFunc<mkRTKey(CreateValueStack)>(loc, builder);
mlir::FunctionType funcType = func.getFunctionType();
mlir::Value sourceFile = fir::factory::locationToFilename(builder, loc);
mlir::Value sourceLine =
fir::factory::locationToLineNo(builder, loc, funcType.getInput(1));
auto args = fir::runtime::createArguments(builder, loc, funcType, sourceFile,
sourceLine);
return fir::CallOp::create(builder, loc, func, args).getResult(0);
}
void fir::runtime::genPushValue(mlir::Location loc, fir::FirOpBuilder &builder,
mlir::Value opaquePtr, mlir::Value boxValue) {
mlir::func::FuncOp func =
fir::runtime::getRuntimeFunc<mkRTKey(PushValue)>(loc, builder);
mlir::FunctionType funcType = func.getFunctionType();
auto args = fir::runtime::createArguments(builder, loc, funcType, opaquePtr,
boxValue);
fir::CallOp::create(builder, loc, func, args);
}
void fir::runtime::genValueAt(mlir::Location loc, fir::FirOpBuilder &builder,
mlir::Value opaquePtr, mlir::Value i,
mlir::Value retValueBox) {
mlir::func::FuncOp func =
fir::runtime::getRuntimeFunc<mkRTKey(ValueAt)>(loc, builder);
mlir::FunctionType funcType = func.getFunctionType();
auto args = fir::runtime::createArguments(builder, loc, funcType, opaquePtr,
i, retValueBox);
fir::CallOp::create(builder, loc, func, args);
}
void fir::runtime::genDestroyValueStack(mlir::Location loc,
fir::FirOpBuilder &builder,
mlir::Value opaquePtr) {
mlir::func::FuncOp func =
fir::runtime::getRuntimeFunc<mkRTKey(DestroyValueStack)>(loc, builder);
mlir::FunctionType funcType = func.getFunctionType();
auto args = fir::runtime::createArguments(builder, loc, funcType, opaquePtr);
fir::CallOp::create(builder, loc, func, args);
}
mlir::Value fir::runtime::genCreateDescriptorStack(mlir::Location loc,
fir::FirOpBuilder &builder) {
mlir::func::FuncOp func =
fir::runtime::getRuntimeFunc<mkRTKey(CreateDescriptorStack)>(loc,
builder);
mlir::FunctionType funcType = func.getFunctionType();
mlir::Value sourceFile = fir::factory::locationToFilename(builder, loc);
mlir::Value sourceLine =
fir::factory::locationToLineNo(builder, loc, funcType.getInput(1));
auto args = fir::runtime::createArguments(builder, loc, funcType, sourceFile,
sourceLine);
return fir::CallOp::create(builder, loc, func, args).getResult(0);
}
void fir::runtime::genPushDescriptor(mlir::Location loc,
fir::FirOpBuilder &builder,
mlir::Value opaquePtr,
mlir::Value boxDescriptor) {
mlir::func::FuncOp func =
fir::runtime::getRuntimeFunc<mkRTKey(PushDescriptor)>(loc, builder);
mlir::FunctionType funcType = func.getFunctionType();
auto args = fir::runtime::createArguments(builder, loc, funcType, opaquePtr,
boxDescriptor);
fir::CallOp::create(builder, loc, func, args);
}
void fir::runtime::genDescriptorAt(mlir::Location loc,
fir::FirOpBuilder &builder,
mlir::Value opaquePtr, mlir::Value i,
mlir::Value retDescriptorBox) {
mlir::func::FuncOp func =
fir::runtime::getRuntimeFunc<mkRTKey(DescriptorAt)>(loc, builder);
mlir::FunctionType funcType = func.getFunctionType();
auto args = fir::runtime::createArguments(builder, loc, funcType, opaquePtr,
i, retDescriptorBox);
fir::CallOp::create(builder, loc, func, args);
}
void fir::runtime::genDestroyDescriptorStack(mlir::Location loc,
fir::FirOpBuilder &builder,
mlir::Value opaquePtr) {
mlir::func::FuncOp func =
fir::runtime::getRuntimeFunc<mkRTKey(DestroyDescriptorStack)>(loc,
builder);
mlir::FunctionType funcType = func.getFunctionType();
auto args = fir::runtime::createArguments(builder, loc, funcType, opaquePtr);
fir::CallOp::create(builder, loc, func, args);
}
|
