9a0133a6c2b08bcf97d8ec6a34c27fda31ead6c2
[oota-llvm.git] / lib / Analysis / TargetTransformInfo.cpp
1 //===- llvm/Analysis/TargetTransformInfo.cpp ------------------------------===//
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 #include "llvm/Analysis/TargetTransformInfo.h"
11 #include "llvm/IR/CallSite.h"
12 #include "llvm/IR/DataLayout.h"
13 #include "llvm/IR/Instruction.h"
14 #include "llvm/IR/Instructions.h"
15 #include "llvm/IR/IntrinsicInst.h"
16 #include "llvm/IR/Operator.h"
17 #include "llvm/Support/ErrorHandling.h"
18
19 using namespace llvm;
20
21 #define DEBUG_TYPE "tti"
22
23 // Setup the analysis group to manage the TargetTransformInfo passes.
24 INITIALIZE_ANALYSIS_GROUP(TargetTransformInfo, "Target Information", NoTTI)
25 char TargetTransformInfo::ID = 0;
26
27 TargetTransformInfo::~TargetTransformInfo() {
28 }
29
30 void TargetTransformInfo::pushTTIStack(Pass *P) {
31   TopTTI = this;
32   PrevTTI = &P->getAnalysis<TargetTransformInfo>();
33
34   // Walk up the chain and update the top TTI pointer.
35   for (TargetTransformInfo *PTTI = PrevTTI; PTTI; PTTI = PTTI->PrevTTI)
36     PTTI->TopTTI = this;
37 }
38
39 void TargetTransformInfo::getAnalysisUsage(AnalysisUsage &AU) const {
40   AU.addRequired<TargetTransformInfo>();
41 }
42
43 unsigned TargetTransformInfo::getOperationCost(unsigned Opcode, Type *Ty,
44                                                Type *OpTy) const {
45   return PrevTTI->getOperationCost(Opcode, Ty, OpTy);
46 }
47
48 unsigned TargetTransformInfo::getGEPCost(
49     const Value *Ptr, ArrayRef<const Value *> Operands) const {
50   return PrevTTI->getGEPCost(Ptr, Operands);
51 }
52
53 unsigned TargetTransformInfo::getCallCost(FunctionType *FTy,
54                                           int NumArgs) const {
55   return PrevTTI->getCallCost(FTy, NumArgs);
56 }
57
58 unsigned TargetTransformInfo::getCallCost(const Function *F,
59                                           int NumArgs) const {
60   return PrevTTI->getCallCost(F, NumArgs);
61 }
62
63 unsigned TargetTransformInfo::getCallCost(
64     const Function *F, ArrayRef<const Value *> Arguments) const {
65   return PrevTTI->getCallCost(F, Arguments);
66 }
67
68 unsigned TargetTransformInfo::getIntrinsicCost(
69     Intrinsic::ID IID, Type *RetTy, ArrayRef<Type *> ParamTys) const {
70   return PrevTTI->getIntrinsicCost(IID, RetTy, ParamTys);
71 }
72
73 unsigned TargetTransformInfo::getIntrinsicCost(
74     Intrinsic::ID IID, Type *RetTy, ArrayRef<const Value *> Arguments) const {
75   return PrevTTI->getIntrinsicCost(IID, RetTy, Arguments);
76 }
77
78 unsigned TargetTransformInfo::getUserCost(const User *U) const {
79   return PrevTTI->getUserCost(U);
80 }
81
82 bool TargetTransformInfo::hasBranchDivergence() const {
83   return PrevTTI->hasBranchDivergence();
84 }
85
86 bool TargetTransformInfo::isLoweredToCall(const Function *F) const {
87   return PrevTTI->isLoweredToCall(F);
88 }
89
90 void
91 TargetTransformInfo::getUnrollingPreferences(const Function *F, Loop *L,
92                                              UnrollingPreferences &UP) const {
93   PrevTTI->getUnrollingPreferences(F, L, UP);
94 }
95
96 bool TargetTransformInfo::isLegalAddImmediate(int64_t Imm) const {
97   return PrevTTI->isLegalAddImmediate(Imm);
98 }
99
100 bool TargetTransformInfo::isLegalICmpImmediate(int64_t Imm) const {
101   return PrevTTI->isLegalICmpImmediate(Imm);
102 }
103
104 bool TargetTransformInfo::isLegalAddressingMode(Type *Ty, GlobalValue *BaseGV,
105                                                 int64_t BaseOffset,
106                                                 bool HasBaseReg,
107                                                 int64_t Scale) const {
108   return PrevTTI->isLegalAddressingMode(Ty, BaseGV, BaseOffset, HasBaseReg,
109                                         Scale);
110 }
111
112 int TargetTransformInfo::getScalingFactorCost(Type *Ty, GlobalValue *BaseGV,
113                                               int64_t BaseOffset,
114                                               bool HasBaseReg,
115                                               int64_t Scale) const {
116   return PrevTTI->getScalingFactorCost(Ty, BaseGV, BaseOffset, HasBaseReg,
117                                        Scale);
118 }
119
120 bool TargetTransformInfo::isTruncateFree(Type *Ty1, Type *Ty2) const {
121   return PrevTTI->isTruncateFree(Ty1, Ty2);
122 }
123
124 bool TargetTransformInfo::isTypeLegal(Type *Ty) const {
125   return PrevTTI->isTypeLegal(Ty);
126 }
127
128 unsigned TargetTransformInfo::getJumpBufAlignment() const {
129   return PrevTTI->getJumpBufAlignment();
130 }
131
132 unsigned TargetTransformInfo::getJumpBufSize() const {
133   return PrevTTI->getJumpBufSize();
134 }
135
136 bool TargetTransformInfo::shouldBuildLookupTables() const {
137   return PrevTTI->shouldBuildLookupTables();
138 }
139
140 TargetTransformInfo::PopcntSupportKind
141 TargetTransformInfo::getPopcntSupport(unsigned IntTyWidthInBit) const {
142   return PrevTTI->getPopcntSupport(IntTyWidthInBit);
143 }
144
145 bool TargetTransformInfo::haveFastSqrt(Type *Ty) const {
146   return PrevTTI->haveFastSqrt(Ty);
147 }
148
149 unsigned TargetTransformInfo::getIntImmCost(const APInt &Imm, Type *Ty) const {
150   return PrevTTI->getIntImmCost(Imm, Ty);
151 }
152
153 unsigned TargetTransformInfo::getIntImmCost(unsigned Opc, unsigned Idx,
154                                             const APInt &Imm, Type *Ty) const {
155   return PrevTTI->getIntImmCost(Opc, Idx, Imm, Ty);
156 }
157
158 unsigned TargetTransformInfo::getIntImmCost(Intrinsic::ID IID, unsigned Idx,
159                                             const APInt &Imm, Type *Ty) const {
160   return PrevTTI->getIntImmCost(IID, Idx, Imm, Ty);
161 }
162
163 unsigned TargetTransformInfo::getNumberOfRegisters(bool Vector) const {
164   return PrevTTI->getNumberOfRegisters(Vector);
165 }
166
167 unsigned TargetTransformInfo::getRegisterBitWidth(bool Vector) const {
168   return PrevTTI->getRegisterBitWidth(Vector);
169 }
170
171 unsigned TargetTransformInfo::getMaxInterleaveFactor() const {
172   return PrevTTI->getMaxInterleaveFactor();
173 }
174
175 unsigned TargetTransformInfo::getArithmeticInstrCost(
176     unsigned Opcode, Type *Ty, OperandValueKind Op1Info,
177     OperandValueKind Op2Info, OperandValueProperties Opd1PropInfo,
178     OperandValueProperties Opd2PropInfo) const {
179   return PrevTTI->getArithmeticInstrCost(Opcode, Ty, Op1Info, Op2Info,
180                                          Opd1PropInfo, Opd2PropInfo);
181 }
182
183 unsigned TargetTransformInfo::getShuffleCost(ShuffleKind Kind, Type *Tp,
184                                              int Index, Type *SubTp) const {
185   return PrevTTI->getShuffleCost(Kind, Tp, Index, SubTp);
186 }
187
188 unsigned TargetTransformInfo::getCastInstrCost(unsigned Opcode, Type *Dst,
189                                                Type *Src) const {
190   return PrevTTI->getCastInstrCost(Opcode, Dst, Src);
191 }
192
193 unsigned TargetTransformInfo::getCFInstrCost(unsigned Opcode) const {
194   return PrevTTI->getCFInstrCost(Opcode);
195 }
196
197 unsigned TargetTransformInfo::getCmpSelInstrCost(unsigned Opcode, Type *ValTy,
198                                                  Type *CondTy) const {
199   return PrevTTI->getCmpSelInstrCost(Opcode, ValTy, CondTy);
200 }
201
202 unsigned TargetTransformInfo::getVectorInstrCost(unsigned Opcode, Type *Val,
203                                                  unsigned Index) const {
204   return PrevTTI->getVectorInstrCost(Opcode, Val, Index);
205 }
206
207 unsigned TargetTransformInfo::getMemoryOpCost(unsigned Opcode, Type *Src,
208                                               unsigned Alignment,
209                                               unsigned AddressSpace) const {
210   return PrevTTI->getMemoryOpCost(Opcode, Src, Alignment, AddressSpace);
211   ;
212 }
213
214 unsigned
215 TargetTransformInfo::getIntrinsicInstrCost(Intrinsic::ID ID,
216                                            Type *RetTy,
217                                            ArrayRef<Type *> Tys) const {
218   return PrevTTI->getIntrinsicInstrCost(ID, RetTy, Tys);
219 }
220
221 unsigned TargetTransformInfo::getNumberOfParts(Type *Tp) const {
222   return PrevTTI->getNumberOfParts(Tp);
223 }
224
225 unsigned TargetTransformInfo::getAddressComputationCost(Type *Tp,
226                                                         bool IsComplex) const {
227   return PrevTTI->getAddressComputationCost(Tp, IsComplex);
228 }
229
230 unsigned TargetTransformInfo::getReductionCost(unsigned Opcode, Type *Ty,
231                                                bool IsPairwise) const {
232   return PrevTTI->getReductionCost(Opcode, Ty, IsPairwise);
233 }
234
235 unsigned TargetTransformInfo::getCostOfKeepingLiveOverCall(ArrayRef<Type*> Tys)
236   const {
237   return PrevTTI->getCostOfKeepingLiveOverCall(Tys);
238 }
239
240 namespace {
241
242 struct NoTTI final : ImmutablePass, TargetTransformInfo {
243   const DataLayout *DL;
244
245   NoTTI() : ImmutablePass(ID), DL(nullptr) {
246     initializeNoTTIPass(*PassRegistry::getPassRegistry());
247   }
248
249   void initializePass() override {
250     // Note that this subclass is special, and must *not* call initializeTTI as
251     // it does not chain.
252     TopTTI = this;
253     PrevTTI = nullptr;
254     DataLayoutPass *DLP = getAnalysisIfAvailable<DataLayoutPass>();
255     DL = DLP ? &DLP->getDataLayout() : nullptr;
256   }
257
258   void getAnalysisUsage(AnalysisUsage &AU) const override {
259     // Note that this subclass is special, and must *not* call
260     // TTI::getAnalysisUsage as it breaks the recursion.
261   }
262
263   /// Pass identification.
264   static char ID;
265
266   /// Provide necessary pointer adjustments for the two base classes.
267   void *getAdjustedAnalysisPointer(const void *ID) override {
268     if (ID == &TargetTransformInfo::ID)
269       return (TargetTransformInfo*)this;
270     return this;
271   }
272
273   unsigned getOperationCost(unsigned Opcode, Type *Ty,
274                             Type *OpTy) const override {
275     switch (Opcode) {
276     default:
277       // By default, just classify everything as 'basic'.
278       return TCC_Basic;
279
280     case Instruction::GetElementPtr:
281       llvm_unreachable("Use getGEPCost for GEP operations!");
282
283     case Instruction::BitCast:
284       assert(OpTy && "Cast instructions must provide the operand type");
285       if (Ty == OpTy || (Ty->isPointerTy() && OpTy->isPointerTy()))
286         // Identity and pointer-to-pointer casts are free.
287         return TCC_Free;
288
289       // Otherwise, the default basic cost is used.
290       return TCC_Basic;
291
292     case Instruction::IntToPtr: {
293       if (!DL)
294         return TCC_Basic;
295
296       // An inttoptr cast is free so long as the input is a legal integer type
297       // which doesn't contain values outside the range of a pointer.
298       unsigned OpSize = OpTy->getScalarSizeInBits();
299       if (DL->isLegalInteger(OpSize) &&
300           OpSize <= DL->getPointerTypeSizeInBits(Ty))
301         return TCC_Free;
302
303       // Otherwise it's not a no-op.
304       return TCC_Basic;
305     }
306     case Instruction::PtrToInt: {
307       if (!DL)
308         return TCC_Basic;
309
310       // A ptrtoint cast is free so long as the result is large enough to store
311       // the pointer, and a legal integer type.
312       unsigned DestSize = Ty->getScalarSizeInBits();
313       if (DL->isLegalInteger(DestSize) &&
314           DestSize >= DL->getPointerTypeSizeInBits(OpTy))
315         return TCC_Free;
316
317       // Otherwise it's not a no-op.
318       return TCC_Basic;
319     }
320     case Instruction::Trunc:
321       // trunc to a native type is free (assuming the target has compare and
322       // shift-right of the same width).
323       if (DL && DL->isLegalInteger(DL->getTypeSizeInBits(Ty)))
324         return TCC_Free;
325
326       return TCC_Basic;
327     }
328   }
329
330   unsigned getGEPCost(const Value *Ptr,
331                       ArrayRef<const Value *> Operands) const override {
332     // In the basic model, we just assume that all-constant GEPs will be folded
333     // into their uses via addressing modes.
334     for (unsigned Idx = 0, Size = Operands.size(); Idx != Size; ++Idx)
335       if (!isa<Constant>(Operands[Idx]))
336         return TCC_Basic;
337
338     return TCC_Free;
339   }
340
341   unsigned getCallCost(FunctionType *FTy, int NumArgs = -1) const override
342   {
343     assert(FTy && "FunctionType must be provided to this routine.");
344
345     // The target-independent implementation just measures the size of the
346     // function by approximating that each argument will take on average one
347     // instruction to prepare.
348
349     if (NumArgs < 0)
350       // Set the argument number to the number of explicit arguments in the
351       // function.
352       NumArgs = FTy->getNumParams();
353
354     return TCC_Basic * (NumArgs + 1);
355   }
356
357   unsigned getCallCost(const Function *F, int NumArgs = -1) const override
358   {
359     assert(F && "A concrete function must be provided to this routine.");
360
361     if (NumArgs < 0)
362       // Set the argument number to the number of explicit arguments in the
363       // function.
364       NumArgs = F->arg_size();
365
366     if (Intrinsic::ID IID = (Intrinsic::ID)F->getIntrinsicID()) {
367       FunctionType *FTy = F->getFunctionType();
368       SmallVector<Type *, 8> ParamTys(FTy->param_begin(), FTy->param_end());
369       return TopTTI->getIntrinsicCost(IID, FTy->getReturnType(), ParamTys);
370     }
371
372     if (!TopTTI->isLoweredToCall(F))
373       return TCC_Basic; // Give a basic cost if it will be lowered directly.
374
375     return TopTTI->getCallCost(F->getFunctionType(), NumArgs);
376   }
377
378   unsigned getCallCost(const Function *F,
379                        ArrayRef<const Value *> Arguments) const override {
380     // Simply delegate to generic handling of the call.
381     // FIXME: We should use instsimplify or something else to catch calls which
382     // will constant fold with these arguments.
383     return TopTTI->getCallCost(F, Arguments.size());
384   }
385
386   unsigned getIntrinsicCost(Intrinsic::ID IID, Type *RetTy,
387                             ArrayRef<Type *> ParamTys) const override {
388     switch (IID) {
389     default:
390       // Intrinsics rarely (if ever) have normal argument setup constraints.
391       // Model them as having a basic instruction cost.
392       // FIXME: This is wrong for libc intrinsics.
393       return TCC_Basic;
394
395     case Intrinsic::assume:
396     case Intrinsic::dbg_declare:
397     case Intrinsic::dbg_value:
398     case Intrinsic::invariant_start:
399     case Intrinsic::invariant_end:
400     case Intrinsic::lifetime_start:
401     case Intrinsic::lifetime_end:
402     case Intrinsic::objectsize:
403     case Intrinsic::ptr_annotation:
404     case Intrinsic::var_annotation:
405       // These intrinsics don't actually represent code after lowering.
406       return TCC_Free;
407     }
408   }
409
410   unsigned
411   getIntrinsicCost(Intrinsic::ID IID, Type *RetTy,
412                    ArrayRef<const Value *> Arguments) const override {
413     // Delegate to the generic intrinsic handling code. This mostly provides an
414     // opportunity for targets to (for example) special case the cost of
415     // certain intrinsics based on constants used as arguments.
416     SmallVector<Type *, 8> ParamTys;
417     ParamTys.reserve(Arguments.size());
418     for (unsigned Idx = 0, Size = Arguments.size(); Idx != Size; ++Idx)
419       ParamTys.push_back(Arguments[Idx]->getType());
420     return TopTTI->getIntrinsicCost(IID, RetTy, ParamTys);
421   }
422
423   unsigned getUserCost(const User *U) const override {
424     if (isa<PHINode>(U))
425       return TCC_Free; // Model all PHI nodes as free.
426
427     if (const GEPOperator *GEP = dyn_cast<GEPOperator>(U)) {
428       SmallVector<const Value *, 4> Indices(GEP->idx_begin(), GEP->idx_end());
429       return TopTTI->getGEPCost(GEP->getPointerOperand(), Indices);
430     }
431
432     if (ImmutableCallSite CS = U) {
433       const Function *F = CS.getCalledFunction();
434       if (!F) {
435         // Just use the called value type.
436         Type *FTy = CS.getCalledValue()->getType()->getPointerElementType();
437         return TopTTI->getCallCost(cast<FunctionType>(FTy), CS.arg_size());
438       }
439
440       SmallVector<const Value *, 8> Arguments(CS.arg_begin(), CS.arg_end());
441       return TopTTI->getCallCost(F, Arguments);
442     }
443
444     if (const CastInst *CI = dyn_cast<CastInst>(U)) {
445       // Result of a cmp instruction is often extended (to be used by other
446       // cmp instructions, logical or return instructions). These are usually
447       // nop on most sane targets.
448       if (isa<CmpInst>(CI->getOperand(0)))
449         return TCC_Free;
450     }
451
452     // Otherwise delegate to the fully generic implementations.
453     return getOperationCost(Operator::getOpcode(U), U->getType(),
454                             U->getNumOperands() == 1 ?
455                                 U->getOperand(0)->getType() : nullptr);
456   }
457
458   bool hasBranchDivergence() const override { return false; }
459
460   bool isLoweredToCall(const Function *F) const override {
461     // FIXME: These should almost certainly not be handled here, and instead
462     // handled with the help of TLI or the target itself. This was largely
463     // ported from existing analysis heuristics here so that such refactorings
464     // can take place in the future.
465
466     if (F->isIntrinsic())
467       return false;
468
469     if (F->hasLocalLinkage() || !F->hasName())
470       return true;
471
472     StringRef Name = F->getName();
473
474     // These will all likely lower to a single selection DAG node.
475     if (Name == "copysign" || Name == "copysignf" || Name == "copysignl" ||
476         Name == "fabs" || Name == "fabsf" || Name == "fabsl" || Name == "sin" ||
477         Name == "sinf" || Name == "sinl" || Name == "cos" || Name == "cosf" ||
478         Name == "cosl" || Name == "sqrt" || Name == "sqrtf" || Name == "sqrtl")
479       return false;
480
481     // These are all likely to be optimized into something smaller.
482     if (Name == "pow" || Name == "powf" || Name == "powl" || Name == "exp2" ||
483         Name == "exp2l" || Name == "exp2f" || Name == "floor" || Name ==
484         "floorf" || Name == "ceil" || Name == "round" || Name == "ffs" ||
485         Name == "ffsl" || Name == "abs" || Name == "labs" || Name == "llabs")
486       return false;
487
488     return true;
489   }
490
491   void getUnrollingPreferences(const Function *, Loop *,
492                                UnrollingPreferences &) const override {}
493
494   bool isLegalAddImmediate(int64_t Imm) const override {
495     return false;
496   }
497
498   bool isLegalICmpImmediate(int64_t Imm) const override {
499     return false;
500   }
501
502   bool isLegalAddressingMode(Type *Ty, GlobalValue *BaseGV, int64_t BaseOffset,
503                              bool HasBaseReg, int64_t Scale) const override
504   {
505     // Guess that reg+reg addressing is allowed. This heuristic is taken from
506     // the implementation of LSR.
507     return !BaseGV && BaseOffset == 0 && Scale <= 1;
508   }
509
510   int getScalingFactorCost(Type *Ty, GlobalValue *BaseGV, int64_t BaseOffset,
511                            bool HasBaseReg, int64_t Scale) const override {
512     // Guess that all legal addressing mode are free.
513     if(isLegalAddressingMode(Ty, BaseGV, BaseOffset, HasBaseReg, Scale))
514       return 0;
515     return -1;
516   }
517
518   bool isTruncateFree(Type *Ty1, Type *Ty2) const override {
519     return false;
520   }
521
522   bool isTypeLegal(Type *Ty) const override {
523     return false;
524   }
525
526   unsigned getJumpBufAlignment() const override {
527     return 0;
528   }
529
530   unsigned getJumpBufSize() const override {
531     return 0;
532   }
533
534   bool shouldBuildLookupTables() const override {
535     return true;
536   }
537
538   PopcntSupportKind
539   getPopcntSupport(unsigned IntTyWidthInBit) const override {
540     return PSK_Software;
541   }
542
543   bool haveFastSqrt(Type *Ty) const override {
544     return false;
545   }
546
547   unsigned getIntImmCost(const APInt &Imm, Type *Ty) const override {
548     return TCC_Basic;
549   }
550
551   unsigned getIntImmCost(unsigned Opcode, unsigned Idx, const APInt &Imm,
552                          Type *Ty) const override {
553     return TCC_Free;
554   }
555
556   unsigned getIntImmCost(Intrinsic::ID IID, unsigned Idx, const APInt &Imm,
557                          Type *Ty) const override {
558     return TCC_Free;
559   }
560
561   unsigned getNumberOfRegisters(bool Vector) const override {
562     return 8;
563   }
564
565   unsigned  getRegisterBitWidth(bool Vector) const override {
566     return 32;
567   }
568
569   unsigned getMaxInterleaveFactor() const override {
570     return 1;
571   }
572
573   unsigned getArithmeticInstrCost(unsigned Opcode, Type *Ty, OperandValueKind,
574                                   OperandValueKind, OperandValueProperties,
575                                   OperandValueProperties) const override {
576     return 1;
577   }
578
579   unsigned getShuffleCost(ShuffleKind Kind, Type *Ty,
580                           int Index = 0, Type *SubTp = nullptr) const override {
581     return 1;
582   }
583
584   unsigned getCastInstrCost(unsigned Opcode, Type *Dst,
585                             Type *Src) const override {
586     return 1;
587   }
588
589   unsigned getCFInstrCost(unsigned Opcode) const override {
590     return 1;
591   }
592
593   unsigned getCmpSelInstrCost(unsigned Opcode, Type *ValTy,
594                               Type *CondTy = nullptr) const override {
595     return 1;
596   }
597
598   unsigned getVectorInstrCost(unsigned Opcode, Type *Val,
599                               unsigned Index = -1) const override {
600     return 1;
601   }
602
603   unsigned getMemoryOpCost(unsigned Opcode, Type *Src, unsigned Alignment,
604                            unsigned AddressSpace) const override {
605     return 1;
606   }
607
608   unsigned getIntrinsicInstrCost(Intrinsic::ID ID, Type *RetTy,
609                                  ArrayRef<Type*> Tys) const override {
610     return 1;
611   }
612
613   unsigned getNumberOfParts(Type *Tp) const override {
614     return 0;
615   }
616
617   unsigned getAddressComputationCost(Type *Tp, bool) const override {
618     return 0;
619   }
620
621   unsigned getReductionCost(unsigned, Type *, bool) const override {
622     return 1;
623   }
624
625   unsigned getCostOfKeepingLiveOverCall(ArrayRef<Type*> Tys) const override {
626     return 0;
627   }
628
629 };
630
631 } // end anonymous namespace
632
633 INITIALIZE_AG_PASS(NoTTI, TargetTransformInfo, "notti",
634                    "No target information", true, true, true)
635 char NoTTI::ID = 0;
636
637 ImmutablePass *llvm::createNoTargetTransformInfoPass() {
638   return new NoTTI();
639 }