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