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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
//===- TestOpenACCInterfaces.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
//
//===----------------------------------------------------------------------===//
#include "mlir/Dialect/Arith/IR/Arith.h"
#include "mlir/Dialect/DLTI/DLTI.h"
#include "mlir/Dialect/OpenACC/OpenACC.h"
#include "mlir/IR/Builders.h"
#include "mlir/IR/BuiltinOps.h"
#include "mlir/Pass/Pass.h"
#include "mlir/Support/LLVM.h"
#include "flang/Optimizer/Dialect/FIRDialect.h"
#include "flang/Optimizer/HLFIR/HLFIRDialect.h"
#include "flang/Optimizer/HLFIR/HLFIROps.h"
#include "flang/Optimizer/Support/DataLayout.h"
using namespace mlir;
namespace {
struct TestFIROpenACCInterfaces
: public PassWrapper<TestFIROpenACCInterfaces, OperationPass<ModuleOp>> {
MLIR_DEFINE_EXPLICIT_INTERNAL_INLINE_TYPE_ID(TestFIROpenACCInterfaces)
StringRef getArgument() const final { return "test-fir-openacc-interfaces"; }
StringRef getDescription() const final {
return "Test FIR implementation of the OpenACC interfaces.";
}
void getDependentDialects(::mlir::DialectRegistry ®istry) const override {
registry.insert<fir::FIROpsDialect, hlfir::hlfirDialect,
mlir::arith::ArithDialect, mlir::acc::OpenACCDialect,
mlir::DLTIDialect>();
}
void runOnOperation() override {
mlir::ModuleOp mod = getOperation();
auto datalayout =
fir::support::getOrSetMLIRDataLayout(mod, /*allowDefaultLayout=*/true);
mlir::OpBuilder builder(mod);
getOperation().walk([&](Operation *op) {
if (isa<ACC_DATA_ENTRY_OPS>(op)) {
Value var = acc::getVar(op);
Type typeOfVar = var.getType();
// Attempt to determine if the variable is mappable-like or if
// the pointee itself is mappable-like. For example, if the variable is
// of type !fir.ref<!fir.box<>>, we want to print both the details about
// the !fir.ref since it is pointer-like, and about !fir.box since it
// is mappable.
auto mappableTy = dyn_cast_if_present<acc::MappableType>(typeOfVar);
if (!mappableTy) {
mappableTy =
dyn_cast_if_present<acc::MappableType>(acc::getVarType(op));
}
llvm::errs() << "Visiting: " << *op << "\n";
llvm::errs() << "\tVar: " << var << "\n";
if (mlir::isa<acc::PointerLikeType>(typeOfVar) &&
mlir::isa<acc::MappableType>(typeOfVar)) {
llvm::errs() << "\tPointer-like and Mappable: " << typeOfVar << "\n";
} else if (mlir::isa<acc::PointerLikeType>(typeOfVar)) {
llvm::errs() << "\tPointer-like: " << typeOfVar << "\n";
} else {
assert(
mlir::isa<acc::MappableType>(typeOfVar) && "expected mappable");
llvm::errs() << "\tMappable: " << typeOfVar << "\n";
}
if (auto ptrTy = dyn_cast_if_present<acc::PointerLikeType>(typeOfVar)) {
// If the pointee is not mappable, print details about it. Otherwise,
// we defer to the mappable printing below to print those details.
if (!mappableTy) {
acc::VariableTypeCategory typeCategory =
ptrTy.getPointeeTypeCategory(
cast<TypedValue<acc::PointerLikeType>>(var),
acc::getVarType(op));
llvm::errs() << "\t\tType category: " << typeCategory << "\n";
}
}
if (mappableTy) {
acc::VariableTypeCategory typeCategory =
mappableTy.getTypeCategory(var);
llvm::errs() << "\t\tType category: " << typeCategory << "\n";
if (datalayout.has_value()) {
auto size = mappableTy.getSizeInBytes(
acc::getVar(op), acc::getBounds(op), datalayout.value());
if (size) {
llvm::errs() << "\t\tSize: " << size.value() << "\n";
}
auto offset = mappableTy.getOffsetInBytes(
acc::getVar(op), acc::getBounds(op), datalayout.value());
if (offset) {
llvm::errs() << "\t\tOffset: " << offset.value() << "\n";
}
}
llvm::errs() << "\t\tHas unknown dimensions: "
<< (mappableTy.hasUnknownDimensions() ? "true" : "false")
<< "\n";
if (auto declareOp =
dyn_cast_if_present<hlfir::DeclareOp>(var.getDefiningOp())) {
llvm::errs() << "\t\tShape: " << declareOp.getShape() << "\n";
}
builder.setInsertionPoint(op);
auto bounds = mappableTy.generateAccBounds(acc::getVar(op), builder);
if (!bounds.empty()) {
for (auto [idx, bound] : llvm::enumerate(bounds)) {
if (auto boundOp = dyn_cast_if_present<acc::DataBoundsOp>(
bound.getDefiningOp())) {
llvm::errs() << "\t\tBound[" << idx << "]: " << bound << "\n";
llvm::errs()
<< "\t\tLower bound: " << boundOp.getLowerbound() << "\n";
llvm::errs()
<< "\t\tUpper bound: " << boundOp.getUpperbound() << "\n";
}
}
}
}
}
});
}
};
} // namespace
//===----------------------------------------------------------------------===//
// Pass Registration
//===----------------------------------------------------------------------===//
namespace fir {
namespace test {
void registerTestFIROpenACCInterfacesPass() {
PassRegistration<TestFIROpenACCInterfaces>();
}
} // namespace test
} // namespace fir
|
