annotate clang/lib/CodeGen/CGDeclCXX.cpp @ 232:70dce7da266c llvm-original

llvm original Jul 20 16:41:34 2021
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 21 Jul 2021 10:27:27 +0900
parents 79ff65ed7e25
children c4bab56944e8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
150
anatofuz
parents:
diff changeset
1 //===--- CGDeclCXX.cpp - Emit LLVM Code for C++ declarations --------------===//
anatofuz
parents:
diff changeset
2 //
anatofuz
parents:
diff changeset
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
anatofuz
parents:
diff changeset
4 // See https://llvm.org/LICENSE.txt for license information.
anatofuz
parents:
diff changeset
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
anatofuz
parents:
diff changeset
6 //
anatofuz
parents:
diff changeset
7 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
8 //
anatofuz
parents:
diff changeset
9 // This contains code dealing with code generation of C++ declarations
anatofuz
parents:
diff changeset
10 //
anatofuz
parents:
diff changeset
11 //===----------------------------------------------------------------------===//
anatofuz
parents:
diff changeset
12
anatofuz
parents:
diff changeset
13 #include "CGCXXABI.h"
anatofuz
parents:
diff changeset
14 #include "CGObjCRuntime.h"
anatofuz
parents:
diff changeset
15 #include "CGOpenMPRuntime.h"
anatofuz
parents:
diff changeset
16 #include "CodeGenFunction.h"
anatofuz
parents:
diff changeset
17 #include "TargetInfo.h"
anatofuz
parents:
diff changeset
18 #include "clang/AST/Attr.h"
173
0572611fdcc8 reorgnization done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 150
diff changeset
19 #include "clang/Basic/LangOptions.h"
150
anatofuz
parents:
diff changeset
20 #include "llvm/ADT/StringExtras.h"
anatofuz
parents:
diff changeset
21 #include "llvm/IR/Intrinsics.h"
anatofuz
parents:
diff changeset
22 #include "llvm/IR/MDBuilder.h"
anatofuz
parents:
diff changeset
23 #include "llvm/Support/Path.h"
anatofuz
parents:
diff changeset
24
anatofuz
parents:
diff changeset
25 using namespace clang;
anatofuz
parents:
diff changeset
26 using namespace CodeGen;
anatofuz
parents:
diff changeset
27
anatofuz
parents:
diff changeset
28 static void EmitDeclInit(CodeGenFunction &CGF, const VarDecl &D,
anatofuz
parents:
diff changeset
29 ConstantAddress DeclPtr) {
anatofuz
parents:
diff changeset
30 assert(
anatofuz
parents:
diff changeset
31 (D.hasGlobalStorage() ||
anatofuz
parents:
diff changeset
32 (D.hasLocalStorage() && CGF.getContext().getLangOpts().OpenCLCPlusPlus)) &&
anatofuz
parents:
diff changeset
33 "VarDecl must have global or local (in the case of OpenCL) storage!");
anatofuz
parents:
diff changeset
34 assert(!D.getType()->isReferenceType() &&
anatofuz
parents:
diff changeset
35 "Should not call EmitDeclInit on a reference!");
anatofuz
parents:
diff changeset
36
anatofuz
parents:
diff changeset
37 QualType type = D.getType();
anatofuz
parents:
diff changeset
38 LValue lv = CGF.MakeAddrLValue(DeclPtr, type);
anatofuz
parents:
diff changeset
39
anatofuz
parents:
diff changeset
40 const Expr *Init = D.getInit();
anatofuz
parents:
diff changeset
41 switch (CGF.getEvaluationKind(type)) {
anatofuz
parents:
diff changeset
42 case TEK_Scalar: {
anatofuz
parents:
diff changeset
43 CodeGenModule &CGM = CGF.CGM;
anatofuz
parents:
diff changeset
44 if (lv.isObjCStrong())
anatofuz
parents:
diff changeset
45 CGM.getObjCRuntime().EmitObjCGlobalAssign(CGF, CGF.EmitScalarExpr(Init),
anatofuz
parents:
diff changeset
46 DeclPtr, D.getTLSKind());
anatofuz
parents:
diff changeset
47 else if (lv.isObjCWeak())
anatofuz
parents:
diff changeset
48 CGM.getObjCRuntime().EmitObjCWeakAssign(CGF, CGF.EmitScalarExpr(Init),
anatofuz
parents:
diff changeset
49 DeclPtr);
anatofuz
parents:
diff changeset
50 else
anatofuz
parents:
diff changeset
51 CGF.EmitScalarInit(Init, &D, lv, false);
anatofuz
parents:
diff changeset
52 return;
anatofuz
parents:
diff changeset
53 }
anatofuz
parents:
diff changeset
54 case TEK_Complex:
anatofuz
parents:
diff changeset
55 CGF.EmitComplexExprIntoLValue(Init, lv, /*isInit*/ true);
anatofuz
parents:
diff changeset
56 return;
anatofuz
parents:
diff changeset
57 case TEK_Aggregate:
anatofuz
parents:
diff changeset
58 CGF.EmitAggExpr(Init,
anatofuz
parents:
diff changeset
59 AggValueSlot::forLValue(lv, CGF, AggValueSlot::IsDestructed,
anatofuz
parents:
diff changeset
60 AggValueSlot::DoesNotNeedGCBarriers,
anatofuz
parents:
diff changeset
61 AggValueSlot::IsNotAliased,
anatofuz
parents:
diff changeset
62 AggValueSlot::DoesNotOverlap));
anatofuz
parents:
diff changeset
63 return;
anatofuz
parents:
diff changeset
64 }
anatofuz
parents:
diff changeset
65 llvm_unreachable("bad evaluation kind");
anatofuz
parents:
diff changeset
66 }
anatofuz
parents:
diff changeset
67
anatofuz
parents:
diff changeset
68 /// Emit code to cause the destruction of the given variable with
anatofuz
parents:
diff changeset
69 /// static storage duration.
anatofuz
parents:
diff changeset
70 static void EmitDeclDestroy(CodeGenFunction &CGF, const VarDecl &D,
anatofuz
parents:
diff changeset
71 ConstantAddress Addr) {
anatofuz
parents:
diff changeset
72 // Honor __attribute__((no_destroy)) and bail instead of attempting
anatofuz
parents:
diff changeset
73 // to emit a reference to a possibly nonexistent destructor, which
anatofuz
parents:
diff changeset
74 // in turn can cause a crash. This will result in a global constructor
anatofuz
parents:
diff changeset
75 // that isn't balanced out by a destructor call as intended by the
anatofuz
parents:
diff changeset
76 // attribute. This also checks for -fno-c++-static-destructors and
anatofuz
parents:
diff changeset
77 // bails even if the attribute is not present.
anatofuz
parents:
diff changeset
78 QualType::DestructionKind DtorKind = D.needsDestruction(CGF.getContext());
anatofuz
parents:
diff changeset
79
anatofuz
parents:
diff changeset
80 // FIXME: __attribute__((cleanup)) ?
anatofuz
parents:
diff changeset
81
anatofuz
parents:
diff changeset
82 switch (DtorKind) {
anatofuz
parents:
diff changeset
83 case QualType::DK_none:
anatofuz
parents:
diff changeset
84 return;
anatofuz
parents:
diff changeset
85
anatofuz
parents:
diff changeset
86 case QualType::DK_cxx_destructor:
anatofuz
parents:
diff changeset
87 break;
anatofuz
parents:
diff changeset
88
anatofuz
parents:
diff changeset
89 case QualType::DK_objc_strong_lifetime:
anatofuz
parents:
diff changeset
90 case QualType::DK_objc_weak_lifetime:
anatofuz
parents:
diff changeset
91 case QualType::DK_nontrivial_c_struct:
anatofuz
parents:
diff changeset
92 // We don't care about releasing objects during process teardown.
anatofuz
parents:
diff changeset
93 assert(!D.getTLSKind() && "should have rejected this");
anatofuz
parents:
diff changeset
94 return;
anatofuz
parents:
diff changeset
95 }
anatofuz
parents:
diff changeset
96
anatofuz
parents:
diff changeset
97 llvm::FunctionCallee Func;
anatofuz
parents:
diff changeset
98 llvm::Constant *Argument;
anatofuz
parents:
diff changeset
99
anatofuz
parents:
diff changeset
100 CodeGenModule &CGM = CGF.CGM;
anatofuz
parents:
diff changeset
101 QualType Type = D.getType();
anatofuz
parents:
diff changeset
102
anatofuz
parents:
diff changeset
103 // Special-case non-array C++ destructors, if they have the right signature.
anatofuz
parents:
diff changeset
104 // Under some ABIs, destructors return this instead of void, and cannot be
anatofuz
parents:
diff changeset
105 // passed directly to __cxa_atexit if the target does not allow this
anatofuz
parents:
diff changeset
106 // mismatch.
anatofuz
parents:
diff changeset
107 const CXXRecordDecl *Record = Type->getAsCXXRecordDecl();
anatofuz
parents:
diff changeset
108 bool CanRegisterDestructor =
anatofuz
parents:
diff changeset
109 Record && (!CGM.getCXXABI().HasThisReturn(
anatofuz
parents:
diff changeset
110 GlobalDecl(Record->getDestructor(), Dtor_Complete)) ||
anatofuz
parents:
diff changeset
111 CGM.getCXXABI().canCallMismatchedFunctionType());
anatofuz
parents:
diff changeset
112 // If __cxa_atexit is disabled via a flag, a different helper function is
anatofuz
parents:
diff changeset
113 // generated elsewhere which uses atexit instead, and it takes the destructor
anatofuz
parents:
diff changeset
114 // directly.
anatofuz
parents:
diff changeset
115 bool UsingExternalHelper = !CGM.getCodeGenOpts().CXAAtExit;
anatofuz
parents:
diff changeset
116 if (Record && (CanRegisterDestructor || UsingExternalHelper)) {
anatofuz
parents:
diff changeset
117 assert(!Record->hasTrivialDestructor());
anatofuz
parents:
diff changeset
118 CXXDestructorDecl *Dtor = Record->getDestructor();
anatofuz
parents:
diff changeset
119
anatofuz
parents:
diff changeset
120 Func = CGM.getAddrAndTypeOfCXXStructor(GlobalDecl(Dtor, Dtor_Complete));
anatofuz
parents:
diff changeset
121 if (CGF.getContext().getLangOpts().OpenCL) {
anatofuz
parents:
diff changeset
122 auto DestAS =
anatofuz
parents:
diff changeset
123 CGM.getTargetCodeGenInfo().getAddrSpaceOfCxaAtexitPtrParam();
anatofuz
parents:
diff changeset
124 auto DestTy = CGF.getTypes().ConvertType(Type)->getPointerTo(
anatofuz
parents:
diff changeset
125 CGM.getContext().getTargetAddressSpace(DestAS));
anatofuz
parents:
diff changeset
126 auto SrcAS = D.getType().getQualifiers().getAddressSpace();
anatofuz
parents:
diff changeset
127 if (DestAS == SrcAS)
anatofuz
parents:
diff changeset
128 Argument = llvm::ConstantExpr::getBitCast(Addr.getPointer(), DestTy);
anatofuz
parents:
diff changeset
129 else
anatofuz
parents:
diff changeset
130 // FIXME: On addr space mismatch we are passing NULL. The generation
anatofuz
parents:
diff changeset
131 // of the global destructor function should be adjusted accordingly.
anatofuz
parents:
diff changeset
132 Argument = llvm::ConstantPointerNull::get(DestTy);
anatofuz
parents:
diff changeset
133 } else {
anatofuz
parents:
diff changeset
134 Argument = llvm::ConstantExpr::getBitCast(
anatofuz
parents:
diff changeset
135 Addr.getPointer(), CGF.getTypes().ConvertType(Type)->getPointerTo());
anatofuz
parents:
diff changeset
136 }
anatofuz
parents:
diff changeset
137 // Otherwise, the standard logic requires a helper function.
anatofuz
parents:
diff changeset
138 } else {
anatofuz
parents:
diff changeset
139 Func = CodeGenFunction(CGM)
anatofuz
parents:
diff changeset
140 .generateDestroyHelper(Addr, Type, CGF.getDestroyer(DtorKind),
anatofuz
parents:
diff changeset
141 CGF.needsEHCleanup(DtorKind), &D);
anatofuz
parents:
diff changeset
142 Argument = llvm::Constant::getNullValue(CGF.Int8PtrTy);
anatofuz
parents:
diff changeset
143 }
anatofuz
parents:
diff changeset
144
anatofuz
parents:
diff changeset
145 CGM.getCXXABI().registerGlobalDtor(CGF, D, Func, Argument);
anatofuz
parents:
diff changeset
146 }
anatofuz
parents:
diff changeset
147
anatofuz
parents:
diff changeset
148 /// Emit code to cause the variable at the given address to be considered as
anatofuz
parents:
diff changeset
149 /// constant from this point onwards.
anatofuz
parents:
diff changeset
150 static void EmitDeclInvariant(CodeGenFunction &CGF, const VarDecl &D,
anatofuz
parents:
diff changeset
151 llvm::Constant *Addr) {
anatofuz
parents:
diff changeset
152 return CGF.EmitInvariantStart(
anatofuz
parents:
diff changeset
153 Addr, CGF.getContext().getTypeSizeInChars(D.getType()));
anatofuz
parents:
diff changeset
154 }
anatofuz
parents:
diff changeset
155
anatofuz
parents:
diff changeset
156 void CodeGenFunction::EmitInvariantStart(llvm::Constant *Addr, CharUnits Size) {
anatofuz
parents:
diff changeset
157 // Do not emit the intrinsic if we're not optimizing.
anatofuz
parents:
diff changeset
158 if (!CGM.getCodeGenOpts().OptimizationLevel)
anatofuz
parents:
diff changeset
159 return;
anatofuz
parents:
diff changeset
160
anatofuz
parents:
diff changeset
161 // Grab the llvm.invariant.start intrinsic.
anatofuz
parents:
diff changeset
162 llvm::Intrinsic::ID InvStartID = llvm::Intrinsic::invariant_start;
anatofuz
parents:
diff changeset
163 // Overloaded address space type.
anatofuz
parents:
diff changeset
164 llvm::Type *ObjectPtr[1] = {Int8PtrTy};
anatofuz
parents:
diff changeset
165 llvm::Function *InvariantStart = CGM.getIntrinsic(InvStartID, ObjectPtr);
anatofuz
parents:
diff changeset
166
anatofuz
parents:
diff changeset
167 // Emit a call with the size in bytes of the object.
anatofuz
parents:
diff changeset
168 uint64_t Width = Size.getQuantity();
anatofuz
parents:
diff changeset
169 llvm::Value *Args[2] = { llvm::ConstantInt::getSigned(Int64Ty, Width),
anatofuz
parents:
diff changeset
170 llvm::ConstantExpr::getBitCast(Addr, Int8PtrTy)};
anatofuz
parents:
diff changeset
171 Builder.CreateCall(InvariantStart, Args);
anatofuz
parents:
diff changeset
172 }
anatofuz
parents:
diff changeset
173
anatofuz
parents:
diff changeset
174 void CodeGenFunction::EmitCXXGlobalVarDeclInit(const VarDecl &D,
anatofuz
parents:
diff changeset
175 llvm::Constant *DeclPtr,
anatofuz
parents:
diff changeset
176 bool PerformInit) {
anatofuz
parents:
diff changeset
177
anatofuz
parents:
diff changeset
178 const Expr *Init = D.getInit();
anatofuz
parents:
diff changeset
179 QualType T = D.getType();
anatofuz
parents:
diff changeset
180
anatofuz
parents:
diff changeset
181 // The address space of a static local variable (DeclPtr) may be different
anatofuz
parents:
diff changeset
182 // from the address space of the "this" argument of the constructor. In that
anatofuz
parents:
diff changeset
183 // case, we need an addrspacecast before calling the constructor.
anatofuz
parents:
diff changeset
184 //
anatofuz
parents:
diff changeset
185 // struct StructWithCtor {
anatofuz
parents:
diff changeset
186 // __device__ StructWithCtor() {...}
anatofuz
parents:
diff changeset
187 // };
anatofuz
parents:
diff changeset
188 // __device__ void foo() {
anatofuz
parents:
diff changeset
189 // __shared__ StructWithCtor s;
anatofuz
parents:
diff changeset
190 // ...
anatofuz
parents:
diff changeset
191 // }
anatofuz
parents:
diff changeset
192 //
anatofuz
parents:
diff changeset
193 // For example, in the above CUDA code, the static local variable s has a
anatofuz
parents:
diff changeset
194 // "shared" address space qualifier, but the constructor of StructWithCtor
anatofuz
parents:
diff changeset
195 // expects "this" in the "generic" address space.
anatofuz
parents:
diff changeset
196 unsigned ExpectedAddrSpace = getContext().getTargetAddressSpace(T);
anatofuz
parents:
diff changeset
197 unsigned ActualAddrSpace = DeclPtr->getType()->getPointerAddressSpace();
anatofuz
parents:
diff changeset
198 if (ActualAddrSpace != ExpectedAddrSpace) {
anatofuz
parents:
diff changeset
199 llvm::Type *LTy = CGM.getTypes().ConvertTypeForMem(T);
anatofuz
parents:
diff changeset
200 llvm::PointerType *PTy = llvm::PointerType::get(LTy, ExpectedAddrSpace);
anatofuz
parents:
diff changeset
201 DeclPtr = llvm::ConstantExpr::getAddrSpaceCast(DeclPtr, PTy);
anatofuz
parents:
diff changeset
202 }
anatofuz
parents:
diff changeset
203
anatofuz
parents:
diff changeset
204 ConstantAddress DeclAddr(DeclPtr, getContext().getDeclAlign(&D));
anatofuz
parents:
diff changeset
205
anatofuz
parents:
diff changeset
206 if (!T->isReferenceType()) {
anatofuz
parents:
diff changeset
207 if (getLangOpts().OpenMP && !getLangOpts().OpenMPSimd &&
anatofuz
parents:
diff changeset
208 D.hasAttr<OMPThreadPrivateDeclAttr>()) {
anatofuz
parents:
diff changeset
209 (void)CGM.getOpenMPRuntime().emitThreadPrivateVarDefinition(
anatofuz
parents:
diff changeset
210 &D, DeclAddr, D.getAttr<OMPThreadPrivateDeclAttr>()->getLocation(),
anatofuz
parents:
diff changeset
211 PerformInit, this);
anatofuz
parents:
diff changeset
212 }
anatofuz
parents:
diff changeset
213 if (PerformInit)
anatofuz
parents:
diff changeset
214 EmitDeclInit(*this, D, DeclAddr);
anatofuz
parents:
diff changeset
215 if (CGM.isTypeConstant(D.getType(), true))
anatofuz
parents:
diff changeset
216 EmitDeclInvariant(*this, D, DeclPtr);
anatofuz
parents:
diff changeset
217 else
anatofuz
parents:
diff changeset
218 EmitDeclDestroy(*this, D, DeclAddr);
anatofuz
parents:
diff changeset
219 return;
anatofuz
parents:
diff changeset
220 }
anatofuz
parents:
diff changeset
221
anatofuz
parents:
diff changeset
222 assert(PerformInit && "cannot have constant initializer which needs "
anatofuz
parents:
diff changeset
223 "destruction for reference");
anatofuz
parents:
diff changeset
224 RValue RV = EmitReferenceBindingToExpr(Init);
anatofuz
parents:
diff changeset
225 EmitStoreOfScalar(RV.getScalarVal(), DeclAddr, false, T);
anatofuz
parents:
diff changeset
226 }
anatofuz
parents:
diff changeset
227
anatofuz
parents:
diff changeset
228 /// Create a stub function, suitable for being passed to atexit,
anatofuz
parents:
diff changeset
229 /// which passes the given address to the given destructor function.
anatofuz
parents:
diff changeset
230 llvm::Function *CodeGenFunction::createAtExitStub(const VarDecl &VD,
anatofuz
parents:
diff changeset
231 llvm::FunctionCallee dtor,
anatofuz
parents:
diff changeset
232 llvm::Constant *addr) {
anatofuz
parents:
diff changeset
233 // Get the destructor function type, void(*)(void).
anatofuz
parents:
diff changeset
234 llvm::FunctionType *ty = llvm::FunctionType::get(CGM.VoidTy, false);
anatofuz
parents:
diff changeset
235 SmallString<256> FnName;
anatofuz
parents:
diff changeset
236 {
anatofuz
parents:
diff changeset
237 llvm::raw_svector_ostream Out(FnName);
anatofuz
parents:
diff changeset
238 CGM.getCXXABI().getMangleContext().mangleDynamicAtExitDestructor(&VD, Out);
anatofuz
parents:
diff changeset
239 }
anatofuz
parents:
diff changeset
240
anatofuz
parents:
diff changeset
241 const CGFunctionInfo &FI = CGM.getTypes().arrangeNullaryFunction();
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
242 llvm::Function *fn = CGM.CreateGlobalInitOrCleanUpFunction(
150
anatofuz
parents:
diff changeset
243 ty, FnName.str(), FI, VD.getLocation());
anatofuz
parents:
diff changeset
244
anatofuz
parents:
diff changeset
245 CodeGenFunction CGF(CGM);
anatofuz
parents:
diff changeset
246
anatofuz
parents:
diff changeset
247 CGF.StartFunction(GlobalDecl(&VD, DynamicInitKind::AtExit),
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
248 CGM.getContext().VoidTy, fn, FI, FunctionArgList(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
249 VD.getLocation(), VD.getInit()->getExprLoc());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
250 // Emit an artificial location for this function.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
251 auto AL = ApplyDebugLocation::CreateArtificial(CGF);
150
anatofuz
parents:
diff changeset
252
anatofuz
parents:
diff changeset
253 llvm::CallInst *call = CGF.Builder.CreateCall(dtor, addr);
anatofuz
parents:
diff changeset
254
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
255 // Make sure the call and the callee agree on calling convention.
150
anatofuz
parents:
diff changeset
256 if (auto *dtorFn = dyn_cast<llvm::Function>(
anatofuz
parents:
diff changeset
257 dtor.getCallee()->stripPointerCastsAndAliases()))
anatofuz
parents:
diff changeset
258 call->setCallingConv(dtorFn->getCallingConv());
anatofuz
parents:
diff changeset
259
anatofuz
parents:
diff changeset
260 CGF.FinishFunction();
anatofuz
parents:
diff changeset
261
anatofuz
parents:
diff changeset
262 return fn;
anatofuz
parents:
diff changeset
263 }
anatofuz
parents:
diff changeset
264
232
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
265 /// Create a stub function, suitable for being passed to __pt_atexit_np,
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
266 /// which passes the given address to the given destructor function.
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
267 llvm::Function *CodeGenFunction::createTLSAtExitStub(
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
268 const VarDecl &D, llvm::FunctionCallee Dtor, llvm::Constant *Addr,
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
269 llvm::FunctionCallee &AtExit) {
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
270 SmallString<256> FnName;
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
271 {
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
272 llvm::raw_svector_ostream Out(FnName);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
273 CGM.getCXXABI().getMangleContext().mangleDynamicAtExitDestructor(&D, Out);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
274 }
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
275
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
276 const CGFunctionInfo &FI = CGM.getTypes().arrangeLLVMFunctionInfo(
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
277 getContext().IntTy, /*instanceMethod=*/false, /*chainCall=*/false,
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
278 {getContext().IntTy}, FunctionType::ExtInfo(), {}, RequiredArgs::All);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
279
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
280 // Get the stub function type, int(*)(int,...).
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
281 llvm::FunctionType *StubTy =
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
282 llvm::FunctionType::get(CGM.IntTy, {CGM.IntTy}, true);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
283
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
284 llvm::Function *DtorStub = CGM.CreateGlobalInitOrCleanUpFunction(
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
285 StubTy, FnName.str(), FI, D.getLocation());
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
286
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
287 CodeGenFunction CGF(CGM);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
288
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
289 FunctionArgList Args;
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
290 ImplicitParamDecl IPD(CGM.getContext(), CGM.getContext().IntTy,
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
291 ImplicitParamDecl::Other);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
292 Args.push_back(&IPD);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
293 QualType ResTy = CGM.getContext().IntTy;
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
294
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
295 CGF.StartFunction(GlobalDecl(&D, DynamicInitKind::AtExit), ResTy, DtorStub,
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
296 FI, Args, D.getLocation(), D.getInit()->getExprLoc());
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
297
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
298 // Emit an artificial location for this function.
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
299 auto AL = ApplyDebugLocation::CreateArtificial(CGF);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
300
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
301 llvm::CallInst *call = CGF.Builder.CreateCall(Dtor, Addr);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
302
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
303 // Make sure the call and the callee agree on calling convention.
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
304 if (auto *DtorFn = dyn_cast<llvm::Function>(
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
305 Dtor.getCallee()->stripPointerCastsAndAliases()))
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
306 call->setCallingConv(DtorFn->getCallingConv());
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
307
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
308 // Return 0 from function
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
309 CGF.Builder.CreateStore(llvm::Constant::getNullValue(CGM.IntTy),
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
310 CGF.ReturnValue);
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
311
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
312 CGF.FinishFunction();
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
313
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
314 return DtorStub;
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
315 }
70dce7da266c llvm original Jul 20 16:41:34 2021
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 221
diff changeset
316
150
anatofuz
parents:
diff changeset
317 /// Register a global destructor using the C atexit runtime function.
anatofuz
parents:
diff changeset
318 void CodeGenFunction::registerGlobalDtorWithAtExit(const VarDecl &VD,
anatofuz
parents:
diff changeset
319 llvm::FunctionCallee dtor,
anatofuz
parents:
diff changeset
320 llvm::Constant *addr) {
anatofuz
parents:
diff changeset
321 // Create a function which calls the destructor.
anatofuz
parents:
diff changeset
322 llvm::Constant *dtorStub = createAtExitStub(VD, dtor, addr);
anatofuz
parents:
diff changeset
323 registerGlobalDtorWithAtExit(dtorStub);
anatofuz
parents:
diff changeset
324 }
anatofuz
parents:
diff changeset
325
anatofuz
parents:
diff changeset
326 void CodeGenFunction::registerGlobalDtorWithAtExit(llvm::Constant *dtorStub) {
anatofuz
parents:
diff changeset
327 // extern "C" int atexit(void (*f)(void));
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
328 assert(dtorStub->getType() ==
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
329 llvm::PointerType::get(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
330 llvm::FunctionType::get(CGM.VoidTy, false),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
331 dtorStub->getType()->getPointerAddressSpace()) &&
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
332 "Argument to atexit has a wrong type.");
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
333
150
anatofuz
parents:
diff changeset
334 llvm::FunctionType *atexitTy =
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
335 llvm::FunctionType::get(IntTy, dtorStub->getType(), false);
150
anatofuz
parents:
diff changeset
336
anatofuz
parents:
diff changeset
337 llvm::FunctionCallee atexit =
anatofuz
parents:
diff changeset
338 CGM.CreateRuntimeFunction(atexitTy, "atexit", llvm::AttributeList(),
anatofuz
parents:
diff changeset
339 /*Local=*/true);
anatofuz
parents:
diff changeset
340 if (llvm::Function *atexitFn = dyn_cast<llvm::Function>(atexit.getCallee()))
anatofuz
parents:
diff changeset
341 atexitFn->setDoesNotThrow();
anatofuz
parents:
diff changeset
342
anatofuz
parents:
diff changeset
343 EmitNounwindRuntimeCall(atexit, dtorStub);
anatofuz
parents:
diff changeset
344 }
anatofuz
parents:
diff changeset
345
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
346 llvm::Value *
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
347 CodeGenFunction::unregisterGlobalDtorWithUnAtExit(llvm::Constant *dtorStub) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
348 // The unatexit subroutine unregisters __dtor functions that were previously
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
349 // registered by the atexit subroutine. If the referenced function is found,
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
350 // it is removed from the list of functions that are called at normal program
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
351 // termination and the unatexit returns a value of 0, otherwise a non-zero
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
352 // value is returned.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
353 //
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
354 // extern "C" int unatexit(void (*f)(void));
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
355 assert(dtorStub->getType() ==
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
356 llvm::PointerType::get(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
357 llvm::FunctionType::get(CGM.VoidTy, false),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
358 dtorStub->getType()->getPointerAddressSpace()) &&
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
359 "Argument to unatexit has a wrong type.");
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
360
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
361 llvm::FunctionType *unatexitTy =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
362 llvm::FunctionType::get(IntTy, {dtorStub->getType()}, /*isVarArg=*/false);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
363
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
364 llvm::FunctionCallee unatexit =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
365 CGM.CreateRuntimeFunction(unatexitTy, "unatexit", llvm::AttributeList());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
366
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
367 cast<llvm::Function>(unatexit.getCallee())->setDoesNotThrow();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
368
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
369 return EmitNounwindRuntimeCall(unatexit, dtorStub);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
370 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
371
150
anatofuz
parents:
diff changeset
372 void CodeGenFunction::EmitCXXGuardedInit(const VarDecl &D,
anatofuz
parents:
diff changeset
373 llvm::GlobalVariable *DeclPtr,
anatofuz
parents:
diff changeset
374 bool PerformInit) {
anatofuz
parents:
diff changeset
375 // If we've been asked to forbid guard variables, emit an error now.
anatofuz
parents:
diff changeset
376 // This diagnostic is hard-coded for Darwin's use case; we can find
anatofuz
parents:
diff changeset
377 // better phrasing if someone else needs it.
anatofuz
parents:
diff changeset
378 if (CGM.getCodeGenOpts().ForbidGuardVariables)
anatofuz
parents:
diff changeset
379 CGM.Error(D.getLocation(),
anatofuz
parents:
diff changeset
380 "this initialization requires a guard variable, which "
anatofuz
parents:
diff changeset
381 "the kernel does not support");
anatofuz
parents:
diff changeset
382
anatofuz
parents:
diff changeset
383 CGM.getCXXABI().EmitGuardedInit(*this, D, DeclPtr, PerformInit);
anatofuz
parents:
diff changeset
384 }
anatofuz
parents:
diff changeset
385
anatofuz
parents:
diff changeset
386 void CodeGenFunction::EmitCXXGuardedInitBranch(llvm::Value *NeedsInit,
anatofuz
parents:
diff changeset
387 llvm::BasicBlock *InitBlock,
anatofuz
parents:
diff changeset
388 llvm::BasicBlock *NoInitBlock,
anatofuz
parents:
diff changeset
389 GuardKind Kind,
anatofuz
parents:
diff changeset
390 const VarDecl *D) {
anatofuz
parents:
diff changeset
391 assert((Kind == GuardKind::TlsGuard || D) && "no guarded variable");
anatofuz
parents:
diff changeset
392
anatofuz
parents:
diff changeset
393 // A guess at how many times we will enter the initialization of a
anatofuz
parents:
diff changeset
394 // variable, depending on the kind of variable.
anatofuz
parents:
diff changeset
395 static const uint64_t InitsPerTLSVar = 1024;
anatofuz
parents:
diff changeset
396 static const uint64_t InitsPerLocalVar = 1024 * 1024;
anatofuz
parents:
diff changeset
397
anatofuz
parents:
diff changeset
398 llvm::MDNode *Weights;
anatofuz
parents:
diff changeset
399 if (Kind == GuardKind::VariableGuard && !D->isLocalVarDecl()) {
anatofuz
parents:
diff changeset
400 // For non-local variables, don't apply any weighting for now. Due to our
anatofuz
parents:
diff changeset
401 // use of COMDATs, we expect there to be at most one initialization of the
anatofuz
parents:
diff changeset
402 // variable per DSO, but we have no way to know how many DSOs will try to
anatofuz
parents:
diff changeset
403 // initialize the variable.
anatofuz
parents:
diff changeset
404 Weights = nullptr;
anatofuz
parents:
diff changeset
405 } else {
anatofuz
parents:
diff changeset
406 uint64_t NumInits;
anatofuz
parents:
diff changeset
407 // FIXME: For the TLS case, collect and use profiling information to
anatofuz
parents:
diff changeset
408 // determine a more accurate brach weight.
anatofuz
parents:
diff changeset
409 if (Kind == GuardKind::TlsGuard || D->getTLSKind())
anatofuz
parents:
diff changeset
410 NumInits = InitsPerTLSVar;
anatofuz
parents:
diff changeset
411 else
anatofuz
parents:
diff changeset
412 NumInits = InitsPerLocalVar;
anatofuz
parents:
diff changeset
413
anatofuz
parents:
diff changeset
414 // The probability of us entering the initializer is
anatofuz
parents:
diff changeset
415 // 1 / (total number of times we attempt to initialize the variable).
anatofuz
parents:
diff changeset
416 llvm::MDBuilder MDHelper(CGM.getLLVMContext());
anatofuz
parents:
diff changeset
417 Weights = MDHelper.createBranchWeights(1, NumInits - 1);
anatofuz
parents:
diff changeset
418 }
anatofuz
parents:
diff changeset
419
anatofuz
parents:
diff changeset
420 Builder.CreateCondBr(NeedsInit, InitBlock, NoInitBlock, Weights);
anatofuz
parents:
diff changeset
421 }
anatofuz
parents:
diff changeset
422
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
423 llvm::Function *CodeGenModule::CreateGlobalInitOrCleanUpFunction(
150
anatofuz
parents:
diff changeset
424 llvm::FunctionType *FTy, const Twine &Name, const CGFunctionInfo &FI,
anatofuz
parents:
diff changeset
425 SourceLocation Loc, bool TLS) {
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
426 llvm::Function *Fn = llvm::Function::Create(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
427 FTy, llvm::GlobalValue::InternalLinkage, Name, &getModule());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
428
150
anatofuz
parents:
diff changeset
429 if (!getLangOpts().AppleKext && !TLS) {
anatofuz
parents:
diff changeset
430 // Set the section if needed.
anatofuz
parents:
diff changeset
431 if (const char *Section = getTarget().getStaticInitSectionSpecifier())
anatofuz
parents:
diff changeset
432 Fn->setSection(Section);
anatofuz
parents:
diff changeset
433 }
anatofuz
parents:
diff changeset
434
anatofuz
parents:
diff changeset
435 SetInternalFunctionAttributes(GlobalDecl(), Fn, FI);
anatofuz
parents:
diff changeset
436
anatofuz
parents:
diff changeset
437 Fn->setCallingConv(getRuntimeCC());
anatofuz
parents:
diff changeset
438
anatofuz
parents:
diff changeset
439 if (!getLangOpts().Exceptions)
anatofuz
parents:
diff changeset
440 Fn->setDoesNotThrow();
anatofuz
parents:
diff changeset
441
anatofuz
parents:
diff changeset
442 if (getLangOpts().Sanitize.has(SanitizerKind::Address) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
443 !isInNoSanitizeList(SanitizerKind::Address, Fn, Loc))
150
anatofuz
parents:
diff changeset
444 Fn->addFnAttr(llvm::Attribute::SanitizeAddress);
anatofuz
parents:
diff changeset
445
anatofuz
parents:
diff changeset
446 if (getLangOpts().Sanitize.has(SanitizerKind::KernelAddress) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
447 !isInNoSanitizeList(SanitizerKind::KernelAddress, Fn, Loc))
150
anatofuz
parents:
diff changeset
448 Fn->addFnAttr(llvm::Attribute::SanitizeAddress);
anatofuz
parents:
diff changeset
449
anatofuz
parents:
diff changeset
450 if (getLangOpts().Sanitize.has(SanitizerKind::HWAddress) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
451 !isInNoSanitizeList(SanitizerKind::HWAddress, Fn, Loc))
150
anatofuz
parents:
diff changeset
452 Fn->addFnAttr(llvm::Attribute::SanitizeHWAddress);
anatofuz
parents:
diff changeset
453
anatofuz
parents:
diff changeset
454 if (getLangOpts().Sanitize.has(SanitizerKind::KernelHWAddress) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
455 !isInNoSanitizeList(SanitizerKind::KernelHWAddress, Fn, Loc))
150
anatofuz
parents:
diff changeset
456 Fn->addFnAttr(llvm::Attribute::SanitizeHWAddress);
anatofuz
parents:
diff changeset
457
anatofuz
parents:
diff changeset
458 if (getLangOpts().Sanitize.has(SanitizerKind::MemTag) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
459 !isInNoSanitizeList(SanitizerKind::MemTag, Fn, Loc))
150
anatofuz
parents:
diff changeset
460 Fn->addFnAttr(llvm::Attribute::SanitizeMemTag);
anatofuz
parents:
diff changeset
461
anatofuz
parents:
diff changeset
462 if (getLangOpts().Sanitize.has(SanitizerKind::Thread) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
463 !isInNoSanitizeList(SanitizerKind::Thread, Fn, Loc))
150
anatofuz
parents:
diff changeset
464 Fn->addFnAttr(llvm::Attribute::SanitizeThread);
anatofuz
parents:
diff changeset
465
anatofuz
parents:
diff changeset
466 if (getLangOpts().Sanitize.has(SanitizerKind::Memory) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
467 !isInNoSanitizeList(SanitizerKind::Memory, Fn, Loc))
150
anatofuz
parents:
diff changeset
468 Fn->addFnAttr(llvm::Attribute::SanitizeMemory);
anatofuz
parents:
diff changeset
469
anatofuz
parents:
diff changeset
470 if (getLangOpts().Sanitize.has(SanitizerKind::KernelMemory) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
471 !isInNoSanitizeList(SanitizerKind::KernelMemory, Fn, Loc))
150
anatofuz
parents:
diff changeset
472 Fn->addFnAttr(llvm::Attribute::SanitizeMemory);
anatofuz
parents:
diff changeset
473
anatofuz
parents:
diff changeset
474 if (getLangOpts().Sanitize.has(SanitizerKind::SafeStack) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
475 !isInNoSanitizeList(SanitizerKind::SafeStack, Fn, Loc))
150
anatofuz
parents:
diff changeset
476 Fn->addFnAttr(llvm::Attribute::SafeStack);
anatofuz
parents:
diff changeset
477
anatofuz
parents:
diff changeset
478 if (getLangOpts().Sanitize.has(SanitizerKind::ShadowCallStack) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
479 !isInNoSanitizeList(SanitizerKind::ShadowCallStack, Fn, Loc))
150
anatofuz
parents:
diff changeset
480 Fn->addFnAttr(llvm::Attribute::ShadowCallStack);
anatofuz
parents:
diff changeset
481
anatofuz
parents:
diff changeset
482 return Fn;
anatofuz
parents:
diff changeset
483 }
anatofuz
parents:
diff changeset
484
anatofuz
parents:
diff changeset
485 /// Create a global pointer to a function that will initialize a global
anatofuz
parents:
diff changeset
486 /// variable. The user has requested that this pointer be emitted in a specific
anatofuz
parents:
diff changeset
487 /// section.
anatofuz
parents:
diff changeset
488 void CodeGenModule::EmitPointerToInitFunc(const VarDecl *D,
anatofuz
parents:
diff changeset
489 llvm::GlobalVariable *GV,
anatofuz
parents:
diff changeset
490 llvm::Function *InitFunc,
anatofuz
parents:
diff changeset
491 InitSegAttr *ISA) {
anatofuz
parents:
diff changeset
492 llvm::GlobalVariable *PtrArray = new llvm::GlobalVariable(
anatofuz
parents:
diff changeset
493 TheModule, InitFunc->getType(), /*isConstant=*/true,
anatofuz
parents:
diff changeset
494 llvm::GlobalValue::PrivateLinkage, InitFunc, "__cxx_init_fn_ptr");
anatofuz
parents:
diff changeset
495 PtrArray->setSection(ISA->getSection());
anatofuz
parents:
diff changeset
496 addUsedGlobal(PtrArray);
anatofuz
parents:
diff changeset
497
anatofuz
parents:
diff changeset
498 // If the GV is already in a comdat group, then we have to join it.
anatofuz
parents:
diff changeset
499 if (llvm::Comdat *C = GV->getComdat())
anatofuz
parents:
diff changeset
500 PtrArray->setComdat(C);
anatofuz
parents:
diff changeset
501 }
anatofuz
parents:
diff changeset
502
anatofuz
parents:
diff changeset
503 void
anatofuz
parents:
diff changeset
504 CodeGenModule::EmitCXXGlobalVarDeclInitFunc(const VarDecl *D,
anatofuz
parents:
diff changeset
505 llvm::GlobalVariable *Addr,
anatofuz
parents:
diff changeset
506 bool PerformInit) {
anatofuz
parents:
diff changeset
507
anatofuz
parents:
diff changeset
508 // According to E.2.3.1 in CUDA-7.5 Programming guide: __device__,
anatofuz
parents:
diff changeset
509 // __constant__ and __shared__ variables defined in namespace scope,
anatofuz
parents:
diff changeset
510 // that are of class type, cannot have a non-empty constructor. All
anatofuz
parents:
diff changeset
511 // the checks have been done in Sema by now. Whatever initializers
anatofuz
parents:
diff changeset
512 // are allowed are empty and we just need to ignore them here.
anatofuz
parents:
diff changeset
513 if (getLangOpts().CUDAIsDevice && !getLangOpts().GPUAllowDeviceInit &&
anatofuz
parents:
diff changeset
514 (D->hasAttr<CUDADeviceAttr>() || D->hasAttr<CUDAConstantAttr>() ||
anatofuz
parents:
diff changeset
515 D->hasAttr<CUDASharedAttr>()))
anatofuz
parents:
diff changeset
516 return;
anatofuz
parents:
diff changeset
517
anatofuz
parents:
diff changeset
518 if (getLangOpts().OpenMP &&
anatofuz
parents:
diff changeset
519 getOpenMPRuntime().emitDeclareTargetVarDefinition(D, Addr, PerformInit))
anatofuz
parents:
diff changeset
520 return;
anatofuz
parents:
diff changeset
521
anatofuz
parents:
diff changeset
522 // Check if we've already initialized this decl.
anatofuz
parents:
diff changeset
523 auto I = DelayedCXXInitPosition.find(D);
anatofuz
parents:
diff changeset
524 if (I != DelayedCXXInitPosition.end() && I->second == ~0U)
anatofuz
parents:
diff changeset
525 return;
anatofuz
parents:
diff changeset
526
anatofuz
parents:
diff changeset
527 llvm::FunctionType *FTy = llvm::FunctionType::get(VoidTy, false);
anatofuz
parents:
diff changeset
528 SmallString<256> FnName;
anatofuz
parents:
diff changeset
529 {
anatofuz
parents:
diff changeset
530 llvm::raw_svector_ostream Out(FnName);
anatofuz
parents:
diff changeset
531 getCXXABI().getMangleContext().mangleDynamicInitializer(D, Out);
anatofuz
parents:
diff changeset
532 }
anatofuz
parents:
diff changeset
533
anatofuz
parents:
diff changeset
534 // Create a variable initialization function.
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
535 llvm::Function *Fn = CreateGlobalInitOrCleanUpFunction(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
536 FTy, FnName.str(), getTypes().arrangeNullaryFunction(), D->getLocation());
150
anatofuz
parents:
diff changeset
537
anatofuz
parents:
diff changeset
538 auto *ISA = D->getAttr<InitSegAttr>();
anatofuz
parents:
diff changeset
539 CodeGenFunction(*this).GenerateCXXGlobalVarDeclInitFunc(Fn, D, Addr,
anatofuz
parents:
diff changeset
540 PerformInit);
anatofuz
parents:
diff changeset
541
anatofuz
parents:
diff changeset
542 llvm::GlobalVariable *COMDATKey =
anatofuz
parents:
diff changeset
543 supportsCOMDAT() && D->isExternallyVisible() ? Addr : nullptr;
anatofuz
parents:
diff changeset
544
anatofuz
parents:
diff changeset
545 if (D->getTLSKind()) {
anatofuz
parents:
diff changeset
546 // FIXME: Should we support init_priority for thread_local?
anatofuz
parents:
diff changeset
547 // FIXME: We only need to register one __cxa_thread_atexit function for the
anatofuz
parents:
diff changeset
548 // entire TU.
anatofuz
parents:
diff changeset
549 CXXThreadLocalInits.push_back(Fn);
anatofuz
parents:
diff changeset
550 CXXThreadLocalInitVars.push_back(D);
anatofuz
parents:
diff changeset
551 } else if (PerformInit && ISA) {
anatofuz
parents:
diff changeset
552 EmitPointerToInitFunc(D, Addr, Fn, ISA);
anatofuz
parents:
diff changeset
553 } else if (auto *IPA = D->getAttr<InitPriorityAttr>()) {
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
554 OrderGlobalInitsOrStermFinalizers Key(IPA->getPriority(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
555 PrioritizedCXXGlobalInits.size());
150
anatofuz
parents:
diff changeset
556 PrioritizedCXXGlobalInits.push_back(std::make_pair(Key, Fn));
anatofuz
parents:
diff changeset
557 } else if (isTemplateInstantiation(D->getTemplateSpecializationKind()) ||
anatofuz
parents:
diff changeset
558 getContext().GetGVALinkageForVariable(D) == GVA_DiscardableODR) {
anatofuz
parents:
diff changeset
559 // C++ [basic.start.init]p2:
anatofuz
parents:
diff changeset
560 // Definitions of explicitly specialized class template static data
anatofuz
parents:
diff changeset
561 // members have ordered initialization. Other class template static data
anatofuz
parents:
diff changeset
562 // members (i.e., implicitly or explicitly instantiated specializations)
anatofuz
parents:
diff changeset
563 // have unordered initialization.
anatofuz
parents:
diff changeset
564 //
anatofuz
parents:
diff changeset
565 // As a consequence, we can put them into their own llvm.global_ctors entry.
anatofuz
parents:
diff changeset
566 //
anatofuz
parents:
diff changeset
567 // If the global is externally visible, put the initializer into a COMDAT
anatofuz
parents:
diff changeset
568 // group with the global being initialized. On most platforms, this is a
anatofuz
parents:
diff changeset
569 // minor startup time optimization. In the MS C++ ABI, there are no guard
anatofuz
parents:
diff changeset
570 // variables, so this COMDAT key is required for correctness.
anatofuz
parents:
diff changeset
571 AddGlobalCtor(Fn, 65535, COMDATKey);
anatofuz
parents:
diff changeset
572 if (getTarget().getCXXABI().isMicrosoft() && COMDATKey) {
anatofuz
parents:
diff changeset
573 // In The MS C++, MS add template static data member in the linker
anatofuz
parents:
diff changeset
574 // drective.
anatofuz
parents:
diff changeset
575 addUsedGlobal(COMDATKey);
anatofuz
parents:
diff changeset
576 }
anatofuz
parents:
diff changeset
577 } else if (D->hasAttr<SelectAnyAttr>()) {
anatofuz
parents:
diff changeset
578 // SelectAny globals will be comdat-folded. Put the initializer into a
anatofuz
parents:
diff changeset
579 // COMDAT group associated with the global, so the initializers get folded
anatofuz
parents:
diff changeset
580 // too.
anatofuz
parents:
diff changeset
581 AddGlobalCtor(Fn, 65535, COMDATKey);
anatofuz
parents:
diff changeset
582 } else {
anatofuz
parents:
diff changeset
583 I = DelayedCXXInitPosition.find(D); // Re-do lookup in case of re-hash.
anatofuz
parents:
diff changeset
584 if (I == DelayedCXXInitPosition.end()) {
anatofuz
parents:
diff changeset
585 CXXGlobalInits.push_back(Fn);
anatofuz
parents:
diff changeset
586 } else if (I->second != ~0U) {
anatofuz
parents:
diff changeset
587 assert(I->second < CXXGlobalInits.size() &&
anatofuz
parents:
diff changeset
588 CXXGlobalInits[I->second] == nullptr);
anatofuz
parents:
diff changeset
589 CXXGlobalInits[I->second] = Fn;
anatofuz
parents:
diff changeset
590 }
anatofuz
parents:
diff changeset
591 }
anatofuz
parents:
diff changeset
592
anatofuz
parents:
diff changeset
593 // Remember that we already emitted the initializer for this global.
anatofuz
parents:
diff changeset
594 DelayedCXXInitPosition[D] = ~0U;
anatofuz
parents:
diff changeset
595 }
anatofuz
parents:
diff changeset
596
anatofuz
parents:
diff changeset
597 void CodeGenModule::EmitCXXThreadLocalInitFunc() {
anatofuz
parents:
diff changeset
598 getCXXABI().EmitThreadLocalInitFuncs(
anatofuz
parents:
diff changeset
599 *this, CXXThreadLocals, CXXThreadLocalInits, CXXThreadLocalInitVars);
anatofuz
parents:
diff changeset
600
anatofuz
parents:
diff changeset
601 CXXThreadLocalInits.clear();
anatofuz
parents:
diff changeset
602 CXXThreadLocalInitVars.clear();
anatofuz
parents:
diff changeset
603 CXXThreadLocals.clear();
anatofuz
parents:
diff changeset
604 }
anatofuz
parents:
diff changeset
605
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
606 static SmallString<128> getTransformedFileName(llvm::Module &M) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
607 SmallString<128> FileName = llvm::sys::path::filename(M.getName());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
608
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
609 if (FileName.empty())
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
610 FileName = "<null>";
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
611
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
612 for (size_t i = 0; i < FileName.size(); ++i) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
613 // Replace everything that's not [a-zA-Z0-9._] with a _. This set happens
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
614 // to be the set of C preprocessing numbers.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
615 if (!isPreprocessingNumberBody(FileName[i]))
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
616 FileName[i] = '_';
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
617 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
618
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
619 return FileName;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
620 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
621
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
622 static std::string getPrioritySuffix(unsigned int Priority) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
623 assert(Priority <= 65535 && "Priority should always be <= 65535.");
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
624
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
625 // Compute the function suffix from priority. Prepend with zeroes to make
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
626 // sure the function names are also ordered as priorities.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
627 std::string PrioritySuffix = llvm::utostr(Priority);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
628 PrioritySuffix = std::string(6 - PrioritySuffix.size(), '0') + PrioritySuffix;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
629
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
630 return PrioritySuffix;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
631 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
632
150
anatofuz
parents:
diff changeset
633 void
anatofuz
parents:
diff changeset
634 CodeGenModule::EmitCXXGlobalInitFunc() {
anatofuz
parents:
diff changeset
635 while (!CXXGlobalInits.empty() && !CXXGlobalInits.back())
anatofuz
parents:
diff changeset
636 CXXGlobalInits.pop_back();
anatofuz
parents:
diff changeset
637
anatofuz
parents:
diff changeset
638 if (CXXGlobalInits.empty() && PrioritizedCXXGlobalInits.empty())
anatofuz
parents:
diff changeset
639 return;
anatofuz
parents:
diff changeset
640
anatofuz
parents:
diff changeset
641 llvm::FunctionType *FTy = llvm::FunctionType::get(VoidTy, false);
anatofuz
parents:
diff changeset
642 const CGFunctionInfo &FI = getTypes().arrangeNullaryFunction();
anatofuz
parents:
diff changeset
643
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
644 // Create our global prioritized initialization function.
150
anatofuz
parents:
diff changeset
645 if (!PrioritizedCXXGlobalInits.empty()) {
anatofuz
parents:
diff changeset
646 SmallVector<llvm::Function *, 8> LocalCXXGlobalInits;
anatofuz
parents:
diff changeset
647 llvm::array_pod_sort(PrioritizedCXXGlobalInits.begin(),
anatofuz
parents:
diff changeset
648 PrioritizedCXXGlobalInits.end());
anatofuz
parents:
diff changeset
649 // Iterate over "chunks" of ctors with same priority and emit each chunk
anatofuz
parents:
diff changeset
650 // into separate function. Note - everything is sorted first by priority,
anatofuz
parents:
diff changeset
651 // second - by lex order, so we emit ctor functions in proper order.
anatofuz
parents:
diff changeset
652 for (SmallVectorImpl<GlobalInitData >::iterator
anatofuz
parents:
diff changeset
653 I = PrioritizedCXXGlobalInits.begin(),
anatofuz
parents:
diff changeset
654 E = PrioritizedCXXGlobalInits.end(); I != E; ) {
anatofuz
parents:
diff changeset
655 SmallVectorImpl<GlobalInitData >::iterator
anatofuz
parents:
diff changeset
656 PrioE = std::upper_bound(I + 1, E, *I, GlobalInitPriorityCmp());
anatofuz
parents:
diff changeset
657
anatofuz
parents:
diff changeset
658 LocalCXXGlobalInits.clear();
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
659
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
660 unsigned int Priority = I->first.priority;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
661 llvm::Function *Fn = CreateGlobalInitOrCleanUpFunction(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
662 FTy, "_GLOBAL__I_" + getPrioritySuffix(Priority), FI);
150
anatofuz
parents:
diff changeset
663
anatofuz
parents:
diff changeset
664 for (; I < PrioE; ++I)
anatofuz
parents:
diff changeset
665 LocalCXXGlobalInits.push_back(I->second);
anatofuz
parents:
diff changeset
666
anatofuz
parents:
diff changeset
667 CodeGenFunction(*this).GenerateCXXGlobalInitFunc(Fn, LocalCXXGlobalInits);
anatofuz
parents:
diff changeset
668 AddGlobalCtor(Fn, Priority);
anatofuz
parents:
diff changeset
669 }
anatofuz
parents:
diff changeset
670 PrioritizedCXXGlobalInits.clear();
anatofuz
parents:
diff changeset
671 }
anatofuz
parents:
diff changeset
672
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
673 if (getCXXABI().useSinitAndSterm() && CXXGlobalInits.empty())
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
674 return;
150
anatofuz
parents:
diff changeset
675
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
676 // Include the filename in the symbol name. Including "sub_" matches gcc
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
677 // and makes sure these symbols appear lexicographically behind the symbols
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
678 // with priority emitted above.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
679 llvm::Function *Fn = CreateGlobalInitOrCleanUpFunction(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
680 FTy, llvm::Twine("_GLOBAL__sub_I_", getTransformedFileName(getModule())),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
681 FI);
150
anatofuz
parents:
diff changeset
682
anatofuz
parents:
diff changeset
683 CodeGenFunction(*this).GenerateCXXGlobalInitFunc(Fn, CXXGlobalInits);
anatofuz
parents:
diff changeset
684 AddGlobalCtor(Fn);
anatofuz
parents:
diff changeset
685
anatofuz
parents:
diff changeset
686 // In OpenCL global init functions must be converted to kernels in order to
anatofuz
parents:
diff changeset
687 // be able to launch them from the host.
anatofuz
parents:
diff changeset
688 // FIXME: Some more work might be needed to handle destructors correctly.
anatofuz
parents:
diff changeset
689 // Current initialization function makes use of function pointers callbacks.
anatofuz
parents:
diff changeset
690 // We can't support function pointers especially between host and device.
anatofuz
parents:
diff changeset
691 // However it seems global destruction has little meaning without any
anatofuz
parents:
diff changeset
692 // dynamic resource allocation on the device and program scope variables are
anatofuz
parents:
diff changeset
693 // destroyed by the runtime when program is released.
anatofuz
parents:
diff changeset
694 if (getLangOpts().OpenCL) {
anatofuz
parents:
diff changeset
695 GenOpenCLArgMetadata(Fn);
anatofuz
parents:
diff changeset
696 Fn->setCallingConv(llvm::CallingConv::SPIR_KERNEL);
anatofuz
parents:
diff changeset
697 }
anatofuz
parents:
diff changeset
698
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
699 assert(!getLangOpts().CUDA || !getLangOpts().CUDAIsDevice ||
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
700 getLangOpts().GPUAllowDeviceInit);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
701 if (getLangOpts().HIP && getLangOpts().CUDAIsDevice) {
150
anatofuz
parents:
diff changeset
702 Fn->setCallingConv(llvm::CallingConv::AMDGPU_KERNEL);
anatofuz
parents:
diff changeset
703 Fn->addFnAttr("device-init");
anatofuz
parents:
diff changeset
704 }
anatofuz
parents:
diff changeset
705
anatofuz
parents:
diff changeset
706 CXXGlobalInits.clear();
anatofuz
parents:
diff changeset
707 }
anatofuz
parents:
diff changeset
708
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
709 void CodeGenModule::EmitCXXGlobalCleanUpFunc() {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
710 if (CXXGlobalDtorsOrStermFinalizers.empty() &&
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
711 PrioritizedCXXStermFinalizers.empty())
150
anatofuz
parents:
diff changeset
712 return;
anatofuz
parents:
diff changeset
713
anatofuz
parents:
diff changeset
714 llvm::FunctionType *FTy = llvm::FunctionType::get(VoidTy, false);
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
715 const CGFunctionInfo &FI = getTypes().arrangeNullaryFunction();
150
anatofuz
parents:
diff changeset
716
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
717 // Create our global prioritized cleanup function.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
718 if (!PrioritizedCXXStermFinalizers.empty()) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
719 SmallVector<CXXGlobalDtorsOrStermFinalizer_t, 8> LocalCXXStermFinalizers;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
720 llvm::array_pod_sort(PrioritizedCXXStermFinalizers.begin(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
721 PrioritizedCXXStermFinalizers.end());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
722 // Iterate over "chunks" of dtors with same priority and emit each chunk
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
723 // into separate function. Note - everything is sorted first by priority,
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
724 // second - by lex order, so we emit dtor functions in proper order.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
725 for (SmallVectorImpl<StermFinalizerData>::iterator
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
726 I = PrioritizedCXXStermFinalizers.begin(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
727 E = PrioritizedCXXStermFinalizers.end();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
728 I != E;) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
729 SmallVectorImpl<StermFinalizerData>::iterator PrioE =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
730 std::upper_bound(I + 1, E, *I, StermFinalizerPriorityCmp());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
731
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
732 LocalCXXStermFinalizers.clear();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
733
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
734 unsigned int Priority = I->first.priority;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
735 llvm::Function *Fn = CreateGlobalInitOrCleanUpFunction(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
736 FTy, "_GLOBAL__a_" + getPrioritySuffix(Priority), FI);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
737
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
738 for (; I < PrioE; ++I) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
739 llvm::FunctionCallee DtorFn = I->second;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
740 LocalCXXStermFinalizers.emplace_back(DtorFn.getFunctionType(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
741 DtorFn.getCallee(), nullptr);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
742 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
743
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
744 CodeGenFunction(*this).GenerateCXXGlobalCleanUpFunc(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
745 Fn, LocalCXXStermFinalizers);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
746 AddGlobalDtor(Fn, Priority);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
747 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
748 PrioritizedCXXStermFinalizers.clear();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
749 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
750
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
751 if (CXXGlobalDtorsOrStermFinalizers.empty())
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
752 return;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
753
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
754 // Create our global cleanup function.
150
anatofuz
parents:
diff changeset
755 llvm::Function *Fn =
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
756 CreateGlobalInitOrCleanUpFunction(FTy, "_GLOBAL__D_a", FI);
150
anatofuz
parents:
diff changeset
757
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
758 CodeGenFunction(*this).GenerateCXXGlobalCleanUpFunc(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
759 Fn, CXXGlobalDtorsOrStermFinalizers);
150
anatofuz
parents:
diff changeset
760 AddGlobalDtor(Fn);
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
761 CXXGlobalDtorsOrStermFinalizers.clear();
150
anatofuz
parents:
diff changeset
762 }
anatofuz
parents:
diff changeset
763
anatofuz
parents:
diff changeset
764 /// Emit the code necessary to initialize the given global variable.
anatofuz
parents:
diff changeset
765 void CodeGenFunction::GenerateCXXGlobalVarDeclInitFunc(llvm::Function *Fn,
anatofuz
parents:
diff changeset
766 const VarDecl *D,
anatofuz
parents:
diff changeset
767 llvm::GlobalVariable *Addr,
anatofuz
parents:
diff changeset
768 bool PerformInit) {
anatofuz
parents:
diff changeset
769 // Check if we need to emit debug info for variable initializer.
anatofuz
parents:
diff changeset
770 if (D->hasAttr<NoDebugAttr>())
anatofuz
parents:
diff changeset
771 DebugInfo = nullptr; // disable debug info indefinitely for this function
anatofuz
parents:
diff changeset
772
anatofuz
parents:
diff changeset
773 CurEHLocation = D->getBeginLoc();
anatofuz
parents:
diff changeset
774
anatofuz
parents:
diff changeset
775 StartFunction(GlobalDecl(D, DynamicInitKind::Initializer),
anatofuz
parents:
diff changeset
776 getContext().VoidTy, Fn, getTypes().arrangeNullaryFunction(),
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
777 FunctionArgList());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
778 // Emit an artificial location for this function.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
779 auto AL = ApplyDebugLocation::CreateArtificial(*this);
150
anatofuz
parents:
diff changeset
780
anatofuz
parents:
diff changeset
781 // Use guarded initialization if the global variable is weak. This
anatofuz
parents:
diff changeset
782 // occurs for, e.g., instantiated static data members and
anatofuz
parents:
diff changeset
783 // definitions explicitly marked weak.
anatofuz
parents:
diff changeset
784 //
anatofuz
parents:
diff changeset
785 // Also use guarded initialization for a variable with dynamic TLS and
anatofuz
parents:
diff changeset
786 // unordered initialization. (If the initialization is ordered, the ABI
anatofuz
parents:
diff changeset
787 // layer will guard the whole-TU initialization for us.)
anatofuz
parents:
diff changeset
788 if (Addr->hasWeakLinkage() || Addr->hasLinkOnceLinkage() ||
anatofuz
parents:
diff changeset
789 (D->getTLSKind() == VarDecl::TLS_Dynamic &&
anatofuz
parents:
diff changeset
790 isTemplateInstantiation(D->getTemplateSpecializationKind()))) {
anatofuz
parents:
diff changeset
791 EmitCXXGuardedInit(*D, Addr, PerformInit);
anatofuz
parents:
diff changeset
792 } else {
anatofuz
parents:
diff changeset
793 EmitCXXGlobalVarDeclInit(*D, Addr, PerformInit);
anatofuz
parents:
diff changeset
794 }
anatofuz
parents:
diff changeset
795
anatofuz
parents:
diff changeset
796 FinishFunction();
anatofuz
parents:
diff changeset
797 }
anatofuz
parents:
diff changeset
798
anatofuz
parents:
diff changeset
799 void
anatofuz
parents:
diff changeset
800 CodeGenFunction::GenerateCXXGlobalInitFunc(llvm::Function *Fn,
anatofuz
parents:
diff changeset
801 ArrayRef<llvm::Function *> Decls,
anatofuz
parents:
diff changeset
802 ConstantAddress Guard) {
anatofuz
parents:
diff changeset
803 {
anatofuz
parents:
diff changeset
804 auto NL = ApplyDebugLocation::CreateEmpty(*this);
anatofuz
parents:
diff changeset
805 StartFunction(GlobalDecl(), getContext().VoidTy, Fn,
anatofuz
parents:
diff changeset
806 getTypes().arrangeNullaryFunction(), FunctionArgList());
anatofuz
parents:
diff changeset
807 // Emit an artificial location for this function.
anatofuz
parents:
diff changeset
808 auto AL = ApplyDebugLocation::CreateArtificial(*this);
anatofuz
parents:
diff changeset
809
anatofuz
parents:
diff changeset
810 llvm::BasicBlock *ExitBlock = nullptr;
anatofuz
parents:
diff changeset
811 if (Guard.isValid()) {
anatofuz
parents:
diff changeset
812 // If we have a guard variable, check whether we've already performed
anatofuz
parents:
diff changeset
813 // these initializations. This happens for TLS initialization functions.
anatofuz
parents:
diff changeset
814 llvm::Value *GuardVal = Builder.CreateLoad(Guard);
anatofuz
parents:
diff changeset
815 llvm::Value *Uninit = Builder.CreateIsNull(GuardVal,
anatofuz
parents:
diff changeset
816 "guard.uninitialized");
anatofuz
parents:
diff changeset
817 llvm::BasicBlock *InitBlock = createBasicBlock("init");
anatofuz
parents:
diff changeset
818 ExitBlock = createBasicBlock("exit");
anatofuz
parents:
diff changeset
819 EmitCXXGuardedInitBranch(Uninit, InitBlock, ExitBlock,
anatofuz
parents:
diff changeset
820 GuardKind::TlsGuard, nullptr);
anatofuz
parents:
diff changeset
821 EmitBlock(InitBlock);
anatofuz
parents:
diff changeset
822 // Mark as initialized before initializing anything else. If the
anatofuz
parents:
diff changeset
823 // initializers use previously-initialized thread_local vars, that's
anatofuz
parents:
diff changeset
824 // probably supposed to be OK, but the standard doesn't say.
anatofuz
parents:
diff changeset
825 Builder.CreateStore(llvm::ConstantInt::get(GuardVal->getType(),1), Guard);
anatofuz
parents:
diff changeset
826
anatofuz
parents:
diff changeset
827 // The guard variable can't ever change again.
anatofuz
parents:
diff changeset
828 EmitInvariantStart(
anatofuz
parents:
diff changeset
829 Guard.getPointer(),
anatofuz
parents:
diff changeset
830 CharUnits::fromQuantity(
anatofuz
parents:
diff changeset
831 CGM.getDataLayout().getTypeAllocSize(GuardVal->getType())));
anatofuz
parents:
diff changeset
832 }
anatofuz
parents:
diff changeset
833
anatofuz
parents:
diff changeset
834 RunCleanupsScope Scope(*this);
anatofuz
parents:
diff changeset
835
anatofuz
parents:
diff changeset
836 // When building in Objective-C++ ARC mode, create an autorelease pool
anatofuz
parents:
diff changeset
837 // around the global initializers.
anatofuz
parents:
diff changeset
838 if (getLangOpts().ObjCAutoRefCount && getLangOpts().CPlusPlus) {
anatofuz
parents:
diff changeset
839 llvm::Value *token = EmitObjCAutoreleasePoolPush();
anatofuz
parents:
diff changeset
840 EmitObjCAutoreleasePoolCleanup(token);
anatofuz
parents:
diff changeset
841 }
anatofuz
parents:
diff changeset
842
anatofuz
parents:
diff changeset
843 for (unsigned i = 0, e = Decls.size(); i != e; ++i)
anatofuz
parents:
diff changeset
844 if (Decls[i])
anatofuz
parents:
diff changeset
845 EmitRuntimeCall(Decls[i]);
anatofuz
parents:
diff changeset
846
anatofuz
parents:
diff changeset
847 Scope.ForceCleanup();
anatofuz
parents:
diff changeset
848
anatofuz
parents:
diff changeset
849 if (ExitBlock) {
anatofuz
parents:
diff changeset
850 Builder.CreateBr(ExitBlock);
anatofuz
parents:
diff changeset
851 EmitBlock(ExitBlock);
anatofuz
parents:
diff changeset
852 }
anatofuz
parents:
diff changeset
853 }
anatofuz
parents:
diff changeset
854
anatofuz
parents:
diff changeset
855 FinishFunction();
anatofuz
parents:
diff changeset
856 }
anatofuz
parents:
diff changeset
857
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
858 void CodeGenFunction::GenerateCXXGlobalCleanUpFunc(
150
anatofuz
parents:
diff changeset
859 llvm::Function *Fn,
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
860 ArrayRef<std::tuple<llvm::FunctionType *, llvm::WeakTrackingVH,
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
861 llvm::Constant *>>
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
862 DtorsOrStermFinalizers) {
150
anatofuz
parents:
diff changeset
863 {
anatofuz
parents:
diff changeset
864 auto NL = ApplyDebugLocation::CreateEmpty(*this);
anatofuz
parents:
diff changeset
865 StartFunction(GlobalDecl(), getContext().VoidTy, Fn,
anatofuz
parents:
diff changeset
866 getTypes().arrangeNullaryFunction(), FunctionArgList());
anatofuz
parents:
diff changeset
867 // Emit an artificial location for this function.
anatofuz
parents:
diff changeset
868 auto AL = ApplyDebugLocation::CreateArtificial(*this);
anatofuz
parents:
diff changeset
869
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
870 // Emit the cleanups, in reverse order from construction.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
871 for (unsigned i = 0, e = DtorsOrStermFinalizers.size(); i != e; ++i) {
150
anatofuz
parents:
diff changeset
872 llvm::FunctionType *CalleeTy;
anatofuz
parents:
diff changeset
873 llvm::Value *Callee;
anatofuz
parents:
diff changeset
874 llvm::Constant *Arg;
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
875 std::tie(CalleeTy, Callee, Arg) = DtorsOrStermFinalizers[e - i - 1];
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
876
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
877 llvm::CallInst *CI = nullptr;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
878 if (Arg == nullptr) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
879 assert(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
880 CGM.getCXXABI().useSinitAndSterm() &&
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
881 "Arg could not be nullptr unless using sinit and sterm functions.");
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
882 CI = Builder.CreateCall(CalleeTy, Callee);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
883 } else
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
884 CI = Builder.CreateCall(CalleeTy, Callee, Arg);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
885
150
anatofuz
parents:
diff changeset
886 // Make sure the call and the callee agree on calling convention.
anatofuz
parents:
diff changeset
887 if (llvm::Function *F = dyn_cast<llvm::Function>(Callee))
anatofuz
parents:
diff changeset
888 CI->setCallingConv(F->getCallingConv());
anatofuz
parents:
diff changeset
889 }
anatofuz
parents:
diff changeset
890 }
anatofuz
parents:
diff changeset
891
anatofuz
parents:
diff changeset
892 FinishFunction();
anatofuz
parents:
diff changeset
893 }
anatofuz
parents:
diff changeset
894
anatofuz
parents:
diff changeset
895 /// generateDestroyHelper - Generates a helper function which, when
anatofuz
parents:
diff changeset
896 /// invoked, destroys the given object. The address of the object
anatofuz
parents:
diff changeset
897 /// should be in global memory.
anatofuz
parents:
diff changeset
898 llvm::Function *CodeGenFunction::generateDestroyHelper(
anatofuz
parents:
diff changeset
899 Address addr, QualType type, Destroyer *destroyer,
anatofuz
parents:
diff changeset
900 bool useEHCleanupForArray, const VarDecl *VD) {
anatofuz
parents:
diff changeset
901 FunctionArgList args;
anatofuz
parents:
diff changeset
902 ImplicitParamDecl Dst(getContext(), getContext().VoidPtrTy,
anatofuz
parents:
diff changeset
903 ImplicitParamDecl::Other);
anatofuz
parents:
diff changeset
904 args.push_back(&Dst);
anatofuz
parents:
diff changeset
905
anatofuz
parents:
diff changeset
906 const CGFunctionInfo &FI =
anatofuz
parents:
diff changeset
907 CGM.getTypes().arrangeBuiltinFunctionDeclaration(getContext().VoidTy, args);
anatofuz
parents:
diff changeset
908 llvm::FunctionType *FTy = CGM.getTypes().GetFunctionType(FI);
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
909 llvm::Function *fn = CGM.CreateGlobalInitOrCleanUpFunction(
150
anatofuz
parents:
diff changeset
910 FTy, "__cxx_global_array_dtor", FI, VD->getLocation());
anatofuz
parents:
diff changeset
911
anatofuz
parents:
diff changeset
912 CurEHLocation = VD->getBeginLoc();
anatofuz
parents:
diff changeset
913
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
914 StartFunction(GlobalDecl(VD, DynamicInitKind::GlobalArrayDestructor),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
915 getContext().VoidTy, fn, FI, args);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
916 // Emit an artificial location for this function.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
917 auto AL = ApplyDebugLocation::CreateArtificial(*this);
150
anatofuz
parents:
diff changeset
918
anatofuz
parents:
diff changeset
919 emitDestroy(addr, type, destroyer, useEHCleanupForArray);
anatofuz
parents:
diff changeset
920
anatofuz
parents:
diff changeset
921 FinishFunction();
anatofuz
parents:
diff changeset
922
anatofuz
parents:
diff changeset
923 return fn;
anatofuz
parents:
diff changeset
924 }