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
|
//===-- FIRDialect.cpp ----------------------------------------------------===//
//
// 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
//
//===----------------------------------------------------------------------===//
//
// Coding style: https://mlir.llvm.org/getting_started/DeveloperGuide/
//
//===----------------------------------------------------------------------===//
#include "flang/Optimizer/Dialect/FIRDialect.h"
#include "flang/Optimizer/Dialect/FIRAttr.h"
#include "flang/Optimizer/Dialect/FIROps.h"
#include "flang/Optimizer/Dialect/FIRType.h"
#include "mlir/Transforms/InliningUtils.h"
using namespace fir;
namespace {
/// This class defines the interface for handling inlining of FIR calls.
struct FIRInlinerInterface : public mlir::DialectInlinerInterface {
using DialectInlinerInterface::DialectInlinerInterface;
bool isLegalToInline(mlir::Operation *call, mlir::Operation *callable,
bool wouldBeCloned) const final {
return fir::canLegallyInline(call, callable, wouldBeCloned);
}
/// This hook checks to see if the operation `op` is legal to inline into the
/// given region `reg`.
bool isLegalToInline(mlir::Operation *op, mlir::Region *reg,
bool wouldBeCloned, mlir::IRMapping &map) const final {
return fir::canLegallyInline(op, reg, wouldBeCloned, map);
}
/// This hook is called when a terminator operation has been inlined.
/// We handle the return (a Fortran FUNCTION) by replacing the values
/// previously returned by the call operation with the operands of the
/// return.
void handleTerminator(mlir::Operation *op,
llvm::ArrayRef<mlir::Value> valuesToRepl) const final {
auto returnOp = llvm::cast<mlir::func::ReturnOp>(op);
assert(returnOp.getNumOperands() == valuesToRepl.size());
for (const auto &it : llvm::enumerate(returnOp.getOperands()))
valuesToRepl[it.index()].replaceAllUsesWith(it.value());
}
mlir::Operation *materializeCallConversion(mlir::OpBuilder &builder,
mlir::Value input,
mlir::Type resultType,
mlir::Location loc) const final {
return builder.create<fir::ConvertOp>(loc, resultType, input);
}
};
} // namespace
fir::FIROpsDialect::FIROpsDialect(mlir::MLIRContext *ctx)
: mlir::Dialect("fir", ctx, mlir::TypeID::get<FIROpsDialect>()) {
registerTypes();
registerAttributes();
addOperations<
#define GET_OP_LIST
#include "flang/Optimizer/Dialect/FIROps.cpp.inc"
>();
registerOpExternalInterfaces();
addInterfaces<FIRInlinerInterface>();
}
// anchor the class vtable to this compilation unit
fir::FIROpsDialect::~FIROpsDialect() {
// do nothing
}
mlir::Type fir::FIROpsDialect::parseType(mlir::DialectAsmParser &parser) const {
return parseFirType(const_cast<FIROpsDialect *>(this), parser);
}
void fir::FIROpsDialect::printType(mlir::Type ty,
mlir::DialectAsmPrinter &p) const {
return printFirType(const_cast<FIROpsDialect *>(this), ty, p);
}
mlir::Attribute
fir::FIROpsDialect::parseAttribute(mlir::DialectAsmParser &parser,
mlir::Type type) const {
return parseFirAttribute(const_cast<FIROpsDialect *>(this), parser, type);
}
void fir::FIROpsDialect::printAttribute(mlir::Attribute attr,
mlir::DialectAsmPrinter &p) const {
printFirAttribute(const_cast<FIROpsDialect *>(this), attr, p);
}
|
