[x86/SLH] Improve name and comments for the main hardening function.
[llvm-complete.git] / lib / Analysis / VectorUtils.cpp
blobd73d24736439929e0d74aac178c1f5c21b95f2cb
1 //===----------- VectorUtils.cpp - Vectorizer utility functions -----------===//
2 //
3 // The LLVM Compiler Infrastructure
4 //
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
7 //
8 //===----------------------------------------------------------------------===//
9 //
10 // This file defines vectorizer utilities.
12 //===----------------------------------------------------------------------===//
14 #include "llvm/Analysis/VectorUtils.h"
15 #include "llvm/ADT/EquivalenceClasses.h"
16 #include "llvm/Analysis/DemandedBits.h"
17 #include "llvm/Analysis/LoopInfo.h"
18 #include "llvm/Analysis/ScalarEvolution.h"
19 #include "llvm/Analysis/ScalarEvolutionExpressions.h"
20 #include "llvm/Analysis/TargetTransformInfo.h"
21 #include "llvm/Analysis/ValueTracking.h"
22 #include "llvm/IR/Constants.h"
23 #include "llvm/IR/GetElementPtrTypeIterator.h"
24 #include "llvm/IR/IRBuilder.h"
25 #include "llvm/IR/PatternMatch.h"
26 #include "llvm/IR/Value.h"
28 using namespace llvm;
29 using namespace llvm::PatternMatch;
31 /// Identify if the intrinsic is trivially vectorizable.
32 /// This method returns true if the intrinsic's argument types are all
33 /// scalars for the scalar form of the intrinsic and all vectors for
34 /// the vector form of the intrinsic.
35 bool llvm::isTriviallyVectorizable(Intrinsic::ID ID) {
36 switch (ID) {
37 case Intrinsic::sqrt:
38 case Intrinsic::sin:
39 case Intrinsic::cos:
40 case Intrinsic::exp:
41 case Intrinsic::exp2:
42 case Intrinsic::log:
43 case Intrinsic::log10:
44 case Intrinsic::log2:
45 case Intrinsic::fabs:
46 case Intrinsic::minnum:
47 case Intrinsic::maxnum:
48 case Intrinsic::copysign:
49 case Intrinsic::floor:
50 case Intrinsic::ceil:
51 case Intrinsic::trunc:
52 case Intrinsic::rint:
53 case Intrinsic::nearbyint:
54 case Intrinsic::round:
55 case Intrinsic::bswap:
56 case Intrinsic::bitreverse:
57 case Intrinsic::ctpop:
58 case Intrinsic::pow:
59 case Intrinsic::fma:
60 case Intrinsic::fmuladd:
61 case Intrinsic::ctlz:
62 case Intrinsic::cttz:
63 case Intrinsic::powi:
64 return true;
65 default:
66 return false;
70 /// Identifies if the intrinsic has a scalar operand. It check for
71 /// ctlz,cttz and powi special intrinsics whose argument is scalar.
72 bool llvm::hasVectorInstrinsicScalarOpd(Intrinsic::ID ID,
73 unsigned ScalarOpdIdx) {
74 switch (ID) {
75 case Intrinsic::ctlz:
76 case Intrinsic::cttz:
77 case Intrinsic::powi:
78 return (ScalarOpdIdx == 1);
79 default:
80 return false;
84 /// Returns intrinsic ID for call.
85 /// For the input call instruction it finds mapping intrinsic and returns
86 /// its ID, in case it does not found it return not_intrinsic.
87 Intrinsic::ID llvm::getVectorIntrinsicIDForCall(const CallInst *CI,
88 const TargetLibraryInfo *TLI) {
89 Intrinsic::ID ID = getIntrinsicForCallSite(CI, TLI);
90 if (ID == Intrinsic::not_intrinsic)
91 return Intrinsic::not_intrinsic;
93 if (isTriviallyVectorizable(ID) || ID == Intrinsic::lifetime_start ||
94 ID == Intrinsic::lifetime_end || ID == Intrinsic::assume ||
95 ID == Intrinsic::sideeffect)
96 return ID;
97 return Intrinsic::not_intrinsic;
100 /// Find the operand of the GEP that should be checked for consecutive
101 /// stores. This ignores trailing indices that have no effect on the final
102 /// pointer.
103 unsigned llvm::getGEPInductionOperand(const GetElementPtrInst *Gep) {
104 const DataLayout &DL = Gep->getModule()->getDataLayout();
105 unsigned LastOperand = Gep->getNumOperands() - 1;
106 unsigned GEPAllocSize = DL.getTypeAllocSize(Gep->getResultElementType());
108 // Walk backwards and try to peel off zeros.
109 while (LastOperand > 1 && match(Gep->getOperand(LastOperand), m_Zero())) {
110 // Find the type we're currently indexing into.
111 gep_type_iterator GEPTI = gep_type_begin(Gep);
112 std::advance(GEPTI, LastOperand - 2);
114 // If it's a type with the same allocation size as the result of the GEP we
115 // can peel off the zero index.
116 if (DL.getTypeAllocSize(GEPTI.getIndexedType()) != GEPAllocSize)
117 break;
118 --LastOperand;
121 return LastOperand;
124 /// If the argument is a GEP, then returns the operand identified by
125 /// getGEPInductionOperand. However, if there is some other non-loop-invariant
126 /// operand, it returns that instead.
127 Value *llvm::stripGetElementPtr(Value *Ptr, ScalarEvolution *SE, Loop *Lp) {
128 GetElementPtrInst *GEP = dyn_cast<GetElementPtrInst>(Ptr);
129 if (!GEP)
130 return Ptr;
132 unsigned InductionOperand = getGEPInductionOperand(GEP);
134 // Check that all of the gep indices are uniform except for our induction
135 // operand.
136 for (unsigned i = 0, e = GEP->getNumOperands(); i != e; ++i)
137 if (i != InductionOperand &&
138 !SE->isLoopInvariant(SE->getSCEV(GEP->getOperand(i)), Lp))
139 return Ptr;
140 return GEP->getOperand(InductionOperand);
143 /// If a value has only one user that is a CastInst, return it.
144 Value *llvm::getUniqueCastUse(Value *Ptr, Loop *Lp, Type *Ty) {
145 Value *UniqueCast = nullptr;
146 for (User *U : Ptr->users()) {
147 CastInst *CI = dyn_cast<CastInst>(U);
148 if (CI && CI->getType() == Ty) {
149 if (!UniqueCast)
150 UniqueCast = CI;
151 else
152 return nullptr;
155 return UniqueCast;
158 /// Get the stride of a pointer access in a loop. Looks for symbolic
159 /// strides "a[i*stride]". Returns the symbolic stride, or null otherwise.
160 Value *llvm::getStrideFromPointer(Value *Ptr, ScalarEvolution *SE, Loop *Lp) {
161 auto *PtrTy = dyn_cast<PointerType>(Ptr->getType());
162 if (!PtrTy || PtrTy->isAggregateType())
163 return nullptr;
165 // Try to remove a gep instruction to make the pointer (actually index at this
166 // point) easier analyzable. If OrigPtr is equal to Ptr we are analyzing the
167 // pointer, otherwise, we are analyzing the index.
168 Value *OrigPtr = Ptr;
170 // The size of the pointer access.
171 int64_t PtrAccessSize = 1;
173 Ptr = stripGetElementPtr(Ptr, SE, Lp);
174 const SCEV *V = SE->getSCEV(Ptr);
176 if (Ptr != OrigPtr)
177 // Strip off casts.
178 while (const SCEVCastExpr *C = dyn_cast<SCEVCastExpr>(V))
179 V = C->getOperand();
181 const SCEVAddRecExpr *S = dyn_cast<SCEVAddRecExpr>(V);
182 if (!S)
183 return nullptr;
185 V = S->getStepRecurrence(*SE);
186 if (!V)
187 return nullptr;
189 // Strip off the size of access multiplication if we are still analyzing the
190 // pointer.
191 if (OrigPtr == Ptr) {
192 if (const SCEVMulExpr *M = dyn_cast<SCEVMulExpr>(V)) {
193 if (M->getOperand(0)->getSCEVType() != scConstant)
194 return nullptr;
196 const APInt &APStepVal = cast<SCEVConstant>(M->getOperand(0))->getAPInt();
198 // Huge step value - give up.
199 if (APStepVal.getBitWidth() > 64)
200 return nullptr;
202 int64_t StepVal = APStepVal.getSExtValue();
203 if (PtrAccessSize != StepVal)
204 return nullptr;
205 V = M->getOperand(1);
209 // Strip off casts.
210 Type *StripedOffRecurrenceCast = nullptr;
211 if (const SCEVCastExpr *C = dyn_cast<SCEVCastExpr>(V)) {
212 StripedOffRecurrenceCast = C->getType();
213 V = C->getOperand();
216 // Look for the loop invariant symbolic value.
217 const SCEVUnknown *U = dyn_cast<SCEVUnknown>(V);
218 if (!U)
219 return nullptr;
221 Value *Stride = U->getValue();
222 if (!Lp->isLoopInvariant(Stride))
223 return nullptr;
225 // If we have stripped off the recurrence cast we have to make sure that we
226 // return the value that is used in this loop so that we can replace it later.
227 if (StripedOffRecurrenceCast)
228 Stride = getUniqueCastUse(Stride, Lp, StripedOffRecurrenceCast);
230 return Stride;
233 /// Given a vector and an element number, see if the scalar value is
234 /// already around as a register, for example if it were inserted then extracted
235 /// from the vector.
236 Value *llvm::findScalarElement(Value *V, unsigned EltNo) {
237 assert(V->getType()->isVectorTy() && "Not looking at a vector?");
238 VectorType *VTy = cast<VectorType>(V->getType());
239 unsigned Width = VTy->getNumElements();
240 if (EltNo >= Width) // Out of range access.
241 return UndefValue::get(VTy->getElementType());
243 if (Constant *C = dyn_cast<Constant>(V))
244 return C->getAggregateElement(EltNo);
246 if (InsertElementInst *III = dyn_cast<InsertElementInst>(V)) {
247 // If this is an insert to a variable element, we don't know what it is.
248 if (!isa<ConstantInt>(III->getOperand(2)))
249 return nullptr;
250 unsigned IIElt = cast<ConstantInt>(III->getOperand(2))->getZExtValue();
252 // If this is an insert to the element we are looking for, return the
253 // inserted value.
254 if (EltNo == IIElt)
255 return III->getOperand(1);
257 // Otherwise, the insertelement doesn't modify the value, recurse on its
258 // vector input.
259 return findScalarElement(III->getOperand(0), EltNo);
262 if (ShuffleVectorInst *SVI = dyn_cast<ShuffleVectorInst>(V)) {
263 unsigned LHSWidth = SVI->getOperand(0)->getType()->getVectorNumElements();
264 int InEl = SVI->getMaskValue(EltNo);
265 if (InEl < 0)
266 return UndefValue::get(VTy->getElementType());
267 if (InEl < (int)LHSWidth)
268 return findScalarElement(SVI->getOperand(0), InEl);
269 return findScalarElement(SVI->getOperand(1), InEl - LHSWidth);
272 // Extract a value from a vector add operation with a constant zero.
273 Value *Val = nullptr; Constant *Con = nullptr;
274 if (match(V, m_Add(m_Value(Val), m_Constant(Con))))
275 if (Constant *Elt = Con->getAggregateElement(EltNo))
276 if (Elt->isNullValue())
277 return findScalarElement(Val, EltNo);
279 // Otherwise, we don't know.
280 return nullptr;
283 /// Get splat value if the input is a splat vector or return nullptr.
284 /// This function is not fully general. It checks only 2 cases:
285 /// the input value is (1) a splat constants vector or (2) a sequence
286 /// of instructions that broadcast a single value into a vector.
288 const llvm::Value *llvm::getSplatValue(const Value *V) {
290 if (auto *C = dyn_cast<Constant>(V))
291 if (isa<VectorType>(V->getType()))
292 return C->getSplatValue();
294 auto *ShuffleInst = dyn_cast<ShuffleVectorInst>(V);
295 if (!ShuffleInst)
296 return nullptr;
297 // All-zero (or undef) shuffle mask elements.
298 for (int MaskElt : ShuffleInst->getShuffleMask())
299 if (MaskElt != 0 && MaskElt != -1)
300 return nullptr;
301 // The first shuffle source is 'insertelement' with index 0.
302 auto *InsertEltInst =
303 dyn_cast<InsertElementInst>(ShuffleInst->getOperand(0));
304 if (!InsertEltInst || !isa<ConstantInt>(InsertEltInst->getOperand(2)) ||
305 !cast<ConstantInt>(InsertEltInst->getOperand(2))->isZero())
306 return nullptr;
308 return InsertEltInst->getOperand(1);
311 MapVector<Instruction *, uint64_t>
312 llvm::computeMinimumValueSizes(ArrayRef<BasicBlock *> Blocks, DemandedBits &DB,
313 const TargetTransformInfo *TTI) {
315 // DemandedBits will give us every value's live-out bits. But we want
316 // to ensure no extra casts would need to be inserted, so every DAG
317 // of connected values must have the same minimum bitwidth.
318 EquivalenceClasses<Value *> ECs;
319 SmallVector<Value *, 16> Worklist;
320 SmallPtrSet<Value *, 4> Roots;
321 SmallPtrSet<Value *, 16> Visited;
322 DenseMap<Value *, uint64_t> DBits;
323 SmallPtrSet<Instruction *, 4> InstructionSet;
324 MapVector<Instruction *, uint64_t> MinBWs;
326 // Determine the roots. We work bottom-up, from truncs or icmps.
327 bool SeenExtFromIllegalType = false;
328 for (auto *BB : Blocks)
329 for (auto &I : *BB) {
330 InstructionSet.insert(&I);
332 if (TTI && (isa<ZExtInst>(&I) || isa<SExtInst>(&I)) &&
333 !TTI->isTypeLegal(I.getOperand(0)->getType()))
334 SeenExtFromIllegalType = true;
336 // Only deal with non-vector integers up to 64-bits wide.
337 if ((isa<TruncInst>(&I) || isa<ICmpInst>(&I)) &&
338 !I.getType()->isVectorTy() &&
339 I.getOperand(0)->getType()->getScalarSizeInBits() <= 64) {
340 // Don't make work for ourselves. If we know the loaded type is legal,
341 // don't add it to the worklist.
342 if (TTI && isa<TruncInst>(&I) && TTI->isTypeLegal(I.getType()))
343 continue;
345 Worklist.push_back(&I);
346 Roots.insert(&I);
349 // Early exit.
350 if (Worklist.empty() || (TTI && !SeenExtFromIllegalType))
351 return MinBWs;
353 // Now proceed breadth-first, unioning values together.
354 while (!Worklist.empty()) {
355 Value *Val = Worklist.pop_back_val();
356 Value *Leader = ECs.getOrInsertLeaderValue(Val);
358 if (Visited.count(Val))
359 continue;
360 Visited.insert(Val);
362 // Non-instructions terminate a chain successfully.
363 if (!isa<Instruction>(Val))
364 continue;
365 Instruction *I = cast<Instruction>(Val);
367 // If we encounter a type that is larger than 64 bits, we can't represent
368 // it so bail out.
369 if (DB.getDemandedBits(I).getBitWidth() > 64)
370 return MapVector<Instruction *, uint64_t>();
372 uint64_t V = DB.getDemandedBits(I).getZExtValue();
373 DBits[Leader] |= V;
374 DBits[I] = V;
376 // Casts, loads and instructions outside of our range terminate a chain
377 // successfully.
378 if (isa<SExtInst>(I) || isa<ZExtInst>(I) || isa<LoadInst>(I) ||
379 !InstructionSet.count(I))
380 continue;
382 // Unsafe casts terminate a chain unsuccessfully. We can't do anything
383 // useful with bitcasts, ptrtoints or inttoptrs and it'd be unsafe to
384 // transform anything that relies on them.
385 if (isa<BitCastInst>(I) || isa<PtrToIntInst>(I) || isa<IntToPtrInst>(I) ||
386 !I->getType()->isIntegerTy()) {
387 DBits[Leader] |= ~0ULL;
388 continue;
391 // We don't modify the types of PHIs. Reductions will already have been
392 // truncated if possible, and inductions' sizes will have been chosen by
393 // indvars.
394 if (isa<PHINode>(I))
395 continue;
397 if (DBits[Leader] == ~0ULL)
398 // All bits demanded, no point continuing.
399 continue;
401 for (Value *O : cast<User>(I)->operands()) {
402 ECs.unionSets(Leader, O);
403 Worklist.push_back(O);
407 // Now we've discovered all values, walk them to see if there are
408 // any users we didn't see. If there are, we can't optimize that
409 // chain.
410 for (auto &I : DBits)
411 for (auto *U : I.first->users())
412 if (U->getType()->isIntegerTy() && DBits.count(U) == 0)
413 DBits[ECs.getOrInsertLeaderValue(I.first)] |= ~0ULL;
415 for (auto I = ECs.begin(), E = ECs.end(); I != E; ++I) {
416 uint64_t LeaderDemandedBits = 0;
417 for (auto MI = ECs.member_begin(I), ME = ECs.member_end(); MI != ME; ++MI)
418 LeaderDemandedBits |= DBits[*MI];
420 uint64_t MinBW = (sizeof(LeaderDemandedBits) * 8) -
421 llvm::countLeadingZeros(LeaderDemandedBits);
422 // Round up to a power of 2
423 if (!isPowerOf2_64((uint64_t)MinBW))
424 MinBW = NextPowerOf2(MinBW);
426 // We don't modify the types of PHIs. Reductions will already have been
427 // truncated if possible, and inductions' sizes will have been chosen by
428 // indvars.
429 // If we are required to shrink a PHI, abandon this entire equivalence class.
430 bool Abort = false;
431 for (auto MI = ECs.member_begin(I), ME = ECs.member_end(); MI != ME; ++MI)
432 if (isa<PHINode>(*MI) && MinBW < (*MI)->getType()->getScalarSizeInBits()) {
433 Abort = true;
434 break;
436 if (Abort)
437 continue;
439 for (auto MI = ECs.member_begin(I), ME = ECs.member_end(); MI != ME; ++MI) {
440 if (!isa<Instruction>(*MI))
441 continue;
442 Type *Ty = (*MI)->getType();
443 if (Roots.count(*MI))
444 Ty = cast<Instruction>(*MI)->getOperand(0)->getType();
445 if (MinBW < Ty->getScalarSizeInBits())
446 MinBWs[cast<Instruction>(*MI)] = MinBW;
450 return MinBWs;
453 /// \returns \p I after propagating metadata from \p VL.
454 Instruction *llvm::propagateMetadata(Instruction *Inst, ArrayRef<Value *> VL) {
455 Instruction *I0 = cast<Instruction>(VL[0]);
456 SmallVector<std::pair<unsigned, MDNode *>, 4> Metadata;
457 I0->getAllMetadataOtherThanDebugLoc(Metadata);
459 for (auto Kind :
460 {LLVMContext::MD_tbaa, LLVMContext::MD_alias_scope,
461 LLVMContext::MD_noalias, LLVMContext::MD_fpmath,
462 LLVMContext::MD_nontemporal, LLVMContext::MD_invariant_load}) {
463 MDNode *MD = I0->getMetadata(Kind);
465 for (int J = 1, E = VL.size(); MD && J != E; ++J) {
466 const Instruction *IJ = cast<Instruction>(VL[J]);
467 MDNode *IMD = IJ->getMetadata(Kind);
468 switch (Kind) {
469 case LLVMContext::MD_tbaa:
470 MD = MDNode::getMostGenericTBAA(MD, IMD);
471 break;
472 case LLVMContext::MD_alias_scope:
473 MD = MDNode::getMostGenericAliasScope(MD, IMD);
474 break;
475 case LLVMContext::MD_fpmath:
476 MD = MDNode::getMostGenericFPMath(MD, IMD);
477 break;
478 case LLVMContext::MD_noalias:
479 case LLVMContext::MD_nontemporal:
480 case LLVMContext::MD_invariant_load:
481 MD = MDNode::intersect(MD, IMD);
482 break;
483 default:
484 llvm_unreachable("unhandled metadata");
488 Inst->setMetadata(Kind, MD);
491 return Inst;
494 Constant *llvm::createInterleaveMask(IRBuilder<> &Builder, unsigned VF,
495 unsigned NumVecs) {
496 SmallVector<Constant *, 16> Mask;
497 for (unsigned i = 0; i < VF; i++)
498 for (unsigned j = 0; j < NumVecs; j++)
499 Mask.push_back(Builder.getInt32(j * VF + i));
501 return ConstantVector::get(Mask);
504 Constant *llvm::createStrideMask(IRBuilder<> &Builder, unsigned Start,
505 unsigned Stride, unsigned VF) {
506 SmallVector<Constant *, 16> Mask;
507 for (unsigned i = 0; i < VF; i++)
508 Mask.push_back(Builder.getInt32(Start + i * Stride));
510 return ConstantVector::get(Mask);
513 Constant *llvm::createSequentialMask(IRBuilder<> &Builder, unsigned Start,
514 unsigned NumInts, unsigned NumUndefs) {
515 SmallVector<Constant *, 16> Mask;
516 for (unsigned i = 0; i < NumInts; i++)
517 Mask.push_back(Builder.getInt32(Start + i));
519 Constant *Undef = UndefValue::get(Builder.getInt32Ty());
520 for (unsigned i = 0; i < NumUndefs; i++)
521 Mask.push_back(Undef);
523 return ConstantVector::get(Mask);
526 /// A helper function for concatenating vectors. This function concatenates two
527 /// vectors having the same element type. If the second vector has fewer
528 /// elements than the first, it is padded with undefs.
529 static Value *concatenateTwoVectors(IRBuilder<> &Builder, Value *V1,
530 Value *V2) {
531 VectorType *VecTy1 = dyn_cast<VectorType>(V1->getType());
532 VectorType *VecTy2 = dyn_cast<VectorType>(V2->getType());
533 assert(VecTy1 && VecTy2 &&
534 VecTy1->getScalarType() == VecTy2->getScalarType() &&
535 "Expect two vectors with the same element type");
537 unsigned NumElts1 = VecTy1->getNumElements();
538 unsigned NumElts2 = VecTy2->getNumElements();
539 assert(NumElts1 >= NumElts2 && "Unexpect the first vector has less elements");
541 if (NumElts1 > NumElts2) {
542 // Extend with UNDEFs.
543 Constant *ExtMask =
544 createSequentialMask(Builder, 0, NumElts2, NumElts1 - NumElts2);
545 V2 = Builder.CreateShuffleVector(V2, UndefValue::get(VecTy2), ExtMask);
548 Constant *Mask = createSequentialMask(Builder, 0, NumElts1 + NumElts2, 0);
549 return Builder.CreateShuffleVector(V1, V2, Mask);
552 Value *llvm::concatenateVectors(IRBuilder<> &Builder, ArrayRef<Value *> Vecs) {
553 unsigned NumVecs = Vecs.size();
554 assert(NumVecs > 1 && "Should be at least two vectors");
556 SmallVector<Value *, 8> ResList;
557 ResList.append(Vecs.begin(), Vecs.end());
558 do {
559 SmallVector<Value *, 8> TmpList;
560 for (unsigned i = 0; i < NumVecs - 1; i += 2) {
561 Value *V0 = ResList[i], *V1 = ResList[i + 1];
562 assert((V0->getType() == V1->getType() || i == NumVecs - 2) &&
563 "Only the last vector may have a different type");
565 TmpList.push_back(concatenateTwoVectors(Builder, V0, V1));
568 // Push the last vector if the total number of vectors is odd.
569 if (NumVecs % 2 != 0)
570 TmpList.push_back(ResList[NumVecs - 1]);
572 ResList = TmpList;
573 NumVecs = ResList.size();
574 } while (NumVecs > 1);
576 return ResList[0];