annotate clang/lib/CodeGen/CGDeclCXX.cpp @ 236:c4bab56944e8 llvm-original

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