1c8fbf6ffSEugene Zelenko //===- AMDGPUUnifyMetadata.cpp - Unify OpenCL metadata --------------------===// 250ea93a2SStanislav Mekhanoshin // 32946cd70SChandler Carruth // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 42946cd70SChandler Carruth // See https://llvm.org/LICENSE.txt for license information. 52946cd70SChandler Carruth // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 650ea93a2SStanislav Mekhanoshin // 750ea93a2SStanislav Mekhanoshin //===----------------------------------------------------------------------===// 850ea93a2SStanislav Mekhanoshin // 950ea93a2SStanislav Mekhanoshin // \file 105f8f34e4SAdrian Prantl // This pass that unifies multiple OpenCL metadata due to linking. 1150ea93a2SStanislav Mekhanoshin // 1250ea93a2SStanislav Mekhanoshin //===----------------------------------------------------------------------===// 1350ea93a2SStanislav Mekhanoshin 1450ea93a2SStanislav Mekhanoshin #include "AMDGPU.h" 15734bb7bbSEugene Zelenko #include "llvm/ADT/SmallVector.h" 16734bb7bbSEugene Zelenko #include "llvm/ADT/StringRef.h" 1750ea93a2SStanislav Mekhanoshin #include "llvm/IR/Constants.h" 18c8fbf6ffSEugene Zelenko #include "llvm/IR/Metadata.h" 1950ea93a2SStanislav Mekhanoshin #include "llvm/IR/Module.h" 2050ea93a2SStanislav Mekhanoshin #include "llvm/Pass.h" 21734bb7bbSEugene Zelenko #include <algorithm> 22734bb7bbSEugene Zelenko #include <cassert> 2350ea93a2SStanislav Mekhanoshin 2450ea93a2SStanislav Mekhanoshin using namespace llvm; 2550ea93a2SStanislav Mekhanoshin 2650ea93a2SStanislav Mekhanoshin namespace { 27734bb7bbSEugene Zelenko 2850ea93a2SStanislav Mekhanoshin namespace kOCLMD { 29734bb7bbSEugene Zelenko 3050ea93a2SStanislav Mekhanoshin const char SpirVer[] = "opencl.spir.version"; 3150ea93a2SStanislav Mekhanoshin const char OCLVer[] = "opencl.ocl.version"; 3250ea93a2SStanislav Mekhanoshin const char UsedExt[] = "opencl.used.extensions"; 3350ea93a2SStanislav Mekhanoshin const char UsedOptCoreFeat[] = "opencl.used.optional.core.features"; 3450ea93a2SStanislav Mekhanoshin const char CompilerOptions[] = "opencl.compiler.options"; 3550ea93a2SStanislav Mekhanoshin const char LLVMIdent[] = "llvm.ident"; 36734bb7bbSEugene Zelenko 37734bb7bbSEugene Zelenko } // end namespace kOCLMD 3850ea93a2SStanislav Mekhanoshin 395f8f34e4SAdrian Prantl /// Unify multiple OpenCL metadata due to linking. 40f6c1feb8SStanislav Mekhanoshin class AMDGPUUnifyMetadata : public ModulePass { 4150ea93a2SStanislav Mekhanoshin public: 4250ea93a2SStanislav Mekhanoshin static char ID; 43c8fbf6ffSEugene Zelenko 44c8fbf6ffSEugene Zelenko explicit AMDGPUUnifyMetadata() : ModulePass(ID) {} 4550ea93a2SStanislav Mekhanoshin 4650ea93a2SStanislav Mekhanoshin private: 47c8fbf6ffSEugene Zelenko bool runOnModule(Module &M) override; 4850ea93a2SStanislav Mekhanoshin 495f8f34e4SAdrian Prantl /// Unify version metadata. 5050ea93a2SStanislav Mekhanoshin /// \return true if changes are made. 5150ea93a2SStanislav Mekhanoshin /// Assume the named metadata has operands each of which is a pair of 5250ea93a2SStanislav Mekhanoshin /// integer constant, e.g. 5350ea93a2SStanislav Mekhanoshin /// !Name = {!n1, !n2} 5450ea93a2SStanislav Mekhanoshin /// !n1 = {i32 1, i32 2} 5550ea93a2SStanislav Mekhanoshin /// !n2 = {i32 2, i32 0} 5650ea93a2SStanislav Mekhanoshin /// Keep the largest version as the sole operand if PickFirst is false. 5750ea93a2SStanislav Mekhanoshin /// Otherwise pick it from the first value, representing kernel module. 5850ea93a2SStanislav Mekhanoshin bool unifyVersionMD(Module &M, StringRef Name, bool PickFirst) { 5950ea93a2SStanislav Mekhanoshin auto NamedMD = M.getNamedMetadata(Name); 6050ea93a2SStanislav Mekhanoshin if (!NamedMD || NamedMD->getNumOperands() <= 1) 6150ea93a2SStanislav Mekhanoshin return false; 6250ea93a2SStanislav Mekhanoshin MDNode *MaxMD = nullptr; 6350ea93a2SStanislav Mekhanoshin auto MaxVer = 0U; 642d903cc9SMark de Wever for (auto VersionMD : NamedMD->operands()) { 6550ea93a2SStanislav Mekhanoshin assert(VersionMD->getNumOperands() == 2); 6650ea93a2SStanislav Mekhanoshin auto CMajor = mdconst::extract<ConstantInt>(VersionMD->getOperand(0)); 6750ea93a2SStanislav Mekhanoshin auto VersionMajor = CMajor->getZExtValue(); 6850ea93a2SStanislav Mekhanoshin auto CMinor = mdconst::extract<ConstantInt>(VersionMD->getOperand(1)); 6950ea93a2SStanislav Mekhanoshin auto VersionMinor = CMinor->getZExtValue(); 7050ea93a2SStanislav Mekhanoshin auto Ver = (VersionMajor * 100) + (VersionMinor * 10); 7150ea93a2SStanislav Mekhanoshin if (Ver > MaxVer) { 7250ea93a2SStanislav Mekhanoshin MaxVer = Ver; 7350ea93a2SStanislav Mekhanoshin MaxMD = VersionMD; 7450ea93a2SStanislav Mekhanoshin } 7550ea93a2SStanislav Mekhanoshin if (PickFirst) 7650ea93a2SStanislav Mekhanoshin break; 7750ea93a2SStanislav Mekhanoshin } 7850ea93a2SStanislav Mekhanoshin NamedMD->eraseFromParent(); 7950ea93a2SStanislav Mekhanoshin NamedMD = M.getOrInsertNamedMetadata(Name); 8050ea93a2SStanislav Mekhanoshin NamedMD->addOperand(MaxMD); 8150ea93a2SStanislav Mekhanoshin return true; 8250ea93a2SStanislav Mekhanoshin } 8350ea93a2SStanislav Mekhanoshin 845f8f34e4SAdrian Prantl /// Unify version metadata. 8550ea93a2SStanislav Mekhanoshin /// \return true if changes are made. 8650ea93a2SStanislav Mekhanoshin /// Assume the named metadata has operands each of which is a list e.g. 8750ea93a2SStanislav Mekhanoshin /// !Name = {!n1, !n2} 8850ea93a2SStanislav Mekhanoshin /// !n1 = !{!"cl_khr_fp16", {!"cl_khr_fp64"}} 8950ea93a2SStanislav Mekhanoshin /// !n2 = !{!"cl_khr_image"} 9050ea93a2SStanislav Mekhanoshin /// Combine it into a single list with unique operands. 9150ea93a2SStanislav Mekhanoshin bool unifyExtensionMD(Module &M, StringRef Name) { 9250ea93a2SStanislav Mekhanoshin auto NamedMD = M.getNamedMetadata(Name); 9350ea93a2SStanislav Mekhanoshin if (!NamedMD || NamedMD->getNumOperands() == 1) 9450ea93a2SStanislav Mekhanoshin return false; 9550ea93a2SStanislav Mekhanoshin 9650ea93a2SStanislav Mekhanoshin SmallVector<Metadata *, 4> All; 972d903cc9SMark de Wever for (auto MD : NamedMD->operands()) 9850ea93a2SStanislav Mekhanoshin for (const auto &Op : MD->operands()) 99*902cbcd5SKazu Hirata if (!llvm::is_contained(All, Op.get())) 10050ea93a2SStanislav Mekhanoshin All.push_back(Op.get()); 10150ea93a2SStanislav Mekhanoshin 10250ea93a2SStanislav Mekhanoshin NamedMD->eraseFromParent(); 10350ea93a2SStanislav Mekhanoshin NamedMD = M.getOrInsertNamedMetadata(Name); 104980688cdSKonstantin Zhuravlyov for (const auto &MD : All) 105980688cdSKonstantin Zhuravlyov NamedMD->addOperand(MDNode::get(M.getContext(), MD)); 106980688cdSKonstantin Zhuravlyov 10750ea93a2SStanislav Mekhanoshin return true; 10850ea93a2SStanislav Mekhanoshin } 10950ea93a2SStanislav Mekhanoshin }; 11050ea93a2SStanislav Mekhanoshin 11150ea93a2SStanislav Mekhanoshin } // end anonymous namespace 11250ea93a2SStanislav Mekhanoshin 11350ea93a2SStanislav Mekhanoshin char AMDGPUUnifyMetadata::ID = 0; 11450ea93a2SStanislav Mekhanoshin 11550ea93a2SStanislav Mekhanoshin char &llvm::AMDGPUUnifyMetadataID = AMDGPUUnifyMetadata::ID; 11650ea93a2SStanislav Mekhanoshin 11750ea93a2SStanislav Mekhanoshin INITIALIZE_PASS(AMDGPUUnifyMetadata, "amdgpu-unify-metadata", 11850ea93a2SStanislav Mekhanoshin "Unify multiple OpenCL metadata due to linking", 11950ea93a2SStanislav Mekhanoshin false, false) 12050ea93a2SStanislav Mekhanoshin 121f6c1feb8SStanislav Mekhanoshin ModulePass* llvm::createAMDGPUUnifyMetadataPass() { 12250ea93a2SStanislav Mekhanoshin return new AMDGPUUnifyMetadata(); 12350ea93a2SStanislav Mekhanoshin } 12450ea93a2SStanislav Mekhanoshin 12550ea93a2SStanislav Mekhanoshin bool AMDGPUUnifyMetadata::runOnModule(Module &M) { 12650ea93a2SStanislav Mekhanoshin const char* Vers[] = { 12750ea93a2SStanislav Mekhanoshin kOCLMD::SpirVer, 12850ea93a2SStanislav Mekhanoshin kOCLMD::OCLVer 12950ea93a2SStanislav Mekhanoshin }; 13050ea93a2SStanislav Mekhanoshin const char* Exts[] = { 13150ea93a2SStanislav Mekhanoshin kOCLMD::UsedExt, 13250ea93a2SStanislav Mekhanoshin kOCLMD::UsedOptCoreFeat, 13350ea93a2SStanislav Mekhanoshin kOCLMD::CompilerOptions, 13450ea93a2SStanislav Mekhanoshin kOCLMD::LLVMIdent 13550ea93a2SStanislav Mekhanoshin }; 13650ea93a2SStanislav Mekhanoshin 13750ea93a2SStanislav Mekhanoshin bool Changed = false; 13850ea93a2SStanislav Mekhanoshin 13950ea93a2SStanislav Mekhanoshin for (auto &I : Vers) 14050ea93a2SStanislav Mekhanoshin Changed |= unifyVersionMD(M, I, true); 14150ea93a2SStanislav Mekhanoshin 14250ea93a2SStanislav Mekhanoshin for (auto &I : Exts) 14350ea93a2SStanislav Mekhanoshin Changed |= unifyExtensionMD(M, I); 14450ea93a2SStanislav Mekhanoshin 14550ea93a2SStanislav Mekhanoshin return Changed; 14650ea93a2SStanislav Mekhanoshin } 147