7b473dfe84
The OpenACC type interfaces have been updated to require that a type self-identify which type category it belongs to. Ensure that FIR types are able to provide this self identification. In addition to implementing the new API, the PointerLikeType interface attachment was moved to FIROpenACCSupport library like MappableType to ensure all type interfaces and their implementation are now in the same spot.
110 lines
4.1 KiB
C++
110 lines
4.1 KiB
C++
//===- 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/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/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 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 (auto ptrTy = dyn_cast_if_present<acc::PointerLikeType>(typeOfVar)) {
|
|
llvm::errs() << "\tPointer-like: " << typeOfVar << "\n";
|
|
// 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) {
|
|
llvm::errs() << "\tMappable: " << mappableTy << "\n";
|
|
|
|
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";
|
|
}
|
|
}
|
|
|
|
builder.setInsertionPoint(op);
|
|
auto bounds = mappableTy.generateAccBounds(acc::getVar(op), builder);
|
|
if (!bounds.empty()) {
|
|
for (auto [idx, bound] : llvm::enumerate(bounds)) {
|
|
llvm::errs() << "\t\tBound[" << idx << "]: " << bound << "\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
});
|
|
}
|
|
};
|
|
} // namespace
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// Pass Registration
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
namespace fir {
|
|
namespace test {
|
|
void registerTestFIROpenACCInterfacesPass() {
|
|
PassRegistration<TestFIROpenACCInterfaces>();
|
|
}
|
|
} // namespace test
|
|
} // namespace fir
|