150ea93a2SStanislav Mekhanoshin //===-- AMDGPUUnifyMetadata.cpp - Unify OpenCL metadata -------------------===//
250ea93a2SStanislav Mekhanoshin //
350ea93a2SStanislav Mekhanoshin //                     The LLVM Compiler Infrastructure
450ea93a2SStanislav Mekhanoshin //
550ea93a2SStanislav Mekhanoshin // This file is distributed under the University of Illinois Open Source
650ea93a2SStanislav Mekhanoshin // License. See LICENSE.TXT for details.
750ea93a2SStanislav Mekhanoshin //
850ea93a2SStanislav Mekhanoshin //===----------------------------------------------------------------------===//
950ea93a2SStanislav Mekhanoshin //
1050ea93a2SStanislav Mekhanoshin // \file
1150ea93a2SStanislav Mekhanoshin // \brief This pass that unifies multiple OpenCL metadata due to linking.
1250ea93a2SStanislav Mekhanoshin //
1350ea93a2SStanislav Mekhanoshin //===----------------------------------------------------------------------===//
1450ea93a2SStanislav Mekhanoshin 
1550ea93a2SStanislav Mekhanoshin #include "AMDGPU.h"
1650ea93a2SStanislav Mekhanoshin #include "llvm/IR/Constants.h"
1750ea93a2SStanislav Mekhanoshin #include "llvm/IR/Module.h"
1850ea93a2SStanislav Mekhanoshin #include "llvm/Pass.h"
1950ea93a2SStanislav Mekhanoshin 
2050ea93a2SStanislav Mekhanoshin using namespace llvm;
2150ea93a2SStanislav Mekhanoshin 
2250ea93a2SStanislav Mekhanoshin namespace {
2350ea93a2SStanislav Mekhanoshin   namespace kOCLMD {
2450ea93a2SStanislav Mekhanoshin     const char SpirVer[]            = "opencl.spir.version";
2550ea93a2SStanislav Mekhanoshin     const char OCLVer[]             = "opencl.ocl.version";
2650ea93a2SStanislav Mekhanoshin     const char UsedExt[]            = "opencl.used.extensions";
2750ea93a2SStanislav Mekhanoshin     const char UsedOptCoreFeat[]    = "opencl.used.optional.core.features";
2850ea93a2SStanislav Mekhanoshin     const char CompilerOptions[]    = "opencl.compiler.options";
2950ea93a2SStanislav Mekhanoshin     const char LLVMIdent[]          = "llvm.ident";
3050ea93a2SStanislav Mekhanoshin   }
3150ea93a2SStanislav Mekhanoshin 
3250ea93a2SStanislav Mekhanoshin   /// \brief Unify multiple OpenCL metadata due to linking.
3350ea93a2SStanislav Mekhanoshin   class AMDGPUUnifyMetadata : public FunctionPass {
3450ea93a2SStanislav Mekhanoshin   public:
3550ea93a2SStanislav Mekhanoshin     static char ID;
3650ea93a2SStanislav Mekhanoshin     explicit AMDGPUUnifyMetadata() : FunctionPass(ID) {};
3750ea93a2SStanislav Mekhanoshin 
3850ea93a2SStanislav Mekhanoshin   private:
3950ea93a2SStanislav Mekhanoshin     // This should really be a module pass but we have to run it as early
4050ea93a2SStanislav Mekhanoshin     // as possible, so given function passes are executed first and
4150ea93a2SStanislav Mekhanoshin     // TargetMachine::addEarlyAsPossiblePasses() expects only function passes
4250ea93a2SStanislav Mekhanoshin     // it has to be a function pass.
4350ea93a2SStanislav Mekhanoshin     virtual bool runOnModule(Module &M);
4450ea93a2SStanislav Mekhanoshin 
4550ea93a2SStanislav Mekhanoshin     // \todo: Convert to a module pass.
4650ea93a2SStanislav Mekhanoshin     virtual bool runOnFunction(Function &F);
4750ea93a2SStanislav Mekhanoshin 
4850ea93a2SStanislav Mekhanoshin     /// \brief Unify version metadata.
4950ea93a2SStanislav Mekhanoshin     /// \return true if changes are made.
5050ea93a2SStanislav Mekhanoshin     /// Assume the named metadata has operands each of which is a pair of
5150ea93a2SStanislav Mekhanoshin     /// integer constant, e.g.
5250ea93a2SStanislav Mekhanoshin     /// !Name = {!n1, !n2}
5350ea93a2SStanislav Mekhanoshin     /// !n1 = {i32 1, i32 2}
5450ea93a2SStanislav Mekhanoshin     /// !n2 = {i32 2, i32 0}
5550ea93a2SStanislav Mekhanoshin     /// Keep the largest version as the sole operand if PickFirst is false.
5650ea93a2SStanislav Mekhanoshin     /// Otherwise pick it from the first value, representing kernel module.
5750ea93a2SStanislav Mekhanoshin     bool unifyVersionMD(Module &M, StringRef Name, bool PickFirst) {
5850ea93a2SStanislav Mekhanoshin       auto NamedMD = M.getNamedMetadata(Name);
5950ea93a2SStanislav Mekhanoshin       if (!NamedMD || NamedMD->getNumOperands() <= 1)
6050ea93a2SStanislav Mekhanoshin         return false;
6150ea93a2SStanislav Mekhanoshin       MDNode *MaxMD = nullptr;
6250ea93a2SStanislav Mekhanoshin       auto MaxVer = 0U;
6350ea93a2SStanislav Mekhanoshin       for (const auto &VersionMD : NamedMD->operands()) {
6450ea93a2SStanislav Mekhanoshin         assert(VersionMD->getNumOperands() == 2);
6550ea93a2SStanislav Mekhanoshin         auto CMajor = mdconst::extract<ConstantInt>(VersionMD->getOperand(0));
6650ea93a2SStanislav Mekhanoshin         auto VersionMajor = CMajor->getZExtValue();
6750ea93a2SStanislav Mekhanoshin         auto CMinor = mdconst::extract<ConstantInt>(VersionMD->getOperand(1));
6850ea93a2SStanislav Mekhanoshin         auto VersionMinor = CMinor->getZExtValue();
6950ea93a2SStanislav Mekhanoshin         auto Ver = (VersionMajor * 100) + (VersionMinor * 10);
7050ea93a2SStanislav Mekhanoshin         if (Ver > MaxVer) {
7150ea93a2SStanislav Mekhanoshin           MaxVer = Ver;
7250ea93a2SStanislav Mekhanoshin           MaxMD = VersionMD;
7350ea93a2SStanislav Mekhanoshin         }
7450ea93a2SStanislav Mekhanoshin         if (PickFirst)
7550ea93a2SStanislav Mekhanoshin           break;
7650ea93a2SStanislav Mekhanoshin       }
7750ea93a2SStanislav Mekhanoshin       NamedMD->eraseFromParent();
7850ea93a2SStanislav Mekhanoshin       NamedMD = M.getOrInsertNamedMetadata(Name);
7950ea93a2SStanislav Mekhanoshin       NamedMD->addOperand(MaxMD);
8050ea93a2SStanislav Mekhanoshin       return true;
8150ea93a2SStanislav Mekhanoshin     }
8250ea93a2SStanislav Mekhanoshin 
8350ea93a2SStanislav Mekhanoshin   /// \brief Unify version metadata.
8450ea93a2SStanislav Mekhanoshin   /// \return true if changes are made.
8550ea93a2SStanislav Mekhanoshin   /// Assume the named metadata has operands each of which is a list e.g.
8650ea93a2SStanislav Mekhanoshin   /// !Name = {!n1, !n2}
8750ea93a2SStanislav Mekhanoshin   /// !n1 = !{!"cl_khr_fp16", {!"cl_khr_fp64"}}
8850ea93a2SStanislav Mekhanoshin   /// !n2 = !{!"cl_khr_image"}
8950ea93a2SStanislav Mekhanoshin   /// Combine it into a single list with unique operands.
9050ea93a2SStanislav Mekhanoshin   bool unifyExtensionMD(Module &M, StringRef Name) {
9150ea93a2SStanislav Mekhanoshin     auto NamedMD = M.getNamedMetadata(Name);
9250ea93a2SStanislav Mekhanoshin     if (!NamedMD || NamedMD->getNumOperands() == 1)
9350ea93a2SStanislav Mekhanoshin       return false;
9450ea93a2SStanislav Mekhanoshin 
9550ea93a2SStanislav Mekhanoshin     SmallVector<Metadata *, 4> All;
9650ea93a2SStanislav Mekhanoshin     for (const auto &MD : NamedMD->operands())
9750ea93a2SStanislav Mekhanoshin       for (const auto &Op : MD->operands())
9850ea93a2SStanislav Mekhanoshin         if (std::find(All.begin(), All.end(), Op.get()) == All.end())
9950ea93a2SStanislav Mekhanoshin           All.push_back(Op.get());
10050ea93a2SStanislav Mekhanoshin 
10150ea93a2SStanislav Mekhanoshin     NamedMD->eraseFromParent();
10250ea93a2SStanislav Mekhanoshin     NamedMD = M.getOrInsertNamedMetadata(Name);
103*980688cdSKonstantin Zhuravlyov     for (const auto &MD : All)
104*980688cdSKonstantin Zhuravlyov       NamedMD->addOperand(MDNode::get(M.getContext(), MD));
105*980688cdSKonstantin Zhuravlyov 
10650ea93a2SStanislav Mekhanoshin     return true;
10750ea93a2SStanislav Mekhanoshin   }
10850ea93a2SStanislav Mekhanoshin };
10950ea93a2SStanislav Mekhanoshin 
11050ea93a2SStanislav Mekhanoshin } // end anonymous namespace
11150ea93a2SStanislav Mekhanoshin 
11250ea93a2SStanislav Mekhanoshin char AMDGPUUnifyMetadata::ID = 0;
11350ea93a2SStanislav Mekhanoshin 
11450ea93a2SStanislav Mekhanoshin char &llvm::AMDGPUUnifyMetadataID = AMDGPUUnifyMetadata::ID;
11550ea93a2SStanislav Mekhanoshin 
11650ea93a2SStanislav Mekhanoshin INITIALIZE_PASS(AMDGPUUnifyMetadata, "amdgpu-unify-metadata",
11750ea93a2SStanislav Mekhanoshin                 "Unify multiple OpenCL metadata due to linking",
11850ea93a2SStanislav Mekhanoshin                 false, false)
11950ea93a2SStanislav Mekhanoshin 
12050ea93a2SStanislav Mekhanoshin FunctionPass* llvm::createAMDGPUUnifyMetadataPass() {
12150ea93a2SStanislav Mekhanoshin   return new AMDGPUUnifyMetadata();
12250ea93a2SStanislav Mekhanoshin }
12350ea93a2SStanislav Mekhanoshin 
12450ea93a2SStanislav Mekhanoshin bool AMDGPUUnifyMetadata::runOnModule(Module &M) {
12550ea93a2SStanislav Mekhanoshin   const char* Vers[] = {
12650ea93a2SStanislav Mekhanoshin       kOCLMD::SpirVer,
12750ea93a2SStanislav Mekhanoshin       kOCLMD::OCLVer
12850ea93a2SStanislav Mekhanoshin   };
12950ea93a2SStanislav Mekhanoshin   const char* Exts[] = {
13050ea93a2SStanislav Mekhanoshin       kOCLMD::UsedExt,
13150ea93a2SStanislav Mekhanoshin       kOCLMD::UsedOptCoreFeat,
13250ea93a2SStanislav Mekhanoshin       kOCLMD::CompilerOptions,
13350ea93a2SStanislav Mekhanoshin       kOCLMD::LLVMIdent
13450ea93a2SStanislav Mekhanoshin   };
13550ea93a2SStanislav Mekhanoshin 
13650ea93a2SStanislav Mekhanoshin   bool Changed = false;
13750ea93a2SStanislav Mekhanoshin 
13850ea93a2SStanislav Mekhanoshin   for (auto &I : Vers)
13950ea93a2SStanislav Mekhanoshin     Changed |= unifyVersionMD(M, I, true);
14050ea93a2SStanislav Mekhanoshin 
14150ea93a2SStanislav Mekhanoshin   for (auto &I : Exts)
14250ea93a2SStanislav Mekhanoshin     Changed |= unifyExtensionMD(M, I);
14350ea93a2SStanislav Mekhanoshin 
14450ea93a2SStanislav Mekhanoshin   return Changed;
14550ea93a2SStanislav Mekhanoshin }
14650ea93a2SStanislav Mekhanoshin 
14750ea93a2SStanislav Mekhanoshin bool AMDGPUUnifyMetadata::runOnFunction(Function &F) {
14850ea93a2SStanislav Mekhanoshin   return runOnModule(*F.getParent());
14950ea93a2SStanislav Mekhanoshin }
150