|
| 1 | +//===-- CUFComputeSharedMemoryOffsetsAndSize.cpp --------------------------===// |
| 2 | +// |
| 3 | +// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. |
| 4 | +// See https://llvm.org/LICENSE.txt for license information. |
| 5 | +// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception |
| 6 | +// |
| 7 | +//===----------------------------------------------------------------------===// |
| 8 | + |
| 9 | +#include "flang/Optimizer/Builder/BoxValue.h" |
| 10 | +#include "flang/Optimizer/Builder/CUFCommon.h" |
| 11 | +#include "flang/Optimizer/Builder/FIRBuilder.h" |
| 12 | +#include "flang/Optimizer/Builder/Runtime/RTBuilder.h" |
| 13 | +#include "flang/Optimizer/Builder/Todo.h" |
| 14 | +#include "flang/Optimizer/CodeGen/Target.h" |
| 15 | +#include "flang/Optimizer/CodeGen/TypeConverter.h" |
| 16 | +#include "flang/Optimizer/Dialect/CUF/CUFOps.h" |
| 17 | +#include "flang/Optimizer/Dialect/FIRAttr.h" |
| 18 | +#include "flang/Optimizer/Dialect/FIRDialect.h" |
| 19 | +#include "flang/Optimizer/Dialect/FIROps.h" |
| 20 | +#include "flang/Optimizer/Dialect/FIROpsSupport.h" |
| 21 | +#include "flang/Optimizer/Dialect/FIRType.h" |
| 22 | +#include "flang/Optimizer/Support/DataLayout.h" |
| 23 | +#include "flang/Runtime/CUDA/registration.h" |
| 24 | +#include "flang/Runtime/entry-names.h" |
| 25 | +#include "mlir/Dialect/GPU/IR/GPUDialect.h" |
| 26 | +#include "mlir/Dialect/LLVMIR/LLVMDialect.h" |
| 27 | +#include "mlir/IR/Value.h" |
| 28 | +#include "mlir/Pass/Pass.h" |
| 29 | +#include "llvm/ADT/SmallVector.h" |
| 30 | + |
| 31 | +namespace fir { |
| 32 | +#define GEN_PASS_DEF_CUFCOMPUTESHAREDMEMORYOFFSETSANDSIZE |
| 33 | +#include "flang/Optimizer/Transforms/Passes.h.inc" |
| 34 | +} // namespace fir |
| 35 | + |
| 36 | +using namespace Fortran::runtime::cuda; |
| 37 | + |
| 38 | +namespace { |
| 39 | + |
| 40 | +struct CUFComputeSharedMemoryOffsetsAndSize |
| 41 | + : public fir::impl::CUFComputeSharedMemoryOffsetsAndSizeBase< |
| 42 | + CUFComputeSharedMemoryOffsetsAndSize> { |
| 43 | + |
| 44 | + void runOnOperation() override { |
| 45 | + mlir::ModuleOp mod = getOperation(); |
| 46 | + mlir::SymbolTable symTab(mod); |
| 47 | + mlir::OpBuilder opBuilder{mod.getBodyRegion()}; |
| 48 | + fir::FirOpBuilder builder(opBuilder, mod); |
| 49 | + fir::KindMapping kindMap{fir::getKindMapping(mod)}; |
| 50 | + std::optional<mlir::DataLayout> dl = |
| 51 | + fir::support::getOrSetMLIRDataLayout(mod, /*allowDefaultLayout=*/false); |
| 52 | + if (!dl) { |
| 53 | + mlir::emitError(mod.getLoc(), |
| 54 | + "data layout attribute is required to perform " + |
| 55 | + getName() + "pass"); |
| 56 | + } |
| 57 | + |
| 58 | + auto gpuMod = cuf::getOrCreateGPUModule(mod, symTab); |
| 59 | + mlir::Type i8Ty = builder.getI8Type(); |
| 60 | + for (auto funcOp : gpuMod.getOps<mlir::gpu::GPUFuncOp>()) { |
| 61 | + unsigned nbDynamicSharedVariables = 0; |
| 62 | + unsigned nbStaticSharedVariables = 0; |
| 63 | + uint64_t sharedMemSize = 0; |
| 64 | + unsigned short alignment = 0; |
| 65 | + |
| 66 | + // Go over each shared memory operation and compute their start offset and |
| 67 | + // the size and alignment of the global to be generated if all variables |
| 68 | + // are static. If this is dynamic shared memory, then only the alignment |
| 69 | + // is computed. |
| 70 | + for (auto sharedOp : funcOp.getOps<cuf::SharedMemoryOp>()) { |
| 71 | + if (fir::hasDynamicSize(sharedOp.getInType())) { |
| 72 | + mlir::Type ty = sharedOp.getInType(); |
| 73 | + // getTypeSizeAndAlignmentOrCrash will crash trying to compute the |
| 74 | + // size of an array with dynamic size. Just get the alignment to |
| 75 | + // create the global. |
| 76 | + if (auto seqTy = mlir::dyn_cast<fir::SequenceType>(ty)) |
| 77 | + ty = seqTy.getEleTy(); |
| 78 | + unsigned short align = dl->getTypeABIAlignment(ty); |
| 79 | + ++nbDynamicSharedVariables; |
| 80 | + sharedOp.setOffset(0); |
| 81 | + alignment = std::max(alignment, align); |
| 82 | + continue; |
| 83 | + } |
| 84 | + auto [size, align] = fir::getTypeSizeAndAlignmentOrCrash( |
| 85 | + sharedOp.getLoc(), sharedOp.getInType(), *dl, kindMap); |
| 86 | + ++nbStaticSharedVariables; |
| 87 | + sharedOp.setOffset(llvm::alignTo(sharedMemSize, align)); |
| 88 | + sharedMemSize = |
| 89 | + llvm::alignTo(sharedMemSize, align) + llvm::alignTo(size, align); |
| 90 | + alignment = std::max(alignment, align); |
| 91 | + } |
| 92 | + if (nbDynamicSharedVariables > 0 && nbStaticSharedVariables > 0) |
| 93 | + mlir::emitError( |
| 94 | + funcOp.getLoc(), |
| 95 | + "static and dynamic shared variables in a single kernel"); |
| 96 | + |
| 97 | + mlir::DenseElementsAttr init = {}; |
| 98 | + if (sharedMemSize > 0) { |
| 99 | + auto vecTy = mlir::VectorType::get(sharedMemSize, i8Ty); |
| 100 | + mlir::Attribute zero = mlir::IntegerAttr::get(i8Ty, 0); |
| 101 | + init = mlir::DenseElementsAttr::get(vecTy, llvm::ArrayRef(zero)); |
| 102 | + } |
| 103 | + |
| 104 | + // Create the shared memory global where each shared variable will point |
| 105 | + // to. |
| 106 | + auto sharedMemType = fir::SequenceType::get(sharedMemSize, i8Ty); |
| 107 | + std::string sharedMemGlobalName = |
| 108 | + (funcOp.getName() + llvm::Twine(cudaSharedMemSuffix)).str(); |
| 109 | + mlir::StringAttr linkage = builder.createInternalLinkage(); |
| 110 | + builder.setInsertionPointToEnd(gpuMod.getBody()); |
| 111 | + llvm::SmallVector<mlir::NamedAttribute> attrs; |
| 112 | + auto globalOpName = mlir::OperationName(fir::GlobalOp::getOperationName(), |
| 113 | + gpuMod.getContext()); |
| 114 | + attrs.push_back(mlir::NamedAttribute( |
| 115 | + fir::GlobalOp::getDataAttrAttrName(globalOpName), |
| 116 | + cuf::DataAttributeAttr::get(gpuMod.getContext(), |
| 117 | + cuf::DataAttribute::Shared))); |
| 118 | + auto sharedMem = builder.create<fir::GlobalOp>( |
| 119 | + funcOp.getLoc(), sharedMemGlobalName, false, false, sharedMemType, |
| 120 | + init, linkage, attrs); |
| 121 | + sharedMem.setAlignment(alignment); |
| 122 | + } |
| 123 | + } |
| 124 | +}; |
| 125 | + |
| 126 | +} // end anonymous namespace |
0 commit comments