annotate clang/lib/CodeGen/CGDeclCXX.cpp @ 221:79ff65ed7e25

LLVM12 Original
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 15 Jun 2021 19:15:29 +0900
parents 0572611fdcc8
children 5f20bc1ed4ff
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
anatofuz
parents:
diff changeset
265 /// Register a global destructor using the C atexit runtime function.
anatofuz
parents:
diff changeset
266 void CodeGenFunction::registerGlobalDtorWithAtExit(const VarDecl &VD,
anatofuz
parents:
diff changeset
267 llvm::FunctionCallee dtor,
anatofuz
parents:
diff changeset
268 llvm::Constant *addr) {
anatofuz
parents:
diff changeset
269 // Create a function which calls the destructor.
anatofuz
parents:
diff changeset
270 llvm::Constant *dtorStub = createAtExitStub(VD, dtor, addr);
anatofuz
parents:
diff changeset
271 registerGlobalDtorWithAtExit(dtorStub);
anatofuz
parents:
diff changeset
272 }
anatofuz
parents:
diff changeset
273
anatofuz
parents:
diff changeset
274 void CodeGenFunction::registerGlobalDtorWithAtExit(llvm::Constant *dtorStub) {
anatofuz
parents:
diff changeset
275 // extern "C" int atexit(void (*f)(void));
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
276 assert(dtorStub->getType() ==
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
277 llvm::PointerType::get(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
278 llvm::FunctionType::get(CGM.VoidTy, false),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
279 dtorStub->getType()->getPointerAddressSpace()) &&
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
280 "Argument to atexit has a wrong type.");
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
281
150
anatofuz
parents:
diff changeset
282 llvm::FunctionType *atexitTy =
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
283 llvm::FunctionType::get(IntTy, dtorStub->getType(), false);
150
anatofuz
parents:
diff changeset
284
anatofuz
parents:
diff changeset
285 llvm::FunctionCallee atexit =
anatofuz
parents:
diff changeset
286 CGM.CreateRuntimeFunction(atexitTy, "atexit", llvm::AttributeList(),
anatofuz
parents:
diff changeset
287 /*Local=*/true);
anatofuz
parents:
diff changeset
288 if (llvm::Function *atexitFn = dyn_cast<llvm::Function>(atexit.getCallee()))
anatofuz
parents:
diff changeset
289 atexitFn->setDoesNotThrow();
anatofuz
parents:
diff changeset
290
anatofuz
parents:
diff changeset
291 EmitNounwindRuntimeCall(atexit, dtorStub);
anatofuz
parents:
diff changeset
292 }
anatofuz
parents:
diff changeset
293
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
294 llvm::Value *
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
295 CodeGenFunction::unregisterGlobalDtorWithUnAtExit(llvm::Constant *dtorStub) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
296 // The unatexit subroutine unregisters __dtor functions that were previously
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
297 // 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
298 // 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
299 // 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
300 // value is returned.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
301 //
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
302 // extern "C" int unatexit(void (*f)(void));
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
303 assert(dtorStub->getType() ==
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
304 llvm::PointerType::get(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
305 llvm::FunctionType::get(CGM.VoidTy, false),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
306 dtorStub->getType()->getPointerAddressSpace()) &&
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
307 "Argument to unatexit has a wrong type.");
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
308
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
309 llvm::FunctionType *unatexitTy =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
310 llvm::FunctionType::get(IntTy, {dtorStub->getType()}, /*isVarArg=*/false);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
311
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
312 llvm::FunctionCallee unatexit =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
313 CGM.CreateRuntimeFunction(unatexitTy, "unatexit", llvm::AttributeList());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
314
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
315 cast<llvm::Function>(unatexit.getCallee())->setDoesNotThrow();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
316
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
317 return EmitNounwindRuntimeCall(unatexit, dtorStub);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
318 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
319
150
anatofuz
parents:
diff changeset
320 void CodeGenFunction::EmitCXXGuardedInit(const VarDecl &D,
anatofuz
parents:
diff changeset
321 llvm::GlobalVariable *DeclPtr,
anatofuz
parents:
diff changeset
322 bool PerformInit) {
anatofuz
parents:
diff changeset
323 // If we've been asked to forbid guard variables, emit an error now.
anatofuz
parents:
diff changeset
324 // This diagnostic is hard-coded for Darwin's use case; we can find
anatofuz
parents:
diff changeset
325 // better phrasing if someone else needs it.
anatofuz
parents:
diff changeset
326 if (CGM.getCodeGenOpts().ForbidGuardVariables)
anatofuz
parents:
diff changeset
327 CGM.Error(D.getLocation(),
anatofuz
parents:
diff changeset
328 "this initialization requires a guard variable, which "
anatofuz
parents:
diff changeset
329 "the kernel does not support");
anatofuz
parents:
diff changeset
330
anatofuz
parents:
diff changeset
331 CGM.getCXXABI().EmitGuardedInit(*this, D, DeclPtr, PerformInit);
anatofuz
parents:
diff changeset
332 }
anatofuz
parents:
diff changeset
333
anatofuz
parents:
diff changeset
334 void CodeGenFunction::EmitCXXGuardedInitBranch(llvm::Value *NeedsInit,
anatofuz
parents:
diff changeset
335 llvm::BasicBlock *InitBlock,
anatofuz
parents:
diff changeset
336 llvm::BasicBlock *NoInitBlock,
anatofuz
parents:
diff changeset
337 GuardKind Kind,
anatofuz
parents:
diff changeset
338 const VarDecl *D) {
anatofuz
parents:
diff changeset
339 assert((Kind == GuardKind::TlsGuard || D) && "no guarded variable");
anatofuz
parents:
diff changeset
340
anatofuz
parents:
diff changeset
341 // A guess at how many times we will enter the initialization of a
anatofuz
parents:
diff changeset
342 // variable, depending on the kind of variable.
anatofuz
parents:
diff changeset
343 static const uint64_t InitsPerTLSVar = 1024;
anatofuz
parents:
diff changeset
344 static const uint64_t InitsPerLocalVar = 1024 * 1024;
anatofuz
parents:
diff changeset
345
anatofuz
parents:
diff changeset
346 llvm::MDNode *Weights;
anatofuz
parents:
diff changeset
347 if (Kind == GuardKind::VariableGuard && !D->isLocalVarDecl()) {
anatofuz
parents:
diff changeset
348 // For non-local variables, don't apply any weighting for now. Due to our
anatofuz
parents:
diff changeset
349 // use of COMDATs, we expect there to be at most one initialization of the
anatofuz
parents:
diff changeset
350 // variable per DSO, but we have no way to know how many DSOs will try to
anatofuz
parents:
diff changeset
351 // initialize the variable.
anatofuz
parents:
diff changeset
352 Weights = nullptr;
anatofuz
parents:
diff changeset
353 } else {
anatofuz
parents:
diff changeset
354 uint64_t NumInits;
anatofuz
parents:
diff changeset
355 // FIXME: For the TLS case, collect and use profiling information to
anatofuz
parents:
diff changeset
356 // determine a more accurate brach weight.
anatofuz
parents:
diff changeset
357 if (Kind == GuardKind::TlsGuard || D->getTLSKind())
anatofuz
parents:
diff changeset
358 NumInits = InitsPerTLSVar;
anatofuz
parents:
diff changeset
359 else
anatofuz
parents:
diff changeset
360 NumInits = InitsPerLocalVar;
anatofuz
parents:
diff changeset
361
anatofuz
parents:
diff changeset
362 // The probability of us entering the initializer is
anatofuz
parents:
diff changeset
363 // 1 / (total number of times we attempt to initialize the variable).
anatofuz
parents:
diff changeset
364 llvm::MDBuilder MDHelper(CGM.getLLVMContext());
anatofuz
parents:
diff changeset
365 Weights = MDHelper.createBranchWeights(1, NumInits - 1);
anatofuz
parents:
diff changeset
366 }
anatofuz
parents:
diff changeset
367
anatofuz
parents:
diff changeset
368 Builder.CreateCondBr(NeedsInit, InitBlock, NoInitBlock, Weights);
anatofuz
parents:
diff changeset
369 }
anatofuz
parents:
diff changeset
370
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
371 llvm::Function *CodeGenModule::CreateGlobalInitOrCleanUpFunction(
150
anatofuz
parents:
diff changeset
372 llvm::FunctionType *FTy, const Twine &Name, const CGFunctionInfo &FI,
anatofuz
parents:
diff changeset
373 SourceLocation Loc, bool TLS) {
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
374 llvm::Function *Fn = llvm::Function::Create(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
375 FTy, llvm::GlobalValue::InternalLinkage, Name, &getModule());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
376
150
anatofuz
parents:
diff changeset
377 if (!getLangOpts().AppleKext && !TLS) {
anatofuz
parents:
diff changeset
378 // Set the section if needed.
anatofuz
parents:
diff changeset
379 if (const char *Section = getTarget().getStaticInitSectionSpecifier())
anatofuz
parents:
diff changeset
380 Fn->setSection(Section);
anatofuz
parents:
diff changeset
381 }
anatofuz
parents:
diff changeset
382
anatofuz
parents:
diff changeset
383 SetInternalFunctionAttributes(GlobalDecl(), Fn, FI);
anatofuz
parents:
diff changeset
384
anatofuz
parents:
diff changeset
385 Fn->setCallingConv(getRuntimeCC());
anatofuz
parents:
diff changeset
386
anatofuz
parents:
diff changeset
387 if (!getLangOpts().Exceptions)
anatofuz
parents:
diff changeset
388 Fn->setDoesNotThrow();
anatofuz
parents:
diff changeset
389
anatofuz
parents:
diff changeset
390 if (getLangOpts().Sanitize.has(SanitizerKind::Address) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
391 !isInNoSanitizeList(SanitizerKind::Address, Fn, Loc))
150
anatofuz
parents:
diff changeset
392 Fn->addFnAttr(llvm::Attribute::SanitizeAddress);
anatofuz
parents:
diff changeset
393
anatofuz
parents:
diff changeset
394 if (getLangOpts().Sanitize.has(SanitizerKind::KernelAddress) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
395 !isInNoSanitizeList(SanitizerKind::KernelAddress, Fn, Loc))
150
anatofuz
parents:
diff changeset
396 Fn->addFnAttr(llvm::Attribute::SanitizeAddress);
anatofuz
parents:
diff changeset
397
anatofuz
parents:
diff changeset
398 if (getLangOpts().Sanitize.has(SanitizerKind::HWAddress) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
399 !isInNoSanitizeList(SanitizerKind::HWAddress, Fn, Loc))
150
anatofuz
parents:
diff changeset
400 Fn->addFnAttr(llvm::Attribute::SanitizeHWAddress);
anatofuz
parents:
diff changeset
401
anatofuz
parents:
diff changeset
402 if (getLangOpts().Sanitize.has(SanitizerKind::KernelHWAddress) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
403 !isInNoSanitizeList(SanitizerKind::KernelHWAddress, Fn, Loc))
150
anatofuz
parents:
diff changeset
404 Fn->addFnAttr(llvm::Attribute::SanitizeHWAddress);
anatofuz
parents:
diff changeset
405
anatofuz
parents:
diff changeset
406 if (getLangOpts().Sanitize.has(SanitizerKind::MemTag) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
407 !isInNoSanitizeList(SanitizerKind::MemTag, Fn, Loc))
150
anatofuz
parents:
diff changeset
408 Fn->addFnAttr(llvm::Attribute::SanitizeMemTag);
anatofuz
parents:
diff changeset
409
anatofuz
parents:
diff changeset
410 if (getLangOpts().Sanitize.has(SanitizerKind::Thread) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
411 !isInNoSanitizeList(SanitizerKind::Thread, Fn, Loc))
150
anatofuz
parents:
diff changeset
412 Fn->addFnAttr(llvm::Attribute::SanitizeThread);
anatofuz
parents:
diff changeset
413
anatofuz
parents:
diff changeset
414 if (getLangOpts().Sanitize.has(SanitizerKind::Memory) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
415 !isInNoSanitizeList(SanitizerKind::Memory, Fn, Loc))
150
anatofuz
parents:
diff changeset
416 Fn->addFnAttr(llvm::Attribute::SanitizeMemory);
anatofuz
parents:
diff changeset
417
anatofuz
parents:
diff changeset
418 if (getLangOpts().Sanitize.has(SanitizerKind::KernelMemory) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
419 !isInNoSanitizeList(SanitizerKind::KernelMemory, Fn, Loc))
150
anatofuz
parents:
diff changeset
420 Fn->addFnAttr(llvm::Attribute::SanitizeMemory);
anatofuz
parents:
diff changeset
421
anatofuz
parents:
diff changeset
422 if (getLangOpts().Sanitize.has(SanitizerKind::SafeStack) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
423 !isInNoSanitizeList(SanitizerKind::SafeStack, Fn, Loc))
150
anatofuz
parents:
diff changeset
424 Fn->addFnAttr(llvm::Attribute::SafeStack);
anatofuz
parents:
diff changeset
425
anatofuz
parents:
diff changeset
426 if (getLangOpts().Sanitize.has(SanitizerKind::ShadowCallStack) &&
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
427 !isInNoSanitizeList(SanitizerKind::ShadowCallStack, Fn, Loc))
150
anatofuz
parents:
diff changeset
428 Fn->addFnAttr(llvm::Attribute::ShadowCallStack);
anatofuz
parents:
diff changeset
429
anatofuz
parents:
diff changeset
430 return Fn;
anatofuz
parents:
diff changeset
431 }
anatofuz
parents:
diff changeset
432
anatofuz
parents:
diff changeset
433 /// Create a global pointer to a function that will initialize a global
anatofuz
parents:
diff changeset
434 /// variable. The user has requested that this pointer be emitted in a specific
anatofuz
parents:
diff changeset
435 /// section.
anatofuz
parents:
diff changeset
436 void CodeGenModule::EmitPointerToInitFunc(const VarDecl *D,
anatofuz
parents:
diff changeset
437 llvm::GlobalVariable *GV,
anatofuz
parents:
diff changeset
438 llvm::Function *InitFunc,
anatofuz
parents:
diff changeset
439 InitSegAttr *ISA) {
anatofuz
parents:
diff changeset
440 llvm::GlobalVariable *PtrArray = new llvm::GlobalVariable(
anatofuz
parents:
diff changeset
441 TheModule, InitFunc->getType(), /*isConstant=*/true,
anatofuz
parents:
diff changeset
442 llvm::GlobalValue::PrivateLinkage, InitFunc, "__cxx_init_fn_ptr");
anatofuz
parents:
diff changeset
443 PtrArray->setSection(ISA->getSection());
anatofuz
parents:
diff changeset
444 addUsedGlobal(PtrArray);
anatofuz
parents:
diff changeset
445
anatofuz
parents:
diff changeset
446 // If the GV is already in a comdat group, then we have to join it.
anatofuz
parents:
diff changeset
447 if (llvm::Comdat *C = GV->getComdat())
anatofuz
parents:
diff changeset
448 PtrArray->setComdat(C);
anatofuz
parents:
diff changeset
449 }
anatofuz
parents:
diff changeset
450
anatofuz
parents:
diff changeset
451 void
anatofuz
parents:
diff changeset
452 CodeGenModule::EmitCXXGlobalVarDeclInitFunc(const VarDecl *D,
anatofuz
parents:
diff changeset
453 llvm::GlobalVariable *Addr,
anatofuz
parents:
diff changeset
454 bool PerformInit) {
anatofuz
parents:
diff changeset
455
anatofuz
parents:
diff changeset
456 // According to E.2.3.1 in CUDA-7.5 Programming guide: __device__,
anatofuz
parents:
diff changeset
457 // __constant__ and __shared__ variables defined in namespace scope,
anatofuz
parents:
diff changeset
458 // that are of class type, cannot have a non-empty constructor. All
anatofuz
parents:
diff changeset
459 // the checks have been done in Sema by now. Whatever initializers
anatofuz
parents:
diff changeset
460 // are allowed are empty and we just need to ignore them here.
anatofuz
parents:
diff changeset
461 if (getLangOpts().CUDAIsDevice && !getLangOpts().GPUAllowDeviceInit &&
anatofuz
parents:
diff changeset
462 (D->hasAttr<CUDADeviceAttr>() || D->hasAttr<CUDAConstantAttr>() ||
anatofuz
parents:
diff changeset
463 D->hasAttr<CUDASharedAttr>()))
anatofuz
parents:
diff changeset
464 return;
anatofuz
parents:
diff changeset
465
anatofuz
parents:
diff changeset
466 if (getLangOpts().OpenMP &&
anatofuz
parents:
diff changeset
467 getOpenMPRuntime().emitDeclareTargetVarDefinition(D, Addr, PerformInit))
anatofuz
parents:
diff changeset
468 return;
anatofuz
parents:
diff changeset
469
anatofuz
parents:
diff changeset
470 // Check if we've already initialized this decl.
anatofuz
parents:
diff changeset
471 auto I = DelayedCXXInitPosition.find(D);
anatofuz
parents:
diff changeset
472 if (I != DelayedCXXInitPosition.end() && I->second == ~0U)
anatofuz
parents:
diff changeset
473 return;
anatofuz
parents:
diff changeset
474
anatofuz
parents:
diff changeset
475 llvm::FunctionType *FTy = llvm::FunctionType::get(VoidTy, false);
anatofuz
parents:
diff changeset
476 SmallString<256> FnName;
anatofuz
parents:
diff changeset
477 {
anatofuz
parents:
diff changeset
478 llvm::raw_svector_ostream Out(FnName);
anatofuz
parents:
diff changeset
479 getCXXABI().getMangleContext().mangleDynamicInitializer(D, Out);
anatofuz
parents:
diff changeset
480 }
anatofuz
parents:
diff changeset
481
anatofuz
parents:
diff changeset
482 // Create a variable initialization function.
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
483 llvm::Function *Fn = CreateGlobalInitOrCleanUpFunction(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
484 FTy, FnName.str(), getTypes().arrangeNullaryFunction(), D->getLocation());
150
anatofuz
parents:
diff changeset
485
anatofuz
parents:
diff changeset
486 auto *ISA = D->getAttr<InitSegAttr>();
anatofuz
parents:
diff changeset
487 CodeGenFunction(*this).GenerateCXXGlobalVarDeclInitFunc(Fn, D, Addr,
anatofuz
parents:
diff changeset
488 PerformInit);
anatofuz
parents:
diff changeset
489
anatofuz
parents:
diff changeset
490 llvm::GlobalVariable *COMDATKey =
anatofuz
parents:
diff changeset
491 supportsCOMDAT() && D->isExternallyVisible() ? Addr : nullptr;
anatofuz
parents:
diff changeset
492
anatofuz
parents:
diff changeset
493 if (D->getTLSKind()) {
anatofuz
parents:
diff changeset
494 // FIXME: Should we support init_priority for thread_local?
anatofuz
parents:
diff changeset
495 // FIXME: We only need to register one __cxa_thread_atexit function for the
anatofuz
parents:
diff changeset
496 // entire TU.
anatofuz
parents:
diff changeset
497 CXXThreadLocalInits.push_back(Fn);
anatofuz
parents:
diff changeset
498 CXXThreadLocalInitVars.push_back(D);
anatofuz
parents:
diff changeset
499 } else if (PerformInit && ISA) {
anatofuz
parents:
diff changeset
500 EmitPointerToInitFunc(D, Addr, Fn, ISA);
anatofuz
parents:
diff changeset
501 } else if (auto *IPA = D->getAttr<InitPriorityAttr>()) {
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
502 OrderGlobalInitsOrStermFinalizers Key(IPA->getPriority(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
503 PrioritizedCXXGlobalInits.size());
150
anatofuz
parents:
diff changeset
504 PrioritizedCXXGlobalInits.push_back(std::make_pair(Key, Fn));
anatofuz
parents:
diff changeset
505 } else if (isTemplateInstantiation(D->getTemplateSpecializationKind()) ||
anatofuz
parents:
diff changeset
506 getContext().GetGVALinkageForVariable(D) == GVA_DiscardableODR) {
anatofuz
parents:
diff changeset
507 // C++ [basic.start.init]p2:
anatofuz
parents:
diff changeset
508 // Definitions of explicitly specialized class template static data
anatofuz
parents:
diff changeset
509 // members have ordered initialization. Other class template static data
anatofuz
parents:
diff changeset
510 // members (i.e., implicitly or explicitly instantiated specializations)
anatofuz
parents:
diff changeset
511 // have unordered initialization.
anatofuz
parents:
diff changeset
512 //
anatofuz
parents:
diff changeset
513 // As a consequence, we can put them into their own llvm.global_ctors entry.
anatofuz
parents:
diff changeset
514 //
anatofuz
parents:
diff changeset
515 // If the global is externally visible, put the initializer into a COMDAT
anatofuz
parents:
diff changeset
516 // group with the global being initialized. On most platforms, this is a
anatofuz
parents:
diff changeset
517 // minor startup time optimization. In the MS C++ ABI, there are no guard
anatofuz
parents:
diff changeset
518 // variables, so this COMDAT key is required for correctness.
anatofuz
parents:
diff changeset
519 AddGlobalCtor(Fn, 65535, COMDATKey);
anatofuz
parents:
diff changeset
520 if (getTarget().getCXXABI().isMicrosoft() && COMDATKey) {
anatofuz
parents:
diff changeset
521 // In The MS C++, MS add template static data member in the linker
anatofuz
parents:
diff changeset
522 // drective.
anatofuz
parents:
diff changeset
523 addUsedGlobal(COMDATKey);
anatofuz
parents:
diff changeset
524 }
anatofuz
parents:
diff changeset
525 } else if (D->hasAttr<SelectAnyAttr>()) {
anatofuz
parents:
diff changeset
526 // SelectAny globals will be comdat-folded. Put the initializer into a
anatofuz
parents:
diff changeset
527 // COMDAT group associated with the global, so the initializers get folded
anatofuz
parents:
diff changeset
528 // too.
anatofuz
parents:
diff changeset
529 AddGlobalCtor(Fn, 65535, COMDATKey);
anatofuz
parents:
diff changeset
530 } else {
anatofuz
parents:
diff changeset
531 I = DelayedCXXInitPosition.find(D); // Re-do lookup in case of re-hash.
anatofuz
parents:
diff changeset
532 if (I == DelayedCXXInitPosition.end()) {
anatofuz
parents:
diff changeset
533 CXXGlobalInits.push_back(Fn);
anatofuz
parents:
diff changeset
534 } else if (I->second != ~0U) {
anatofuz
parents:
diff changeset
535 assert(I->second < CXXGlobalInits.size() &&
anatofuz
parents:
diff changeset
536 CXXGlobalInits[I->second] == nullptr);
anatofuz
parents:
diff changeset
537 CXXGlobalInits[I->second] = Fn;
anatofuz
parents:
diff changeset
538 }
anatofuz
parents:
diff changeset
539 }
anatofuz
parents:
diff changeset
540
anatofuz
parents:
diff changeset
541 // Remember that we already emitted the initializer for this global.
anatofuz
parents:
diff changeset
542 DelayedCXXInitPosition[D] = ~0U;
anatofuz
parents:
diff changeset
543 }
anatofuz
parents:
diff changeset
544
anatofuz
parents:
diff changeset
545 void CodeGenModule::EmitCXXThreadLocalInitFunc() {
anatofuz
parents:
diff changeset
546 getCXXABI().EmitThreadLocalInitFuncs(
anatofuz
parents:
diff changeset
547 *this, CXXThreadLocals, CXXThreadLocalInits, CXXThreadLocalInitVars);
anatofuz
parents:
diff changeset
548
anatofuz
parents:
diff changeset
549 CXXThreadLocalInits.clear();
anatofuz
parents:
diff changeset
550 CXXThreadLocalInitVars.clear();
anatofuz
parents:
diff changeset
551 CXXThreadLocals.clear();
anatofuz
parents:
diff changeset
552 }
anatofuz
parents:
diff changeset
553
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
554 static SmallString<128> getTransformedFileName(llvm::Module &M) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
555 SmallString<128> FileName = llvm::sys::path::filename(M.getName());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
556
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
557 if (FileName.empty())
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
558 FileName = "<null>";
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
559
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
560 for (size_t i = 0; i < FileName.size(); ++i) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
561 // 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
562 // to be the set of C preprocessing numbers.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
563 if (!isPreprocessingNumberBody(FileName[i]))
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
564 FileName[i] = '_';
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
565 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
566
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
567 return FileName;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
568 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
569
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
570 static std::string getPrioritySuffix(unsigned int Priority) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
571 assert(Priority <= 65535 && "Priority should always be <= 65535.");
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
572
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
573 // 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
574 // sure the function names are also ordered as priorities.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
575 std::string PrioritySuffix = llvm::utostr(Priority);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
576 PrioritySuffix = std::string(6 - PrioritySuffix.size(), '0') + PrioritySuffix;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
577
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
578 return PrioritySuffix;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
579 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
580
150
anatofuz
parents:
diff changeset
581 void
anatofuz
parents:
diff changeset
582 CodeGenModule::EmitCXXGlobalInitFunc() {
anatofuz
parents:
diff changeset
583 while (!CXXGlobalInits.empty() && !CXXGlobalInits.back())
anatofuz
parents:
diff changeset
584 CXXGlobalInits.pop_back();
anatofuz
parents:
diff changeset
585
anatofuz
parents:
diff changeset
586 if (CXXGlobalInits.empty() && PrioritizedCXXGlobalInits.empty())
anatofuz
parents:
diff changeset
587 return;
anatofuz
parents:
diff changeset
588
anatofuz
parents:
diff changeset
589 llvm::FunctionType *FTy = llvm::FunctionType::get(VoidTy, false);
anatofuz
parents:
diff changeset
590 const CGFunctionInfo &FI = getTypes().arrangeNullaryFunction();
anatofuz
parents:
diff changeset
591
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
592 // Create our global prioritized initialization function.
150
anatofuz
parents:
diff changeset
593 if (!PrioritizedCXXGlobalInits.empty()) {
anatofuz
parents:
diff changeset
594 SmallVector<llvm::Function *, 8> LocalCXXGlobalInits;
anatofuz
parents:
diff changeset
595 llvm::array_pod_sort(PrioritizedCXXGlobalInits.begin(),
anatofuz
parents:
diff changeset
596 PrioritizedCXXGlobalInits.end());
anatofuz
parents:
diff changeset
597 // Iterate over "chunks" of ctors with same priority and emit each chunk
anatofuz
parents:
diff changeset
598 // into separate function. Note - everything is sorted first by priority,
anatofuz
parents:
diff changeset
599 // second - by lex order, so we emit ctor functions in proper order.
anatofuz
parents:
diff changeset
600 for (SmallVectorImpl<GlobalInitData >::iterator
anatofuz
parents:
diff changeset
601 I = PrioritizedCXXGlobalInits.begin(),
anatofuz
parents:
diff changeset
602 E = PrioritizedCXXGlobalInits.end(); I != E; ) {
anatofuz
parents:
diff changeset
603 SmallVectorImpl<GlobalInitData >::iterator
anatofuz
parents:
diff changeset
604 PrioE = std::upper_bound(I + 1, E, *I, GlobalInitPriorityCmp());
anatofuz
parents:
diff changeset
605
anatofuz
parents:
diff changeset
606 LocalCXXGlobalInits.clear();
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
607
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
608 unsigned int Priority = I->first.priority;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
609 llvm::Function *Fn = CreateGlobalInitOrCleanUpFunction(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
610 FTy, "_GLOBAL__I_" + getPrioritySuffix(Priority), FI);
150
anatofuz
parents:
diff changeset
611
anatofuz
parents:
diff changeset
612 for (; I < PrioE; ++I)
anatofuz
parents:
diff changeset
613 LocalCXXGlobalInits.push_back(I->second);
anatofuz
parents:
diff changeset
614
anatofuz
parents:
diff changeset
615 CodeGenFunction(*this).GenerateCXXGlobalInitFunc(Fn, LocalCXXGlobalInits);
anatofuz
parents:
diff changeset
616 AddGlobalCtor(Fn, Priority);
anatofuz
parents:
diff changeset
617 }
anatofuz
parents:
diff changeset
618 PrioritizedCXXGlobalInits.clear();
anatofuz
parents:
diff changeset
619 }
anatofuz
parents:
diff changeset
620
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
621 if (getCXXABI().useSinitAndSterm() && CXXGlobalInits.empty())
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
622 return;
150
anatofuz
parents:
diff changeset
623
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
624 // 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
625 // 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
626 // with priority emitted above.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
627 llvm::Function *Fn = CreateGlobalInitOrCleanUpFunction(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
628 FTy, llvm::Twine("_GLOBAL__sub_I_", getTransformedFileName(getModule())),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
629 FI);
150
anatofuz
parents:
diff changeset
630
anatofuz
parents:
diff changeset
631 CodeGenFunction(*this).GenerateCXXGlobalInitFunc(Fn, CXXGlobalInits);
anatofuz
parents:
diff changeset
632 AddGlobalCtor(Fn);
anatofuz
parents:
diff changeset
633
anatofuz
parents:
diff changeset
634 // In OpenCL global init functions must be converted to kernels in order to
anatofuz
parents:
diff changeset
635 // be able to launch them from the host.
anatofuz
parents:
diff changeset
636 // FIXME: Some more work might be needed to handle destructors correctly.
anatofuz
parents:
diff changeset
637 // Current initialization function makes use of function pointers callbacks.
anatofuz
parents:
diff changeset
638 // We can't support function pointers especially between host and device.
anatofuz
parents:
diff changeset
639 // However it seems global destruction has little meaning without any
anatofuz
parents:
diff changeset
640 // dynamic resource allocation on the device and program scope variables are
anatofuz
parents:
diff changeset
641 // destroyed by the runtime when program is released.
anatofuz
parents:
diff changeset
642 if (getLangOpts().OpenCL) {
anatofuz
parents:
diff changeset
643 GenOpenCLArgMetadata(Fn);
anatofuz
parents:
diff changeset
644 Fn->setCallingConv(llvm::CallingConv::SPIR_KERNEL);
anatofuz
parents:
diff changeset
645 }
anatofuz
parents:
diff changeset
646
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
647 assert(!getLangOpts().CUDA || !getLangOpts().CUDAIsDevice ||
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
648 getLangOpts().GPUAllowDeviceInit);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
649 if (getLangOpts().HIP && getLangOpts().CUDAIsDevice) {
150
anatofuz
parents:
diff changeset
650 Fn->setCallingConv(llvm::CallingConv::AMDGPU_KERNEL);
anatofuz
parents:
diff changeset
651 Fn->addFnAttr("device-init");
anatofuz
parents:
diff changeset
652 }
anatofuz
parents:
diff changeset
653
anatofuz
parents:
diff changeset
654 CXXGlobalInits.clear();
anatofuz
parents:
diff changeset
655 }
anatofuz
parents:
diff changeset
656
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
657 void CodeGenModule::EmitCXXGlobalCleanUpFunc() {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
658 if (CXXGlobalDtorsOrStermFinalizers.empty() &&
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
659 PrioritizedCXXStermFinalizers.empty())
150
anatofuz
parents:
diff changeset
660 return;
anatofuz
parents:
diff changeset
661
anatofuz
parents:
diff changeset
662 llvm::FunctionType *FTy = llvm::FunctionType::get(VoidTy, false);
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
663 const CGFunctionInfo &FI = getTypes().arrangeNullaryFunction();
150
anatofuz
parents:
diff changeset
664
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
665 // Create our global prioritized cleanup function.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
666 if (!PrioritizedCXXStermFinalizers.empty()) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
667 SmallVector<CXXGlobalDtorsOrStermFinalizer_t, 8> LocalCXXStermFinalizers;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
668 llvm::array_pod_sort(PrioritizedCXXStermFinalizers.begin(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
669 PrioritizedCXXStermFinalizers.end());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
670 // 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
671 // 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
672 // 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
673 for (SmallVectorImpl<StermFinalizerData>::iterator
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
674 I = PrioritizedCXXStermFinalizers.begin(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
675 E = PrioritizedCXXStermFinalizers.end();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
676 I != E;) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
677 SmallVectorImpl<StermFinalizerData>::iterator PrioE =
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
678 std::upper_bound(I + 1, E, *I, StermFinalizerPriorityCmp());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
679
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
680 LocalCXXStermFinalizers.clear();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
681
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
682 unsigned int Priority = I->first.priority;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
683 llvm::Function *Fn = CreateGlobalInitOrCleanUpFunction(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
684 FTy, "_GLOBAL__a_" + getPrioritySuffix(Priority), FI);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
685
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
686 for (; I < PrioE; ++I) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
687 llvm::FunctionCallee DtorFn = I->second;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
688 LocalCXXStermFinalizers.emplace_back(DtorFn.getFunctionType(),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
689 DtorFn.getCallee(), nullptr);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
690 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
691
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
692 CodeGenFunction(*this).GenerateCXXGlobalCleanUpFunc(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
693 Fn, LocalCXXStermFinalizers);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
694 AddGlobalDtor(Fn, Priority);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
695 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
696 PrioritizedCXXStermFinalizers.clear();
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
697 }
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
698
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
699 if (CXXGlobalDtorsOrStermFinalizers.empty())
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
700 return;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
701
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
702 // Create our global cleanup function.
150
anatofuz
parents:
diff changeset
703 llvm::Function *Fn =
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
704 CreateGlobalInitOrCleanUpFunction(FTy, "_GLOBAL__D_a", FI);
150
anatofuz
parents:
diff changeset
705
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
706 CodeGenFunction(*this).GenerateCXXGlobalCleanUpFunc(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
707 Fn, CXXGlobalDtorsOrStermFinalizers);
150
anatofuz
parents:
diff changeset
708 AddGlobalDtor(Fn);
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
709 CXXGlobalDtorsOrStermFinalizers.clear();
150
anatofuz
parents:
diff changeset
710 }
anatofuz
parents:
diff changeset
711
anatofuz
parents:
diff changeset
712 /// Emit the code necessary to initialize the given global variable.
anatofuz
parents:
diff changeset
713 void CodeGenFunction::GenerateCXXGlobalVarDeclInitFunc(llvm::Function *Fn,
anatofuz
parents:
diff changeset
714 const VarDecl *D,
anatofuz
parents:
diff changeset
715 llvm::GlobalVariable *Addr,
anatofuz
parents:
diff changeset
716 bool PerformInit) {
anatofuz
parents:
diff changeset
717 // Check if we need to emit debug info for variable initializer.
anatofuz
parents:
diff changeset
718 if (D->hasAttr<NoDebugAttr>())
anatofuz
parents:
diff changeset
719 DebugInfo = nullptr; // disable debug info indefinitely for this function
anatofuz
parents:
diff changeset
720
anatofuz
parents:
diff changeset
721 CurEHLocation = D->getBeginLoc();
anatofuz
parents:
diff changeset
722
anatofuz
parents:
diff changeset
723 StartFunction(GlobalDecl(D, DynamicInitKind::Initializer),
anatofuz
parents:
diff changeset
724 getContext().VoidTy, Fn, getTypes().arrangeNullaryFunction(),
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
725 FunctionArgList());
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
726 // Emit an artificial location for this function.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
727 auto AL = ApplyDebugLocation::CreateArtificial(*this);
150
anatofuz
parents:
diff changeset
728
anatofuz
parents:
diff changeset
729 // Use guarded initialization if the global variable is weak. This
anatofuz
parents:
diff changeset
730 // occurs for, e.g., instantiated static data members and
anatofuz
parents:
diff changeset
731 // definitions explicitly marked weak.
anatofuz
parents:
diff changeset
732 //
anatofuz
parents:
diff changeset
733 // Also use guarded initialization for a variable with dynamic TLS and
anatofuz
parents:
diff changeset
734 // unordered initialization. (If the initialization is ordered, the ABI
anatofuz
parents:
diff changeset
735 // layer will guard the whole-TU initialization for us.)
anatofuz
parents:
diff changeset
736 if (Addr->hasWeakLinkage() || Addr->hasLinkOnceLinkage() ||
anatofuz
parents:
diff changeset
737 (D->getTLSKind() == VarDecl::TLS_Dynamic &&
anatofuz
parents:
diff changeset
738 isTemplateInstantiation(D->getTemplateSpecializationKind()))) {
anatofuz
parents:
diff changeset
739 EmitCXXGuardedInit(*D, Addr, PerformInit);
anatofuz
parents:
diff changeset
740 } else {
anatofuz
parents:
diff changeset
741 EmitCXXGlobalVarDeclInit(*D, Addr, PerformInit);
anatofuz
parents:
diff changeset
742 }
anatofuz
parents:
diff changeset
743
anatofuz
parents:
diff changeset
744 FinishFunction();
anatofuz
parents:
diff changeset
745 }
anatofuz
parents:
diff changeset
746
anatofuz
parents:
diff changeset
747 void
anatofuz
parents:
diff changeset
748 CodeGenFunction::GenerateCXXGlobalInitFunc(llvm::Function *Fn,
anatofuz
parents:
diff changeset
749 ArrayRef<llvm::Function *> Decls,
anatofuz
parents:
diff changeset
750 ConstantAddress Guard) {
anatofuz
parents:
diff changeset
751 {
anatofuz
parents:
diff changeset
752 auto NL = ApplyDebugLocation::CreateEmpty(*this);
anatofuz
parents:
diff changeset
753 StartFunction(GlobalDecl(), getContext().VoidTy, Fn,
anatofuz
parents:
diff changeset
754 getTypes().arrangeNullaryFunction(), FunctionArgList());
anatofuz
parents:
diff changeset
755 // Emit an artificial location for this function.
anatofuz
parents:
diff changeset
756 auto AL = ApplyDebugLocation::CreateArtificial(*this);
anatofuz
parents:
diff changeset
757
anatofuz
parents:
diff changeset
758 llvm::BasicBlock *ExitBlock = nullptr;
anatofuz
parents:
diff changeset
759 if (Guard.isValid()) {
anatofuz
parents:
diff changeset
760 // If we have a guard variable, check whether we've already performed
anatofuz
parents:
diff changeset
761 // these initializations. This happens for TLS initialization functions.
anatofuz
parents:
diff changeset
762 llvm::Value *GuardVal = Builder.CreateLoad(Guard);
anatofuz
parents:
diff changeset
763 llvm::Value *Uninit = Builder.CreateIsNull(GuardVal,
anatofuz
parents:
diff changeset
764 "guard.uninitialized");
anatofuz
parents:
diff changeset
765 llvm::BasicBlock *InitBlock = createBasicBlock("init");
anatofuz
parents:
diff changeset
766 ExitBlock = createBasicBlock("exit");
anatofuz
parents:
diff changeset
767 EmitCXXGuardedInitBranch(Uninit, InitBlock, ExitBlock,
anatofuz
parents:
diff changeset
768 GuardKind::TlsGuard, nullptr);
anatofuz
parents:
diff changeset
769 EmitBlock(InitBlock);
anatofuz
parents:
diff changeset
770 // Mark as initialized before initializing anything else. If the
anatofuz
parents:
diff changeset
771 // initializers use previously-initialized thread_local vars, that's
anatofuz
parents:
diff changeset
772 // probably supposed to be OK, but the standard doesn't say.
anatofuz
parents:
diff changeset
773 Builder.CreateStore(llvm::ConstantInt::get(GuardVal->getType(),1), Guard);
anatofuz
parents:
diff changeset
774
anatofuz
parents:
diff changeset
775 // The guard variable can't ever change again.
anatofuz
parents:
diff changeset
776 EmitInvariantStart(
anatofuz
parents:
diff changeset
777 Guard.getPointer(),
anatofuz
parents:
diff changeset
778 CharUnits::fromQuantity(
anatofuz
parents:
diff changeset
779 CGM.getDataLayout().getTypeAllocSize(GuardVal->getType())));
anatofuz
parents:
diff changeset
780 }
anatofuz
parents:
diff changeset
781
anatofuz
parents:
diff changeset
782 RunCleanupsScope Scope(*this);
anatofuz
parents:
diff changeset
783
anatofuz
parents:
diff changeset
784 // When building in Objective-C++ ARC mode, create an autorelease pool
anatofuz
parents:
diff changeset
785 // around the global initializers.
anatofuz
parents:
diff changeset
786 if (getLangOpts().ObjCAutoRefCount && getLangOpts().CPlusPlus) {
anatofuz
parents:
diff changeset
787 llvm::Value *token = EmitObjCAutoreleasePoolPush();
anatofuz
parents:
diff changeset
788 EmitObjCAutoreleasePoolCleanup(token);
anatofuz
parents:
diff changeset
789 }
anatofuz
parents:
diff changeset
790
anatofuz
parents:
diff changeset
791 for (unsigned i = 0, e = Decls.size(); i != e; ++i)
anatofuz
parents:
diff changeset
792 if (Decls[i])
anatofuz
parents:
diff changeset
793 EmitRuntimeCall(Decls[i]);
anatofuz
parents:
diff changeset
794
anatofuz
parents:
diff changeset
795 Scope.ForceCleanup();
anatofuz
parents:
diff changeset
796
anatofuz
parents:
diff changeset
797 if (ExitBlock) {
anatofuz
parents:
diff changeset
798 Builder.CreateBr(ExitBlock);
anatofuz
parents:
diff changeset
799 EmitBlock(ExitBlock);
anatofuz
parents:
diff changeset
800 }
anatofuz
parents:
diff changeset
801 }
anatofuz
parents:
diff changeset
802
anatofuz
parents:
diff changeset
803 FinishFunction();
anatofuz
parents:
diff changeset
804 }
anatofuz
parents:
diff changeset
805
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
806 void CodeGenFunction::GenerateCXXGlobalCleanUpFunc(
150
anatofuz
parents:
diff changeset
807 llvm::Function *Fn,
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
808 ArrayRef<std::tuple<llvm::FunctionType *, llvm::WeakTrackingVH,
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
809 llvm::Constant *>>
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
810 DtorsOrStermFinalizers) {
150
anatofuz
parents:
diff changeset
811 {
anatofuz
parents:
diff changeset
812 auto NL = ApplyDebugLocation::CreateEmpty(*this);
anatofuz
parents:
diff changeset
813 StartFunction(GlobalDecl(), getContext().VoidTy, Fn,
anatofuz
parents:
diff changeset
814 getTypes().arrangeNullaryFunction(), FunctionArgList());
anatofuz
parents:
diff changeset
815 // Emit an artificial location for this function.
anatofuz
parents:
diff changeset
816 auto AL = ApplyDebugLocation::CreateArtificial(*this);
anatofuz
parents:
diff changeset
817
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
818 // Emit the cleanups, in reverse order from construction.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
819 for (unsigned i = 0, e = DtorsOrStermFinalizers.size(); i != e; ++i) {
150
anatofuz
parents:
diff changeset
820 llvm::FunctionType *CalleeTy;
anatofuz
parents:
diff changeset
821 llvm::Value *Callee;
anatofuz
parents:
diff changeset
822 llvm::Constant *Arg;
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
823 std::tie(CalleeTy, Callee, Arg) = DtorsOrStermFinalizers[e - i - 1];
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
824
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
825 llvm::CallInst *CI = nullptr;
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
826 if (Arg == nullptr) {
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
827 assert(
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
828 CGM.getCXXABI().useSinitAndSterm() &&
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
829 "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
830 CI = Builder.CreateCall(CalleeTy, Callee);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
831 } else
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
832 CI = Builder.CreateCall(CalleeTy, Callee, Arg);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
833
150
anatofuz
parents:
diff changeset
834 // Make sure the call and the callee agree on calling convention.
anatofuz
parents:
diff changeset
835 if (llvm::Function *F = dyn_cast<llvm::Function>(Callee))
anatofuz
parents:
diff changeset
836 CI->setCallingConv(F->getCallingConv());
anatofuz
parents:
diff changeset
837 }
anatofuz
parents:
diff changeset
838 }
anatofuz
parents:
diff changeset
839
anatofuz
parents:
diff changeset
840 FinishFunction();
anatofuz
parents:
diff changeset
841 }
anatofuz
parents:
diff changeset
842
anatofuz
parents:
diff changeset
843 /// generateDestroyHelper - Generates a helper function which, when
anatofuz
parents:
diff changeset
844 /// invoked, destroys the given object. The address of the object
anatofuz
parents:
diff changeset
845 /// should be in global memory.
anatofuz
parents:
diff changeset
846 llvm::Function *CodeGenFunction::generateDestroyHelper(
anatofuz
parents:
diff changeset
847 Address addr, QualType type, Destroyer *destroyer,
anatofuz
parents:
diff changeset
848 bool useEHCleanupForArray, const VarDecl *VD) {
anatofuz
parents:
diff changeset
849 FunctionArgList args;
anatofuz
parents:
diff changeset
850 ImplicitParamDecl Dst(getContext(), getContext().VoidPtrTy,
anatofuz
parents:
diff changeset
851 ImplicitParamDecl::Other);
anatofuz
parents:
diff changeset
852 args.push_back(&Dst);
anatofuz
parents:
diff changeset
853
anatofuz
parents:
diff changeset
854 const CGFunctionInfo &FI =
anatofuz
parents:
diff changeset
855 CGM.getTypes().arrangeBuiltinFunctionDeclaration(getContext().VoidTy, args);
anatofuz
parents:
diff changeset
856 llvm::FunctionType *FTy = CGM.getTypes().GetFunctionType(FI);
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
857 llvm::Function *fn = CGM.CreateGlobalInitOrCleanUpFunction(
150
anatofuz
parents:
diff changeset
858 FTy, "__cxx_global_array_dtor", FI, VD->getLocation());
anatofuz
parents:
diff changeset
859
anatofuz
parents:
diff changeset
860 CurEHLocation = VD->getBeginLoc();
anatofuz
parents:
diff changeset
861
221
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
862 StartFunction(GlobalDecl(VD, DynamicInitKind::GlobalArrayDestructor),
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
863 getContext().VoidTy, fn, FI, args);
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
864 // Emit an artificial location for this function.
79ff65ed7e25 LLVM12 Original
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 173
diff changeset
865 auto AL = ApplyDebugLocation::CreateArtificial(*this);
150
anatofuz
parents:
diff changeset
866
anatofuz
parents:
diff changeset
867 emitDestroy(addr, type, destroyer, useEHCleanupForArray);
anatofuz
parents:
diff changeset
868
anatofuz
parents:
diff changeset
869 FinishFunction();
anatofuz
parents:
diff changeset
870
anatofuz
parents:
diff changeset
871 return fn;
anatofuz
parents:
diff changeset
872 }