Bug Summary

File:tools/clang/lib/Sema/SemaOpenMP.cpp
Warning:line 3668, column 22
Called C++ object pointer is null

Annotated Source Code

1//===--- SemaOpenMP.cpp - Semantic Analysis for OpenMP constructs ---------===//
2//
3// The LLVM Compiler Infrastructure
4//
5// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
7//
8//===----------------------------------------------------------------------===//
9/// \file
10/// \brief This file implements semantic analysis for OpenMP directives and
11/// clauses.
12///
13//===----------------------------------------------------------------------===//
14
15#include "TreeTransform.h"
16#include "clang/AST/ASTContext.h"
17#include "clang/AST/ASTMutationListener.h"
18#include "clang/AST/CXXInheritance.h"
19#include "clang/AST/Decl.h"
20#include "clang/AST/DeclCXX.h"
21#include "clang/AST/DeclOpenMP.h"
22#include "clang/AST/StmtCXX.h"
23#include "clang/AST/StmtOpenMP.h"
24#include "clang/AST/StmtVisitor.h"
25#include "clang/AST/TypeOrdering.h"
26#include "clang/Basic/OpenMPKinds.h"
27#include "clang/Basic/TargetInfo.h"
28#include "clang/Lex/Preprocessor.h"
29#include "clang/Sema/Initialization.h"
30#include "clang/Sema/Lookup.h"
31#include "clang/Sema/Scope.h"
32#include "clang/Sema/ScopeInfo.h"
33#include "clang/Sema/SemaInternal.h"
34using namespace clang;
35
36//===----------------------------------------------------------------------===//
37// Stack of data-sharing attributes for variables
38//===----------------------------------------------------------------------===//
39
40namespace {
41/// \brief Default data sharing attributes, which can be applied to directive.
42enum DefaultDataSharingAttributes {
43 DSA_unspecified = 0, /// \brief Data sharing attribute not specified.
44 DSA_none = 1 << 0, /// \brief Default data sharing attribute 'none'.
45 DSA_shared = 1 << 1 /// \brief Default data sharing attribute 'shared'.
46};
47
48/// \brief Stack for tracking declarations used in OpenMP directives and
49/// clauses and their data-sharing attributes.
50class DSAStackTy final {
51public:
52 struct DSAVarData final {
53 OpenMPDirectiveKind DKind = OMPD_unknown;
54 OpenMPClauseKind CKind = OMPC_unknown;
55 Expr *RefExpr = nullptr;
56 DeclRefExpr *PrivateCopy = nullptr;
57 SourceLocation ImplicitDSALoc;
58 DSAVarData() {}
59 };
60 typedef llvm::SmallVector<std::pair<Expr *, OverloadedOperatorKind>, 4>
61 OperatorOffsetTy;
62
63private:
64 struct DSAInfo final {
65 OpenMPClauseKind Attributes = OMPC_unknown;
66 /// Pointer to a reference expression and a flag which shows that the
67 /// variable is marked as lastprivate(true) or not (false).
68 llvm::PointerIntPair<Expr *, 1, bool> RefExpr;
69 DeclRefExpr *PrivateCopy = nullptr;
70 };
71 typedef llvm::DenseMap<ValueDecl *, DSAInfo> DeclSAMapTy;
72 typedef llvm::DenseMap<ValueDecl *, Expr *> AlignedMapTy;
73 typedef std::pair<unsigned, VarDecl *> LCDeclInfo;
74 typedef llvm::DenseMap<ValueDecl *, LCDeclInfo> LoopControlVariablesMapTy;
75 /// Struct that associates a component with the clause kind where they are
76 /// found.
77 struct MappedExprComponentTy {
78 OMPClauseMappableExprCommon::MappableExprComponentLists Components;
79 OpenMPClauseKind Kind = OMPC_unknown;
80 };
81 typedef llvm::DenseMap<ValueDecl *, MappedExprComponentTy>
82 MappedExprComponentsTy;
83 typedef llvm::StringMap<std::pair<OMPCriticalDirective *, llvm::APSInt>>
84 CriticalsWithHintsTy;
85 typedef llvm::DenseMap<OMPDependClause *, OperatorOffsetTy>
86 DoacrossDependMapTy;
87
88 struct SharingMapTy final {
89 DeclSAMapTy SharingMap;
90 AlignedMapTy AlignedMap;
91 MappedExprComponentsTy MappedExprComponents;
92 LoopControlVariablesMapTy LCVMap;
93 DefaultDataSharingAttributes DefaultAttr = DSA_unspecified;
94 SourceLocation DefaultAttrLoc;
95 OpenMPDirectiveKind Directive = OMPD_unknown;
96 DeclarationNameInfo DirectiveName;
97 Scope *CurScope = nullptr;
98 SourceLocation ConstructLoc;
99 /// Set of 'depend' clauses with 'sink|source' dependence kind. Required to
100 /// get the data (loop counters etc.) about enclosing loop-based construct.
101 /// This data is required during codegen.
102 DoacrossDependMapTy DoacrossDepends;
103 /// \brief first argument (Expr *) contains optional argument of the
104 /// 'ordered' clause, the second one is true if the regions has 'ordered'
105 /// clause, false otherwise.
106 llvm::PointerIntPair<Expr *, 1, bool> OrderedRegion;
107 bool NowaitRegion = false;
108 bool CancelRegion = false;
109 unsigned AssociatedLoops = 1;
110 SourceLocation InnerTeamsRegionLoc;
111 SharingMapTy(OpenMPDirectiveKind DKind, DeclarationNameInfo Name,
112 Scope *CurScope, SourceLocation Loc)
113 : Directive(DKind), DirectiveName(Name), CurScope(CurScope),
114 ConstructLoc(Loc) {}
115 SharingMapTy() {}
116 };
117
118 typedef SmallVector<SharingMapTy, 4> StackTy;
119
120 /// \brief Stack of used declaration and their data-sharing attributes.
121 DeclSAMapTy Threadprivates;
122 const FunctionScopeInfo *CurrentNonCapturingFunctionScope = nullptr;
123 SmallVector<std::pair<StackTy, const FunctionScopeInfo *>, 4> Stack;
124 /// \brief true, if check for DSA must be from parent directive, false, if
125 /// from current directive.
126 OpenMPClauseKind ClauseKindMode = OMPC_unknown;
127 Sema &SemaRef;
128 bool ForceCapturing = false;
129 CriticalsWithHintsTy Criticals;
130
131 typedef SmallVector<SharingMapTy, 8>::reverse_iterator reverse_iterator;
132
133 DSAVarData getDSA(StackTy::reverse_iterator &Iter, ValueDecl *D);
134
135 /// \brief Checks if the variable is a local for OpenMP region.
136 bool isOpenMPLocal(VarDecl *D, StackTy::reverse_iterator Iter);
137
138 bool isStackEmpty() const {
139 return Stack.empty() ||
140 Stack.back().second != CurrentNonCapturingFunctionScope ||
141 Stack.back().first.empty();
142 }
143
144public:
145 explicit DSAStackTy(Sema &S) : SemaRef(S) {}
146
147 bool isClauseParsingMode() const { return ClauseKindMode != OMPC_unknown; }
148 void setClauseParsingMode(OpenMPClauseKind K) { ClauseKindMode = K; }
149
150 bool isForceVarCapturing() const { return ForceCapturing; }
151 void setForceVarCapturing(bool V) { ForceCapturing = V; }
152
153 void push(OpenMPDirectiveKind DKind, const DeclarationNameInfo &DirName,
154 Scope *CurScope, SourceLocation Loc) {
155 if (Stack.empty() ||
156 Stack.back().second != CurrentNonCapturingFunctionScope)
157 Stack.emplace_back(StackTy(), CurrentNonCapturingFunctionScope);
158 Stack.back().first.emplace_back(DKind, DirName, CurScope, Loc);
159 Stack.back().first.back().DefaultAttrLoc = Loc;
160 }
161
162 void pop() {
163 assert(!Stack.back().first.empty() &&((!Stack.back().first.empty() && "Data-sharing attributes stack is empty!"
) ? static_cast<void> (0) : __assert_fail ("!Stack.back().first.empty() && \"Data-sharing attributes stack is empty!\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 164, __PRETTY_FUNCTION__))
164 "Data-sharing attributes stack is empty!")((!Stack.back().first.empty() && "Data-sharing attributes stack is empty!"
) ? static_cast<void> (0) : __assert_fail ("!Stack.back().first.empty() && \"Data-sharing attributes stack is empty!\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 164, __PRETTY_FUNCTION__))
;
165 Stack.back().first.pop_back();
166 }
167
168 /// Start new OpenMP region stack in new non-capturing function.
169 void pushFunction() {
170 const FunctionScopeInfo *CurFnScope = SemaRef.getCurFunction();
171 assert(!isa<CapturingScopeInfo>(CurFnScope))((!isa<CapturingScopeInfo>(CurFnScope)) ? static_cast<
void> (0) : __assert_fail ("!isa<CapturingScopeInfo>(CurFnScope)"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 171, __PRETTY_FUNCTION__))
;
172 CurrentNonCapturingFunctionScope = CurFnScope;
173 }
174 /// Pop region stack for non-capturing function.
175 void popFunction(const FunctionScopeInfo *OldFSI) {
176 if (!Stack.empty() && Stack.back().second == OldFSI) {
177 assert(Stack.back().first.empty())((Stack.back().first.empty()) ? static_cast<void> (0) :
__assert_fail ("Stack.back().first.empty()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 177, __PRETTY_FUNCTION__))
;
178 Stack.pop_back();
179 }
180 CurrentNonCapturingFunctionScope = nullptr;
181 for (const FunctionScopeInfo *FSI : llvm::reverse(SemaRef.FunctionScopes)) {
182 if (!isa<CapturingScopeInfo>(FSI)) {
183 CurrentNonCapturingFunctionScope = FSI;
184 break;
185 }
186 }
187 }
188
189 void addCriticalWithHint(OMPCriticalDirective *D, llvm::APSInt Hint) {
190 Criticals[D->getDirectiveName().getAsString()] = std::make_pair(D, Hint);
191 }
192 const std::pair<OMPCriticalDirective *, llvm::APSInt>
193 getCriticalWithHint(const DeclarationNameInfo &Name) const {
194 auto I = Criticals.find(Name.getAsString());
195 if (I != Criticals.end())
196 return I->second;
197 return std::make_pair(nullptr, llvm::APSInt());
198 }
199 /// \brief If 'aligned' declaration for given variable \a D was not seen yet,
200 /// add it and return NULL; otherwise return previous occurrence's expression
201 /// for diagnostics.
202 Expr *addUniqueAligned(ValueDecl *D, Expr *NewDE);
203
204 /// \brief Register specified variable as loop control variable.
205 void addLoopControlVariable(ValueDecl *D, VarDecl *Capture);
206 /// \brief Check if the specified variable is a loop control variable for
207 /// current region.
208 /// \return The index of the loop control variable in the list of associated
209 /// for-loops (from outer to inner).
210 LCDeclInfo isLoopControlVariable(ValueDecl *D);
211 /// \brief Check if the specified variable is a loop control variable for
212 /// parent region.
213 /// \return The index of the loop control variable in the list of associated
214 /// for-loops (from outer to inner).
215 LCDeclInfo isParentLoopControlVariable(ValueDecl *D);
216 /// \brief Get the loop control variable for the I-th loop (or nullptr) in
217 /// parent directive.
218 ValueDecl *getParentLoopControlVariable(unsigned I);
219
220 /// \brief Adds explicit data sharing attribute to the specified declaration.
221 void addDSA(ValueDecl *D, Expr *E, OpenMPClauseKind A,
222 DeclRefExpr *PrivateCopy = nullptr);
223
224 /// \brief Returns data sharing attributes from top of the stack for the
225 /// specified declaration.
226 DSAVarData getTopDSA(ValueDecl *D, bool FromParent);
227 /// \brief Returns data-sharing attributes for the specified declaration.
228 DSAVarData getImplicitDSA(ValueDecl *D, bool FromParent);
229 /// \brief Checks if the specified variables has data-sharing attributes which
230 /// match specified \a CPred predicate in any directive which matches \a DPred
231 /// predicate.
232 DSAVarData hasDSA(ValueDecl *D,
233 const llvm::function_ref<bool(OpenMPClauseKind)> &CPred,
234 const llvm::function_ref<bool(OpenMPDirectiveKind)> &DPred,
235 bool FromParent);
236 /// \brief Checks if the specified variables has data-sharing attributes which
237 /// match specified \a CPred predicate in any innermost directive which
238 /// matches \a DPred predicate.
239 DSAVarData
240 hasInnermostDSA(ValueDecl *D,
241 const llvm::function_ref<bool(OpenMPClauseKind)> &CPred,
242 const llvm::function_ref<bool(OpenMPDirectiveKind)> &DPred,
243 bool FromParent);
244 /// \brief Checks if the specified variables has explicit data-sharing
245 /// attributes which match specified \a CPred predicate at the specified
246 /// OpenMP region.
247 bool hasExplicitDSA(ValueDecl *D,
248 const llvm::function_ref<bool(OpenMPClauseKind)> &CPred,
249 unsigned Level, bool NotLastprivate = false);
250
251 /// \brief Returns true if the directive at level \Level matches in the
252 /// specified \a DPred predicate.
253 bool hasExplicitDirective(
254 const llvm::function_ref<bool(OpenMPDirectiveKind)> &DPred,
255 unsigned Level);
256
257 /// \brief Finds a directive which matches specified \a DPred predicate.
258 bool hasDirective(const llvm::function_ref<bool(OpenMPDirectiveKind,
259 const DeclarationNameInfo &,
260 SourceLocation)> &DPred,
261 bool FromParent);
262
263 /// \brief Returns currently analyzed directive.
264 OpenMPDirectiveKind getCurrentDirective() const {
265 return isStackEmpty() ? OMPD_unknown : Stack.back().first.back().Directive;
266 }
267 /// \brief Returns parent directive.
268 OpenMPDirectiveKind getParentDirective() const {
269 if (isStackEmpty() || Stack.back().first.size() == 1)
270 return OMPD_unknown;
271 return std::next(Stack.back().first.rbegin())->Directive;
272 }
273
274 /// \brief Set default data sharing attribute to none.
275 void setDefaultDSANone(SourceLocation Loc) {
276 assert(!isStackEmpty())((!isStackEmpty()) ? static_cast<void> (0) : __assert_fail
("!isStackEmpty()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 276, __PRETTY_FUNCTION__))
;
277 Stack.back().first.back().DefaultAttr = DSA_none;
278 Stack.back().first.back().DefaultAttrLoc = Loc;
279 }
280 /// \brief Set default data sharing attribute to shared.
281 void setDefaultDSAShared(SourceLocation Loc) {
282 assert(!isStackEmpty())((!isStackEmpty()) ? static_cast<void> (0) : __assert_fail
("!isStackEmpty()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 282, __PRETTY_FUNCTION__))
;
283 Stack.back().first.back().DefaultAttr = DSA_shared;
284 Stack.back().first.back().DefaultAttrLoc = Loc;
285 }
286
287 DefaultDataSharingAttributes getDefaultDSA() const {
288 return isStackEmpty() ? DSA_unspecified
289 : Stack.back().first.back().DefaultAttr;
290 }
291 SourceLocation getDefaultDSALocation() const {
292 return isStackEmpty() ? SourceLocation()
293 : Stack.back().first.back().DefaultAttrLoc;
294 }
295
296 /// \brief Checks if the specified variable is a threadprivate.
297 bool isThreadPrivate(VarDecl *D) {
298 DSAVarData DVar = getTopDSA(D, false);
299 return isOpenMPThreadPrivate(DVar.CKind);
300 }
301
302 /// \brief Marks current region as ordered (it has an 'ordered' clause).
303 void setOrderedRegion(bool IsOrdered, Expr *Param) {
304 assert(!isStackEmpty())((!isStackEmpty()) ? static_cast<void> (0) : __assert_fail
("!isStackEmpty()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 304, __PRETTY_FUNCTION__))
;
305 Stack.back().first.back().OrderedRegion.setInt(IsOrdered);
306 Stack.back().first.back().OrderedRegion.setPointer(Param);
307 }
308 /// \brief Returns true, if parent region is ordered (has associated
309 /// 'ordered' clause), false - otherwise.
310 bool isParentOrderedRegion() const {
311 if (isStackEmpty() || Stack.back().first.size() == 1)
312 return false;
313 return std::next(Stack.back().first.rbegin())->OrderedRegion.getInt();
314 }
315 /// \brief Returns optional parameter for the ordered region.
316 Expr *getParentOrderedRegionParam() const {
317 if (isStackEmpty() || Stack.back().first.size() == 1)
318 return nullptr;
319 return std::next(Stack.back().first.rbegin())->OrderedRegion.getPointer();
320 }
321 /// \brief Marks current region as nowait (it has a 'nowait' clause).
322 void setNowaitRegion(bool IsNowait = true) {
323 assert(!isStackEmpty())((!isStackEmpty()) ? static_cast<void> (0) : __assert_fail
("!isStackEmpty()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 323, __PRETTY_FUNCTION__))
;
324 Stack.back().first.back().NowaitRegion = IsNowait;
325 }
326 /// \brief Returns true, if parent region is nowait (has associated
327 /// 'nowait' clause), false - otherwise.
328 bool isParentNowaitRegion() const {
329 if (isStackEmpty() || Stack.back().first.size() == 1)
330 return false;
331 return std::next(Stack.back().first.rbegin())->NowaitRegion;
332 }
333 /// \brief Marks parent region as cancel region.
334 void setParentCancelRegion(bool Cancel = true) {
335 if (!isStackEmpty() && Stack.back().first.size() > 1) {
336 auto &StackElemRef = *std::next(Stack.back().first.rbegin());
337 StackElemRef.CancelRegion |= StackElemRef.CancelRegion || Cancel;
338 }
339 }
340 /// \brief Return true if current region has inner cancel construct.
341 bool isCancelRegion() const {
342 return isStackEmpty() ? false : Stack.back().first.back().CancelRegion;
343 }
344
345 /// \brief Set collapse value for the region.
346 void setAssociatedLoops(unsigned Val) {
347 assert(!isStackEmpty())((!isStackEmpty()) ? static_cast<void> (0) : __assert_fail
("!isStackEmpty()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 347, __PRETTY_FUNCTION__))
;
348 Stack.back().first.back().AssociatedLoops = Val;
349 }
350 /// \brief Return collapse value for region.
351 unsigned getAssociatedLoops() const {
352 return isStackEmpty() ? 0 : Stack.back().first.back().AssociatedLoops;
353 }
354
355 /// \brief Marks current target region as one with closely nested teams
356 /// region.
357 void setParentTeamsRegionLoc(SourceLocation TeamsRegionLoc) {
358 if (!isStackEmpty() && Stack.back().first.size() > 1) {
359 std::next(Stack.back().first.rbegin())->InnerTeamsRegionLoc =
360 TeamsRegionLoc;
361 }
362 }
363 /// \brief Returns true, if current region has closely nested teams region.
364 bool hasInnerTeamsRegion() const {
365 return getInnerTeamsRegionLoc().isValid();
366 }
367 /// \brief Returns location of the nested teams region (if any).
368 SourceLocation getInnerTeamsRegionLoc() const {
369 return isStackEmpty() ? SourceLocation()
370 : Stack.back().first.back().InnerTeamsRegionLoc;
371 }
372
373 Scope *getCurScope() const {
374 return isStackEmpty() ? nullptr : Stack.back().first.back().CurScope;
375 }
376 Scope *getCurScope() {
377 return isStackEmpty() ? nullptr : Stack.back().first.back().CurScope;
378 }
379 SourceLocation getConstructLoc() {
380 return isStackEmpty() ? SourceLocation()
381 : Stack.back().first.back().ConstructLoc;
382 }
383
384 /// Do the check specified in \a Check to all component lists and return true
385 /// if any issue is found.
386 bool checkMappableExprComponentListsForDecl(
387 ValueDecl *VD, bool CurrentRegionOnly,
388 const llvm::function_ref<
389 bool(OMPClauseMappableExprCommon::MappableExprComponentListRef,
390 OpenMPClauseKind)> &Check) {
391 if (isStackEmpty())
392 return false;
393 auto SI = Stack.back().first.rbegin();
394 auto SE = Stack.back().first.rend();
395
396 if (SI == SE)
397 return false;
398
399 if (CurrentRegionOnly) {
400 SE = std::next(SI);
401 } else {
402 ++SI;
403 }
404
405 for (; SI != SE; ++SI) {
406 auto MI = SI->MappedExprComponents.find(VD);
407 if (MI != SI->MappedExprComponents.end())
408 for (auto &L : MI->second.Components)
409 if (Check(L, MI->second.Kind))
410 return true;
411 }
412 return false;
413 }
414
415 /// Create a new mappable expression component list associated with a given
416 /// declaration and initialize it with the provided list of components.
417 void addMappableExpressionComponents(
418 ValueDecl *VD,
419 OMPClauseMappableExprCommon::MappableExprComponentListRef Components,
420 OpenMPClauseKind WhereFoundClauseKind) {
421 assert(!isStackEmpty() &&((!isStackEmpty() && "Not expecting to retrieve components from a empty stack!"
) ? static_cast<void> (0) : __assert_fail ("!isStackEmpty() && \"Not expecting to retrieve components from a empty stack!\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 422, __PRETTY_FUNCTION__))
422 "Not expecting to retrieve components from a empty stack!")((!isStackEmpty() && "Not expecting to retrieve components from a empty stack!"
) ? static_cast<void> (0) : __assert_fail ("!isStackEmpty() && \"Not expecting to retrieve components from a empty stack!\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 422, __PRETTY_FUNCTION__))
;
423 auto &MEC = Stack.back().first.back().MappedExprComponents[VD];
424 // Create new entry and append the new components there.
425 MEC.Components.resize(MEC.Components.size() + 1);
426 MEC.Components.back().append(Components.begin(), Components.end());
427 MEC.Kind = WhereFoundClauseKind;
428 }
429
430 unsigned getNestingLevel() const {
431 assert(!isStackEmpty())((!isStackEmpty()) ? static_cast<void> (0) : __assert_fail
("!isStackEmpty()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 431, __PRETTY_FUNCTION__))
;
432 return Stack.back().first.size() - 1;
433 }
434 void addDoacrossDependClause(OMPDependClause *C, OperatorOffsetTy &OpsOffs) {
435 assert(!isStackEmpty() && Stack.back().first.size() > 1)((!isStackEmpty() && Stack.back().first.size() > 1
) ? static_cast<void> (0) : __assert_fail ("!isStackEmpty() && Stack.back().first.size() > 1"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 435, __PRETTY_FUNCTION__))
;
436 auto &StackElem = *std::next(Stack.back().first.rbegin());
437 assert(isOpenMPWorksharingDirective(StackElem.Directive))((isOpenMPWorksharingDirective(StackElem.Directive)) ? static_cast
<void> (0) : __assert_fail ("isOpenMPWorksharingDirective(StackElem.Directive)"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 437, __PRETTY_FUNCTION__))
;
438 StackElem.DoacrossDepends.insert({C, OpsOffs});
439 }
440 llvm::iterator_range<DoacrossDependMapTy::const_iterator>
441 getDoacrossDependClauses() const {
442 assert(!isStackEmpty())((!isStackEmpty()) ? static_cast<void> (0) : __assert_fail
("!isStackEmpty()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 442, __PRETTY_FUNCTION__))
;
443 auto &StackElem = Stack.back().first.back();
444 if (isOpenMPWorksharingDirective(StackElem.Directive)) {
445 auto &Ref = StackElem.DoacrossDepends;
446 return llvm::make_range(Ref.begin(), Ref.end());
447 }
448 return llvm::make_range(StackElem.DoacrossDepends.end(),
449 StackElem.DoacrossDepends.end());
450 }
451};
452bool isParallelOrTaskRegion(OpenMPDirectiveKind DKind) {
453 return isOpenMPParallelDirective(DKind) || isOpenMPTaskingDirective(DKind) ||
454 isOpenMPTeamsDirective(DKind) || DKind == OMPD_unknown;
455}
456} // namespace
457
458static ValueDecl *getCanonicalDecl(ValueDecl *D) {
459 auto *VD = dyn_cast<VarDecl>(D);
460 auto *FD = dyn_cast<FieldDecl>(D);
461 if (VD != nullptr) {
462 VD = VD->getCanonicalDecl();
463 D = VD;
464 } else {
465 assert(FD)((FD) ? static_cast<void> (0) : __assert_fail ("FD", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 465, __PRETTY_FUNCTION__))
;
466 FD = FD->getCanonicalDecl();
467 D = FD;
468 }
469 return D;
470}
471
472DSAStackTy::DSAVarData DSAStackTy::getDSA(StackTy::reverse_iterator &Iter,
473 ValueDecl *D) {
474 D = getCanonicalDecl(D);
475 auto *VD = dyn_cast<VarDecl>(D);
476 auto *FD = dyn_cast<FieldDecl>(D);
477 DSAVarData DVar;
478 if (isStackEmpty() || Iter == Stack.back().first.rend()) {
479 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
480 // in a region but not in construct]
481 // File-scope or namespace-scope variables referenced in called routines
482 // in the region are shared unless they appear in a threadprivate
483 // directive.
484 if (VD && !VD->isFunctionOrMethodVarDecl() && !isa<ParmVarDecl>(D))
485 DVar.CKind = OMPC_shared;
486
487 // OpenMP [2.9.1.2, Data-sharing Attribute Rules for Variables Referenced
488 // in a region but not in construct]
489 // Variables with static storage duration that are declared in called
490 // routines in the region are shared.
491 if (VD && VD->hasGlobalStorage())
492 DVar.CKind = OMPC_shared;
493
494 // Non-static data members are shared by default.
495 if (FD)
496 DVar.CKind = OMPC_shared;
497
498 return DVar;
499 }
500
501 DVar.DKind = Iter->Directive;
502 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
503 // in a Construct, C/C++, predetermined, p.1]
504 // Variables with automatic storage duration that are declared in a scope
505 // inside the construct are private.
506 if (VD && isOpenMPLocal(VD, Iter) && VD->isLocalVarDecl() &&
507 (VD->getStorageClass() == SC_Auto || VD->getStorageClass() == SC_None)) {
508 DVar.CKind = OMPC_private;
509 return DVar;
510 }
511
512 // Explicitly specified attributes and local variables with predetermined
513 // attributes.
514 if (Iter->SharingMap.count(D)) {
515 DVar.RefExpr = Iter->SharingMap[D].RefExpr.getPointer();
516 DVar.PrivateCopy = Iter->SharingMap[D].PrivateCopy;
517 DVar.CKind = Iter->SharingMap[D].Attributes;
518 DVar.ImplicitDSALoc = Iter->DefaultAttrLoc;
519 return DVar;
520 }
521
522 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
523 // in a Construct, C/C++, implicitly determined, p.1]
524 // In a parallel or task construct, the data-sharing attributes of these
525 // variables are determined by the default clause, if present.
526 switch (Iter->DefaultAttr) {
527 case DSA_shared:
528 DVar.CKind = OMPC_shared;
529 DVar.ImplicitDSALoc = Iter->DefaultAttrLoc;
530 return DVar;
531 case DSA_none:
532 return DVar;
533 case DSA_unspecified:
534 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
535 // in a Construct, implicitly determined, p.2]
536 // In a parallel construct, if no default clause is present, these
537 // variables are shared.
538 DVar.ImplicitDSALoc = Iter->DefaultAttrLoc;
539 if (isOpenMPParallelDirective(DVar.DKind) ||
540 isOpenMPTeamsDirective(DVar.DKind)) {
541 DVar.CKind = OMPC_shared;
542 return DVar;
543 }
544
545 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
546 // in a Construct, implicitly determined, p.4]
547 // In a task construct, if no default clause is present, a variable that in
548 // the enclosing context is determined to be shared by all implicit tasks
549 // bound to the current team is shared.
550 if (isOpenMPTaskingDirective(DVar.DKind)) {
551 DSAVarData DVarTemp;
552 auto I = Iter, E = Stack.back().first.rend();
553 do {
554 ++I;
555 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables
556 // Referenced in a Construct, implicitly determined, p.6]
557 // In a task construct, if no default clause is present, a variable
558 // whose data-sharing attribute is not determined by the rules above is
559 // firstprivate.
560 DVarTemp = getDSA(I, D);
561 if (DVarTemp.CKind != OMPC_shared) {
562 DVar.RefExpr = nullptr;
563 DVar.CKind = OMPC_firstprivate;
564 return DVar;
565 }
566 } while (I != E && !isParallelOrTaskRegion(I->Directive));
567 DVar.CKind =
568 (DVarTemp.CKind == OMPC_unknown) ? OMPC_firstprivate : OMPC_shared;
569 return DVar;
570 }
571 }
572 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
573 // in a Construct, implicitly determined, p.3]
574 // For constructs other than task, if no default clause is present, these
575 // variables inherit their data-sharing attributes from the enclosing
576 // context.
577 return getDSA(++Iter, D);
578}
579
580Expr *DSAStackTy::addUniqueAligned(ValueDecl *D, Expr *NewDE) {
581 assert(!isStackEmpty() && "Data sharing attributes stack is empty")((!isStackEmpty() && "Data sharing attributes stack is empty"
) ? static_cast<void> (0) : __assert_fail ("!isStackEmpty() && \"Data sharing attributes stack is empty\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 581, __PRETTY_FUNCTION__))
;
582 D = getCanonicalDecl(D);
583 auto &StackElem = Stack.back().first.back();
584 auto It = StackElem.AlignedMap.find(D);
585 if (It == StackElem.AlignedMap.end()) {
586 assert(NewDE && "Unexpected nullptr expr to be added into aligned map")((NewDE && "Unexpected nullptr expr to be added into aligned map"
) ? static_cast<void> (0) : __assert_fail ("NewDE && \"Unexpected nullptr expr to be added into aligned map\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 586, __PRETTY_FUNCTION__))
;
587 StackElem.AlignedMap[D] = NewDE;
588 return nullptr;
589 } else {
590 assert(It->second && "Unexpected nullptr expr in the aligned map")((It->second && "Unexpected nullptr expr in the aligned map"
) ? static_cast<void> (0) : __assert_fail ("It->second && \"Unexpected nullptr expr in the aligned map\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 590, __PRETTY_FUNCTION__))
;
591 return It->second;
592 }
593 return nullptr;
594}
595
596void DSAStackTy::addLoopControlVariable(ValueDecl *D, VarDecl *Capture) {
597 assert(!isStackEmpty() && "Data-sharing attributes stack is empty")((!isStackEmpty() && "Data-sharing attributes stack is empty"
) ? static_cast<void> (0) : __assert_fail ("!isStackEmpty() && \"Data-sharing attributes stack is empty\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 597, __PRETTY_FUNCTION__))
;
598 D = getCanonicalDecl(D);
599 auto &StackElem = Stack.back().first.back();
600 StackElem.LCVMap.insert(
601 {D, LCDeclInfo(StackElem.LCVMap.size() + 1, Capture)});
602}
603
604DSAStackTy::LCDeclInfo DSAStackTy::isLoopControlVariable(ValueDecl *D) {
605 assert(!isStackEmpty() && "Data-sharing attributes stack is empty")((!isStackEmpty() && "Data-sharing attributes stack is empty"
) ? static_cast<void> (0) : __assert_fail ("!isStackEmpty() && \"Data-sharing attributes stack is empty\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 605, __PRETTY_FUNCTION__))
;
606 D = getCanonicalDecl(D);
607 auto &StackElem = Stack.back().first.back();
608 auto It = StackElem.LCVMap.find(D);
609 if (It != StackElem.LCVMap.end())
610 return It->second;
611 return {0, nullptr};
612}
613
614DSAStackTy::LCDeclInfo DSAStackTy::isParentLoopControlVariable(ValueDecl *D) {
615 assert(!isStackEmpty() && Stack.back().first.size() > 1 &&((!isStackEmpty() && Stack.back().first.size() > 1
&& "Data-sharing attributes stack is empty") ? static_cast
<void> (0) : __assert_fail ("!isStackEmpty() && Stack.back().first.size() > 1 && \"Data-sharing attributes stack is empty\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 616, __PRETTY_FUNCTION__))
616 "Data-sharing attributes stack is empty")((!isStackEmpty() && Stack.back().first.size() > 1
&& "Data-sharing attributes stack is empty") ? static_cast
<void> (0) : __assert_fail ("!isStackEmpty() && Stack.back().first.size() > 1 && \"Data-sharing attributes stack is empty\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 616, __PRETTY_FUNCTION__))
;
617 D = getCanonicalDecl(D);
618 auto &StackElem = *std::next(Stack.back().first.rbegin());
619 auto It = StackElem.LCVMap.find(D);
620 if (It != StackElem.LCVMap.end())
621 return It->second;
622 return {0, nullptr};
623}
624
625ValueDecl *DSAStackTy::getParentLoopControlVariable(unsigned I) {
626 assert(!isStackEmpty() && Stack.back().first.size() > 1 &&((!isStackEmpty() && Stack.back().first.size() > 1
&& "Data-sharing attributes stack is empty") ? static_cast
<void> (0) : __assert_fail ("!isStackEmpty() && Stack.back().first.size() > 1 && \"Data-sharing attributes stack is empty\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 627, __PRETTY_FUNCTION__))
627 "Data-sharing attributes stack is empty")((!isStackEmpty() && Stack.back().first.size() > 1
&& "Data-sharing attributes stack is empty") ? static_cast
<void> (0) : __assert_fail ("!isStackEmpty() && Stack.back().first.size() > 1 && \"Data-sharing attributes stack is empty\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 627, __PRETTY_FUNCTION__))
;
628 auto &StackElem = *std::next(Stack.back().first.rbegin());
629 if (StackElem.LCVMap.size() < I)
630 return nullptr;
631 for (auto &Pair : StackElem.LCVMap)
632 if (Pair.second.first == I)
633 return Pair.first;
634 return nullptr;
635}
636
637void DSAStackTy::addDSA(ValueDecl *D, Expr *E, OpenMPClauseKind A,
638 DeclRefExpr *PrivateCopy) {
639 D = getCanonicalDecl(D);
640 if (A == OMPC_threadprivate) {
641 auto &Data = Threadprivates[D];
642 Data.Attributes = A;
643 Data.RefExpr.setPointer(E);
644 Data.PrivateCopy = nullptr;
645 } else {
646 assert(!isStackEmpty() && "Data-sharing attributes stack is empty")((!isStackEmpty() && "Data-sharing attributes stack is empty"
) ? static_cast<void> (0) : __assert_fail ("!isStackEmpty() && \"Data-sharing attributes stack is empty\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 646, __PRETTY_FUNCTION__))
;
647 auto &Data = Stack.back().first.back().SharingMap[D];
648 assert(Data.Attributes == OMPC_unknown || (A == Data.Attributes) ||((Data.Attributes == OMPC_unknown || (A == Data.Attributes) ||
(A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate
) || (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate
) || (isLoopControlVariable(D).first && A == OMPC_private
)) ? static_cast<void> (0) : __assert_fail ("Data.Attributes == OMPC_unknown || (A == Data.Attributes) || (A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate) || (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate) || (isLoopControlVariable(D).first && A == OMPC_private)"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 651, __PRETTY_FUNCTION__))
649 (A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate) ||((Data.Attributes == OMPC_unknown || (A == Data.Attributes) ||
(A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate
) || (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate
) || (isLoopControlVariable(D).first && A == OMPC_private
)) ? static_cast<void> (0) : __assert_fail ("Data.Attributes == OMPC_unknown || (A == Data.Attributes) || (A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate) || (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate) || (isLoopControlVariable(D).first && A == OMPC_private)"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 651, __PRETTY_FUNCTION__))
650 (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate) ||((Data.Attributes == OMPC_unknown || (A == Data.Attributes) ||
(A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate
) || (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate
) || (isLoopControlVariable(D).first && A == OMPC_private
)) ? static_cast<void> (0) : __assert_fail ("Data.Attributes == OMPC_unknown || (A == Data.Attributes) || (A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate) || (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate) || (isLoopControlVariable(D).first && A == OMPC_private)"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 651, __PRETTY_FUNCTION__))
651 (isLoopControlVariable(D).first && A == OMPC_private))((Data.Attributes == OMPC_unknown || (A == Data.Attributes) ||
(A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate
) || (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate
) || (isLoopControlVariable(D).first && A == OMPC_private
)) ? static_cast<void> (0) : __assert_fail ("Data.Attributes == OMPC_unknown || (A == Data.Attributes) || (A == OMPC_firstprivate && Data.Attributes == OMPC_lastprivate) || (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate) || (isLoopControlVariable(D).first && A == OMPC_private)"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 651, __PRETTY_FUNCTION__))
;
652 if (A == OMPC_lastprivate && Data.Attributes == OMPC_firstprivate) {
653 Data.RefExpr.setInt(/*IntVal=*/true);
654 return;
655 }
656 const bool IsLastprivate =
657 A == OMPC_lastprivate || Data.Attributes == OMPC_lastprivate;
658 Data.Attributes = A;
659 Data.RefExpr.setPointerAndInt(E, IsLastprivate);
660 Data.PrivateCopy = PrivateCopy;
661 if (PrivateCopy) {
662 auto &Data = Stack.back().first.back().SharingMap[PrivateCopy->getDecl()];
663 Data.Attributes = A;
664 Data.RefExpr.setPointerAndInt(PrivateCopy, IsLastprivate);
665 Data.PrivateCopy = nullptr;
666 }
667 }
668}
669
670bool DSAStackTy::isOpenMPLocal(VarDecl *D, StackTy::reverse_iterator Iter) {
671 D = D->getCanonicalDecl();
672 if (!isStackEmpty() && Stack.back().first.size() > 1) {
673 reverse_iterator I = Iter, E = Stack.back().first.rend();
674 Scope *TopScope = nullptr;
675 while (I != E && !isParallelOrTaskRegion(I->Directive))
676 ++I;
677 if (I == E)
678 return false;
679 TopScope = I->CurScope ? I->CurScope->getParent() : nullptr;
680 Scope *CurScope = getCurScope();
681 while (CurScope != TopScope && !CurScope->isDeclScope(D))
682 CurScope = CurScope->getParent();
683 return CurScope != TopScope;
684 }
685 return false;
686}
687
688/// \brief Build a variable declaration for OpenMP loop iteration variable.
689static VarDecl *buildVarDecl(Sema &SemaRef, SourceLocation Loc, QualType Type,
690 StringRef Name, const AttrVec *Attrs = nullptr) {
691 DeclContext *DC = SemaRef.CurContext;
692 IdentifierInfo *II = &SemaRef.PP.getIdentifierTable().get(Name);
693 TypeSourceInfo *TInfo = SemaRef.Context.getTrivialTypeSourceInfo(Type, Loc);
694 VarDecl *Decl =
695 VarDecl::Create(SemaRef.Context, DC, Loc, Loc, II, Type, TInfo, SC_None);
696 if (Attrs) {
697 for (specific_attr_iterator<AlignedAttr> I(Attrs->begin()), E(Attrs->end());
698 I != E; ++I)
699 Decl->addAttr(*I);
700 }
701 Decl->setImplicit();
702 return Decl;
703}
704
705static DeclRefExpr *buildDeclRefExpr(Sema &S, VarDecl *D, QualType Ty,
706 SourceLocation Loc,
707 bool RefersToCapture = false) {
708 D->setReferenced();
709 D->markUsed(S.Context);
710 return DeclRefExpr::Create(S.getASTContext(), NestedNameSpecifierLoc(),
711 SourceLocation(), D, RefersToCapture, Loc, Ty,
712 VK_LValue);
713}
714
715DSAStackTy::DSAVarData DSAStackTy::getTopDSA(ValueDecl *D, bool FromParent) {
716 D = getCanonicalDecl(D);
717 DSAVarData DVar;
718
719 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
720 // in a Construct, C/C++, predetermined, p.1]
721 // Variables appearing in threadprivate directives are threadprivate.
722 auto *VD = dyn_cast<VarDecl>(D);
723 if ((VD && VD->getTLSKind() != VarDecl::TLS_None &&
724 !(VD->hasAttr<OMPThreadPrivateDeclAttr>() &&
725 SemaRef.getLangOpts().OpenMPUseTLS &&
726 SemaRef.getASTContext().getTargetInfo().isTLSSupported())) ||
727 (VD && VD->getStorageClass() == SC_Register &&
728 VD->hasAttr<AsmLabelAttr>() && !VD->isLocalVarDecl())) {
729 addDSA(D, buildDeclRefExpr(SemaRef, VD, D->getType().getNonReferenceType(),
730 D->getLocation()),
731 OMPC_threadprivate);
732 }
733 auto TI = Threadprivates.find(D);
734 if (TI != Threadprivates.end()) {
735 DVar.RefExpr = TI->getSecond().RefExpr.getPointer();
736 DVar.CKind = OMPC_threadprivate;
737 return DVar;
738 }
739
740 if (isStackEmpty())
741 // Not in OpenMP execution region and top scope was already checked.
742 return DVar;
743
744 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
745 // in a Construct, C/C++, predetermined, p.4]
746 // Static data members are shared.
747 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
748 // in a Construct, C/C++, predetermined, p.7]
749 // Variables with static storage duration that are declared in a scope
750 // inside the construct are shared.
751 auto &&MatchesAlways = [](OpenMPDirectiveKind) -> bool { return true; };
752 if (VD && VD->isStaticDataMember()) {
753 DSAVarData DVarTemp = hasDSA(D, isOpenMPPrivate, MatchesAlways, FromParent);
754 if (DVarTemp.CKind != OMPC_unknown && DVarTemp.RefExpr)
755 return DVar;
756
757 DVar.CKind = OMPC_shared;
758 return DVar;
759 }
760
761 QualType Type = D->getType().getNonReferenceType().getCanonicalType();
762 bool IsConstant = Type.isConstant(SemaRef.getASTContext());
763 Type = SemaRef.getASTContext().getBaseElementType(Type);
764 // OpenMP [2.9.1.1, Data-sharing Attribute Rules for Variables Referenced
765 // in a Construct, C/C++, predetermined, p.6]
766 // Variables with const qualified type having no mutable member are
767 // shared.
768 CXXRecordDecl *RD =
769 SemaRef.getLangOpts().CPlusPlus ? Type->getAsCXXRecordDecl() : nullptr;
770 if (auto *CTSD = dyn_cast_or_null<ClassTemplateSpecializationDecl>(RD))
771 if (auto *CTD = CTSD->getSpecializedTemplate())
772 RD = CTD->getTemplatedDecl();
773 if (IsConstant &&
774 !(SemaRef.getLangOpts().CPlusPlus && RD && RD->hasDefinition() &&
775 RD->hasMutableFields())) {
776 // Variables with const-qualified type having no mutable member may be
777 // listed in a firstprivate clause, even if they are static data members.
778 DSAVarData DVarTemp = hasDSA(
779 D, [](OpenMPClauseKind C) -> bool { return C == OMPC_firstprivate; },
780 MatchesAlways, FromParent);
781 if (DVarTemp.CKind == OMPC_firstprivate && DVarTemp.RefExpr)
782 return DVar;
783
784 DVar.CKind = OMPC_shared;
785 return DVar;
786 }
787
788 // Explicitly specified attributes and local variables with predetermined
789 // attributes.
790 auto StartI = std::next(Stack.back().first.rbegin());
791 auto EndI = Stack.back().first.rend();
792 if (FromParent && StartI != EndI)
793 StartI = std::next(StartI);
794 auto I = std::prev(StartI);
795 if (I->SharingMap.count(D)) {
796 DVar.RefExpr = I->SharingMap[D].RefExpr.getPointer();
797 DVar.PrivateCopy = I->SharingMap[D].PrivateCopy;
798 DVar.CKind = I->SharingMap[D].Attributes;
799 DVar.ImplicitDSALoc = I->DefaultAttrLoc;
800 }
801
802 return DVar;
803}
804
805DSAStackTy::DSAVarData DSAStackTy::getImplicitDSA(ValueDecl *D,
806 bool FromParent) {
807 if (isStackEmpty()) {
808 StackTy::reverse_iterator I;
809 return getDSA(I, D);
810 }
811 D = getCanonicalDecl(D);
812 auto StartI = Stack.back().first.rbegin();
813 auto EndI = Stack.back().first.rend();
814 if (FromParent && StartI != EndI)
815 StartI = std::next(StartI);
816 return getDSA(StartI, D);
817}
818
819DSAStackTy::DSAVarData
820DSAStackTy::hasDSA(ValueDecl *D,
821 const llvm::function_ref<bool(OpenMPClauseKind)> &CPred,
822 const llvm::function_ref<bool(OpenMPDirectiveKind)> &DPred,
823 bool FromParent) {
824 if (isStackEmpty())
825 return {};
826 D = getCanonicalDecl(D);
827 auto I = (FromParent && Stack.back().first.size() > 1)
828 ? std::next(Stack.back().first.rbegin())
829 : Stack.back().first.rbegin();
830 auto EndI = Stack.back().first.rend();
831 while (std::distance(I, EndI) > 1) {
832 std::advance(I, 1);
833 if (!DPred(I->Directive) && !isParallelOrTaskRegion(I->Directive))
834 continue;
835 DSAVarData DVar = getDSA(I, D);
836 if (CPred(DVar.CKind))
837 return DVar;
838 }
839 return {};
840}
841
842DSAStackTy::DSAVarData DSAStackTy::hasInnermostDSA(
843 ValueDecl *D, const llvm::function_ref<bool(OpenMPClauseKind)> &CPred,
844 const llvm::function_ref<bool(OpenMPDirectiveKind)> &DPred,
845 bool FromParent) {
846 if (isStackEmpty())
847 return {};
848 D = getCanonicalDecl(D);
849 auto StartI = std::next(Stack.back().first.rbegin());
850 auto EndI = Stack.back().first.rend();
851 if (FromParent && StartI != EndI)
852 StartI = std::next(StartI);
853 if (StartI == EndI || !DPred(StartI->Directive))
854 return {};
855 DSAVarData DVar = getDSA(StartI, D);
856 return CPred(DVar.CKind) ? DVar : DSAVarData();
857}
858
859bool DSAStackTy::hasExplicitDSA(
860 ValueDecl *D, const llvm::function_ref<bool(OpenMPClauseKind)> &CPred,
861 unsigned Level, bool NotLastprivate) {
862 if (CPred(ClauseKindMode))
863 return true;
864 if (isStackEmpty())
865 return false;
866 D = getCanonicalDecl(D);
867 auto StartI = Stack.back().first.begin();
868 auto EndI = Stack.back().first.end();
869 if (std::distance(StartI, EndI) <= (int)Level)
870 return false;
871 std::advance(StartI, Level);
872 return (StartI->SharingMap.count(D) > 0) &&
873 StartI->SharingMap[D].RefExpr.getPointer() &&
874 CPred(StartI->SharingMap[D].Attributes) &&
875 (!NotLastprivate || !StartI->SharingMap[D].RefExpr.getInt());
876}
877
878bool DSAStackTy::hasExplicitDirective(
879 const llvm::function_ref<bool(OpenMPDirectiveKind)> &DPred,
880 unsigned Level) {
881 if (isStackEmpty())
882 return false;
883 auto StartI = Stack.back().first.begin();
884 auto EndI = Stack.back().first.end();
885 if (std::distance(StartI, EndI) <= (int)Level)
886 return false;
887 std::advance(StartI, Level);
888 return DPred(StartI->Directive);
889}
890
891bool DSAStackTy::hasDirective(
892 const llvm::function_ref<bool(OpenMPDirectiveKind,
893 const DeclarationNameInfo &, SourceLocation)>
894 &DPred,
895 bool FromParent) {
896 // We look only in the enclosing region.
897 if (isStackEmpty())
898 return false;
899 auto StartI = std::next(Stack.back().first.rbegin());
900 auto EndI = Stack.back().first.rend();
901 if (FromParent && StartI != EndI)
902 StartI = std::next(StartI);
903 for (auto I = StartI, EE = EndI; I != EE; ++I) {
904 if (DPred(I->Directive, I->DirectiveName, I->ConstructLoc))
905 return true;
906 }
907 return false;
908}
909
910void Sema::InitDataSharingAttributesStack() {
911 VarDataSharingAttributesStack = new DSAStackTy(*this);
912}
913
914#define DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
static_cast<DSAStackTy *>(VarDataSharingAttributesStack)
915
916void Sema::pushOpenMPFunctionRegion() {
917 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->pushFunction();
918}
919
920void Sema::popOpenMPFunctionRegion(const FunctionScopeInfo *OldFSI) {
921 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->popFunction(OldFSI);
922}
923
924bool Sema::IsOpenMPCapturedByRef(ValueDecl *D, unsigned Level) {
925 assert(LangOpts.OpenMP && "OpenMP is not allowed")((LangOpts.OpenMP && "OpenMP is not allowed") ? static_cast
<void> (0) : __assert_fail ("LangOpts.OpenMP && \"OpenMP is not allowed\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 925, __PRETTY_FUNCTION__))
;
926
927 auto &Ctx = getASTContext();
928 bool IsByRef = true;
929
930 // Find the directive that is associated with the provided scope.
931 auto Ty = D->getType();
932
933 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->hasExplicitDirective(isOpenMPTargetExecutionDirective, Level)) {
934 // This table summarizes how a given variable should be passed to the device
935 // given its type and the clauses where it appears. This table is based on
936 // the description in OpenMP 4.5 [2.10.4, target Construct] and
937 // OpenMP 4.5 [2.15.5, Data-mapping Attribute Rules and Clauses].
938 //
939 // =========================================================================
940 // | type | defaultmap | pvt | first | is_device_ptr | map | res. |
941 // | |(tofrom:scalar)| | pvt | | | |
942 // =========================================================================
943 // | scl | | | | - | | bycopy|
944 // | scl | | - | x | - | - | bycopy|
945 // | scl | | x | - | - | - | null |
946 // | scl | x | | | - | | byref |
947 // | scl | x | - | x | - | - | bycopy|
948 // | scl | x | x | - | - | - | null |
949 // | scl | | - | - | - | x | byref |
950 // | scl | x | - | - | - | x | byref |
951 //
952 // | agg | n.a. | | | - | | byref |
953 // | agg | n.a. | - | x | - | - | byref |
954 // | agg | n.a. | x | - | - | - | null |
955 // | agg | n.a. | - | - | - | x | byref |
956 // | agg | n.a. | - | - | - | x[] | byref |
957 //
958 // | ptr | n.a. | | | - | | bycopy|
959 // | ptr | n.a. | - | x | - | - | bycopy|
960 // | ptr | n.a. | x | - | - | - | null |
961 // | ptr | n.a. | - | - | - | x | byref |
962 // | ptr | n.a. | - | - | - | x[] | bycopy|
963 // | ptr | n.a. | - | - | x | | bycopy|
964 // | ptr | n.a. | - | - | x | x | bycopy|
965 // | ptr | n.a. | - | - | x | x[] | bycopy|
966 // =========================================================================
967 // Legend:
968 // scl - scalar
969 // ptr - pointer
970 // agg - aggregate
971 // x - applies
972 // - - invalid in this combination
973 // [] - mapped with an array section
974 // byref - should be mapped by reference
975 // byval - should be mapped by value
976 // null - initialize a local variable to null on the device
977 //
978 // Observations:
979 // - All scalar declarations that show up in a map clause have to be passed
980 // by reference, because they may have been mapped in the enclosing data
981 // environment.
982 // - If the scalar value does not fit the size of uintptr, it has to be
983 // passed by reference, regardless the result in the table above.
984 // - For pointers mapped by value that have either an implicit map or an
985 // array section, the runtime library may pass the NULL value to the
986 // device instead of the value passed to it by the compiler.
987
988 if (Ty->isReferenceType())
989 Ty = Ty->castAs<ReferenceType>()->getPointeeType();
990
991 // Locate map clauses and see if the variable being captured is referred to
992 // in any of those clauses. Here we only care about variables, not fields,
993 // because fields are part of aggregates.
994 bool IsVariableUsedInMapClause = false;
995 bool IsVariableAssociatedWithSection = false;
996
997 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->checkMappableExprComponentListsForDecl(
998 D, /*CurrentRegionOnly=*/true,
999 [&](OMPClauseMappableExprCommon::MappableExprComponentListRef
1000 MapExprComponents,
1001 OpenMPClauseKind WhereFoundClauseKind) {
1002 // Only the map clause information influences how a variable is
1003 // captured. E.g. is_device_ptr does not require changing the default
1004 // behavior.
1005 if (WhereFoundClauseKind != OMPC_map)
1006 return false;
1007
1008 auto EI = MapExprComponents.rbegin();
1009 auto EE = MapExprComponents.rend();
1010
1011 assert(EI != EE && "Invalid map expression!")((EI != EE && "Invalid map expression!") ? static_cast
<void> (0) : __assert_fail ("EI != EE && \"Invalid map expression!\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 1011, __PRETTY_FUNCTION__))
;
1012
1013 if (isa<DeclRefExpr>(EI->getAssociatedExpression()))
1014 IsVariableUsedInMapClause |= EI->getAssociatedDeclaration() == D;
1015
1016 ++EI;
1017 if (EI == EE)
1018 return false;
1019
1020 if (isa<ArraySubscriptExpr>(EI->getAssociatedExpression()) ||
1021 isa<OMPArraySectionExpr>(EI->getAssociatedExpression()) ||
1022 isa<MemberExpr>(EI->getAssociatedExpression())) {
1023 IsVariableAssociatedWithSection = true;
1024 // There is nothing more we need to know about this variable.
1025 return true;
1026 }
1027
1028 // Keep looking for more map info.
1029 return false;
1030 });
1031
1032 if (IsVariableUsedInMapClause) {
1033 // If variable is identified in a map clause it is always captured by
1034 // reference except if it is a pointer that is dereferenced somehow.
1035 IsByRef = !(Ty->isPointerType() && IsVariableAssociatedWithSection);
1036 } else {
1037 // By default, all the data that has a scalar type is mapped by copy.
1038 IsByRef = !Ty->isScalarType();
1039 }
1040 }
1041
1042 if (IsByRef && Ty.getNonReferenceType()->isScalarType()) {
1043 IsByRef = !DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->hasExplicitDSA(
1044 D, [](OpenMPClauseKind K) -> bool { return K == OMPC_firstprivate; },
1045 Level, /*NotLastprivate=*/true);
1046 }
1047
1048 // When passing data by copy, we need to make sure it fits the uintptr size
1049 // and alignment, because the runtime library only deals with uintptr types.
1050 // If it does not fit the uintptr size, we need to pass the data by reference
1051 // instead.
1052 if (!IsByRef &&
1053 (Ctx.getTypeSizeInChars(Ty) >
1054 Ctx.getTypeSizeInChars(Ctx.getUIntPtrType()) ||
1055 Ctx.getDeclAlign(D) > Ctx.getTypeAlignInChars(Ctx.getUIntPtrType()))) {
1056 IsByRef = true;
1057 }
1058
1059 return IsByRef;
1060}
1061
1062unsigned Sema::getOpenMPNestingLevel() const {
1063 assert(getLangOpts().OpenMP)((getLangOpts().OpenMP) ? static_cast<void> (0) : __assert_fail
("getLangOpts().OpenMP", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 1063, __PRETTY_FUNCTION__))
;
1064 return DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getNestingLevel();
1065}
1066
1067VarDecl *Sema::IsOpenMPCapturedDecl(ValueDecl *D) {
1068 assert(LangOpts.OpenMP && "OpenMP is not allowed")((LangOpts.OpenMP && "OpenMP is not allowed") ? static_cast
<void> (0) : __assert_fail ("LangOpts.OpenMP && \"OpenMP is not allowed\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 1068, __PRETTY_FUNCTION__))
;
1069 D = getCanonicalDecl(D);
1070
1071 // If we are attempting to capture a global variable in a directive with
1072 // 'target' we return true so that this global is also mapped to the device.
1073 //
1074 // FIXME: If the declaration is enclosed in a 'declare target' directive,
1075 // then it should not be captured. Therefore, an extra check has to be
1076 // inserted here once support for 'declare target' is added.
1077 //
1078 auto *VD = dyn_cast<VarDecl>(D);
1079 if (VD && !VD->hasLocalStorage()) {
1080 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective() == OMPD_target &&
1081 !DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isClauseParsingMode())
1082 return VD;
1083 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->hasDirective(
1084 [](OpenMPDirectiveKind K, const DeclarationNameInfo &,
1085 SourceLocation) -> bool {
1086 return isOpenMPTargetExecutionDirective(K);
1087 },
1088 false))
1089 return VD;
1090 }
1091
1092 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective() != OMPD_unknown &&
1093 (!DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isClauseParsingMode() ||
1094 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getParentDirective() != OMPD_unknown)) {
1095 auto &&Info = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isLoopControlVariable(D);
1096 if (Info.first ||
1097 (VD && VD->hasLocalStorage() &&
1098 isParallelOrTaskRegion(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective())) ||
1099 (VD && DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isForceVarCapturing()))
1100 return VD ? VD : Info.second;
1101 auto DVarPrivate = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getTopDSA(D, DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isClauseParsingMode());
1102 if (DVarPrivate.CKind != OMPC_unknown && isOpenMPPrivate(DVarPrivate.CKind))
1103 return VD ? VD : cast<VarDecl>(DVarPrivate.PrivateCopy->getDecl());
1104 DVarPrivate = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->hasDSA(
1105 D, isOpenMPPrivate, [](OpenMPDirectiveKind) -> bool { return true; },
1106 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isClauseParsingMode());
1107 if (DVarPrivate.CKind != OMPC_unknown)
1108 return VD ? VD : cast<VarDecl>(DVarPrivate.PrivateCopy->getDecl());
1109 }
1110 return nullptr;
1111}
1112
1113bool Sema::isOpenMPPrivateDecl(ValueDecl *D, unsigned Level) {
1114 assert(LangOpts.OpenMP && "OpenMP is not allowed")((LangOpts.OpenMP && "OpenMP is not allowed") ? static_cast
<void> (0) : __assert_fail ("LangOpts.OpenMP && \"OpenMP is not allowed\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 1114, __PRETTY_FUNCTION__))
;
1115 return DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->hasExplicitDSA(
1116 D, [](OpenMPClauseKind K) -> bool { return K == OMPC_private; }, Level);
1117}
1118
1119bool Sema::isOpenMPTargetCapturedDecl(ValueDecl *D, unsigned Level) {
1120 assert(LangOpts.OpenMP && "OpenMP is not allowed")((LangOpts.OpenMP && "OpenMP is not allowed") ? static_cast
<void> (0) : __assert_fail ("LangOpts.OpenMP && \"OpenMP is not allowed\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 1120, __PRETTY_FUNCTION__))
;
1121 // Return true if the current level is no longer enclosed in a target region.
1122
1123 auto *VD = dyn_cast<VarDecl>(D);
1124 return VD && !VD->hasLocalStorage() &&
1125 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->hasExplicitDirective(isOpenMPTargetExecutionDirective,
1126 Level);
1127}
1128
1129void Sema::DestroyDataSharingAttributesStack() { delete DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
; }
1130
1131void Sema::StartOpenMPDSABlock(OpenMPDirectiveKind DKind,
1132 const DeclarationNameInfo &DirName,
1133 Scope *CurScope, SourceLocation Loc) {
1134 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->push(DKind, DirName, CurScope, Loc);
1135 PushExpressionEvaluationContext(
1136 ExpressionEvaluationContext::PotentiallyEvaluated);
1137}
1138
1139void Sema::StartOpenMPClause(OpenMPClauseKind K) {
1140 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setClauseParsingMode(K);
1141}
1142
1143void Sema::EndOpenMPClause() {
1144 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setClauseParsingMode(/*K=*/OMPC_unknown);
1145}
1146
1147void Sema::EndOpenMPDSABlock(Stmt *CurDirective) {
1148 // OpenMP [2.14.3.5, Restrictions, C/C++, p.1]
1149 // A variable of class type (or array thereof) that appears in a lastprivate
1150 // clause requires an accessible, unambiguous default constructor for the
1151 // class type, unless the list item is also specified in a firstprivate
1152 // clause.
1153 if (auto *D = dyn_cast_or_null<OMPExecutableDirective>(CurDirective)) {
1154 for (auto *C : D->clauses()) {
1155 if (auto *Clause = dyn_cast<OMPLastprivateClause>(C)) {
1156 SmallVector<Expr *, 8> PrivateCopies;
1157 for (auto *DE : Clause->varlists()) {
1158 if (DE->isValueDependent() || DE->isTypeDependent()) {
1159 PrivateCopies.push_back(nullptr);
1160 continue;
1161 }
1162 auto *DRE = cast<DeclRefExpr>(DE->IgnoreParens());
1163 VarDecl *VD = cast<VarDecl>(DRE->getDecl());
1164 QualType Type = VD->getType().getNonReferenceType();
1165 auto DVar = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getTopDSA(VD, false);
1166 if (DVar.CKind == OMPC_lastprivate) {
1167 // Generate helper private variable and initialize it with the
1168 // default value. The address of the original variable is replaced
1169 // by the address of the new private variable in CodeGen. This new
1170 // variable is not added to IdResolver, so the code in the OpenMP
1171 // region uses original variable for proper diagnostics.
1172 auto *VDPrivate = buildVarDecl(
1173 *this, DE->getExprLoc(), Type.getUnqualifiedType(),
1174 VD->getName(), VD->hasAttrs() ? &VD->getAttrs() : nullptr);
1175 ActOnUninitializedDecl(VDPrivate);
1176 if (VDPrivate->isInvalidDecl())
1177 continue;
1178 PrivateCopies.push_back(buildDeclRefExpr(
1179 *this, VDPrivate, DE->getType(), DE->getExprLoc()));
1180 } else {
1181 // The variable is also a firstprivate, so initialization sequence
1182 // for private copy is generated already.
1183 PrivateCopies.push_back(nullptr);
1184 }
1185 }
1186 // Set initializers to private copies if no errors were found.
1187 if (PrivateCopies.size() == Clause->varlist_size())
1188 Clause->setPrivateCopies(PrivateCopies);
1189 }
1190 }
1191 }
1192
1193 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->pop();
1194 DiscardCleanupsInEvaluationContext();
1195 PopExpressionEvaluationContext();
1196}
1197
1198static bool FinishOpenMPLinearClause(OMPLinearClause &Clause, DeclRefExpr *IV,
1199 Expr *NumIterations, Sema &SemaRef,
1200 Scope *S, DSAStackTy *Stack);
1201
1202namespace {
1203
1204class VarDeclFilterCCC : public CorrectionCandidateCallback {
1205private:
1206 Sema &SemaRef;
1207
1208public:
1209 explicit VarDeclFilterCCC(Sema &S) : SemaRef(S) {}
1210 bool ValidateCandidate(const TypoCorrection &Candidate) override {
1211 NamedDecl *ND = Candidate.getCorrectionDecl();
1212 if (auto *VD = dyn_cast_or_null<VarDecl>(ND)) {
1213 return VD->hasGlobalStorage() &&
1214 SemaRef.isDeclInScope(ND, SemaRef.getCurLexicalContext(),
1215 SemaRef.getCurScope());
1216 }
1217 return false;
1218 }
1219};
1220
1221class VarOrFuncDeclFilterCCC : public CorrectionCandidateCallback {
1222private:
1223 Sema &SemaRef;
1224
1225public:
1226 explicit VarOrFuncDeclFilterCCC(Sema &S) : SemaRef(S) {}
1227 bool ValidateCandidate(const TypoCorrection &Candidate) override {
1228 NamedDecl *ND = Candidate.getCorrectionDecl();
1229 if (isa<VarDecl>(ND) || isa<FunctionDecl>(ND)) {
1230 return SemaRef.isDeclInScope(ND, SemaRef.getCurLexicalContext(),
1231 SemaRef.getCurScope());
1232 }
1233 return false;
1234 }
1235};
1236
1237} // namespace
1238
1239ExprResult Sema::ActOnOpenMPIdExpression(Scope *CurScope,
1240 CXXScopeSpec &ScopeSpec,
1241 const DeclarationNameInfo &Id) {
1242 LookupResult Lookup(*this, Id, LookupOrdinaryName);
1243 LookupParsedName(Lookup, CurScope, &ScopeSpec, true);
1244
1245 if (Lookup.isAmbiguous())
1246 return ExprError();
1247
1248 VarDecl *VD;
1249 if (!Lookup.isSingleResult()) {
1250 if (TypoCorrection Corrected = CorrectTypo(
1251 Id, LookupOrdinaryName, CurScope, nullptr,
1252 llvm::make_unique<VarDeclFilterCCC>(*this), CTK_ErrorRecovery)) {
1253 diagnoseTypo(Corrected,
1254 PDiag(Lookup.empty()
1255 ? diag::err_undeclared_var_use_suggest
1256 : diag::err_omp_expected_var_arg_suggest)
1257 << Id.getName());
1258 VD = Corrected.getCorrectionDeclAs<VarDecl>();
1259 } else {
1260 Diag(Id.getLoc(), Lookup.empty() ? diag::err_undeclared_var_use
1261 : diag::err_omp_expected_var_arg)
1262 << Id.getName();
1263 return ExprError();
1264 }
1265 } else {
1266 if (!(VD = Lookup.getAsSingle<VarDecl>())) {
1267 Diag(Id.getLoc(), diag::err_omp_expected_var_arg) << Id.getName();
1268 Diag(Lookup.getFoundDecl()->getLocation(), diag::note_declared_at);
1269 return ExprError();
1270 }
1271 }
1272 Lookup.suppressDiagnostics();
1273
1274 // OpenMP [2.9.2, Syntax, C/C++]
1275 // Variables must be file-scope, namespace-scope, or static block-scope.
1276 if (!VD->hasGlobalStorage()) {
1277 Diag(Id.getLoc(), diag::err_omp_global_var_arg)
1278 << getOpenMPDirectiveName(OMPD_threadprivate) << !VD->isStaticLocal();
1279 bool IsDecl =
1280 VD->isThisDeclarationADefinition(Context) == VarDecl::DeclarationOnly;
1281 Diag(VD->getLocation(),
1282 IsDecl ? diag::note_previous_decl : diag::note_defined_here)
1283 << VD;
1284 return ExprError();
1285 }
1286
1287 VarDecl *CanonicalVD = VD->getCanonicalDecl();
1288 NamedDecl *ND = cast<NamedDecl>(CanonicalVD);
1289 // OpenMP [2.9.2, Restrictions, C/C++, p.2]
1290 // A threadprivate directive for file-scope variables must appear outside
1291 // any definition or declaration.
1292 if (CanonicalVD->getDeclContext()->isTranslationUnit() &&
1293 !getCurLexicalContext()->isTranslationUnit()) {
1294 Diag(Id.getLoc(), diag::err_omp_var_scope)
1295 << getOpenMPDirectiveName(OMPD_threadprivate) << VD;
1296 bool IsDecl =
1297 VD->isThisDeclarationADefinition(Context) == VarDecl::DeclarationOnly;
1298 Diag(VD->getLocation(),
1299 IsDecl ? diag::note_previous_decl : diag::note_defined_here)
1300 << VD;
1301 return ExprError();
1302 }
1303 // OpenMP [2.9.2, Restrictions, C/C++, p.3]
1304 // A threadprivate directive for static class member variables must appear
1305 // in the class definition, in the same scope in which the member
1306 // variables are declared.
1307 if (CanonicalVD->isStaticDataMember() &&
1308 !CanonicalVD->getDeclContext()->Equals(getCurLexicalContext())) {
1309 Diag(Id.getLoc(), diag::err_omp_var_scope)
1310 << getOpenMPDirectiveName(OMPD_threadprivate) << VD;
1311 bool IsDecl =
1312 VD->isThisDeclarationADefinition(Context) == VarDecl::DeclarationOnly;
1313 Diag(VD->getLocation(),
1314 IsDecl ? diag::note_previous_decl : diag::note_defined_here)
1315 << VD;
1316 return ExprError();
1317 }
1318 // OpenMP [2.9.2, Restrictions, C/C++, p.4]
1319 // A threadprivate directive for namespace-scope variables must appear
1320 // outside any definition or declaration other than the namespace
1321 // definition itself.
1322 if (CanonicalVD->getDeclContext()->isNamespace() &&
1323 (!getCurLexicalContext()->isFileContext() ||
1324 !getCurLexicalContext()->Encloses(CanonicalVD->getDeclContext()))) {
1325 Diag(Id.getLoc(), diag::err_omp_var_scope)
1326 << getOpenMPDirectiveName(OMPD_threadprivate) << VD;
1327 bool IsDecl =
1328 VD->isThisDeclarationADefinition(Context) == VarDecl::DeclarationOnly;
1329 Diag(VD->getLocation(),
1330 IsDecl ? diag::note_previous_decl : diag::note_defined_here)
1331 << VD;
1332 return ExprError();
1333 }
1334 // OpenMP [2.9.2, Restrictions, C/C++, p.6]
1335 // A threadprivate directive for static block-scope variables must appear
1336 // in the scope of the variable and not in a nested scope.
1337 if (CanonicalVD->isStaticLocal() && CurScope &&
1338 !isDeclInScope(ND, getCurLexicalContext(), CurScope)) {
1339 Diag(Id.getLoc(), diag::err_omp_var_scope)
1340 << getOpenMPDirectiveName(OMPD_threadprivate) << VD;
1341 bool IsDecl =
1342 VD->isThisDeclarationADefinition(Context) == VarDecl::DeclarationOnly;
1343 Diag(VD->getLocation(),
1344 IsDecl ? diag::note_previous_decl : diag::note_defined_here)
1345 << VD;
1346 return ExprError();
1347 }
1348
1349 // OpenMP [2.9.2, Restrictions, C/C++, p.2-6]
1350 // A threadprivate directive must lexically precede all references to any
1351 // of the variables in its list.
1352 if (VD->isUsed() && !DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isThreadPrivate(VD)) {
1353 Diag(Id.getLoc(), diag::err_omp_var_used)
1354 << getOpenMPDirectiveName(OMPD_threadprivate) << VD;
1355 return ExprError();
1356 }
1357
1358 QualType ExprType = VD->getType().getNonReferenceType();
1359 return DeclRefExpr::Create(Context, NestedNameSpecifierLoc(),
1360 SourceLocation(), VD,
1361 /*RefersToEnclosingVariableOrCapture=*/false,
1362 Id.getLoc(), ExprType, VK_LValue);
1363}
1364
1365Sema::DeclGroupPtrTy
1366Sema::ActOnOpenMPThreadprivateDirective(SourceLocation Loc,
1367 ArrayRef<Expr *> VarList) {
1368 if (OMPThreadPrivateDecl *D = CheckOMPThreadPrivateDecl(Loc, VarList)) {
1369 CurContext->addDecl(D);
1370 return DeclGroupPtrTy::make(DeclGroupRef(D));
1371 }
1372 return nullptr;
1373}
1374
1375namespace {
1376class LocalVarRefChecker : public ConstStmtVisitor<LocalVarRefChecker, bool> {
1377 Sema &SemaRef;
1378
1379public:
1380 bool VisitDeclRefExpr(const DeclRefExpr *E) {
1381 if (auto *VD = dyn_cast<VarDecl>(E->getDecl())) {
1382 if (VD->hasLocalStorage()) {
1383 SemaRef.Diag(E->getLocStart(),
1384 diag::err_omp_local_var_in_threadprivate_init)
1385 << E->getSourceRange();
1386 SemaRef.Diag(VD->getLocation(), diag::note_defined_here)
1387 << VD << VD->getSourceRange();
1388 return true;
1389 }
1390 }
1391 return false;
1392 }
1393 bool VisitStmt(const Stmt *S) {
1394 for (auto Child : S->children()) {
1395 if (Child && Visit(Child))
1396 return true;
1397 }
1398 return false;
1399 }
1400 explicit LocalVarRefChecker(Sema &SemaRef) : SemaRef(SemaRef) {}
1401};
1402} // namespace
1403
1404OMPThreadPrivateDecl *
1405Sema::CheckOMPThreadPrivateDecl(SourceLocation Loc, ArrayRef<Expr *> VarList) {
1406 SmallVector<Expr *, 8> Vars;
1407 for (auto &RefExpr : VarList) {
1408 DeclRefExpr *DE = cast<DeclRefExpr>(RefExpr);
1409 VarDecl *VD = cast<VarDecl>(DE->getDecl());
1410 SourceLocation ILoc = DE->getExprLoc();
1411
1412 // Mark variable as used.
1413 VD->setReferenced();
1414 VD->markUsed(Context);
1415
1416 QualType QType = VD->getType();
1417 if (QType->isDependentType() || QType->isInstantiationDependentType()) {
1418 // It will be analyzed later.
1419 Vars.push_back(DE);
1420 continue;
1421 }
1422
1423 // OpenMP [2.9.2, Restrictions, C/C++, p.10]
1424 // A threadprivate variable must not have an incomplete type.
1425 if (RequireCompleteType(ILoc, VD->getType(),
1426 diag::err_omp_threadprivate_incomplete_type)) {
1427 continue;
1428 }
1429
1430 // OpenMP [2.9.2, Restrictions, C/C++, p.10]
1431 // A threadprivate variable must not have a reference type.
1432 if (VD->getType()->isReferenceType()) {
1433 Diag(ILoc, diag::err_omp_ref_type_arg)
1434 << getOpenMPDirectiveName(OMPD_threadprivate) << VD->getType();
1435 bool IsDecl =
1436 VD->isThisDeclarationADefinition(Context) == VarDecl::DeclarationOnly;
1437 Diag(VD->getLocation(),
1438 IsDecl ? diag::note_previous_decl : diag::note_defined_here)
1439 << VD;
1440 continue;
1441 }
1442
1443 // Check if this is a TLS variable. If TLS is not being supported, produce
1444 // the corresponding diagnostic.
1445 if ((VD->getTLSKind() != VarDecl::TLS_None &&
1446 !(VD->hasAttr<OMPThreadPrivateDeclAttr>() &&
1447 getLangOpts().OpenMPUseTLS &&
1448 getASTContext().getTargetInfo().isTLSSupported())) ||
1449 (VD->getStorageClass() == SC_Register && VD->hasAttr<AsmLabelAttr>() &&
1450 !VD->isLocalVarDecl())) {
1451 Diag(ILoc, diag::err_omp_var_thread_local)
1452 << VD << ((VD->getTLSKind() != VarDecl::TLS_None) ? 0 : 1);
1453 bool IsDecl =
1454 VD->isThisDeclarationADefinition(Context) == VarDecl::DeclarationOnly;
1455 Diag(VD->getLocation(),
1456 IsDecl ? diag::note_previous_decl : diag::note_defined_here)
1457 << VD;
1458 continue;
1459 }
1460
1461 // Check if initial value of threadprivate variable reference variable with
1462 // local storage (it is not supported by runtime).
1463 if (auto Init = VD->getAnyInitializer()) {
1464 LocalVarRefChecker Checker(*this);
1465 if (Checker.Visit(Init))
1466 continue;
1467 }
1468
1469 Vars.push_back(RefExpr);
1470 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->addDSA(VD, DE, OMPC_threadprivate);
1471 VD->addAttr(OMPThreadPrivateDeclAttr::CreateImplicit(
1472 Context, SourceRange(Loc, Loc)));
1473 if (auto *ML = Context.getASTMutationListener())
1474 ML->DeclarationMarkedOpenMPThreadPrivate(VD);
1475 }
1476 OMPThreadPrivateDecl *D = nullptr;
1477 if (!Vars.empty()) {
1478 D = OMPThreadPrivateDecl::Create(Context, getCurLexicalContext(), Loc,
1479 Vars);
1480 D->setAccess(AS_public);
1481 }
1482 return D;
1483}
1484
1485static void ReportOriginalDSA(Sema &SemaRef, DSAStackTy *Stack,
1486 const ValueDecl *D, DSAStackTy::DSAVarData DVar,
1487 bool IsLoopIterVar = false) {
1488 if (DVar.RefExpr) {
1489 SemaRef.Diag(DVar.RefExpr->getExprLoc(), diag::note_omp_explicit_dsa)
1490 << getOpenMPClauseName(DVar.CKind);
1491 return;
1492 }
1493 enum {
1494 PDSA_StaticMemberShared,
1495 PDSA_StaticLocalVarShared,
1496 PDSA_LoopIterVarPrivate,
1497 PDSA_LoopIterVarLinear,
1498 PDSA_LoopIterVarLastprivate,
1499 PDSA_ConstVarShared,
1500 PDSA_GlobalVarShared,
1501 PDSA_TaskVarFirstprivate,
1502 PDSA_LocalVarPrivate,
1503 PDSA_Implicit
1504 } Reason = PDSA_Implicit;
1505 bool ReportHint = false;
1506 auto ReportLoc = D->getLocation();
1507 auto *VD = dyn_cast<VarDecl>(D);
1508 if (IsLoopIterVar) {
1509 if (DVar.CKind == OMPC_private)
1510 Reason = PDSA_LoopIterVarPrivate;
1511 else if (DVar.CKind == OMPC_lastprivate)
1512 Reason = PDSA_LoopIterVarLastprivate;
1513 else
1514 Reason = PDSA_LoopIterVarLinear;
1515 } else if (isOpenMPTaskingDirective(DVar.DKind) &&
1516 DVar.CKind == OMPC_firstprivate) {
1517 Reason = PDSA_TaskVarFirstprivate;
1518 ReportLoc = DVar.ImplicitDSALoc;
1519 } else if (VD && VD->isStaticLocal())
1520 Reason = PDSA_StaticLocalVarShared;
1521 else if (VD && VD->isStaticDataMember())
1522 Reason = PDSA_StaticMemberShared;
1523 else if (VD && VD->isFileVarDecl())
1524 Reason = PDSA_GlobalVarShared;
1525 else if (D->getType().isConstant(SemaRef.getASTContext()))
1526 Reason = PDSA_ConstVarShared;
1527 else if (VD && VD->isLocalVarDecl() && DVar.CKind == OMPC_private) {
1528 ReportHint = true;
1529 Reason = PDSA_LocalVarPrivate;
1530 }
1531 if (Reason != PDSA_Implicit) {
1532 SemaRef.Diag(ReportLoc, diag::note_omp_predetermined_dsa)
1533 << Reason << ReportHint
1534 << getOpenMPDirectiveName(Stack->getCurrentDirective());
1535 } else if (DVar.ImplicitDSALoc.isValid()) {
1536 SemaRef.Diag(DVar.ImplicitDSALoc, diag::note_omp_implicit_dsa)
1537 << getOpenMPClauseName(DVar.CKind);
1538 }
1539}
1540
1541namespace {
1542class DSAAttrChecker : public StmtVisitor<DSAAttrChecker, void> {
1543 DSAStackTy *Stack;
1544 Sema &SemaRef;
1545 bool ErrorFound;
1546 CapturedStmt *CS;
1547 llvm::SmallVector<Expr *, 8> ImplicitFirstprivate;
1548 llvm::DenseMap<ValueDecl *, Expr *> VarsWithInheritedDSA;
1549
1550public:
1551 void VisitDeclRefExpr(DeclRefExpr *E) {
1552 if (E->isTypeDependent() || E->isValueDependent() ||
1553 E->containsUnexpandedParameterPack() || E->isInstantiationDependent())
1554 return;
1555 if (auto *VD = dyn_cast<VarDecl>(E->getDecl())) {
1556 // Skip internally declared variables.
1557 if (VD->isLocalVarDecl() && !CS->capturesVariable(VD))
1558 return;
1559
1560 auto DVar = Stack->getTopDSA(VD, false);
1561 // Check if the variable has explicit DSA set and stop analysis if it so.
1562 if (DVar.RefExpr)
1563 return;
1564
1565 auto ELoc = E->getExprLoc();
1566 auto DKind = Stack->getCurrentDirective();
1567 // The default(none) clause requires that each variable that is referenced
1568 // in the construct, and does not have a predetermined data-sharing
1569 // attribute, must have its data-sharing attribute explicitly determined
1570 // by being listed in a data-sharing attribute clause.
1571 if (DVar.CKind == OMPC_unknown && Stack->getDefaultDSA() == DSA_none &&
1572 isParallelOrTaskRegion(DKind) &&
1573 VarsWithInheritedDSA.count(VD) == 0) {
1574 VarsWithInheritedDSA[VD] = E;
1575 return;
1576 }
1577
1578 // OpenMP [2.9.3.6, Restrictions, p.2]
1579 // A list item that appears in a reduction clause of the innermost
1580 // enclosing worksharing or parallel construct may not be accessed in an
1581 // explicit task.
1582 DVar = Stack->hasInnermostDSA(
1583 VD, [](OpenMPClauseKind C) -> bool { return C == OMPC_reduction; },
1584 [](OpenMPDirectiveKind K) -> bool {
1585 return isOpenMPParallelDirective(K) ||
1586 isOpenMPWorksharingDirective(K) || isOpenMPTeamsDirective(K);
1587 },
1588 false);
1589 if (isOpenMPTaskingDirective(DKind) && DVar.CKind == OMPC_reduction) {
1590 ErrorFound = true;
1591 SemaRef.Diag(ELoc, diag::err_omp_reduction_in_task);
1592 ReportOriginalDSA(SemaRef, Stack, VD, DVar);
1593 return;
1594 }
1595
1596 // Define implicit data-sharing attributes for task.
1597 DVar = Stack->getImplicitDSA(VD, false);
1598 if (isOpenMPTaskingDirective(DKind) && DVar.CKind != OMPC_shared &&
1599 !Stack->isLoopControlVariable(VD).first)
1600 ImplicitFirstprivate.push_back(E);
1601 }
1602 }
1603 void VisitMemberExpr(MemberExpr *E) {
1604 if (E->isTypeDependent() || E->isValueDependent() ||
1605 E->containsUnexpandedParameterPack() || E->isInstantiationDependent())
1606 return;
1607 if (isa<CXXThisExpr>(E->getBase()->IgnoreParens())) {
1608 if (auto *FD = dyn_cast<FieldDecl>(E->getMemberDecl())) {
1609 auto DVar = Stack->getTopDSA(FD, false);
1610 // Check if the variable has explicit DSA set and stop analysis if it
1611 // so.
1612 if (DVar.RefExpr)
1613 return;
1614
1615 auto ELoc = E->getExprLoc();
1616 auto DKind = Stack->getCurrentDirective();
1617 // OpenMP [2.9.3.6, Restrictions, p.2]
1618 // A list item that appears in a reduction clause of the innermost
1619 // enclosing worksharing or parallel construct may not be accessed in
1620 // an explicit task.
1621 DVar = Stack->hasInnermostDSA(
1622 FD, [](OpenMPClauseKind C) -> bool { return C == OMPC_reduction; },
1623 [](OpenMPDirectiveKind K) -> bool {
1624 return isOpenMPParallelDirective(K) ||
1625 isOpenMPWorksharingDirective(K) ||
1626 isOpenMPTeamsDirective(K);
1627 },
1628 false);
1629 if (isOpenMPTaskingDirective(DKind) && DVar.CKind == OMPC_reduction) {
1630 ErrorFound = true;
1631 SemaRef.Diag(ELoc, diag::err_omp_reduction_in_task);
1632 ReportOriginalDSA(SemaRef, Stack, FD, DVar);
1633 return;
1634 }
1635
1636 // Define implicit data-sharing attributes for task.
1637 DVar = Stack->getImplicitDSA(FD, false);
1638 if (isOpenMPTaskingDirective(DKind) && DVar.CKind != OMPC_shared &&
1639 !Stack->isLoopControlVariable(FD).first)
1640 ImplicitFirstprivate.push_back(E);
1641 }
1642 } else
1643 Visit(E->getBase());
1644 }
1645 void VisitOMPExecutableDirective(OMPExecutableDirective *S) {
1646 for (auto *C : S->clauses()) {
1647 // Skip analysis of arguments of implicitly defined firstprivate clause
1648 // for task directives.
1649 if (C && (!isa<OMPFirstprivateClause>(C) || C->getLocStart().isValid()))
1650 for (auto *CC : C->children()) {
1651 if (CC)
1652 Visit(CC);
1653 }
1654 }
1655 }
1656 void VisitStmt(Stmt *S) {
1657 for (auto *C : S->children()) {
1658 if (C && !isa<OMPExecutableDirective>(C))
1659 Visit(C);
1660 }
1661 }
1662
1663 bool isErrorFound() { return ErrorFound; }
1664 ArrayRef<Expr *> getImplicitFirstprivate() { return ImplicitFirstprivate; }
1665 llvm::DenseMap<ValueDecl *, Expr *> &getVarsWithInheritedDSA() {
1666 return VarsWithInheritedDSA;
1667 }
1668
1669 DSAAttrChecker(DSAStackTy *S, Sema &SemaRef, CapturedStmt *CS)
1670 : Stack(S), SemaRef(SemaRef), ErrorFound(false), CS(CS) {}
1671};
1672} // namespace
1673
1674void Sema::ActOnOpenMPRegionStart(OpenMPDirectiveKind DKind, Scope *CurScope) {
1675 switch (DKind) {
1676 case OMPD_parallel:
1677 case OMPD_parallel_for:
1678 case OMPD_parallel_for_simd:
1679 case OMPD_parallel_sections:
1680 case OMPD_teams: {
1681 QualType KmpInt32Ty = Context.getIntTypeForBitwidth(32, 1);
1682 QualType KmpInt32PtrTy =
1683 Context.getPointerType(KmpInt32Ty).withConst().withRestrict();
1684 Sema::CapturedParamNameType Params[] = {
1685 std::make_pair(".global_tid.", KmpInt32PtrTy),
1686 std::make_pair(".bound_tid.", KmpInt32PtrTy),
1687 std::make_pair(StringRef(), QualType()) // __context with shared vars
1688 };
1689 ActOnCapturedRegionStart(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getConstructLoc(), CurScope, CR_OpenMP,
1690 Params);
1691 break;
1692 }
1693 case OMPD_target_teams:
1694 case OMPD_target_parallel: {
1695 Sema::CapturedParamNameType ParamsTarget[] = {
1696 std::make_pair(StringRef(), QualType()) // __context with shared vars
1697 };
1698 // Start a captured region for 'target' with no implicit parameters.
1699 ActOnCapturedRegionStart(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getConstructLoc(), CurScope, CR_OpenMP,
1700 ParamsTarget);
1701 QualType KmpInt32Ty = Context.getIntTypeForBitwidth(32, 1);
1702 QualType KmpInt32PtrTy =
1703 Context.getPointerType(KmpInt32Ty).withConst().withRestrict();
1704 Sema::CapturedParamNameType ParamsTeamsOrParallel[] = {
1705 std::make_pair(".global_tid.", KmpInt32PtrTy),
1706 std::make_pair(".bound_tid.", KmpInt32PtrTy),
1707 std::make_pair(StringRef(), QualType()) // __context with shared vars
1708 };
1709 // Start a captured region for 'teams' or 'parallel'. Both regions have
1710 // the same implicit parameters.
1711 ActOnCapturedRegionStart(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getConstructLoc(), CurScope, CR_OpenMP,
1712 ParamsTeamsOrParallel);
1713 break;
1714 }
1715 case OMPD_simd:
1716 case OMPD_for:
1717 case OMPD_for_simd:
1718 case OMPD_sections:
1719 case OMPD_section:
1720 case OMPD_single:
1721 case OMPD_master:
1722 case OMPD_critical:
1723 case OMPD_taskgroup:
1724 case OMPD_distribute:
1725 case OMPD_ordered:
1726 case OMPD_atomic:
1727 case OMPD_target_data:
1728 case OMPD_target:
1729 case OMPD_target_parallel_for:
1730 case OMPD_target_parallel_for_simd:
1731 case OMPD_target_simd: {
1732 Sema::CapturedParamNameType Params[] = {
1733 std::make_pair(StringRef(), QualType()) // __context with shared vars
1734 };
1735 ActOnCapturedRegionStart(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getConstructLoc(), CurScope, CR_OpenMP,
1736 Params);
1737 break;
1738 }
1739 case OMPD_task: {
1740 QualType KmpInt32Ty = Context.getIntTypeForBitwidth(32, 1);
1741 QualType Args[] = {Context.VoidPtrTy.withConst().withRestrict()};
1742 FunctionProtoType::ExtProtoInfo EPI;
1743 EPI.Variadic = true;
1744 QualType CopyFnType = Context.getFunctionType(Context.VoidTy, Args, EPI);
1745 Sema::CapturedParamNameType Params[] = {
1746 std::make_pair(".global_tid.", KmpInt32Ty),
1747 std::make_pair(".part_id.", Context.getPointerType(KmpInt32Ty)),
1748 std::make_pair(".privates.", Context.VoidPtrTy.withConst()),
1749 std::make_pair(".copy_fn.",
1750 Context.getPointerType(CopyFnType).withConst()),
1751 std::make_pair(".task_t.", Context.VoidPtrTy.withConst()),
1752 std::make_pair(StringRef(), QualType()) // __context with shared vars
1753 };
1754 ActOnCapturedRegionStart(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getConstructLoc(), CurScope, CR_OpenMP,
1755 Params);
1756 // Mark this captured region as inlined, because we don't use outlined
1757 // function directly.
1758 getCurCapturedRegion()->TheCapturedDecl->addAttr(
1759 AlwaysInlineAttr::CreateImplicit(
1760 Context, AlwaysInlineAttr::Keyword_forceinline, SourceRange()));
1761 break;
1762 }
1763 case OMPD_taskloop:
1764 case OMPD_taskloop_simd: {
1765 QualType KmpInt32Ty =
1766 Context.getIntTypeForBitwidth(/*DestWidth=*/32, /*Signed=*/1);
1767 QualType KmpUInt64Ty =
1768 Context.getIntTypeForBitwidth(/*DestWidth=*/64, /*Signed=*/0);
1769 QualType KmpInt64Ty =
1770 Context.getIntTypeForBitwidth(/*DestWidth=*/64, /*Signed=*/1);
1771 QualType Args[] = {Context.VoidPtrTy.withConst().withRestrict()};
1772 FunctionProtoType::ExtProtoInfo EPI;
1773 EPI.Variadic = true;
1774 QualType CopyFnType = Context.getFunctionType(Context.VoidTy, Args, EPI);
1775 Sema::CapturedParamNameType Params[] = {
1776 std::make_pair(".global_tid.", KmpInt32Ty),
1777 std::make_pair(".part_id.", Context.getPointerType(KmpInt32Ty)),
1778 std::make_pair(".privates.",
1779 Context.VoidPtrTy.withConst().withRestrict()),
1780 std::make_pair(
1781 ".copy_fn.",
1782 Context.getPointerType(CopyFnType).withConst().withRestrict()),
1783 std::make_pair(".task_t.", Context.VoidPtrTy.withConst()),
1784 std::make_pair(".lb.", KmpUInt64Ty),
1785 std::make_pair(".ub.", KmpUInt64Ty), std::make_pair(".st.", KmpInt64Ty),
1786 std::make_pair(".liter.", KmpInt32Ty),
1787 std::make_pair(StringRef(), QualType()) // __context with shared vars
1788 };
1789 ActOnCapturedRegionStart(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getConstructLoc(), CurScope, CR_OpenMP,
1790 Params);
1791 // Mark this captured region as inlined, because we don't use outlined
1792 // function directly.
1793 getCurCapturedRegion()->TheCapturedDecl->addAttr(
1794 AlwaysInlineAttr::CreateImplicit(
1795 Context, AlwaysInlineAttr::Keyword_forceinline, SourceRange()));
1796 break;
1797 }
1798 case OMPD_distribute_parallel_for_simd:
1799 case OMPD_distribute_simd:
1800 case OMPD_distribute_parallel_for:
1801 case OMPD_teams_distribute:
1802 case OMPD_teams_distribute_simd:
1803 case OMPD_teams_distribute_parallel_for_simd:
1804 case OMPD_teams_distribute_parallel_for:
1805 case OMPD_target_teams_distribute:
1806 case OMPD_target_teams_distribute_parallel_for:
1807 case OMPD_target_teams_distribute_parallel_for_simd:
1808 case OMPD_target_teams_distribute_simd: {
1809 QualType KmpInt32Ty = Context.getIntTypeForBitwidth(32, 1);
1810 QualType KmpInt32PtrTy =
1811 Context.getPointerType(KmpInt32Ty).withConst().withRestrict();
1812 Sema::CapturedParamNameType Params[] = {
1813 std::make_pair(".global_tid.", KmpInt32PtrTy),
1814 std::make_pair(".bound_tid.", KmpInt32PtrTy),
1815 std::make_pair(".previous.lb.", Context.getSizeType()),
1816 std::make_pair(".previous.ub.", Context.getSizeType()),
1817 std::make_pair(StringRef(), QualType()) // __context with shared vars
1818 };
1819 ActOnCapturedRegionStart(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getConstructLoc(), CurScope, CR_OpenMP,
1820 Params);
1821 break;
1822 }
1823 case OMPD_threadprivate:
1824 case OMPD_taskyield:
1825 case OMPD_barrier:
1826 case OMPD_taskwait:
1827 case OMPD_cancellation_point:
1828 case OMPD_cancel:
1829 case OMPD_flush:
1830 case OMPD_target_enter_data:
1831 case OMPD_target_exit_data:
1832 case OMPD_declare_reduction:
1833 case OMPD_declare_simd:
1834 case OMPD_declare_target:
1835 case OMPD_end_declare_target:
1836 case OMPD_target_update:
1837 llvm_unreachable("OpenMP Directive is not allowed")::llvm::llvm_unreachable_internal("OpenMP Directive is not allowed"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 1837)
;
1838 case OMPD_unknown:
1839 llvm_unreachable("Unknown OpenMP directive")::llvm::llvm_unreachable_internal("Unknown OpenMP directive",
"/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 1839)
;
1840 }
1841}
1842
1843int Sema::getOpenMPCaptureLevels(OpenMPDirectiveKind DKind) {
1844 SmallVector<OpenMPDirectiveKind, 4> CaptureRegions;
1845 getOpenMPCaptureRegions(CaptureRegions, DKind);
1846 return CaptureRegions.size();
1847}
1848
1849static OMPCapturedExprDecl *buildCaptureDecl(Sema &S, IdentifierInfo *Id,
1850 Expr *CaptureExpr, bool WithInit,
1851 bool AsExpression) {
1852 assert(CaptureExpr)((CaptureExpr) ? static_cast<void> (0) : __assert_fail (
"CaptureExpr", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 1852, __PRETTY_FUNCTION__))
;
1853 ASTContext &C = S.getASTContext();
1854 Expr *Init = AsExpression ? CaptureExpr : CaptureExpr->IgnoreImpCasts();
1855 QualType Ty = Init->getType();
1856 if (CaptureExpr->getObjectKind() == OK_Ordinary && CaptureExpr->isGLValue()) {
1857 if (S.getLangOpts().CPlusPlus)
1858 Ty = C.getLValueReferenceType(Ty);
1859 else {
1860 Ty = C.getPointerType(Ty);
1861 ExprResult Res =
1862 S.CreateBuiltinUnaryOp(CaptureExpr->getExprLoc(), UO_AddrOf, Init);
1863 if (!Res.isUsable())
1864 return nullptr;
1865 Init = Res.get();
1866 }
1867 WithInit = true;
1868 }
1869 auto *CED = OMPCapturedExprDecl::Create(C, S.CurContext, Id, Ty,
1870 CaptureExpr->getLocStart());
1871 if (!WithInit)
1872 CED->addAttr(OMPCaptureNoInitAttr::CreateImplicit(C, SourceRange()));
1873 S.CurContext->addHiddenDecl(CED);
1874 S.AddInitializerToDecl(CED, Init, /*DirectInit=*/false);
1875 return CED;
1876}
1877
1878static DeclRefExpr *buildCapture(Sema &S, ValueDecl *D, Expr *CaptureExpr,
1879 bool WithInit) {
1880 OMPCapturedExprDecl *CD;
1881 if (auto *VD = S.IsOpenMPCapturedDecl(D))
1882 CD = cast<OMPCapturedExprDecl>(VD);
1883 else
1884 CD = buildCaptureDecl(S, D->getIdentifier(), CaptureExpr, WithInit,
1885 /*AsExpression=*/false);
1886 return buildDeclRefExpr(S, CD, CD->getType().getNonReferenceType(),
1887 CaptureExpr->getExprLoc());
1888}
1889
1890static ExprResult buildCapture(Sema &S, Expr *CaptureExpr, DeclRefExpr *&Ref) {
1891 if (!Ref) {
1892 auto *CD =
1893 buildCaptureDecl(S, &S.getASTContext().Idents.get(".capture_expr."),
1894 CaptureExpr, /*WithInit=*/true, /*AsExpression=*/true);
1895 Ref = buildDeclRefExpr(S, CD, CD->getType().getNonReferenceType(),
1896 CaptureExpr->getExprLoc());
1897 }
1898 ExprResult Res = Ref;
1899 if (!S.getLangOpts().CPlusPlus &&
1900 CaptureExpr->getObjectKind() == OK_Ordinary && CaptureExpr->isGLValue() &&
1901 Ref->getType()->isPointerType())
1902 Res = S.CreateBuiltinUnaryOp(CaptureExpr->getExprLoc(), UO_Deref, Ref);
1903 if (!Res.isUsable())
1904 return ExprError();
1905 return CaptureExpr->isGLValue() ? Res : S.DefaultLvalueConversion(Res.get());
1906}
1907
1908namespace {
1909// OpenMP directives parsed in this section are represented as a
1910// CapturedStatement with an associated statement. If a syntax error
1911// is detected during the parsing of the associated statement, the
1912// compiler must abort processing and close the CapturedStatement.
1913//
1914// Combined directives such as 'target parallel' have more than one
1915// nested CapturedStatements. This RAII ensures that we unwind out
1916// of all the nested CapturedStatements when an error is found.
1917class CaptureRegionUnwinderRAII {
1918private:
1919 Sema &S;
1920 bool &ErrorFound;
1921 OpenMPDirectiveKind DKind;
1922
1923public:
1924 CaptureRegionUnwinderRAII(Sema &S, bool &ErrorFound,
1925 OpenMPDirectiveKind DKind)
1926 : S(S), ErrorFound(ErrorFound), DKind(DKind) {}
1927 ~CaptureRegionUnwinderRAII() {
1928 if (ErrorFound) {
1929 int ThisCaptureLevel = S.getOpenMPCaptureLevels(DKind);
1930 while (--ThisCaptureLevel >= 0)
1931 S.ActOnCapturedRegionError();
1932 }
1933 }
1934};
1935} // namespace
1936
1937StmtResult Sema::ActOnOpenMPRegionEnd(StmtResult S,
1938 ArrayRef<OMPClause *> Clauses) {
1939 bool ErrorFound = false;
1940 CaptureRegionUnwinderRAII CaptureRegionUnwinder(
1941 *this, ErrorFound, DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective());
1942 if (!S.isUsable()) {
1943 ErrorFound = true;
1944 return StmtError();
1945 }
1946
1947 OMPOrderedClause *OC = nullptr;
1948 OMPScheduleClause *SC = nullptr;
1949 SmallVector<OMPLinearClause *, 4> LCs;
1950 SmallVector<OMPClauseWithPreInit *, 8> PICs;
1951 // This is required for proper codegen.
1952 for (auto *Clause : Clauses) {
1953 if (isOpenMPPrivate(Clause->getClauseKind()) ||
1954 Clause->getClauseKind() == OMPC_copyprivate ||
1955 (getLangOpts().OpenMPUseTLS &&
1956 getASTContext().getTargetInfo().isTLSSupported() &&
1957 Clause->getClauseKind() == OMPC_copyin)) {
1958 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setForceVarCapturing(Clause->getClauseKind() == OMPC_copyin);
1959 // Mark all variables in private list clauses as used in inner region.
1960 for (auto *VarRef : Clause->children()) {
1961 if (auto *E = cast_or_null<Expr>(VarRef)) {
1962 MarkDeclarationsReferencedInExpr(E);
1963 }
1964 }
1965 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setForceVarCapturing(/*V=*/false);
1966 } else if (isParallelOrTaskRegion(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective())) {
1967 if (auto *C = OMPClauseWithPreInit::get(Clause))
1968 PICs.push_back(C);
1969 if (auto *C = OMPClauseWithPostUpdate::get(Clause)) {
1970 if (auto *E = C->getPostUpdateExpr())
1971 MarkDeclarationsReferencedInExpr(E);
1972 }
1973 }
1974 if (Clause->getClauseKind() == OMPC_schedule)
1975 SC = cast<OMPScheduleClause>(Clause);
1976 else if (Clause->getClauseKind() == OMPC_ordered)
1977 OC = cast<OMPOrderedClause>(Clause);
1978 else if (Clause->getClauseKind() == OMPC_linear)
1979 LCs.push_back(cast<OMPLinearClause>(Clause));
1980 }
1981 // OpenMP, 2.7.1 Loop Construct, Restrictions
1982 // The nonmonotonic modifier cannot be specified if an ordered clause is
1983 // specified.
1984 if (SC &&
1985 (SC->getFirstScheduleModifier() == OMPC_SCHEDULE_MODIFIER_nonmonotonic ||
1986 SC->getSecondScheduleModifier() ==
1987 OMPC_SCHEDULE_MODIFIER_nonmonotonic) &&
1988 OC) {
1989 Diag(SC->getFirstScheduleModifier() == OMPC_SCHEDULE_MODIFIER_nonmonotonic
1990 ? SC->getFirstScheduleModifierLoc()
1991 : SC->getSecondScheduleModifierLoc(),
1992 diag::err_omp_schedule_nonmonotonic_ordered)
1993 << SourceRange(OC->getLocStart(), OC->getLocEnd());
1994 ErrorFound = true;
1995 }
1996 if (!LCs.empty() && OC && OC->getNumForLoops()) {
1997 for (auto *C : LCs) {
1998 Diag(C->getLocStart(), diag::err_omp_linear_ordered)
1999 << SourceRange(OC->getLocStart(), OC->getLocEnd());
2000 }
2001 ErrorFound = true;
2002 }
2003 if (isOpenMPWorksharingDirective(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective()) &&
2004 isOpenMPSimdDirective(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective()) && OC &&
2005 OC->getNumForLoops()) {
2006 Diag(OC->getLocStart(), diag::err_omp_ordered_simd)
2007 << getOpenMPDirectiveName(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective());
2008 ErrorFound = true;
2009 }
2010 if (ErrorFound) {
2011 return StmtError();
2012 }
2013 StmtResult SR = S;
2014 SmallVector<OpenMPDirectiveKind, 4> CaptureRegions;
2015 getOpenMPCaptureRegions(CaptureRegions, DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective());
2016 for (auto ThisCaptureRegion : llvm::reverse(CaptureRegions)) {
2017 // Mark all variables in private list clauses as used in inner region.
2018 // Required for proper codegen of combined directives.
2019 // TODO: add processing for other clauses.
2020 if (isParallelOrTaskRegion(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective())) {
2021 for (auto *C : PICs) {
2022 OpenMPDirectiveKind CaptureRegion = C->getCaptureRegion();
2023 // Find the particular capture region for the clause if the
2024 // directive is a combined one with multiple capture regions.
2025 // If the directive is not a combined one, the capture region
2026 // associated with the clause is OMPD_unknown and is generated
2027 // only once.
2028 if (CaptureRegion == ThisCaptureRegion ||
2029 CaptureRegion == OMPD_unknown) {
2030 if (auto *DS = cast_or_null<DeclStmt>(C->getPreInitStmt())) {
2031 for (auto *D : DS->decls())
2032 MarkVariableReferenced(D->getLocation(), cast<VarDecl>(D));
2033 }
2034 }
2035 }
2036 }
2037 SR = ActOnCapturedRegionEnd(SR.get());
2038 }
2039 return SR;
2040}
2041
2042static bool checkCancelRegion(Sema &SemaRef, OpenMPDirectiveKind CurrentRegion,
2043 OpenMPDirectiveKind CancelRegion,
2044 SourceLocation StartLoc) {
2045 // CancelRegion is only needed for cancel and cancellation_point.
2046 if (CurrentRegion != OMPD_cancel && CurrentRegion != OMPD_cancellation_point)
2047 return false;
2048
2049 if (CancelRegion == OMPD_parallel || CancelRegion == OMPD_for ||
2050 CancelRegion == OMPD_sections || CancelRegion == OMPD_taskgroup)
2051 return false;
2052
2053 SemaRef.Diag(StartLoc, diag::err_omp_wrong_cancel_region)
2054 << getOpenMPDirectiveName(CancelRegion);
2055 return true;
2056}
2057
2058static bool checkNestingOfRegions(Sema &SemaRef, DSAStackTy *Stack,
2059 OpenMPDirectiveKind CurrentRegion,
2060 const DeclarationNameInfo &CurrentName,
2061 OpenMPDirectiveKind CancelRegion,
2062 SourceLocation StartLoc) {
2063 if (Stack->getCurScope()) {
2064 auto ParentRegion = Stack->getParentDirective();
2065 auto OffendingRegion = ParentRegion;
2066 bool NestingProhibited = false;
2067 bool CloseNesting = true;
2068 bool OrphanSeen = false;
2069 enum {
2070 NoRecommend,
2071 ShouldBeInParallelRegion,
2072 ShouldBeInOrderedRegion,
2073 ShouldBeInTargetRegion,
2074 ShouldBeInTeamsRegion
2075 } Recommend = NoRecommend;
2076 if (isOpenMPSimdDirective(ParentRegion) && CurrentRegion != OMPD_ordered) {
2077 // OpenMP [2.16, Nesting of Regions]
2078 // OpenMP constructs may not be nested inside a simd region.
2079 // OpenMP [2.8.1,simd Construct, Restrictions]
2080 // An ordered construct with the simd clause is the only OpenMP
2081 // construct that can appear in the simd region.
2082 // Allowing a SIMD construct nested in another SIMD construct is an
2083 // extension. The OpenMP 4.5 spec does not allow it. Issue a warning
2084 // message.
2085 SemaRef.Diag(StartLoc, (CurrentRegion != OMPD_simd)
2086 ? diag::err_omp_prohibited_region_simd
2087 : diag::warn_omp_nesting_simd);
2088 return CurrentRegion != OMPD_simd;
2089 }
2090 if (ParentRegion == OMPD_atomic) {
2091 // OpenMP [2.16, Nesting of Regions]
2092 // OpenMP constructs may not be nested inside an atomic region.
2093 SemaRef.Diag(StartLoc, diag::err_omp_prohibited_region_atomic);
2094 return true;
2095 }
2096 if (CurrentRegion == OMPD_section) {
2097 // OpenMP [2.7.2, sections Construct, Restrictions]
2098 // Orphaned section directives are prohibited. That is, the section
2099 // directives must appear within the sections construct and must not be
2100 // encountered elsewhere in the sections region.
2101 if (ParentRegion != OMPD_sections &&
2102 ParentRegion != OMPD_parallel_sections) {
2103 SemaRef.Diag(StartLoc, diag::err_omp_orphaned_section_directive)
2104 << (ParentRegion != OMPD_unknown)
2105 << getOpenMPDirectiveName(ParentRegion);
2106 return true;
2107 }
2108 return false;
2109 }
2110 // Allow some constructs (except teams) to be orphaned (they could be
2111 // used in functions, called from OpenMP regions with the required
2112 // preconditions).
2113 if (ParentRegion == OMPD_unknown &&
2114 !isOpenMPNestingTeamsDirective(CurrentRegion))
2115 return false;
2116 if (CurrentRegion == OMPD_cancellation_point ||
2117 CurrentRegion == OMPD_cancel) {
2118 // OpenMP [2.16, Nesting of Regions]
2119 // A cancellation point construct for which construct-type-clause is
2120 // taskgroup must be nested inside a task construct. A cancellation
2121 // point construct for which construct-type-clause is not taskgroup must
2122 // be closely nested inside an OpenMP construct that matches the type
2123 // specified in construct-type-clause.
2124 // A cancel construct for which construct-type-clause is taskgroup must be
2125 // nested inside a task construct. A cancel construct for which
2126 // construct-type-clause is not taskgroup must be closely nested inside an
2127 // OpenMP construct that matches the type specified in
2128 // construct-type-clause.
2129 NestingProhibited =
2130 !((CancelRegion == OMPD_parallel &&
2131 (ParentRegion == OMPD_parallel ||
2132 ParentRegion == OMPD_target_parallel)) ||
2133 (CancelRegion == OMPD_for &&
2134 (ParentRegion == OMPD_for || ParentRegion == OMPD_parallel_for ||
2135 ParentRegion == OMPD_target_parallel_for)) ||
2136 (CancelRegion == OMPD_taskgroup && ParentRegion == OMPD_task) ||
2137 (CancelRegion == OMPD_sections &&
2138 (ParentRegion == OMPD_section || ParentRegion == OMPD_sections ||
2139 ParentRegion == OMPD_parallel_sections)));
2140 } else if (CurrentRegion == OMPD_master) {
2141 // OpenMP [2.16, Nesting of Regions]
2142 // A master region may not be closely nested inside a worksharing,
2143 // atomic, or explicit task region.
2144 NestingProhibited = isOpenMPWorksharingDirective(ParentRegion) ||
2145 isOpenMPTaskingDirective(ParentRegion);
2146 } else if (CurrentRegion == OMPD_critical && CurrentName.getName()) {
2147 // OpenMP [2.16, Nesting of Regions]
2148 // A critical region may not be nested (closely or otherwise) inside a
2149 // critical region with the same name. Note that this restriction is not
2150 // sufficient to prevent deadlock.
2151 SourceLocation PreviousCriticalLoc;
2152 bool DeadLock = Stack->hasDirective(
2153 [CurrentName, &PreviousCriticalLoc](OpenMPDirectiveKind K,
2154 const DeclarationNameInfo &DNI,
2155 SourceLocation Loc) -> bool {
2156 if (K == OMPD_critical && DNI.getName() == CurrentName.getName()) {
2157 PreviousCriticalLoc = Loc;
2158 return true;
2159 } else
2160 return false;
2161 },
2162 false /* skip top directive */);
2163 if (DeadLock) {
2164 SemaRef.Diag(StartLoc,
2165 diag::err_omp_prohibited_region_critical_same_name)
2166 << CurrentName.getName();
2167 if (PreviousCriticalLoc.isValid())
2168 SemaRef.Diag(PreviousCriticalLoc,
2169 diag::note_omp_previous_critical_region);
2170 return true;
2171 }
2172 } else if (CurrentRegion == OMPD_barrier) {
2173 // OpenMP [2.16, Nesting of Regions]
2174 // A barrier region may not be closely nested inside a worksharing,
2175 // explicit task, critical, ordered, atomic, or master region.
2176 NestingProhibited = isOpenMPWorksharingDirective(ParentRegion) ||
2177 isOpenMPTaskingDirective(ParentRegion) ||
2178 ParentRegion == OMPD_master ||
2179 ParentRegion == OMPD_critical ||
2180 ParentRegion == OMPD_ordered;
2181 } else if (isOpenMPWorksharingDirective(CurrentRegion) &&
2182 !isOpenMPParallelDirective(CurrentRegion) &&
2183 !isOpenMPTeamsDirective(CurrentRegion)) {
2184 // OpenMP [2.16, Nesting of Regions]
2185 // A worksharing region may not be closely nested inside a worksharing,
2186 // explicit task, critical, ordered, atomic, or master region.
2187 NestingProhibited = isOpenMPWorksharingDirective(ParentRegion) ||
2188 isOpenMPTaskingDirective(ParentRegion) ||
2189 ParentRegion == OMPD_master ||
2190 ParentRegion == OMPD_critical ||
2191 ParentRegion == OMPD_ordered;
2192 Recommend = ShouldBeInParallelRegion;
2193 } else if (CurrentRegion == OMPD_ordered) {
2194 // OpenMP [2.16, Nesting of Regions]
2195 // An ordered region may not be closely nested inside a critical,
2196 // atomic, or explicit task region.
2197 // An ordered region must be closely nested inside a loop region (or
2198 // parallel loop region) with an ordered clause.
2199 // OpenMP [2.8.1,simd Construct, Restrictions]
2200 // An ordered construct with the simd clause is the only OpenMP construct
2201 // that can appear in the simd region.
2202 NestingProhibited = ParentRegion == OMPD_critical ||
2203 isOpenMPTaskingDirective(ParentRegion) ||
2204 !(isOpenMPSimdDirective(ParentRegion) ||
2205 Stack->isParentOrderedRegion());
2206 Recommend = ShouldBeInOrderedRegion;
2207 } else if (isOpenMPNestingTeamsDirective(CurrentRegion)) {
2208 // OpenMP [2.16, Nesting of Regions]
2209 // If specified, a teams construct must be contained within a target
2210 // construct.
2211 NestingProhibited = ParentRegion != OMPD_target;
2212 OrphanSeen = ParentRegion == OMPD_unknown;
2213 Recommend = ShouldBeInTargetRegion;
2214 Stack->setParentTeamsRegionLoc(Stack->getConstructLoc());
2215 }
2216 if (!NestingProhibited &&
2217 !isOpenMPTargetExecutionDirective(CurrentRegion) &&
2218 !isOpenMPTargetDataManagementDirective(CurrentRegion) &&
2219 (ParentRegion == OMPD_teams || ParentRegion == OMPD_target_teams)) {
2220 // OpenMP [2.16, Nesting of Regions]
2221 // distribute, parallel, parallel sections, parallel workshare, and the
2222 // parallel loop and parallel loop SIMD constructs are the only OpenMP
2223 // constructs that can be closely nested in the teams region.
2224 NestingProhibited = !isOpenMPParallelDirective(CurrentRegion) &&
2225 !isOpenMPDistributeDirective(CurrentRegion);
2226 Recommend = ShouldBeInParallelRegion;
2227 }
2228 if (!NestingProhibited &&
2229 isOpenMPNestingDistributeDirective(CurrentRegion)) {
2230 // OpenMP 4.5 [2.17 Nesting of Regions]
2231 // The region associated with the distribute construct must be strictly
2232 // nested inside a teams region
2233 NestingProhibited =
2234 (ParentRegion != OMPD_teams && ParentRegion != OMPD_target_teams);
2235 Recommend = ShouldBeInTeamsRegion;
2236 }
2237 if (!NestingProhibited &&
2238 (isOpenMPTargetExecutionDirective(CurrentRegion) ||
2239 isOpenMPTargetDataManagementDirective(CurrentRegion))) {
2240 // OpenMP 4.5 [2.17 Nesting of Regions]
2241 // If a target, target update, target data, target enter data, or
2242 // target exit data construct is encountered during execution of a
2243 // target region, the behavior is unspecified.
2244 NestingProhibited = Stack->hasDirective(
2245 [&OffendingRegion](OpenMPDirectiveKind K, const DeclarationNameInfo &,
2246 SourceLocation) -> bool {
2247 if (isOpenMPTargetExecutionDirective(K)) {
2248 OffendingRegion = K;
2249 return true;
2250 } else
2251 return false;
2252 },
2253 false /* don't skip top directive */);
2254 CloseNesting = false;
2255 }
2256 if (NestingProhibited) {
2257 if (OrphanSeen) {
2258 SemaRef.Diag(StartLoc, diag::err_omp_orphaned_device_directive)
2259 << getOpenMPDirectiveName(CurrentRegion) << Recommend;
2260 } else {
2261 SemaRef.Diag(StartLoc, diag::err_omp_prohibited_region)
2262 << CloseNesting << getOpenMPDirectiveName(OffendingRegion)
2263 << Recommend << getOpenMPDirectiveName(CurrentRegion);
2264 }
2265 return true;
2266 }
2267 }
2268 return false;
2269}
2270
2271static bool checkIfClauses(Sema &S, OpenMPDirectiveKind Kind,
2272 ArrayRef<OMPClause *> Clauses,
2273 ArrayRef<OpenMPDirectiveKind> AllowedNameModifiers) {
2274 bool ErrorFound = false;
2275 unsigned NamedModifiersNumber = 0;
2276 SmallVector<const OMPIfClause *, OMPC_unknown + 1> FoundNameModifiers(
2277 OMPD_unknown + 1);
2278 SmallVector<SourceLocation, 4> NameModifierLoc;
2279 for (const auto *C : Clauses) {
2280 if (const auto *IC = dyn_cast_or_null<OMPIfClause>(C)) {
2281 // At most one if clause without a directive-name-modifier can appear on
2282 // the directive.
2283 OpenMPDirectiveKind CurNM = IC->getNameModifier();
2284 if (FoundNameModifiers[CurNM]) {
2285 S.Diag(C->getLocStart(), diag::err_omp_more_one_clause)
2286 << getOpenMPDirectiveName(Kind) << getOpenMPClauseName(OMPC_if)
2287 << (CurNM != OMPD_unknown) << getOpenMPDirectiveName(CurNM);
2288 ErrorFound = true;
2289 } else if (CurNM != OMPD_unknown) {
2290 NameModifierLoc.push_back(IC->getNameModifierLoc());
2291 ++NamedModifiersNumber;
2292 }
2293 FoundNameModifiers[CurNM] = IC;
2294 if (CurNM == OMPD_unknown)
2295 continue;
2296 // Check if the specified name modifier is allowed for the current
2297 // directive.
2298 // At most one if clause with the particular directive-name-modifier can
2299 // appear on the directive.
2300 bool MatchFound = false;
2301 for (auto NM : AllowedNameModifiers) {
2302 if (CurNM == NM) {
2303 MatchFound = true;
2304 break;
2305 }
2306 }
2307 if (!MatchFound) {
2308 S.Diag(IC->getNameModifierLoc(),
2309 diag::err_omp_wrong_if_directive_name_modifier)
2310 << getOpenMPDirectiveName(CurNM) << getOpenMPDirectiveName(Kind);
2311 ErrorFound = true;
2312 }
2313 }
2314 }
2315 // If any if clause on the directive includes a directive-name-modifier then
2316 // all if clauses on the directive must include a directive-name-modifier.
2317 if (FoundNameModifiers[OMPD_unknown] && NamedModifiersNumber > 0) {
2318 if (NamedModifiersNumber == AllowedNameModifiers.size()) {
2319 S.Diag(FoundNameModifiers[OMPD_unknown]->getLocStart(),
2320 diag::err_omp_no_more_if_clause);
2321 } else {
2322 std::string Values;
2323 std::string Sep(", ");
2324 unsigned AllowedCnt = 0;
2325 unsigned TotalAllowedNum =
2326 AllowedNameModifiers.size() - NamedModifiersNumber;
2327 for (unsigned Cnt = 0, End = AllowedNameModifiers.size(); Cnt < End;
2328 ++Cnt) {
2329 OpenMPDirectiveKind NM = AllowedNameModifiers[Cnt];
2330 if (!FoundNameModifiers[NM]) {
2331 Values += "'";
2332 Values += getOpenMPDirectiveName(NM);
2333 Values += "'";
2334 if (AllowedCnt + 2 == TotalAllowedNum)
2335 Values += " or ";
2336 else if (AllowedCnt + 1 != TotalAllowedNum)
2337 Values += Sep;
2338 ++AllowedCnt;
2339 }
2340 }
2341 S.Diag(FoundNameModifiers[OMPD_unknown]->getCondition()->getLocStart(),
2342 diag::err_omp_unnamed_if_clause)
2343 << (TotalAllowedNum > 1) << Values;
2344 }
2345 for (auto Loc : NameModifierLoc) {
2346 S.Diag(Loc, diag::note_omp_previous_named_if_clause);
2347 }
2348 ErrorFound = true;
2349 }
2350 return ErrorFound;
2351}
2352
2353StmtResult Sema::ActOnOpenMPExecutableDirective(
2354 OpenMPDirectiveKind Kind, const DeclarationNameInfo &DirName,
2355 OpenMPDirectiveKind CancelRegion, ArrayRef<OMPClause *> Clauses,
2356 Stmt *AStmt, SourceLocation StartLoc, SourceLocation EndLoc) {
2357 StmtResult Res = StmtError();
2358 // First check CancelRegion which is then used in checkNestingOfRegions.
2359 if (checkCancelRegion(*this, Kind, CancelRegion, StartLoc) ||
2360 checkNestingOfRegions(*this, DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
, Kind, DirName, CancelRegion,
2361 StartLoc))
2362 return StmtError();
2363
2364 llvm::SmallVector<OMPClause *, 8> ClausesWithImplicit;
2365 llvm::DenseMap<ValueDecl *, Expr *> VarsWithInheritedDSA;
2366 bool ErrorFound = false;
2367 ClausesWithImplicit.append(Clauses.begin(), Clauses.end());
2368 if (AStmt) {
2369 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2369, __PRETTY_FUNCTION__))
;
2370
2371 // Check default data sharing attributes for referenced variables.
2372 DSAAttrChecker DSAChecker(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
, *this, cast<CapturedStmt>(AStmt));
2373 int ThisCaptureLevel = getOpenMPCaptureLevels(Kind);
2374 Stmt *S = AStmt;
2375 while (--ThisCaptureLevel >= 0)
2376 S = cast<CapturedStmt>(S)->getCapturedStmt();
2377 DSAChecker.Visit(S);
2378 if (DSAChecker.isErrorFound())
2379 return StmtError();
2380 // Generate list of implicitly defined firstprivate variables.
2381 VarsWithInheritedDSA = DSAChecker.getVarsWithInheritedDSA();
2382
2383 if (!DSAChecker.getImplicitFirstprivate().empty()) {
2384 if (OMPClause *Implicit = ActOnOpenMPFirstprivateClause(
2385 DSAChecker.getImplicitFirstprivate(), SourceLocation(),
2386 SourceLocation(), SourceLocation())) {
2387 ClausesWithImplicit.push_back(Implicit);
2388 ErrorFound = cast<OMPFirstprivateClause>(Implicit)->varlist_size() !=
2389 DSAChecker.getImplicitFirstprivate().size();
2390 } else
2391 ErrorFound = true;
2392 }
2393 }
2394
2395 llvm::SmallVector<OpenMPDirectiveKind, 4> AllowedNameModifiers;
2396 switch (Kind) {
2397 case OMPD_parallel:
2398 Res = ActOnOpenMPParallelDirective(ClausesWithImplicit, AStmt, StartLoc,
2399 EndLoc);
2400 AllowedNameModifiers.push_back(OMPD_parallel);
2401 break;
2402 case OMPD_simd:
2403 Res = ActOnOpenMPSimdDirective(ClausesWithImplicit, AStmt, StartLoc, EndLoc,
2404 VarsWithInheritedDSA);
2405 break;
2406 case OMPD_for:
2407 Res = ActOnOpenMPForDirective(ClausesWithImplicit, AStmt, StartLoc, EndLoc,
2408 VarsWithInheritedDSA);
2409 break;
2410 case OMPD_for_simd:
2411 Res = ActOnOpenMPForSimdDirective(ClausesWithImplicit, AStmt, StartLoc,
2412 EndLoc, VarsWithInheritedDSA);
2413 break;
2414 case OMPD_sections:
2415 Res = ActOnOpenMPSectionsDirective(ClausesWithImplicit, AStmt, StartLoc,
2416 EndLoc);
2417 break;
2418 case OMPD_section:
2419 assert(ClausesWithImplicit.empty() &&((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp section' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp section' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2420, __PRETTY_FUNCTION__))
2420 "No clauses are allowed for 'omp section' directive")((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp section' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp section' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2420, __PRETTY_FUNCTION__))
;
2421 Res = ActOnOpenMPSectionDirective(AStmt, StartLoc, EndLoc);
2422 break;
2423 case OMPD_single:
2424 Res = ActOnOpenMPSingleDirective(ClausesWithImplicit, AStmt, StartLoc,
2425 EndLoc);
2426 break;
2427 case OMPD_master:
2428 assert(ClausesWithImplicit.empty() &&((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp master' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp master' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2429, __PRETTY_FUNCTION__))
2429 "No clauses are allowed for 'omp master' directive")((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp master' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp master' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2429, __PRETTY_FUNCTION__))
;
2430 Res = ActOnOpenMPMasterDirective(AStmt, StartLoc, EndLoc);
2431 break;
2432 case OMPD_critical:
2433 Res = ActOnOpenMPCriticalDirective(DirName, ClausesWithImplicit, AStmt,
2434 StartLoc, EndLoc);
2435 break;
2436 case OMPD_parallel_for:
2437 Res = ActOnOpenMPParallelForDirective(ClausesWithImplicit, AStmt, StartLoc,
2438 EndLoc, VarsWithInheritedDSA);
2439 AllowedNameModifiers.push_back(OMPD_parallel);
2440 break;
2441 case OMPD_parallel_for_simd:
2442 Res = ActOnOpenMPParallelForSimdDirective(
2443 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2444 AllowedNameModifiers.push_back(OMPD_parallel);
2445 break;
2446 case OMPD_parallel_sections:
2447 Res = ActOnOpenMPParallelSectionsDirective(ClausesWithImplicit, AStmt,
2448 StartLoc, EndLoc);
2449 AllowedNameModifiers.push_back(OMPD_parallel);
2450 break;
2451 case OMPD_task:
2452 Res =
2453 ActOnOpenMPTaskDirective(ClausesWithImplicit, AStmt, StartLoc, EndLoc);
2454 AllowedNameModifiers.push_back(OMPD_task);
2455 break;
2456 case OMPD_taskyield:
2457 assert(ClausesWithImplicit.empty() &&((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp taskyield' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp taskyield' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2458, __PRETTY_FUNCTION__))
2458 "No clauses are allowed for 'omp taskyield' directive")((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp taskyield' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp taskyield' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2458, __PRETTY_FUNCTION__))
;
2459 assert(AStmt == nullptr &&((AStmt == nullptr && "No associated statement allowed for 'omp taskyield' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp taskyield' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2460, __PRETTY_FUNCTION__))
2460 "No associated statement allowed for 'omp taskyield' directive")((AStmt == nullptr && "No associated statement allowed for 'omp taskyield' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp taskyield' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2460, __PRETTY_FUNCTION__))
;
2461 Res = ActOnOpenMPTaskyieldDirective(StartLoc, EndLoc);
2462 break;
2463 case OMPD_barrier:
2464 assert(ClausesWithImplicit.empty() &&((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp barrier' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp barrier' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2465, __PRETTY_FUNCTION__))
2465 "No clauses are allowed for 'omp barrier' directive")((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp barrier' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp barrier' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2465, __PRETTY_FUNCTION__))
;
2466 assert(AStmt == nullptr &&((AStmt == nullptr && "No associated statement allowed for 'omp barrier' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp barrier' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2467, __PRETTY_FUNCTION__))
2467 "No associated statement allowed for 'omp barrier' directive")((AStmt == nullptr && "No associated statement allowed for 'omp barrier' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp barrier' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2467, __PRETTY_FUNCTION__))
;
2468 Res = ActOnOpenMPBarrierDirective(StartLoc, EndLoc);
2469 break;
2470 case OMPD_taskwait:
2471 assert(ClausesWithImplicit.empty() &&((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp taskwait' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp taskwait' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2472, __PRETTY_FUNCTION__))
2472 "No clauses are allowed for 'omp taskwait' directive")((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp taskwait' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp taskwait' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2472, __PRETTY_FUNCTION__))
;
2473 assert(AStmt == nullptr &&((AStmt == nullptr && "No associated statement allowed for 'omp taskwait' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp taskwait' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2474, __PRETTY_FUNCTION__))
2474 "No associated statement allowed for 'omp taskwait' directive")((AStmt == nullptr && "No associated statement allowed for 'omp taskwait' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp taskwait' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2474, __PRETTY_FUNCTION__))
;
2475 Res = ActOnOpenMPTaskwaitDirective(StartLoc, EndLoc);
2476 break;
2477 case OMPD_taskgroup:
2478 assert(ClausesWithImplicit.empty() &&((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp taskgroup' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp taskgroup' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2479, __PRETTY_FUNCTION__))
2479 "No clauses are allowed for 'omp taskgroup' directive")((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp taskgroup' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp taskgroup' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2479, __PRETTY_FUNCTION__))
;
2480 Res = ActOnOpenMPTaskgroupDirective(AStmt, StartLoc, EndLoc);
2481 break;
2482 case OMPD_flush:
2483 assert(AStmt == nullptr &&((AStmt == nullptr && "No associated statement allowed for 'omp flush' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp flush' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2484, __PRETTY_FUNCTION__))
2484 "No associated statement allowed for 'omp flush' directive")((AStmt == nullptr && "No associated statement allowed for 'omp flush' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp flush' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2484, __PRETTY_FUNCTION__))
;
2485 Res = ActOnOpenMPFlushDirective(ClausesWithImplicit, StartLoc, EndLoc);
2486 break;
2487 case OMPD_ordered:
2488 Res = ActOnOpenMPOrderedDirective(ClausesWithImplicit, AStmt, StartLoc,
2489 EndLoc);
2490 break;
2491 case OMPD_atomic:
2492 Res = ActOnOpenMPAtomicDirective(ClausesWithImplicit, AStmt, StartLoc,
2493 EndLoc);
2494 break;
2495 case OMPD_teams:
2496 Res =
2497 ActOnOpenMPTeamsDirective(ClausesWithImplicit, AStmt, StartLoc, EndLoc);
2498 break;
2499 case OMPD_target:
2500 Res = ActOnOpenMPTargetDirective(ClausesWithImplicit, AStmt, StartLoc,
2501 EndLoc);
2502 AllowedNameModifiers.push_back(OMPD_target);
2503 break;
2504 case OMPD_target_parallel:
2505 Res = ActOnOpenMPTargetParallelDirective(ClausesWithImplicit, AStmt,
2506 StartLoc, EndLoc);
2507 AllowedNameModifiers.push_back(OMPD_target);
2508 AllowedNameModifiers.push_back(OMPD_parallel);
2509 break;
2510 case OMPD_target_parallel_for:
2511 Res = ActOnOpenMPTargetParallelForDirective(
2512 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2513 AllowedNameModifiers.push_back(OMPD_target);
2514 AllowedNameModifiers.push_back(OMPD_parallel);
2515 break;
2516 case OMPD_cancellation_point:
2517 assert(ClausesWithImplicit.empty() &&((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp cancellation point' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp cancellation point' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2518, __PRETTY_FUNCTION__))
2518 "No clauses are allowed for 'omp cancellation point' directive")((ClausesWithImplicit.empty() && "No clauses are allowed for 'omp cancellation point' directive"
) ? static_cast<void> (0) : __assert_fail ("ClausesWithImplicit.empty() && \"No clauses are allowed for 'omp cancellation point' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2518, __PRETTY_FUNCTION__))
;
2519 assert(AStmt == nullptr && "No associated statement allowed for 'omp "((AStmt == nullptr && "No associated statement allowed for 'omp "
"cancellation point' directive") ? static_cast<void> (
0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp \" \"cancellation point' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2520, __PRETTY_FUNCTION__))
2520 "cancellation point' directive")((AStmt == nullptr && "No associated statement allowed for 'omp "
"cancellation point' directive") ? static_cast<void> (
0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp \" \"cancellation point' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2520, __PRETTY_FUNCTION__))
;
2521 Res = ActOnOpenMPCancellationPointDirective(StartLoc, EndLoc, CancelRegion);
2522 break;
2523 case OMPD_cancel:
2524 assert(AStmt == nullptr &&((AStmt == nullptr && "No associated statement allowed for 'omp cancel' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp cancel' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2525, __PRETTY_FUNCTION__))
2525 "No associated statement allowed for 'omp cancel' directive")((AStmt == nullptr && "No associated statement allowed for 'omp cancel' directive"
) ? static_cast<void> (0) : __assert_fail ("AStmt == nullptr && \"No associated statement allowed for 'omp cancel' directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2525, __PRETTY_FUNCTION__))
;
2526 Res = ActOnOpenMPCancelDirective(ClausesWithImplicit, StartLoc, EndLoc,
2527 CancelRegion);
2528 AllowedNameModifiers.push_back(OMPD_cancel);
2529 break;
2530 case OMPD_target_data:
2531 Res = ActOnOpenMPTargetDataDirective(ClausesWithImplicit, AStmt, StartLoc,
2532 EndLoc);
2533 AllowedNameModifiers.push_back(OMPD_target_data);
2534 break;
2535 case OMPD_target_enter_data:
2536 Res = ActOnOpenMPTargetEnterDataDirective(ClausesWithImplicit, StartLoc,
2537 EndLoc);
2538 AllowedNameModifiers.push_back(OMPD_target_enter_data);
2539 break;
2540 case OMPD_target_exit_data:
2541 Res = ActOnOpenMPTargetExitDataDirective(ClausesWithImplicit, StartLoc,
2542 EndLoc);
2543 AllowedNameModifiers.push_back(OMPD_target_exit_data);
2544 break;
2545 case OMPD_taskloop:
2546 Res = ActOnOpenMPTaskLoopDirective(ClausesWithImplicit, AStmt, StartLoc,
2547 EndLoc, VarsWithInheritedDSA);
2548 AllowedNameModifiers.push_back(OMPD_taskloop);
2549 break;
2550 case OMPD_taskloop_simd:
2551 Res = ActOnOpenMPTaskLoopSimdDirective(ClausesWithImplicit, AStmt, StartLoc,
2552 EndLoc, VarsWithInheritedDSA);
2553 AllowedNameModifiers.push_back(OMPD_taskloop);
2554 break;
2555 case OMPD_distribute:
2556 Res = ActOnOpenMPDistributeDirective(ClausesWithImplicit, AStmt, StartLoc,
2557 EndLoc, VarsWithInheritedDSA);
2558 break;
2559 case OMPD_target_update:
2560 assert(!AStmt && "Statement is not allowed for target update")((!AStmt && "Statement is not allowed for target update"
) ? static_cast<void> (0) : __assert_fail ("!AStmt && \"Statement is not allowed for target update\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2560, __PRETTY_FUNCTION__))
;
2561 Res =
2562 ActOnOpenMPTargetUpdateDirective(ClausesWithImplicit, StartLoc, EndLoc);
2563 AllowedNameModifiers.push_back(OMPD_target_update);
2564 break;
2565 case OMPD_distribute_parallel_for:
2566 Res = ActOnOpenMPDistributeParallelForDirective(
2567 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2568 AllowedNameModifiers.push_back(OMPD_parallel);
2569 break;
2570 case OMPD_distribute_parallel_for_simd:
2571 Res = ActOnOpenMPDistributeParallelForSimdDirective(
2572 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2573 AllowedNameModifiers.push_back(OMPD_parallel);
2574 break;
2575 case OMPD_distribute_simd:
2576 Res = ActOnOpenMPDistributeSimdDirective(
2577 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2578 break;
2579 case OMPD_target_parallel_for_simd:
2580 Res = ActOnOpenMPTargetParallelForSimdDirective(
2581 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2582 AllowedNameModifiers.push_back(OMPD_target);
2583 AllowedNameModifiers.push_back(OMPD_parallel);
2584 break;
2585 case OMPD_target_simd:
2586 Res = ActOnOpenMPTargetSimdDirective(ClausesWithImplicit, AStmt, StartLoc,
2587 EndLoc, VarsWithInheritedDSA);
2588 AllowedNameModifiers.push_back(OMPD_target);
2589 break;
2590 case OMPD_teams_distribute:
2591 Res = ActOnOpenMPTeamsDistributeDirective(
2592 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2593 break;
2594 case OMPD_teams_distribute_simd:
2595 Res = ActOnOpenMPTeamsDistributeSimdDirective(
2596 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2597 break;
2598 case OMPD_teams_distribute_parallel_for_simd:
2599 Res = ActOnOpenMPTeamsDistributeParallelForSimdDirective(
2600 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2601 AllowedNameModifiers.push_back(OMPD_parallel);
2602 break;
2603 case OMPD_teams_distribute_parallel_for:
2604 Res = ActOnOpenMPTeamsDistributeParallelForDirective(
2605 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2606 AllowedNameModifiers.push_back(OMPD_parallel);
2607 break;
2608 case OMPD_target_teams:
2609 Res = ActOnOpenMPTargetTeamsDirective(ClausesWithImplicit, AStmt, StartLoc,
2610 EndLoc);
2611 AllowedNameModifiers.push_back(OMPD_target);
2612 break;
2613 case OMPD_target_teams_distribute:
2614 Res = ActOnOpenMPTargetTeamsDistributeDirective(
2615 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2616 AllowedNameModifiers.push_back(OMPD_target);
2617 break;
2618 case OMPD_target_teams_distribute_parallel_for:
2619 Res = ActOnOpenMPTargetTeamsDistributeParallelForDirective(
2620 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2621 AllowedNameModifiers.push_back(OMPD_target);
2622 AllowedNameModifiers.push_back(OMPD_parallel);
2623 break;
2624 case OMPD_target_teams_distribute_parallel_for_simd:
2625 Res = ActOnOpenMPTargetTeamsDistributeParallelForSimdDirective(
2626 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2627 AllowedNameModifiers.push_back(OMPD_target);
2628 AllowedNameModifiers.push_back(OMPD_parallel);
2629 break;
2630 case OMPD_target_teams_distribute_simd:
2631 Res = ActOnOpenMPTargetTeamsDistributeSimdDirective(
2632 ClausesWithImplicit, AStmt, StartLoc, EndLoc, VarsWithInheritedDSA);
2633 AllowedNameModifiers.push_back(OMPD_target);
2634 break;
2635 case OMPD_declare_target:
2636 case OMPD_end_declare_target:
2637 case OMPD_threadprivate:
2638 case OMPD_declare_reduction:
2639 case OMPD_declare_simd:
2640 llvm_unreachable("OpenMP Directive is not allowed")::llvm::llvm_unreachable_internal("OpenMP Directive is not allowed"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2640)
;
2641 case OMPD_unknown:
2642 llvm_unreachable("Unknown OpenMP directive")::llvm::llvm_unreachable_internal("Unknown OpenMP directive",
"/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2642)
;
2643 }
2644
2645 for (auto P : VarsWithInheritedDSA) {
2646 Diag(P.second->getExprLoc(), diag::err_omp_no_dsa_for_variable)
2647 << P.first << P.second->getSourceRange();
2648 }
2649 ErrorFound = !VarsWithInheritedDSA.empty() || ErrorFound;
2650
2651 if (!AllowedNameModifiers.empty())
2652 ErrorFound = checkIfClauses(*this, Kind, Clauses, AllowedNameModifiers) ||
2653 ErrorFound;
2654
2655 if (ErrorFound)
2656 return StmtError();
2657 return Res;
2658}
2659
2660Sema::DeclGroupPtrTy Sema::ActOnOpenMPDeclareSimdDirective(
2661 DeclGroupPtrTy DG, OMPDeclareSimdDeclAttr::BranchStateTy BS, Expr *Simdlen,
2662 ArrayRef<Expr *> Uniforms, ArrayRef<Expr *> Aligneds,
2663 ArrayRef<Expr *> Alignments, ArrayRef<Expr *> Linears,
2664 ArrayRef<unsigned> LinModifiers, ArrayRef<Expr *> Steps, SourceRange SR) {
2665 assert(Aligneds.size() == Alignments.size())((Aligneds.size() == Alignments.size()) ? static_cast<void
> (0) : __assert_fail ("Aligneds.size() == Alignments.size()"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2665, __PRETTY_FUNCTION__))
;
2666 assert(Linears.size() == LinModifiers.size())((Linears.size() == LinModifiers.size()) ? static_cast<void
> (0) : __assert_fail ("Linears.size() == LinModifiers.size()"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2666, __PRETTY_FUNCTION__))
;
2667 assert(Linears.size() == Steps.size())((Linears.size() == Steps.size()) ? static_cast<void> (
0) : __assert_fail ("Linears.size() == Steps.size()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 2667, __PRETTY_FUNCTION__))
;
2668 if (!DG || DG.get().isNull())
2669 return DeclGroupPtrTy();
2670
2671 if (!DG.get().isSingleDecl()) {
2672 Diag(SR.getBegin(), diag::err_omp_single_decl_in_declare_simd);
2673 return DG;
2674 }
2675 auto *ADecl = DG.get().getSingleDecl();
2676 if (auto *FTD = dyn_cast<FunctionTemplateDecl>(ADecl))
2677 ADecl = FTD->getTemplatedDecl();
2678
2679 auto *FD = dyn_cast<FunctionDecl>(ADecl);
2680 if (!FD) {
2681 Diag(ADecl->getLocation(), diag::err_omp_function_expected);
2682 return DeclGroupPtrTy();
2683 }
2684
2685 // OpenMP [2.8.2, declare simd construct, Description]
2686 // The parameter of the simdlen clause must be a constant positive integer
2687 // expression.
2688 ExprResult SL;
2689 if (Simdlen)
2690 SL = VerifyPositiveIntegerConstantInClause(Simdlen, OMPC_simdlen);
2691 // OpenMP [2.8.2, declare simd construct, Description]
2692 // The special this pointer can be used as if was one of the arguments to the
2693 // function in any of the linear, aligned, or uniform clauses.
2694 // The uniform clause declares one or more arguments to have an invariant
2695 // value for all concurrent invocations of the function in the execution of a
2696 // single SIMD loop.
2697 llvm::DenseMap<Decl *, Expr *> UniformedArgs;
2698 Expr *UniformedLinearThis = nullptr;
2699 for (auto *E : Uniforms) {
2700 E = E->IgnoreParenImpCasts();
2701 if (auto *DRE = dyn_cast<DeclRefExpr>(E))
2702 if (auto *PVD = dyn_cast<ParmVarDecl>(DRE->getDecl()))
2703 if (FD->getNumParams() > PVD->getFunctionScopeIndex() &&
2704 FD->getParamDecl(PVD->getFunctionScopeIndex())
2705 ->getCanonicalDecl() == PVD->getCanonicalDecl()) {
2706 UniformedArgs.insert(std::make_pair(PVD->getCanonicalDecl(), E));
2707 continue;
2708 }
2709 if (isa<CXXThisExpr>(E)) {
2710 UniformedLinearThis = E;
2711 continue;
2712 }
2713 Diag(E->getExprLoc(), diag::err_omp_param_or_this_in_clause)
2714 << FD->getDeclName() << (isa<CXXMethodDecl>(ADecl) ? 1 : 0);
2715 }
2716 // OpenMP [2.8.2, declare simd construct, Description]
2717 // The aligned clause declares that the object to which each list item points
2718 // is aligned to the number of bytes expressed in the optional parameter of
2719 // the aligned clause.
2720 // The special this pointer can be used as if was one of the arguments to the
2721 // function in any of the linear, aligned, or uniform clauses.
2722 // The type of list items appearing in the aligned clause must be array,
2723 // pointer, reference to array, or reference to pointer.
2724 llvm::DenseMap<Decl *, Expr *> AlignedArgs;
2725 Expr *AlignedThis = nullptr;
2726 for (auto *E : Aligneds) {
2727 E = E->IgnoreParenImpCasts();
2728 if (auto *DRE = dyn_cast<DeclRefExpr>(E))
2729 if (auto *PVD = dyn_cast<ParmVarDecl>(DRE->getDecl())) {
2730 auto *CanonPVD = PVD->getCanonicalDecl();
2731 if (FD->getNumParams() > PVD->getFunctionScopeIndex() &&
2732 FD->getParamDecl(PVD->getFunctionScopeIndex())
2733 ->getCanonicalDecl() == CanonPVD) {
2734 // OpenMP [2.8.1, simd construct, Restrictions]
2735 // A list-item cannot appear in more than one aligned clause.
2736 if (AlignedArgs.count(CanonPVD) > 0) {
2737 Diag(E->getExprLoc(), diag::err_omp_aligned_twice)
2738 << 1 << E->getSourceRange();
2739 Diag(AlignedArgs[CanonPVD]->getExprLoc(),
2740 diag::note_omp_explicit_dsa)
2741 << getOpenMPClauseName(OMPC_aligned);
2742 continue;
2743 }
2744 AlignedArgs[CanonPVD] = E;
2745 QualType QTy = PVD->getType()
2746 .getNonReferenceType()
2747 .getUnqualifiedType()
2748 .getCanonicalType();
2749 const Type *Ty = QTy.getTypePtrOrNull();
2750 if (!Ty || (!Ty->isArrayType() && !Ty->isPointerType())) {
2751 Diag(E->getExprLoc(), diag::err_omp_aligned_expected_array_or_ptr)
2752 << QTy << getLangOpts().CPlusPlus << E->getSourceRange();
2753 Diag(PVD->getLocation(), diag::note_previous_decl) << PVD;
2754 }
2755 continue;
2756 }
2757 }
2758 if (isa<CXXThisExpr>(E)) {
2759 if (AlignedThis) {
2760 Diag(E->getExprLoc(), diag::err_omp_aligned_twice)
2761 << 2 << E->getSourceRange();
2762 Diag(AlignedThis->getExprLoc(), diag::note_omp_explicit_dsa)
2763 << getOpenMPClauseName(OMPC_aligned);
2764 }
2765 AlignedThis = E;
2766 continue;
2767 }
2768 Diag(E->getExprLoc(), diag::err_omp_param_or_this_in_clause)
2769 << FD->getDeclName() << (isa<CXXMethodDecl>(ADecl) ? 1 : 0);
2770 }
2771 // The optional parameter of the aligned clause, alignment, must be a constant
2772 // positive integer expression. If no optional parameter is specified,
2773 // implementation-defined default alignments for SIMD instructions on the
2774 // target platforms are assumed.
2775 SmallVector<Expr *, 4> NewAligns;
2776 for (auto *E : Alignments) {
2777 ExprResult Align;
2778 if (E)
2779 Align = VerifyPositiveIntegerConstantInClause(E, OMPC_aligned);
2780 NewAligns.push_back(Align.get());
2781 }
2782 // OpenMP [2.8.2, declare simd construct, Description]
2783 // The linear clause declares one or more list items to be private to a SIMD
2784 // lane and to have a linear relationship with respect to the iteration space
2785 // of a loop.
2786 // The special this pointer can be used as if was one of the arguments to the
2787 // function in any of the linear, aligned, or uniform clauses.
2788 // When a linear-step expression is specified in a linear clause it must be
2789 // either a constant integer expression or an integer-typed parameter that is
2790 // specified in a uniform clause on the directive.
2791 llvm::DenseMap<Decl *, Expr *> LinearArgs;
2792 const bool IsUniformedThis = UniformedLinearThis != nullptr;
2793 auto MI = LinModifiers.begin();
2794 for (auto *E : Linears) {
2795 auto LinKind = static_cast<OpenMPLinearClauseKind>(*MI);
2796 ++MI;
2797 E = E->IgnoreParenImpCasts();
2798 if (auto *DRE = dyn_cast<DeclRefExpr>(E))
2799 if (auto *PVD = dyn_cast<ParmVarDecl>(DRE->getDecl())) {
2800 auto *CanonPVD = PVD->getCanonicalDecl();
2801 if (FD->getNumParams() > PVD->getFunctionScopeIndex() &&
2802 FD->getParamDecl(PVD->getFunctionScopeIndex())
2803 ->getCanonicalDecl() == CanonPVD) {
2804 // OpenMP [2.15.3.7, linear Clause, Restrictions]
2805 // A list-item cannot appear in more than one linear clause.
2806 if (LinearArgs.count(CanonPVD) > 0) {
2807 Diag(E->getExprLoc(), diag::err_omp_wrong_dsa)
2808 << getOpenMPClauseName(OMPC_linear)
2809 << getOpenMPClauseName(OMPC_linear) << E->getSourceRange();
2810 Diag(LinearArgs[CanonPVD]->getExprLoc(),
2811 diag::note_omp_explicit_dsa)
2812 << getOpenMPClauseName(OMPC_linear);
2813 continue;
2814 }
2815 // Each argument can appear in at most one uniform or linear clause.
2816 if (UniformedArgs.count(CanonPVD) > 0) {
2817 Diag(E->getExprLoc(), diag::err_omp_wrong_dsa)
2818 << getOpenMPClauseName(OMPC_linear)
2819 << getOpenMPClauseName(OMPC_uniform) << E->getSourceRange();
2820 Diag(UniformedArgs[CanonPVD]->getExprLoc(),
2821 diag::note_omp_explicit_dsa)
2822 << getOpenMPClauseName(OMPC_uniform);
2823 continue;
2824 }
2825 LinearArgs[CanonPVD] = E;
2826 if (E->isValueDependent() || E->isTypeDependent() ||
2827 E->isInstantiationDependent() ||
2828 E->containsUnexpandedParameterPack())
2829 continue;
2830 (void)CheckOpenMPLinearDecl(CanonPVD, E->getExprLoc(), LinKind,
2831 PVD->getOriginalType());
2832 continue;
2833 }
2834 }
2835 if (isa<CXXThisExpr>(E)) {
2836 if (UniformedLinearThis) {
2837 Diag(E->getExprLoc(), diag::err_omp_wrong_dsa)
2838 << getOpenMPClauseName(OMPC_linear)
2839 << getOpenMPClauseName(IsUniformedThis ? OMPC_uniform : OMPC_linear)
2840 << E->getSourceRange();
2841 Diag(UniformedLinearThis->getExprLoc(), diag::note_omp_explicit_dsa)
2842 << getOpenMPClauseName(IsUniformedThis ? OMPC_uniform
2843 : OMPC_linear);
2844 continue;
2845 }
2846 UniformedLinearThis = E;
2847 if (E->isValueDependent() || E->isTypeDependent() ||
2848 E->isInstantiationDependent() || E->containsUnexpandedParameterPack())
2849 continue;
2850 (void)CheckOpenMPLinearDecl(/*D=*/nullptr, E->getExprLoc(), LinKind,
2851 E->getType());
2852 continue;
2853 }
2854 Diag(E->getExprLoc(), diag::err_omp_param_or_this_in_clause)
2855 << FD->getDeclName() << (isa<CXXMethodDecl>(ADecl) ? 1 : 0);
2856 }
2857 Expr *Step = nullptr;
2858 Expr *NewStep = nullptr;
2859 SmallVector<Expr *, 4> NewSteps;
2860 for (auto *E : Steps) {
2861 // Skip the same step expression, it was checked already.
2862 if (Step == E || !E) {
2863 NewSteps.push_back(E ? NewStep : nullptr);
2864 continue;
2865 }
2866 Step = E;
2867 if (auto *DRE = dyn_cast<DeclRefExpr>(Step))
2868 if (auto *PVD = dyn_cast<ParmVarDecl>(DRE->getDecl())) {
2869 auto *CanonPVD = PVD->getCanonicalDecl();
2870 if (UniformedArgs.count(CanonPVD) == 0) {
2871 Diag(Step->getExprLoc(), diag::err_omp_expected_uniform_param)
2872 << Step->getSourceRange();
2873 } else if (E->isValueDependent() || E->isTypeDependent() ||
2874 E->isInstantiationDependent() ||
2875 E->containsUnexpandedParameterPack() ||
2876 CanonPVD->getType()->hasIntegerRepresentation())
2877 NewSteps.push_back(Step);
2878 else {
2879 Diag(Step->getExprLoc(), diag::err_omp_expected_int_param)
2880 << Step->getSourceRange();
2881 }
2882 continue;
2883 }
2884 NewStep = Step;
2885 if (Step && !Step->isValueDependent() && !Step->isTypeDependent() &&
2886 !Step->isInstantiationDependent() &&
2887 !Step->containsUnexpandedParameterPack()) {
2888 NewStep = PerformOpenMPImplicitIntegerConversion(Step->getExprLoc(), Step)
2889 .get();
2890 if (NewStep)
2891 NewStep = VerifyIntegerConstantExpression(NewStep).get();
2892 }
2893 NewSteps.push_back(NewStep);
2894 }
2895 auto *NewAttr = OMPDeclareSimdDeclAttr::CreateImplicit(
2896 Context, BS, SL.get(), const_cast<Expr **>(Uniforms.data()),
2897 Uniforms.size(), const_cast<Expr **>(Aligneds.data()), Aligneds.size(),
2898 const_cast<Expr **>(NewAligns.data()), NewAligns.size(),
2899 const_cast<Expr **>(Linears.data()), Linears.size(),
2900 const_cast<unsigned *>(LinModifiers.data()), LinModifiers.size(),
2901 NewSteps.data(), NewSteps.size(), SR);
2902 ADecl->addAttr(NewAttr);
2903 return ConvertDeclToDeclGroup(ADecl);
2904}
2905
2906StmtResult Sema::ActOnOpenMPParallelDirective(ArrayRef<OMPClause *> Clauses,
2907 Stmt *AStmt,
2908 SourceLocation StartLoc,
2909 SourceLocation EndLoc) {
2910 if (!AStmt)
2911 return StmtError();
2912
2913 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
2914 // 1.2.2 OpenMP Language Terminology
2915 // Structured block - An executable statement with a single entry at the
2916 // top and a single exit at the bottom.
2917 // The point of exit cannot be a branch out of the structured block.
2918 // longjmp() and throw() must not violate the entry/exit criteria.
2919 CS->getCapturedDecl()->setNothrow();
2920
2921 getCurFunction()->setHasBranchProtectedScope();
2922
2923 return OMPParallelDirective::Create(Context, StartLoc, EndLoc, Clauses, AStmt,
2924 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
2925}
2926
2927namespace {
2928/// \brief Helper class for checking canonical form of the OpenMP loops and
2929/// extracting iteration space of each loop in the loop nest, that will be used
2930/// for IR generation.
2931class OpenMPIterationSpaceChecker {
2932 /// \brief Reference to Sema.
2933 Sema &SemaRef;
2934 /// \brief A location for diagnostics (when there is no some better location).
2935 SourceLocation DefaultLoc;
2936 /// \brief A location for diagnostics (when increment is not compatible).
2937 SourceLocation ConditionLoc;
2938 /// \brief A source location for referring to loop init later.
2939 SourceRange InitSrcRange;
2940 /// \brief A source location for referring to condition later.
2941 SourceRange ConditionSrcRange;
2942 /// \brief A source location for referring to increment later.
2943 SourceRange IncrementSrcRange;
2944 /// \brief Loop variable.
2945 ValueDecl *LCDecl = nullptr;
2946 /// \brief Reference to loop variable.
2947 Expr *LCRef = nullptr;
2948 /// \brief Lower bound (initializer for the var).
2949 Expr *LB = nullptr;
2950 /// \brief Upper bound.
2951 Expr *UB = nullptr;
2952 /// \brief Loop step (increment).
2953 Expr *Step = nullptr;
2954 /// \brief This flag is true when condition is one of:
2955 /// Var < UB
2956 /// Var <= UB
2957 /// UB > Var
2958 /// UB >= Var
2959 bool TestIsLessOp = false;
2960 /// \brief This flag is true when condition is strict ( < or > ).
2961 bool TestIsStrictOp = false;
2962 /// \brief This flag is true when step is subtracted on each iteration.
2963 bool SubtractStep = false;
2964
2965public:
2966 OpenMPIterationSpaceChecker(Sema &SemaRef, SourceLocation DefaultLoc)
2967 : SemaRef(SemaRef), DefaultLoc(DefaultLoc), ConditionLoc(DefaultLoc) {}
2968 /// \brief Check init-expr for canonical loop form and save loop counter
2969 /// variable - #Var and its initialization value - #LB.
2970 bool CheckInit(Stmt *S, bool EmitDiags = true);
2971 /// \brief Check test-expr for canonical form, save upper-bound (#UB), flags
2972 /// for less/greater and for strict/non-strict comparison.
2973 bool CheckCond(Expr *S);
2974 /// \brief Check incr-expr for canonical loop form and return true if it
2975 /// does not conform, otherwise save loop step (#Step).
2976 bool CheckInc(Expr *S);
2977 /// \brief Return the loop counter variable.
2978 ValueDecl *GetLoopDecl() const { return LCDecl; }
2979 /// \brief Return the reference expression to loop counter variable.
2980 Expr *GetLoopDeclRefExpr() const { return LCRef; }
2981 /// \brief Source range of the loop init.
2982 SourceRange GetInitSrcRange() const { return InitSrcRange; }
2983 /// \brief Source range of the loop condition.
2984 SourceRange GetConditionSrcRange() const { return ConditionSrcRange; }
2985 /// \brief Source range of the loop increment.
2986 SourceRange GetIncrementSrcRange() const { return IncrementSrcRange; }
2987 /// \brief True if the step should be subtracted.
2988 bool ShouldSubtractStep() const { return SubtractStep; }
2989 /// \brief Build the expression to calculate the number of iterations.
2990 Expr *
2991 BuildNumIterations(Scope *S, const bool LimitedType,
2992 llvm::MapVector<Expr *, DeclRefExpr *> &Captures) const;
2993 /// \brief Build the precondition expression for the loops.
2994 Expr *BuildPreCond(Scope *S, Expr *Cond,
2995 llvm::MapVector<Expr *, DeclRefExpr *> &Captures) const;
2996 /// \brief Build reference expression to the counter be used for codegen.
2997 DeclRefExpr *BuildCounterVar(llvm::MapVector<Expr *, DeclRefExpr *> &Captures,
2998 DSAStackTy &DSA) const;
2999 /// \brief Build reference expression to the private counter be used for
3000 /// codegen.
3001 Expr *BuildPrivateCounterVar() const;
3002 /// \brief Build initialization of the counter be used for codegen.
3003 Expr *BuildCounterInit() const;
3004 /// \brief Build step of the counter be used for codegen.
3005 Expr *BuildCounterStep() const;
3006 /// \brief Return true if any expression is dependent.
3007 bool Dependent() const;
3008
3009private:
3010 /// \brief Check the right-hand side of an assignment in the increment
3011 /// expression.
3012 bool CheckIncRHS(Expr *RHS);
3013 /// \brief Helper to set loop counter variable and its initializer.
3014 bool SetLCDeclAndLB(ValueDecl *NewLCDecl, Expr *NewDeclRefExpr, Expr *NewLB);
3015 /// \brief Helper to set upper bound.
3016 bool SetUB(Expr *NewUB, bool LessOp, bool StrictOp, SourceRange SR,
3017 SourceLocation SL);
3018 /// \brief Helper to set loop increment.
3019 bool SetStep(Expr *NewStep, bool Subtract);
3020};
3021
3022bool OpenMPIterationSpaceChecker::Dependent() const {
3023 if (!LCDecl) {
3024 assert(!LB && !UB && !Step)((!LB && !UB && !Step) ? static_cast<void>
(0) : __assert_fail ("!LB && !UB && !Step", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3024, __PRETTY_FUNCTION__))
;
3025 return false;
3026 }
3027 return LCDecl->getType()->isDependentType() ||
3028 (LB && LB->isValueDependent()) || (UB && UB->isValueDependent()) ||
3029 (Step && Step->isValueDependent());
3030}
3031
3032static Expr *getExprAsWritten(Expr *E) {
3033 if (auto *ExprTemp = dyn_cast<ExprWithCleanups>(E))
3034 E = ExprTemp->getSubExpr();
3035
3036 if (auto *MTE = dyn_cast<MaterializeTemporaryExpr>(E))
3037 E = MTE->GetTemporaryExpr();
3038
3039 while (auto *Binder = dyn_cast<CXXBindTemporaryExpr>(E))
3040 E = Binder->getSubExpr();
3041
3042 if (auto *ICE = dyn_cast<ImplicitCastExpr>(E))
3043 E = ICE->getSubExprAsWritten();
3044 return E->IgnoreParens();
3045}
3046
3047bool OpenMPIterationSpaceChecker::SetLCDeclAndLB(ValueDecl *NewLCDecl,
3048 Expr *NewLCRefExpr,
3049 Expr *NewLB) {
3050 // State consistency checking to ensure correct usage.
3051 assert(LCDecl == nullptr && LB == nullptr && LCRef == nullptr &&((LCDecl == nullptr && LB == nullptr && LCRef
== nullptr && UB == nullptr && Step == nullptr
&& !TestIsLessOp && !TestIsStrictOp) ? static_cast
<void> (0) : __assert_fail ("LCDecl == nullptr && LB == nullptr && LCRef == nullptr && UB == nullptr && Step == nullptr && !TestIsLessOp && !TestIsStrictOp"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3052, __PRETTY_FUNCTION__))
3052 UB == nullptr && Step == nullptr && !TestIsLessOp && !TestIsStrictOp)((LCDecl == nullptr && LB == nullptr && LCRef
== nullptr && UB == nullptr && Step == nullptr
&& !TestIsLessOp && !TestIsStrictOp) ? static_cast
<void> (0) : __assert_fail ("LCDecl == nullptr && LB == nullptr && LCRef == nullptr && UB == nullptr && Step == nullptr && !TestIsLessOp && !TestIsStrictOp"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3052, __PRETTY_FUNCTION__))
;
3053 if (!NewLCDecl || !NewLB)
3054 return true;
3055 LCDecl = getCanonicalDecl(NewLCDecl);
3056 LCRef = NewLCRefExpr;
3057 if (auto *CE = dyn_cast_or_null<CXXConstructExpr>(NewLB))
3058 if (const CXXConstructorDecl *Ctor = CE->getConstructor())
3059 if ((Ctor->isCopyOrMoveConstructor() ||
3060 Ctor->isConvertingConstructor(/*AllowExplicit=*/false)) &&
3061 CE->getNumArgs() > 0 && CE->getArg(0) != nullptr)
3062 NewLB = CE->getArg(0)->IgnoreParenImpCasts();
3063 LB = NewLB;
3064 return false;
3065}
3066
3067bool OpenMPIterationSpaceChecker::SetUB(Expr *NewUB, bool LessOp, bool StrictOp,
3068 SourceRange SR, SourceLocation SL) {
3069 // State consistency checking to ensure correct usage.
3070 assert(LCDecl != nullptr && LB != nullptr && UB == nullptr &&((LCDecl != nullptr && LB != nullptr && UB ==
nullptr && Step == nullptr && !TestIsLessOp &&
!TestIsStrictOp) ? static_cast<void> (0) : __assert_fail
("LCDecl != nullptr && LB != nullptr && UB == nullptr && Step == nullptr && !TestIsLessOp && !TestIsStrictOp"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3071, __PRETTY_FUNCTION__))
3071 Step == nullptr && !TestIsLessOp && !TestIsStrictOp)((LCDecl != nullptr && LB != nullptr && UB ==
nullptr && Step == nullptr && !TestIsLessOp &&
!TestIsStrictOp) ? static_cast<void> (0) : __assert_fail
("LCDecl != nullptr && LB != nullptr && UB == nullptr && Step == nullptr && !TestIsLessOp && !TestIsStrictOp"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3071, __PRETTY_FUNCTION__))
;
3072 if (!NewUB)
3073 return true;
3074 UB = NewUB;
3075 TestIsLessOp = LessOp;
3076 TestIsStrictOp = StrictOp;
3077 ConditionSrcRange = SR;
3078 ConditionLoc = SL;
3079 return false;
3080}
3081
3082bool OpenMPIterationSpaceChecker::SetStep(Expr *NewStep, bool Subtract) {
3083 // State consistency checking to ensure correct usage.
3084 assert(LCDecl != nullptr && LB != nullptr && Step == nullptr)((LCDecl != nullptr && LB != nullptr && Step ==
nullptr) ? static_cast<void> (0) : __assert_fail ("LCDecl != nullptr && LB != nullptr && Step == nullptr"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3084, __PRETTY_FUNCTION__))
;
3085 if (!NewStep)
3086 return true;
3087 if (!NewStep->isValueDependent()) {
3088 // Check that the step is integer expression.
3089 SourceLocation StepLoc = NewStep->getLocStart();
3090 ExprResult Val =
3091 SemaRef.PerformOpenMPImplicitIntegerConversion(StepLoc, NewStep);
3092 if (Val.isInvalid())
3093 return true;
3094 NewStep = Val.get();
3095
3096 // OpenMP [2.6, Canonical Loop Form, Restrictions]
3097 // If test-expr is of form var relational-op b and relational-op is < or
3098 // <= then incr-expr must cause var to increase on each iteration of the
3099 // loop. If test-expr is of form var relational-op b and relational-op is
3100 // > or >= then incr-expr must cause var to decrease on each iteration of
3101 // the loop.
3102 // If test-expr is of form b relational-op var and relational-op is < or
3103 // <= then incr-expr must cause var to decrease on each iteration of the
3104 // loop. If test-expr is of form b relational-op var and relational-op is
3105 // > or >= then incr-expr must cause var to increase on each iteration of
3106 // the loop.
3107 llvm::APSInt Result;
3108 bool IsConstant = NewStep->isIntegerConstantExpr(Result, SemaRef.Context);
3109 bool IsUnsigned = !NewStep->getType()->hasSignedIntegerRepresentation();
3110 bool IsConstNeg =
3111 IsConstant && Result.isSigned() && (Subtract != Result.isNegative());
3112 bool IsConstPos =
3113 IsConstant && Result.isSigned() && (Subtract == Result.isNegative());
3114 bool IsConstZero = IsConstant && !Result.getBoolValue();
3115 if (UB && (IsConstZero ||
3116 (TestIsLessOp ? (IsConstNeg || (IsUnsigned && Subtract))
3117 : (IsConstPos || (IsUnsigned && !Subtract))))) {
3118 SemaRef.Diag(NewStep->getExprLoc(),
3119 diag::err_omp_loop_incr_not_compatible)
3120 << LCDecl << TestIsLessOp << NewStep->getSourceRange();
3121 SemaRef.Diag(ConditionLoc,
3122 diag::note_omp_loop_cond_requres_compatible_incr)
3123 << TestIsLessOp << ConditionSrcRange;
3124 return true;
3125 }
3126 if (TestIsLessOp == Subtract) {
3127 NewStep =
3128 SemaRef.CreateBuiltinUnaryOp(NewStep->getExprLoc(), UO_Minus, NewStep)
3129 .get();
3130 Subtract = !Subtract;
3131 }
3132 }
3133
3134 Step = NewStep;
3135 SubtractStep = Subtract;
3136 return false;
3137}
3138
3139bool OpenMPIterationSpaceChecker::CheckInit(Stmt *S, bool EmitDiags) {
3140 // Check init-expr for canonical loop form and save loop counter
3141 // variable - #Var and its initialization value - #LB.
3142 // OpenMP [2.6] Canonical loop form. init-expr may be one of the following:
3143 // var = lb
3144 // integer-type var = lb
3145 // random-access-iterator-type var = lb
3146 // pointer-type var = lb
3147 //
3148 if (!S) {
3149 if (EmitDiags) {
3150 SemaRef.Diag(DefaultLoc, diag::err_omp_loop_not_canonical_init);
3151 }
3152 return true;
3153 }
3154 if (auto *ExprTemp = dyn_cast<ExprWithCleanups>(S))
3155 if (!ExprTemp->cleanupsHaveSideEffects())
3156 S = ExprTemp->getSubExpr();
3157
3158 InitSrcRange = S->getSourceRange();
3159 if (Expr *E = dyn_cast<Expr>(S))
3160 S = E->IgnoreParens();
3161 if (auto *BO = dyn_cast<BinaryOperator>(S)) {
3162 if (BO->getOpcode() == BO_Assign) {
3163 auto *LHS = BO->getLHS()->IgnoreParens();
3164 if (auto *DRE = dyn_cast<DeclRefExpr>(LHS)) {
3165 if (auto *CED = dyn_cast<OMPCapturedExprDecl>(DRE->getDecl()))
3166 if (auto *ME = dyn_cast<MemberExpr>(getExprAsWritten(CED->getInit())))
3167 return SetLCDeclAndLB(ME->getMemberDecl(), ME, BO->getRHS());
3168 return SetLCDeclAndLB(DRE->getDecl(), DRE, BO->getRHS());
3169 }
3170 if (auto *ME = dyn_cast<MemberExpr>(LHS)) {
3171 if (ME->isArrow() &&
3172 isa<CXXThisExpr>(ME->getBase()->IgnoreParenImpCasts()))
3173 return SetLCDeclAndLB(ME->getMemberDecl(), ME, BO->getRHS());
3174 }
3175 }
3176 } else if (auto *DS = dyn_cast<DeclStmt>(S)) {
3177 if (DS->isSingleDecl()) {
3178 if (auto *Var = dyn_cast_or_null<VarDecl>(DS->getSingleDecl())) {
3179 if (Var->hasInit() && !Var->getType()->isReferenceType()) {
3180 // Accept non-canonical init form here but emit ext. warning.
3181 if (Var->getInitStyle() != VarDecl::CInit && EmitDiags)
3182 SemaRef.Diag(S->getLocStart(),
3183 diag::ext_omp_loop_not_canonical_init)
3184 << S->getSourceRange();
3185 return SetLCDeclAndLB(Var, nullptr, Var->getInit());
3186 }
3187 }
3188 }
3189 } else if (auto *CE = dyn_cast<CXXOperatorCallExpr>(S)) {
3190 if (CE->getOperator() == OO_Equal) {
3191 auto *LHS = CE->getArg(0);
3192 if (auto *DRE = dyn_cast<DeclRefExpr>(LHS)) {
3193 if (auto *CED = dyn_cast<OMPCapturedExprDecl>(DRE->getDecl()))
3194 if (auto *ME = dyn_cast<MemberExpr>(getExprAsWritten(CED->getInit())))
3195 return SetLCDeclAndLB(ME->getMemberDecl(), ME, BO->getRHS());
3196 return SetLCDeclAndLB(DRE->getDecl(), DRE, CE->getArg(1));
3197 }
3198 if (auto *ME = dyn_cast<MemberExpr>(LHS)) {
3199 if (ME->isArrow() &&
3200 isa<CXXThisExpr>(ME->getBase()->IgnoreParenImpCasts()))
3201 return SetLCDeclAndLB(ME->getMemberDecl(), ME, BO->getRHS());
3202 }
3203 }
3204 }
3205
3206 if (Dependent() || SemaRef.CurContext->isDependentContext())
3207 return false;
3208 if (EmitDiags) {
3209 SemaRef.Diag(S->getLocStart(), diag::err_omp_loop_not_canonical_init)
3210 << S->getSourceRange();
3211 }
3212 return true;
3213}
3214
3215/// \brief Ignore parenthesizes, implicit casts, copy constructor and return the
3216/// variable (which may be the loop variable) if possible.
3217static const ValueDecl *GetInitLCDecl(Expr *E) {
3218 if (!E)
3219 return nullptr;
3220 E = getExprAsWritten(E);
3221 if (auto *CE = dyn_cast_or_null<CXXConstructExpr>(E))
3222 if (const CXXConstructorDecl *Ctor = CE->getConstructor())
3223 if ((Ctor->isCopyOrMoveConstructor() ||
3224 Ctor->isConvertingConstructor(/*AllowExplicit=*/false)) &&
3225 CE->getNumArgs() > 0 && CE->getArg(0) != nullptr)
3226 E = CE->getArg(0)->IgnoreParenImpCasts();
3227 if (auto *DRE = dyn_cast_or_null<DeclRefExpr>(E)) {
3228 if (auto *VD = dyn_cast<VarDecl>(DRE->getDecl())) {
3229 if (auto *CED = dyn_cast<OMPCapturedExprDecl>(VD))
3230 if (auto *ME = dyn_cast<MemberExpr>(getExprAsWritten(CED->getInit())))
3231 return getCanonicalDecl(ME->getMemberDecl());
3232 return getCanonicalDecl(VD);
3233 }
3234 }
3235 if (auto *ME = dyn_cast_or_null<MemberExpr>(E))
3236 if (ME->isArrow() && isa<CXXThisExpr>(ME->getBase()->IgnoreParenImpCasts()))
3237 return getCanonicalDecl(ME->getMemberDecl());
3238 return nullptr;
3239}
3240
3241bool OpenMPIterationSpaceChecker::CheckCond(Expr *S) {
3242 // Check test-expr for canonical form, save upper-bound UB, flags for
3243 // less/greater and for strict/non-strict comparison.
3244 // OpenMP [2.6] Canonical loop form. Test-expr may be one of the following:
3245 // var relational-op b
3246 // b relational-op var
3247 //
3248 if (!S) {
3249 SemaRef.Diag(DefaultLoc, diag::err_omp_loop_not_canonical_cond) << LCDecl;
3250 return true;
3251 }
3252 S = getExprAsWritten(S);
3253 SourceLocation CondLoc = S->getLocStart();
3254 if (auto *BO = dyn_cast<BinaryOperator>(S)) {
3255 if (BO->isRelationalOp()) {
3256 if (GetInitLCDecl(BO->getLHS()) == LCDecl)
3257 return SetUB(BO->getRHS(),
3258 (BO->getOpcode() == BO_LT || BO->getOpcode() == BO_LE),
3259 (BO->getOpcode() == BO_LT || BO->getOpcode() == BO_GT),
3260 BO->getSourceRange(), BO->getOperatorLoc());
3261 if (GetInitLCDecl(BO->getRHS()) == LCDecl)
3262 return SetUB(BO->getLHS(),
3263 (BO->getOpcode() == BO_GT || BO->getOpcode() == BO_GE),
3264 (BO->getOpcode() == BO_LT || BO->getOpcode() == BO_GT),
3265 BO->getSourceRange(), BO->getOperatorLoc());
3266 }
3267 } else if (auto *CE = dyn_cast<CXXOperatorCallExpr>(S)) {
3268 if (CE->getNumArgs() == 2) {
3269 auto Op = CE->getOperator();
3270 switch (Op) {
3271 case OO_Greater:
3272 case OO_GreaterEqual:
3273 case OO_Less:
3274 case OO_LessEqual:
3275 if (GetInitLCDecl(CE->getArg(0)) == LCDecl)
3276 return SetUB(CE->getArg(1), Op == OO_Less || Op == OO_LessEqual,
3277 Op == OO_Less || Op == OO_Greater, CE->getSourceRange(),
3278 CE->getOperatorLoc());
3279 if (GetInitLCDecl(CE->getArg(1)) == LCDecl)
3280 return SetUB(CE->getArg(0), Op == OO_Greater || Op == OO_GreaterEqual,
3281 Op == OO_Less || Op == OO_Greater, CE->getSourceRange(),
3282 CE->getOperatorLoc());
3283 break;
3284 default:
3285 break;
3286 }
3287 }
3288 }
3289 if (Dependent() || SemaRef.CurContext->isDependentContext())
3290 return false;
3291 SemaRef.Diag(CondLoc, diag::err_omp_loop_not_canonical_cond)
3292 << S->getSourceRange() << LCDecl;
3293 return true;
3294}
3295
3296bool OpenMPIterationSpaceChecker::CheckIncRHS(Expr *RHS) {
3297 // RHS of canonical loop form increment can be:
3298 // var + incr
3299 // incr + var
3300 // var - incr
3301 //
3302 RHS = RHS->IgnoreParenImpCasts();
3303 if (auto *BO = dyn_cast<BinaryOperator>(RHS)) {
3304 if (BO->isAdditiveOp()) {
3305 bool IsAdd = BO->getOpcode() == BO_Add;
3306 if (GetInitLCDecl(BO->getLHS()) == LCDecl)
3307 return SetStep(BO->getRHS(), !IsAdd);
3308 if (IsAdd && GetInitLCDecl(BO->getRHS()) == LCDecl)
3309 return SetStep(BO->getLHS(), false);
3310 }
3311 } else if (auto *CE = dyn_cast<CXXOperatorCallExpr>(RHS)) {
3312 bool IsAdd = CE->getOperator() == OO_Plus;
3313 if ((IsAdd || CE->getOperator() == OO_Minus) && CE->getNumArgs() == 2) {
3314 if (GetInitLCDecl(CE->getArg(0)) == LCDecl)
3315 return SetStep(CE->getArg(1), !IsAdd);
3316 if (IsAdd && GetInitLCDecl(CE->getArg(1)) == LCDecl)
3317 return SetStep(CE->getArg(0), false);
3318 }
3319 }
3320 if (Dependent() || SemaRef.CurContext->isDependentContext())
3321 return false;
3322 SemaRef.Diag(RHS->getLocStart(), diag::err_omp_loop_not_canonical_incr)
3323 << RHS->getSourceRange() << LCDecl;
3324 return true;
3325}
3326
3327bool OpenMPIterationSpaceChecker::CheckInc(Expr *S) {
3328 // Check incr-expr for canonical loop form and return true if it
3329 // does not conform.
3330 // OpenMP [2.6] Canonical loop form. Test-expr may be one of the following:
3331 // ++var
3332 // var++
3333 // --var
3334 // var--
3335 // var += incr
3336 // var -= incr
3337 // var = var + incr
3338 // var = incr + var
3339 // var = var - incr
3340 //
3341 if (!S) {
3342 SemaRef.Diag(DefaultLoc, diag::err_omp_loop_not_canonical_incr) << LCDecl;
3343 return true;
3344 }
3345 if (auto *ExprTemp = dyn_cast<ExprWithCleanups>(S))
3346 if (!ExprTemp->cleanupsHaveSideEffects())
3347 S = ExprTemp->getSubExpr();
3348
3349 IncrementSrcRange = S->getSourceRange();
3350 S = S->IgnoreParens();
3351 if (auto *UO = dyn_cast<UnaryOperator>(S)) {
3352 if (UO->isIncrementDecrementOp() &&
3353 GetInitLCDecl(UO->getSubExpr()) == LCDecl)
3354 return SetStep(SemaRef
3355 .ActOnIntegerConstant(UO->getLocStart(),
3356 (UO->isDecrementOp() ? -1 : 1))
3357 .get(),
3358 false);
3359 } else if (auto *BO = dyn_cast<BinaryOperator>(S)) {
3360 switch (BO->getOpcode()) {
3361 case BO_AddAssign:
3362 case BO_SubAssign:
3363 if (GetInitLCDecl(BO->getLHS()) == LCDecl)
3364 return SetStep(BO->getRHS(), BO->getOpcode() == BO_SubAssign);
3365 break;
3366 case BO_Assign:
3367 if (GetInitLCDecl(BO->getLHS()) == LCDecl)
3368 return CheckIncRHS(BO->getRHS());
3369 break;
3370 default:
3371 break;
3372 }
3373 } else if (auto *CE = dyn_cast<CXXOperatorCallExpr>(S)) {
3374 switch (CE->getOperator()) {
3375 case OO_PlusPlus:
3376 case OO_MinusMinus:
3377 if (GetInitLCDecl(CE->getArg(0)) == LCDecl)
3378 return SetStep(SemaRef
3379 .ActOnIntegerConstant(
3380 CE->getLocStart(),
3381 ((CE->getOperator() == OO_MinusMinus) ? -1 : 1))
3382 .get(),
3383 false);
3384 break;
3385 case OO_PlusEqual:
3386 case OO_MinusEqual:
3387 if (GetInitLCDecl(CE->getArg(0)) == LCDecl)
3388 return SetStep(CE->getArg(1), CE->getOperator() == OO_MinusEqual);
3389 break;
3390 case OO_Equal:
3391 if (GetInitLCDecl(CE->getArg(0)) == LCDecl)
3392 return CheckIncRHS(CE->getArg(1));
3393 break;
3394 default:
3395 break;
3396 }
3397 }
3398 if (Dependent() || SemaRef.CurContext->isDependentContext())
3399 return false;
3400 SemaRef.Diag(S->getLocStart(), diag::err_omp_loop_not_canonical_incr)
3401 << S->getSourceRange() << LCDecl;
3402 return true;
3403}
3404
3405static ExprResult
3406tryBuildCapture(Sema &SemaRef, Expr *Capture,
3407 llvm::MapVector<Expr *, DeclRefExpr *> &Captures) {
3408 if (SemaRef.CurContext->isDependentContext())
3409 return ExprResult(Capture);
3410 if (Capture->isEvaluatable(SemaRef.Context, Expr::SE_AllowSideEffects))
3411 return SemaRef.PerformImplicitConversion(
3412 Capture->IgnoreImpCasts(), Capture->getType(), Sema::AA_Converting,
3413 /*AllowExplicit=*/true);
3414 auto I = Captures.find(Capture);
3415 if (I != Captures.end())
3416 return buildCapture(SemaRef, Capture, I->second);
3417 DeclRefExpr *Ref = nullptr;
3418 ExprResult Res = buildCapture(SemaRef, Capture, Ref);
3419 Captures[Capture] = Ref;
3420 return Res;
3421}
3422
3423/// \brief Build the expression to calculate the number of iterations.
3424Expr *OpenMPIterationSpaceChecker::BuildNumIterations(
3425 Scope *S, const bool LimitedType,
3426 llvm::MapVector<Expr *, DeclRefExpr *> &Captures) const {
3427 ExprResult Diff;
3428 auto VarType = LCDecl->getType().getNonReferenceType();
3429 if (VarType->isIntegerType() || VarType->isPointerType() ||
3430 SemaRef.getLangOpts().CPlusPlus) {
3431 // Upper - Lower
3432 auto *UBExpr = TestIsLessOp ? UB : LB;
3433 auto *LBExpr = TestIsLessOp ? LB : UB;
3434 Expr *Upper = tryBuildCapture(SemaRef, UBExpr, Captures).get();
3435 Expr *Lower = tryBuildCapture(SemaRef, LBExpr, Captures).get();
3436 if (!Upper || !Lower)
3437 return nullptr;
3438
3439 Diff = SemaRef.BuildBinOp(S, DefaultLoc, BO_Sub, Upper, Lower);
3440
3441 if (!Diff.isUsable() && VarType->getAsCXXRecordDecl()) {
3442 // BuildBinOp already emitted error, this one is to point user to upper
3443 // and lower bound, and to tell what is passed to 'operator-'.
3444 SemaRef.Diag(Upper->getLocStart(), diag::err_omp_loop_diff_cxx)
3445 << Upper->getSourceRange() << Lower->getSourceRange();
3446 return nullptr;
3447 }
3448 }
3449
3450 if (!Diff.isUsable())
3451 return nullptr;
3452
3453 // Upper - Lower [- 1]
3454 if (TestIsStrictOp)
3455 Diff = SemaRef.BuildBinOp(
3456 S, DefaultLoc, BO_Sub, Diff.get(),
3457 SemaRef.ActOnIntegerConstant(SourceLocation(), 1).get());
3458 if (!Diff.isUsable())
3459 return nullptr;
3460
3461 // Upper - Lower [- 1] + Step
3462 auto NewStep = tryBuildCapture(SemaRef, Step, Captures);
3463 if (!NewStep.isUsable())
3464 return nullptr;
3465 Diff = SemaRef.BuildBinOp(S, DefaultLoc, BO_Add, Diff.get(), NewStep.get());
3466 if (!Diff.isUsable())
3467 return nullptr;
3468
3469 // Parentheses (for dumping/debugging purposes only).
3470 Diff = SemaRef.ActOnParenExpr(DefaultLoc, DefaultLoc, Diff.get());
3471 if (!Diff.isUsable())
3472 return nullptr;
3473
3474 // (Upper - Lower [- 1] + Step) / Step
3475 Diff = SemaRef.BuildBinOp(S, DefaultLoc, BO_Div, Diff.get(), NewStep.get());
3476 if (!Diff.isUsable())
3477 return nullptr;
3478
3479 // OpenMP runtime requires 32-bit or 64-bit loop variables.
3480 QualType Type = Diff.get()->getType();
3481 auto &C = SemaRef.Context;
3482 bool UseVarType = VarType->hasIntegerRepresentation() &&
3483 C.getTypeSize(Type) > C.getTypeSize(VarType);
3484 if (!Type->isIntegerType() || UseVarType) {
3485 unsigned NewSize =
3486 UseVarType ? C.getTypeSize(VarType) : C.getTypeSize(Type);
3487 bool IsSigned = UseVarType ? VarType->hasSignedIntegerRepresentation()
3488 : Type->hasSignedIntegerRepresentation();
3489 Type = C.getIntTypeForBitwidth(NewSize, IsSigned);
3490 if (!SemaRef.Context.hasSameType(Diff.get()->getType(), Type)) {
3491 Diff = SemaRef.PerformImplicitConversion(
3492 Diff.get(), Type, Sema::AA_Converting, /*AllowExplicit=*/true);
3493 if (!Diff.isUsable())
3494 return nullptr;
3495 }
3496 }
3497 if (LimitedType) {
3498 unsigned NewSize = (C.getTypeSize(Type) > 32) ? 64 : 32;
3499 if (NewSize != C.getTypeSize(Type)) {
3500 if (NewSize < C.getTypeSize(Type)) {
3501 assert(NewSize == 64 && "incorrect loop var size")((NewSize == 64 && "incorrect loop var size") ? static_cast
<void> (0) : __assert_fail ("NewSize == 64 && \"incorrect loop var size\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3501, __PRETTY_FUNCTION__))
;
3502 SemaRef.Diag(DefaultLoc, diag::warn_omp_loop_64_bit_var)
3503 << InitSrcRange << ConditionSrcRange;
3504 }
3505 QualType NewType = C.getIntTypeForBitwidth(
3506 NewSize, Type->hasSignedIntegerRepresentation() ||
3507 C.getTypeSize(Type) < NewSize);
3508 if (!SemaRef.Context.hasSameType(Diff.get()->getType(), NewType)) {
3509 Diff = SemaRef.PerformImplicitConversion(Diff.get(), NewType,
3510 Sema::AA_Converting, true);
3511 if (!Diff.isUsable())
3512 return nullptr;
3513 }
3514 }
3515 }
3516
3517 return Diff.get();
3518}
3519
3520Expr *OpenMPIterationSpaceChecker::BuildPreCond(
3521 Scope *S, Expr *Cond,
3522 llvm::MapVector<Expr *, DeclRefExpr *> &Captures) const {
3523 // Try to build LB <op> UB, where <op> is <, >, <=, or >=.
3524 bool Suppress = SemaRef.getDiagnostics().getSuppressAllDiagnostics();
3525 SemaRef.getDiagnostics().setSuppressAllDiagnostics(/*Val=*/true);
3526
3527 auto NewLB = tryBuildCapture(SemaRef, LB, Captures);
3528 auto NewUB = tryBuildCapture(SemaRef, UB, Captures);
3529 if (!NewLB.isUsable() || !NewUB.isUsable())
3530 return nullptr;
3531
3532 auto CondExpr = SemaRef.BuildBinOp(
3533 S, DefaultLoc, TestIsLessOp ? (TestIsStrictOp ? BO_LT : BO_LE)
3534 : (TestIsStrictOp ? BO_GT : BO_GE),
3535 NewLB.get(), NewUB.get());
3536 if (CondExpr.isUsable()) {
3537 if (!SemaRef.Context.hasSameUnqualifiedType(CondExpr.get()->getType(),
3538 SemaRef.Context.BoolTy))
3539 CondExpr = SemaRef.PerformImplicitConversion(
3540 CondExpr.get(), SemaRef.Context.BoolTy, /*Action=*/Sema::AA_Casting,
3541 /*AllowExplicit=*/true);
3542 }
3543 SemaRef.getDiagnostics().setSuppressAllDiagnostics(Suppress);
3544 // Otherwise use original loop conditon and evaluate it in runtime.
3545 return CondExpr.isUsable() ? CondExpr.get() : Cond;
3546}
3547
3548/// \brief Build reference expression to the counter be used for codegen.
3549DeclRefExpr *OpenMPIterationSpaceChecker::BuildCounterVar(
3550 llvm::MapVector<Expr *, DeclRefExpr *> &Captures, DSAStackTy &DSA) const {
3551 auto *VD = dyn_cast<VarDecl>(LCDecl);
3552 if (!VD) {
3553 VD = SemaRef.IsOpenMPCapturedDecl(LCDecl);
3554 auto *Ref = buildDeclRefExpr(
3555 SemaRef, VD, VD->getType().getNonReferenceType(), DefaultLoc);
3556 DSAStackTy::DSAVarData Data = DSA.getTopDSA(LCDecl, /*FromParent=*/false);
3557 // If the loop control decl is explicitly marked as private, do not mark it
3558 // as captured again.
3559 if (!isOpenMPPrivate(Data.CKind) || !Data.RefExpr)
3560 Captures.insert(std::make_pair(LCRef, Ref));
3561 return Ref;
3562 }
3563 return buildDeclRefExpr(SemaRef, VD, VD->getType().getNonReferenceType(),
3564 DefaultLoc);
3565}
3566
3567Expr *OpenMPIterationSpaceChecker::BuildPrivateCounterVar() const {
3568 if (LCDecl && !LCDecl->isInvalidDecl()) {
3569 auto Type = LCDecl->getType().getNonReferenceType();
3570 auto *PrivateVar =
3571 buildVarDecl(SemaRef, DefaultLoc, Type, LCDecl->getName(),
3572 LCDecl->hasAttrs() ? &LCDecl->getAttrs() : nullptr);
3573 if (PrivateVar->isInvalidDecl())
3574 return nullptr;
3575 return buildDeclRefExpr(SemaRef, PrivateVar, Type, DefaultLoc);
3576 }
3577 return nullptr;
3578}
3579
3580/// \brief Build initialization of the counter to be used for codegen.
3581Expr *OpenMPIterationSpaceChecker::BuildCounterInit() const { return LB; }
3582
3583/// \brief Build step of the counter be used for codegen.
3584Expr *OpenMPIterationSpaceChecker::BuildCounterStep() const { return Step; }
3585
3586/// \brief Iteration space of a single for loop.
3587struct LoopIterationSpace final {
3588 /// \brief Condition of the loop.
3589 Expr *PreCond = nullptr;
3590 /// \brief This expression calculates the number of iterations in the loop.
3591 /// It is always possible to calculate it before starting the loop.
3592 Expr *NumIterations = nullptr;
3593 /// \brief The loop counter variable.
3594 Expr *CounterVar = nullptr;
3595 /// \brief Private loop counter variable.
3596 Expr *PrivateCounterVar = nullptr;
3597 /// \brief This is initializer for the initial value of #CounterVar.
3598 Expr *CounterInit = nullptr;
3599 /// \brief This is step for the #CounterVar used to generate its update:
3600 /// #CounterVar = #CounterInit + #CounterStep * CurrentIteration.
3601 Expr *CounterStep = nullptr;
3602 /// \brief Should step be subtracted?
3603 bool Subtract = false;
3604 /// \brief Source range of the loop init.
3605 SourceRange InitSrcRange;
3606 /// \brief Source range of the loop condition.
3607 SourceRange CondSrcRange;
3608 /// \brief Source range of the loop increment.
3609 SourceRange IncSrcRange;
3610};
3611
3612} // namespace
3613
3614void Sema::ActOnOpenMPLoopInitialization(SourceLocation ForLoc, Stmt *Init) {
3615 assert(getLangOpts().OpenMP && "OpenMP is not active.")((getLangOpts().OpenMP && "OpenMP is not active.") ? static_cast
<void> (0) : __assert_fail ("getLangOpts().OpenMP && \"OpenMP is not active.\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3615, __PRETTY_FUNCTION__))
;
3616 assert(Init && "Expected loop in canonical form.")((Init && "Expected loop in canonical form.") ? static_cast
<void> (0) : __assert_fail ("Init && \"Expected loop in canonical form.\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3616, __PRETTY_FUNCTION__))
;
3617 unsigned AssociatedLoops = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getAssociatedLoops();
3618 if (AssociatedLoops > 0 &&
3619 isOpenMPLoopDirective(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective())) {
3620 OpenMPIterationSpaceChecker ISC(*this, ForLoc);
3621 if (!ISC.CheckInit(Init, /*EmitDiags=*/false)) {
3622 if (auto *D = ISC.GetLoopDecl()) {
3623 auto *VD = dyn_cast<VarDecl>(D);
3624 if (!VD) {
3625 if (auto *Private = IsOpenMPCapturedDecl(D))
3626 VD = Private;
3627 else {
3628 auto *Ref = buildCapture(*this, D, ISC.GetLoopDeclRefExpr(),
3629 /*WithInit=*/false);
3630 VD = cast<VarDecl>(Ref->getDecl());
3631 }
3632 }
3633 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->addLoopControlVariable(D, VD);
3634 }
3635 }
3636 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setAssociatedLoops(AssociatedLoops - 1);
3637 }
3638}
3639
3640/// \brief Called on a for stmt to check and extract its iteration space
3641/// for further processing (such as collapsing).
3642static bool CheckOpenMPIterationSpace(
3643 OpenMPDirectiveKind DKind, Stmt *S, Sema &SemaRef, DSAStackTy &DSA,
3644 unsigned CurrentNestedLoopCount, unsigned NestedLoopCount,
3645 Expr *CollapseLoopCountExpr, Expr *OrderedLoopCountExpr,
3646 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA,
3647 LoopIterationSpace &ResultIterSpace,
3648 llvm::MapVector<Expr *, DeclRefExpr *> &Captures) {
3649 // OpenMP [2.6, Canonical Loop Form]
3650 // for (init-expr; test-expr; incr-expr) structured-block
3651 auto *For = dyn_cast_or_null<ForStmt>(S);
3652 if (!For) {
1
Taking true branch
3653 SemaRef.Diag(S->getLocStart(), diag::err_omp_not_for)
3654 << (CollapseLoopCountExpr != nullptr || OrderedLoopCountExpr != nullptr)
2
Assuming the condition is false
3
Assuming pointer value is null
3655 << getOpenMPDirectiveName(DKind) << NestedLoopCount
3656 << (CurrentNestedLoopCount > 0) << CurrentNestedLoopCount;
4
Assuming 'CurrentNestedLoopCount' is <= 0
3657 if (NestedLoopCount > 1) {
5
Assuming 'NestedLoopCount' is > 1
6
Taking true branch
3658 if (CollapseLoopCountExpr && OrderedLoopCountExpr)
3659 SemaRef.Diag(DSA.getConstructLoc(),
3660 diag::note_omp_collapse_ordered_expr)
3661 << 2 << CollapseLoopCountExpr->getSourceRange()
3662 << OrderedLoopCountExpr->getSourceRange();
3663 else if (CollapseLoopCountExpr)
7
Taking false branch
3664 SemaRef.Diag(CollapseLoopCountExpr->getExprLoc(),
3665 diag::note_omp_collapse_ordered_expr)
3666 << 0 << CollapseLoopCountExpr->getSourceRange();
3667 else
3668 SemaRef.Diag(OrderedLoopCountExpr->getExprLoc(),
8
Called C++ object pointer is null
3669 diag::note_omp_collapse_ordered_expr)
3670 << 1 << OrderedLoopCountExpr->getSourceRange();
3671 }
3672 return true;
3673 }
3674 assert(For->getBody())((For->getBody()) ? static_cast<void> (0) : __assert_fail
("For->getBody()", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3674, __PRETTY_FUNCTION__))
;
3675
3676 OpenMPIterationSpaceChecker ISC(SemaRef, For->getForLoc());
3677
3678 // Check init.
3679 auto Init = For->getInit();
3680 if (ISC.CheckInit(Init))
3681 return true;
3682
3683 bool HasErrors = false;
3684
3685 // Check loop variable's type.
3686 if (auto *LCDecl = ISC.GetLoopDecl()) {
3687 auto *LoopDeclRefExpr = ISC.GetLoopDeclRefExpr();
3688
3689 // OpenMP [2.6, Canonical Loop Form]
3690 // Var is one of the following:
3691 // A variable of signed or unsigned integer type.
3692 // For C++, a variable of a random access iterator type.
3693 // For C, a variable of a pointer type.
3694 auto VarType = LCDecl->getType().getNonReferenceType();
3695 if (!VarType->isDependentType() && !VarType->isIntegerType() &&
3696 !VarType->isPointerType() &&
3697 !(SemaRef.getLangOpts().CPlusPlus && VarType->isOverloadableType())) {
3698 SemaRef.Diag(Init->getLocStart(), diag::err_omp_loop_variable_type)
3699 << SemaRef.getLangOpts().CPlusPlus;
3700 HasErrors = true;
3701 }
3702
3703 // OpenMP, 2.14.1.1 Data-sharing Attribute Rules for Variables Referenced in
3704 // a Construct
3705 // The loop iteration variable(s) in the associated for-loop(s) of a for or
3706 // parallel for construct is (are) private.
3707 // The loop iteration variable in the associated for-loop of a simd
3708 // construct with just one associated for-loop is linear with a
3709 // constant-linear-step that is the increment of the associated for-loop.
3710 // Exclude loop var from the list of variables with implicitly defined data
3711 // sharing attributes.
3712 VarsWithImplicitDSA.erase(LCDecl);
3713
3714 // OpenMP [2.14.1.1, Data-sharing Attribute Rules for Variables Referenced
3715 // in a Construct, C/C++].
3716 // The loop iteration variable in the associated for-loop of a simd
3717 // construct with just one associated for-loop may be listed in a linear
3718 // clause with a constant-linear-step that is the increment of the
3719 // associated for-loop.
3720 // The loop iteration variable(s) in the associated for-loop(s) of a for or
3721 // parallel for construct may be listed in a private or lastprivate clause.
3722 DSAStackTy::DSAVarData DVar = DSA.getTopDSA(LCDecl, false);
3723 // If LoopVarRefExpr is nullptr it means the corresponding loop variable is
3724 // declared in the loop and it is predetermined as a private.
3725 auto PredeterminedCKind =
3726 isOpenMPSimdDirective(DKind)
3727 ? ((NestedLoopCount == 1) ? OMPC_linear : OMPC_lastprivate)
3728 : OMPC_private;
3729 if (((isOpenMPSimdDirective(DKind) && DVar.CKind != OMPC_unknown &&
3730 DVar.CKind != PredeterminedCKind) ||
3731 ((isOpenMPWorksharingDirective(DKind) || DKind == OMPD_taskloop ||
3732 isOpenMPDistributeDirective(DKind)) &&
3733 !isOpenMPSimdDirective(DKind) && DVar.CKind != OMPC_unknown &&
3734 DVar.CKind != OMPC_private && DVar.CKind != OMPC_lastprivate)) &&
3735 (DVar.CKind != OMPC_private || DVar.RefExpr != nullptr)) {
3736 SemaRef.Diag(Init->getLocStart(), diag::err_omp_loop_var_dsa)
3737 << getOpenMPClauseName(DVar.CKind) << getOpenMPDirectiveName(DKind)
3738 << getOpenMPClauseName(PredeterminedCKind);
3739 if (DVar.RefExpr == nullptr)
3740 DVar.CKind = PredeterminedCKind;
3741 ReportOriginalDSA(SemaRef, &DSA, LCDecl, DVar, /*IsLoopIterVar=*/true);
3742 HasErrors = true;
3743 } else if (LoopDeclRefExpr != nullptr) {
3744 // Make the loop iteration variable private (for worksharing constructs),
3745 // linear (for simd directives with the only one associated loop) or
3746 // lastprivate (for simd directives with several collapsed or ordered
3747 // loops).
3748 if (DVar.CKind == OMPC_unknown)
3749 DVar = DSA.hasDSA(LCDecl, isOpenMPPrivate,
3750 [](OpenMPDirectiveKind) -> bool { return true; },
3751 /*FromParent=*/false);
3752 DSA.addDSA(LCDecl, LoopDeclRefExpr, PredeterminedCKind);
3753 }
3754
3755 assert(isOpenMPLoopDirective(DKind) && "DSA for non-loop vars")((isOpenMPLoopDirective(DKind) && "DSA for non-loop vars"
) ? static_cast<void> (0) : __assert_fail ("isOpenMPLoopDirective(DKind) && \"DSA for non-loop vars\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 3755, __PRETTY_FUNCTION__))
;
3756
3757 // Check test-expr.
3758 HasErrors |= ISC.CheckCond(For->getCond());
3759
3760 // Check incr-expr.
3761 HasErrors |= ISC.CheckInc(For->getInc());
3762 }
3763
3764 if (ISC.Dependent() || SemaRef.CurContext->isDependentContext() || HasErrors)
3765 return HasErrors;
3766
3767 // Build the loop's iteration space representation.
3768 ResultIterSpace.PreCond =
3769 ISC.BuildPreCond(DSA.getCurScope(), For->getCond(), Captures);
3770 ResultIterSpace.NumIterations = ISC.BuildNumIterations(
3771 DSA.getCurScope(),
3772 (isOpenMPWorksharingDirective(DKind) ||
3773 isOpenMPTaskLoopDirective(DKind) || isOpenMPDistributeDirective(DKind)),
3774 Captures);
3775 ResultIterSpace.CounterVar = ISC.BuildCounterVar(Captures, DSA);
3776 ResultIterSpace.PrivateCounterVar = ISC.BuildPrivateCounterVar();
3777 ResultIterSpace.CounterInit = ISC.BuildCounterInit();
3778 ResultIterSpace.CounterStep = ISC.BuildCounterStep();
3779 ResultIterSpace.InitSrcRange = ISC.GetInitSrcRange();
3780 ResultIterSpace.CondSrcRange = ISC.GetConditionSrcRange();
3781 ResultIterSpace.IncSrcRange = ISC.GetIncrementSrcRange();
3782 ResultIterSpace.Subtract = ISC.ShouldSubtractStep();
3783
3784 HasErrors |= (ResultIterSpace.PreCond == nullptr ||
3785 ResultIterSpace.NumIterations == nullptr ||
3786 ResultIterSpace.CounterVar == nullptr ||
3787 ResultIterSpace.PrivateCounterVar == nullptr ||
3788 ResultIterSpace.CounterInit == nullptr ||
3789 ResultIterSpace.CounterStep == nullptr);
3790
3791 return HasErrors;
3792}
3793
3794/// \brief Build 'VarRef = Start.
3795static ExprResult
3796BuildCounterInit(Sema &SemaRef, Scope *S, SourceLocation Loc, ExprResult VarRef,
3797 ExprResult Start,
3798 llvm::MapVector<Expr *, DeclRefExpr *> &Captures) {
3799 // Build 'VarRef = Start.
3800 auto NewStart = tryBuildCapture(SemaRef, Start.get(), Captures);
3801 if (!NewStart.isUsable())
3802 return ExprError();
3803 if (!SemaRef.Context.hasSameType(NewStart.get()->getType(),
3804 VarRef.get()->getType())) {
3805 NewStart = SemaRef.PerformImplicitConversion(
3806 NewStart.get(), VarRef.get()->getType(), Sema::AA_Converting,
3807 /*AllowExplicit=*/true);
3808 if (!NewStart.isUsable())
3809 return ExprError();
3810 }
3811
3812 auto Init =
3813 SemaRef.BuildBinOp(S, Loc, BO_Assign, VarRef.get(), NewStart.get());
3814 return Init;
3815}
3816
3817/// \brief Build 'VarRef = Start + Iter * Step'.
3818static ExprResult
3819BuildCounterUpdate(Sema &SemaRef, Scope *S, SourceLocation Loc,
3820 ExprResult VarRef, ExprResult Start, ExprResult Iter,
3821 ExprResult Step, bool Subtract,
3822 llvm::MapVector<Expr *, DeclRefExpr *> *Captures = nullptr) {
3823 // Add parentheses (for debugging purposes only).
3824 Iter = SemaRef.ActOnParenExpr(Loc, Loc, Iter.get());
3825 if (!VarRef.isUsable() || !Start.isUsable() || !Iter.isUsable() ||
3826 !Step.isUsable())
3827 return ExprError();
3828
3829 ExprResult NewStep = Step;
3830 if (Captures)
3831 NewStep = tryBuildCapture(SemaRef, Step.get(), *Captures);
3832 if (NewStep.isInvalid())
3833 return ExprError();
3834 ExprResult Update =
3835 SemaRef.BuildBinOp(S, Loc, BO_Mul, Iter.get(), NewStep.get());
3836 if (!Update.isUsable())
3837 return ExprError();
3838
3839 // Try to build 'VarRef = Start, VarRef (+|-)= Iter * Step' or
3840 // 'VarRef = Start (+|-) Iter * Step'.
3841 ExprResult NewStart = Start;
3842 if (Captures)
3843 NewStart = tryBuildCapture(SemaRef, Start.get(), *Captures);
3844 if (NewStart.isInvalid())
3845 return ExprError();
3846
3847 // First attempt: try to build 'VarRef = Start, VarRef += Iter * Step'.
3848 ExprResult SavedUpdate = Update;
3849 ExprResult UpdateVal;
3850 if (VarRef.get()->getType()->isOverloadableType() ||
3851 NewStart.get()->getType()->isOverloadableType() ||
3852 Update.get()->getType()->isOverloadableType()) {
3853 bool Suppress = SemaRef.getDiagnostics().getSuppressAllDiagnostics();
3854 SemaRef.getDiagnostics().setSuppressAllDiagnostics(/*Val=*/true);
3855 Update =
3856 SemaRef.BuildBinOp(S, Loc, BO_Assign, VarRef.get(), NewStart.get());
3857 if (Update.isUsable()) {
3858 UpdateVal =
3859 SemaRef.BuildBinOp(S, Loc, Subtract ? BO_SubAssign : BO_AddAssign,
3860 VarRef.get(), SavedUpdate.get());
3861 if (UpdateVal.isUsable()) {
3862 Update = SemaRef.CreateBuiltinBinOp(Loc, BO_Comma, Update.get(),
3863 UpdateVal.get());
3864 }
3865 }
3866 SemaRef.getDiagnostics().setSuppressAllDiagnostics(Suppress);
3867 }
3868
3869 // Second attempt: try to build 'VarRef = Start (+|-) Iter * Step'.
3870 if (!Update.isUsable() || !UpdateVal.isUsable()) {
3871 Update = SemaRef.BuildBinOp(S, Loc, Subtract ? BO_Sub : BO_Add,
3872 NewStart.get(), SavedUpdate.get());
3873 if (!Update.isUsable())
3874 return ExprError();
3875
3876 if (!SemaRef.Context.hasSameType(Update.get()->getType(),
3877 VarRef.get()->getType())) {
3878 Update = SemaRef.PerformImplicitConversion(
3879 Update.get(), VarRef.get()->getType(), Sema::AA_Converting, true);
3880 if (!Update.isUsable())
3881 return ExprError();
3882 }
3883
3884 Update = SemaRef.BuildBinOp(S, Loc, BO_Assign, VarRef.get(), Update.get());
3885 }
3886 return Update;
3887}
3888
3889/// \brief Convert integer expression \a E to make it have at least \a Bits
3890/// bits.
3891static ExprResult WidenIterationCount(unsigned Bits, Expr *E, Sema &SemaRef) {
3892 if (E == nullptr)
3893 return ExprError();
3894 auto &C = SemaRef.Context;
3895 QualType OldType = E->getType();
3896 unsigned HasBits = C.getTypeSize(OldType);
3897 if (HasBits >= Bits)
3898 return ExprResult(E);
3899 // OK to convert to signed, because new type has more bits than old.
3900 QualType NewType = C.getIntTypeForBitwidth(Bits, /* Signed */ true);
3901 return SemaRef.PerformImplicitConversion(E, NewType, Sema::AA_Converting,
3902 true);
3903}
3904
3905/// \brief Check if the given expression \a E is a constant integer that fits
3906/// into \a Bits bits.
3907static bool FitsInto(unsigned Bits, bool Signed, Expr *E, Sema &SemaRef) {
3908 if (E == nullptr)
3909 return false;
3910 llvm::APSInt Result;
3911 if (E->isIntegerConstantExpr(Result, SemaRef.Context))
3912 return Signed ? Result.isSignedIntN(Bits) : Result.isIntN(Bits);
3913 return false;
3914}
3915
3916/// Build preinits statement for the given declarations.
3917static Stmt *buildPreInits(ASTContext &Context,
3918 SmallVectorImpl<Decl *> &PreInits) {
3919 if (!PreInits.empty()) {
3920 return new (Context) DeclStmt(
3921 DeclGroupRef::Create(Context, PreInits.begin(), PreInits.size()),
3922 SourceLocation(), SourceLocation());
3923 }
3924 return nullptr;
3925}
3926
3927/// Build preinits statement for the given declarations.
3928static Stmt *buildPreInits(ASTContext &Context,
3929 llvm::MapVector<Expr *, DeclRefExpr *> &Captures) {
3930 if (!Captures.empty()) {
3931 SmallVector<Decl *, 16> PreInits;
3932 for (auto &Pair : Captures)
3933 PreInits.push_back(Pair.second->getDecl());
3934 return buildPreInits(Context, PreInits);
3935 }
3936 return nullptr;
3937}
3938
3939/// Build postupdate expression for the given list of postupdates expressions.
3940static Expr *buildPostUpdate(Sema &S, ArrayRef<Expr *> PostUpdates) {
3941 Expr *PostUpdate = nullptr;
3942 if (!PostUpdates.empty()) {
3943 for (auto *E : PostUpdates) {
3944 Expr *ConvE = S.BuildCStyleCastExpr(
3945 E->getExprLoc(),
3946 S.Context.getTrivialTypeSourceInfo(S.Context.VoidTy),
3947 E->getExprLoc(), E)
3948 .get();
3949 PostUpdate = PostUpdate
3950 ? S.CreateBuiltinBinOp(ConvE->getExprLoc(), BO_Comma,
3951 PostUpdate, ConvE)
3952 .get()
3953 : ConvE;
3954 }
3955 }
3956 return PostUpdate;
3957}
3958
3959/// \brief Called on a for stmt to check itself and nested loops (if any).
3960/// \return Returns 0 if one of the collapsed stmts is not canonical for loop,
3961/// number of collapsed loops otherwise.
3962static unsigned
3963CheckOpenMPLoop(OpenMPDirectiveKind DKind, Expr *CollapseLoopCountExpr,
3964 Expr *OrderedLoopCountExpr, Stmt *AStmt, Sema &SemaRef,
3965 DSAStackTy &DSA,
3966 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA,
3967 OMPLoopDirective::HelperExprs &Built) {
3968 unsigned NestedLoopCount = 1;
3969 if (CollapseLoopCountExpr) {
3970 // Found 'collapse' clause - calculate collapse number.
3971 llvm::APSInt Result;
3972 if (CollapseLoopCountExpr->EvaluateAsInt(Result, SemaRef.getASTContext()))
3973 NestedLoopCount = Result.getLimitedValue();
3974 }
3975 if (OrderedLoopCountExpr) {
3976 // Found 'ordered' clause - calculate collapse number.
3977 llvm::APSInt Result;
3978 if (OrderedLoopCountExpr->EvaluateAsInt(Result, SemaRef.getASTContext())) {
3979 if (Result.getLimitedValue() < NestedLoopCount) {
3980 SemaRef.Diag(OrderedLoopCountExpr->getExprLoc(),
3981 diag::err_omp_wrong_ordered_loop_count)
3982 << OrderedLoopCountExpr->getSourceRange();
3983 SemaRef.Diag(CollapseLoopCountExpr->getExprLoc(),
3984 diag::note_collapse_loop_count)
3985 << CollapseLoopCountExpr->getSourceRange();
3986 }
3987 NestedLoopCount = Result.getLimitedValue();
3988 }
3989 }
3990 // This is helper routine for loop directives (e.g., 'for', 'simd',
3991 // 'for simd', etc.).
3992 llvm::MapVector<Expr *, DeclRefExpr *> Captures;
3993 SmallVector<LoopIterationSpace, 4> IterSpaces;
3994 IterSpaces.resize(NestedLoopCount);
3995 Stmt *CurStmt = AStmt->IgnoreContainers(/* IgnoreCaptured */ true);
3996 for (unsigned Cnt = 0; Cnt < NestedLoopCount; ++Cnt) {
3997 if (CheckOpenMPIterationSpace(DKind, CurStmt, SemaRef, DSA, Cnt,
3998 NestedLoopCount, CollapseLoopCountExpr,
3999 OrderedLoopCountExpr, VarsWithImplicitDSA,
4000 IterSpaces[Cnt], Captures))
4001 return 0;
4002 // Move on to the next nested for loop, or to the loop body.
4003 // OpenMP [2.8.1, simd construct, Restrictions]
4004 // All loops associated with the construct must be perfectly nested; that
4005 // is, there must be no intervening code nor any OpenMP directive between
4006 // any two loops.
4007 CurStmt = cast<ForStmt>(CurStmt)->getBody()->IgnoreContainers();
4008 }
4009
4010 Built.clear(/* size */ NestedLoopCount);
4011
4012 if (SemaRef.CurContext->isDependentContext())
4013 return NestedLoopCount;
4014
4015 // An example of what is generated for the following code:
4016 //
4017 // #pragma omp simd collapse(2) ordered(2)
4018 // for (i = 0; i < NI; ++i)
4019 // for (k = 0; k < NK; ++k)
4020 // for (j = J0; j < NJ; j+=2) {
4021 // <loop body>
4022 // }
4023 //
4024 // We generate the code below.
4025 // Note: the loop body may be outlined in CodeGen.
4026 // Note: some counters may be C++ classes, operator- is used to find number of
4027 // iterations and operator+= to calculate counter value.
4028 // Note: decltype(NumIterations) must be integer type (in 'omp for', only i32
4029 // or i64 is currently supported).
4030 //
4031 // #define NumIterations (NI * ((NJ - J0 - 1 + 2) / 2))
4032 // for (int[32|64]_t IV = 0; IV < NumIterations; ++IV ) {
4033 // .local.i = IV / ((NJ - J0 - 1 + 2) / 2);
4034 // .local.j = J0 + (IV % ((NJ - J0 - 1 + 2) / 2)) * 2;
4035 // // similar updates for vars in clauses (e.g. 'linear')
4036 // <loop body (using local i and j)>
4037 // }
4038 // i = NI; // assign final values of counters
4039 // j = NJ;
4040 //
4041
4042 // Last iteration number is (I1 * I2 * ... In) - 1, where I1, I2 ... In are
4043 // the iteration counts of the collapsed for loops.
4044 // Precondition tests if there is at least one iteration (all conditions are
4045 // true).
4046 auto PreCond = ExprResult(IterSpaces[0].PreCond);
4047 auto N0 = IterSpaces[0].NumIterations;
4048 ExprResult LastIteration32 = WidenIterationCount(
4049 32 /* Bits */, SemaRef
4050 .PerformImplicitConversion(
4051 N0->IgnoreImpCasts(), N0->getType(),
4052 Sema::AA_Converting, /*AllowExplicit=*/true)
4053 .get(),
4054 SemaRef);
4055 ExprResult LastIteration64 = WidenIterationCount(
4056 64 /* Bits */, SemaRef
4057 .PerformImplicitConversion(
4058 N0->IgnoreImpCasts(), N0->getType(),
4059 Sema::AA_Converting, /*AllowExplicit=*/true)
4060 .get(),
4061 SemaRef);
4062
4063 if (!LastIteration32.isUsable() || !LastIteration64.isUsable())
4064 return NestedLoopCount;
4065
4066 auto &C = SemaRef.Context;
4067 bool AllCountsNeedLessThan32Bits = C.getTypeSize(N0->getType()) < 32;
4068
4069 Scope *CurScope = DSA.getCurScope();
4070 for (unsigned Cnt = 1; Cnt < NestedLoopCount; ++Cnt) {
4071 if (PreCond.isUsable()) {
4072 PreCond =
4073 SemaRef.BuildBinOp(CurScope, PreCond.get()->getExprLoc(), BO_LAnd,
4074 PreCond.get(), IterSpaces[Cnt].PreCond);
4075 }
4076 auto N = IterSpaces[Cnt].NumIterations;
4077 SourceLocation Loc = N->getExprLoc();
4078 AllCountsNeedLessThan32Bits &= C.getTypeSize(N->getType()) < 32;
4079 if (LastIteration32.isUsable())
4080 LastIteration32 = SemaRef.BuildBinOp(
4081 CurScope, Loc, BO_Mul, LastIteration32.get(),
4082 SemaRef
4083 .PerformImplicitConversion(N->IgnoreImpCasts(), N->getType(),
4084 Sema::AA_Converting,
4085 /*AllowExplicit=*/true)
4086 .get());
4087 if (LastIteration64.isUsable())
4088 LastIteration64 = SemaRef.BuildBinOp(
4089 CurScope, Loc, BO_Mul, LastIteration64.get(),
4090 SemaRef
4091 .PerformImplicitConversion(N->IgnoreImpCasts(), N->getType(),
4092 Sema::AA_Converting,
4093 /*AllowExplicit=*/true)
4094 .get());
4095 }
4096
4097 // Choose either the 32-bit or 64-bit version.
4098 ExprResult LastIteration = LastIteration64;
4099 if (LastIteration32.isUsable() &&
4100 C.getTypeSize(LastIteration32.get()->getType()) == 32 &&
4101 (AllCountsNeedLessThan32Bits || NestedLoopCount == 1 ||
4102 FitsInto(
4103 32 /* Bits */,
4104 LastIteration32.get()->getType()->hasSignedIntegerRepresentation(),
4105 LastIteration64.get(), SemaRef)))
4106 LastIteration = LastIteration32;
4107 QualType VType = LastIteration.get()->getType();
4108 QualType RealVType = VType;
4109 QualType StrideVType = VType;
4110 if (isOpenMPTaskLoopDirective(DKind)) {
4111 VType =
4112 SemaRef.Context.getIntTypeForBitwidth(/*DestWidth=*/64, /*Signed=*/0);
4113 StrideVType =
4114 SemaRef.Context.getIntTypeForBitwidth(/*DestWidth=*/64, /*Signed=*/1);
4115 }
4116
4117 if (!LastIteration.isUsable())
4118 return 0;
4119
4120 // Save the number of iterations.
4121 ExprResult NumIterations = LastIteration;
4122 {
4123 LastIteration = SemaRef.BuildBinOp(
4124 CurScope, LastIteration.get()->getExprLoc(), BO_Sub,
4125 LastIteration.get(),
4126 SemaRef.ActOnIntegerConstant(SourceLocation(), 1).get());
4127 if (!LastIteration.isUsable())
4128 return 0;
4129 }
4130
4131 // Calculate the last iteration number beforehand instead of doing this on
4132 // each iteration. Do not do this if the number of iterations may be kfold-ed.
4133 llvm::APSInt Result;
4134 bool IsConstant =
4135 LastIteration.get()->isIntegerConstantExpr(Result, SemaRef.Context);
4136 ExprResult CalcLastIteration;
4137 if (!IsConstant) {
4138 ExprResult SaveRef =
4139 tryBuildCapture(SemaRef, LastIteration.get(), Captures);
4140 LastIteration = SaveRef;
4141
4142 // Prepare SaveRef + 1.
4143 NumIterations = SemaRef.BuildBinOp(
4144 CurScope, SaveRef.get()->getExprLoc(), BO_Add, SaveRef.get(),
4145 SemaRef.ActOnIntegerConstant(SourceLocation(), 1).get());
4146 if (!NumIterations.isUsable())
4147 return 0;
4148 }
4149
4150 SourceLocation InitLoc = IterSpaces[0].InitSrcRange.getBegin();
4151
4152 // Build variables passed into runtime, necessary for worksharing directives.
4153 ExprResult LB, UB, IL, ST, EUB, CombLB, CombUB, PrevLB, PrevUB, CombEUB;
4154 if (isOpenMPWorksharingDirective(DKind) || isOpenMPTaskLoopDirective(DKind) ||
4155 isOpenMPDistributeDirective(DKind)) {
4156 // Lower bound variable, initialized with zero.
4157 VarDecl *LBDecl = buildVarDecl(SemaRef, InitLoc, VType, ".omp.lb");
4158 LB = buildDeclRefExpr(SemaRef, LBDecl, VType, InitLoc);
4159 SemaRef.AddInitializerToDecl(LBDecl,
4160 SemaRef.ActOnIntegerConstant(InitLoc, 0).get(),
4161 /*DirectInit*/ false);
4162
4163 // Upper bound variable, initialized with last iteration number.
4164 VarDecl *UBDecl = buildVarDecl(SemaRef, InitLoc, VType, ".omp.ub");
4165 UB = buildDeclRefExpr(SemaRef, UBDecl, VType, InitLoc);
4166 SemaRef.AddInitializerToDecl(UBDecl, LastIteration.get(),
4167 /*DirectInit*/ false);
4168
4169 // A 32-bit variable-flag where runtime returns 1 for the last iteration.
4170 // This will be used to implement clause 'lastprivate'.
4171 QualType Int32Ty = SemaRef.Context.getIntTypeForBitwidth(32, true);
4172 VarDecl *ILDecl = buildVarDecl(SemaRef, InitLoc, Int32Ty, ".omp.is_last");
4173 IL = buildDeclRefExpr(SemaRef, ILDecl, Int32Ty, InitLoc);
4174 SemaRef.AddInitializerToDecl(ILDecl,
4175 SemaRef.ActOnIntegerConstant(InitLoc, 0).get(),
4176 /*DirectInit*/ false);
4177
4178 // Stride variable returned by runtime (we initialize it to 1 by default).
4179 VarDecl *STDecl =
4180 buildVarDecl(SemaRef, InitLoc, StrideVType, ".omp.stride");
4181 ST = buildDeclRefExpr(SemaRef, STDecl, StrideVType, InitLoc);
4182 SemaRef.AddInitializerToDecl(STDecl,
4183 SemaRef.ActOnIntegerConstant(InitLoc, 1).get(),
4184 /*DirectInit*/ false);
4185
4186 // Build expression: UB = min(UB, LastIteration)
4187 // It is necessary for CodeGen of directives with static scheduling.
4188 ExprResult IsUBGreater = SemaRef.BuildBinOp(CurScope, InitLoc, BO_GT,
4189 UB.get(), LastIteration.get());
4190 ExprResult CondOp = SemaRef.ActOnConditionalOp(
4191 InitLoc, InitLoc, IsUBGreater.get(), LastIteration.get(), UB.get());
4192 EUB = SemaRef.BuildBinOp(CurScope, InitLoc, BO_Assign, UB.get(),
4193 CondOp.get());
4194 EUB = SemaRef.ActOnFinishFullExpr(EUB.get());
4195
4196 // If we have a combined directive that combines 'distribute', 'for' or
4197 // 'simd' we need to be able to access the bounds of the schedule of the
4198 // enclosing region. E.g. in 'distribute parallel for' the bounds obtained
4199 // by scheduling 'distribute' have to be passed to the schedule of 'for'.
4200 if (isOpenMPLoopBoundSharingDirective(DKind)) {
4201
4202 // Lower bound variable, initialized with zero.
4203 VarDecl *CombLBDecl =
4204 buildVarDecl(SemaRef, InitLoc, VType, ".omp.comb.lb");
4205 CombLB = buildDeclRefExpr(SemaRef, CombLBDecl, VType, InitLoc);
4206 SemaRef.AddInitializerToDecl(
4207 CombLBDecl, SemaRef.ActOnIntegerConstant(InitLoc, 0).get(),
4208 /*DirectInit*/ false);
4209
4210 // Upper bound variable, initialized with last iteration number.
4211 VarDecl *CombUBDecl =
4212 buildVarDecl(SemaRef, InitLoc, VType, ".omp.comb.ub");
4213 CombUB = buildDeclRefExpr(SemaRef, CombUBDecl, VType, InitLoc);
4214 SemaRef.AddInitializerToDecl(CombUBDecl, LastIteration.get(),
4215 /*DirectInit*/ false);
4216
4217 ExprResult CombIsUBGreater = SemaRef.BuildBinOp(
4218 CurScope, InitLoc, BO_GT, CombUB.get(), LastIteration.get());
4219 ExprResult CombCondOp =
4220 SemaRef.ActOnConditionalOp(InitLoc, InitLoc, CombIsUBGreater.get(),
4221 LastIteration.get(), CombUB.get());
4222 CombEUB = SemaRef.BuildBinOp(CurScope, InitLoc, BO_Assign, CombUB.get(),
4223 CombCondOp.get());
4224 CombEUB = SemaRef.ActOnFinishFullExpr(CombEUB.get());
4225
4226 auto *CD = cast<CapturedStmt>(AStmt)->getCapturedDecl();
4227 // We expect to have at least 2 more parameters than the 'parallel'
4228 // directive does - the lower and upper bounds of the previous schedule.
4229 assert(CD->getNumParams() >= 4 &&((CD->getNumParams() >= 4 && "Unexpected number of parameters in loop combined directive"
) ? static_cast<void> (0) : __assert_fail ("CD->getNumParams() >= 4 && \"Unexpected number of parameters in loop combined directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4230, __PRETTY_FUNCTION__))
4230 "Unexpected number of parameters in loop combined directive")((CD->getNumParams() >= 4 && "Unexpected number of parameters in loop combined directive"
) ? static_cast<void> (0) : __assert_fail ("CD->getNumParams() >= 4 && \"Unexpected number of parameters in loop combined directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4230, __PRETTY_FUNCTION__))
;
4231
4232 // Set the proper type for the bounds given what we learned from the
4233 // enclosed loops.
4234 auto *PrevLBDecl = CD->getParam(/*PrevLB=*/2);
4235 auto *PrevUBDecl = CD->getParam(/*PrevUB=*/3);
4236
4237 // Previous lower and upper bounds are obtained from the region
4238 // parameters.
4239 PrevLB =
4240 buildDeclRefExpr(SemaRef, PrevLBDecl, PrevLBDecl->getType(), InitLoc);
4241 PrevUB =
4242 buildDeclRefExpr(SemaRef, PrevUBDecl, PrevUBDecl->getType(), InitLoc);
4243 }
4244 }
4245
4246 // Build the iteration variable and its initialization before loop.
4247 ExprResult IV;
4248 ExprResult Init, CombInit;
4249 {
4250 VarDecl *IVDecl = buildVarDecl(SemaRef, InitLoc, RealVType, ".omp.iv");
4251 IV = buildDeclRefExpr(SemaRef, IVDecl, RealVType, InitLoc);
4252 Expr *RHS =
4253 (isOpenMPWorksharingDirective(DKind) ||
4254 isOpenMPTaskLoopDirective(DKind) || isOpenMPDistributeDirective(DKind))
4255 ? LB.get()
4256 : SemaRef.ActOnIntegerConstant(SourceLocation(), 0).get();
4257 Init = SemaRef.BuildBinOp(CurScope, InitLoc, BO_Assign, IV.get(), RHS);
4258 Init = SemaRef.ActOnFinishFullExpr(Init.get());
4259
4260 if (isOpenMPLoopBoundSharingDirective(DKind)) {
4261 Expr *CombRHS =
4262 (isOpenMPWorksharingDirective(DKind) ||
4263 isOpenMPTaskLoopDirective(DKind) ||
4264 isOpenMPDistributeDirective(DKind))
4265 ? CombLB.get()
4266 : SemaRef.ActOnIntegerConstant(SourceLocation(), 0).get();
4267 CombInit =
4268 SemaRef.BuildBinOp(CurScope, InitLoc, BO_Assign, IV.get(), CombRHS);
4269 CombInit = SemaRef.ActOnFinishFullExpr(CombInit.get());
4270 }
4271 }
4272
4273 // Loop condition (IV < NumIterations) or (IV <= UB) for worksharing loops.
4274 SourceLocation CondLoc;
4275 ExprResult Cond =
4276 (isOpenMPWorksharingDirective(DKind) ||
4277 isOpenMPTaskLoopDirective(DKind) || isOpenMPDistributeDirective(DKind))
4278 ? SemaRef.BuildBinOp(CurScope, CondLoc, BO_LE, IV.get(), UB.get())
4279 : SemaRef.BuildBinOp(CurScope, CondLoc, BO_LT, IV.get(),
4280 NumIterations.get());
4281 ExprResult CombCond;
4282 if (isOpenMPLoopBoundSharingDirective(DKind)) {
4283 CombCond =
4284 SemaRef.BuildBinOp(CurScope, CondLoc, BO_LE, IV.get(), CombUB.get());
4285 }
4286 // Loop increment (IV = IV + 1)
4287 SourceLocation IncLoc;
4288 ExprResult Inc =
4289 SemaRef.BuildBinOp(CurScope, IncLoc, BO_Add, IV.get(),
4290 SemaRef.ActOnIntegerConstant(IncLoc, 1).get());
4291 if (!Inc.isUsable())
4292 return 0;
4293 Inc = SemaRef.BuildBinOp(CurScope, IncLoc, BO_Assign, IV.get(), Inc.get());
4294 Inc = SemaRef.ActOnFinishFullExpr(Inc.get());
4295 if (!Inc.isUsable())
4296 return 0;
4297
4298 // Increments for worksharing loops (LB = LB + ST; UB = UB + ST).
4299 // Used for directives with static scheduling.
4300 // In combined construct, add combined version that use CombLB and CombUB
4301 // base variables for the update
4302 ExprResult NextLB, NextUB, CombNextLB, CombNextUB;
4303 if (isOpenMPWorksharingDirective(DKind) || isOpenMPTaskLoopDirective(DKind) ||
4304 isOpenMPDistributeDirective(DKind)) {
4305 // LB + ST
4306 NextLB = SemaRef.BuildBinOp(CurScope, IncLoc, BO_Add, LB.get(), ST.get());
4307 if (!NextLB.isUsable())
4308 return 0;
4309 // LB = LB + ST
4310 NextLB =
4311 SemaRef.BuildBinOp(CurScope, IncLoc, BO_Assign, LB.get(), NextLB.get());
4312 NextLB = SemaRef.ActOnFinishFullExpr(NextLB.get());
4313 if (!NextLB.isUsable())
4314 return 0;
4315 // UB + ST
4316 NextUB = SemaRef.BuildBinOp(CurScope, IncLoc, BO_Add, UB.get(), ST.get());
4317 if (!NextUB.isUsable())
4318 return 0;
4319 // UB = UB + ST
4320 NextUB =
4321 SemaRef.BuildBinOp(CurScope, IncLoc, BO_Assign, UB.get(), NextUB.get());
4322 NextUB = SemaRef.ActOnFinishFullExpr(NextUB.get());
4323 if (!NextUB.isUsable())
4324 return 0;
4325 if (isOpenMPLoopBoundSharingDirective(DKind)) {
4326 CombNextLB =
4327 SemaRef.BuildBinOp(CurScope, IncLoc, BO_Add, CombLB.get(), ST.get());
4328 if (!NextLB.isUsable())
4329 return 0;
4330 // LB = LB + ST
4331 CombNextLB = SemaRef.BuildBinOp(CurScope, IncLoc, BO_Assign, CombLB.get(),
4332 CombNextLB.get());
4333 CombNextLB = SemaRef.ActOnFinishFullExpr(CombNextLB.get());
4334 if (!CombNextLB.isUsable())
4335 return 0;
4336 // UB + ST
4337 CombNextUB =
4338 SemaRef.BuildBinOp(CurScope, IncLoc, BO_Add, CombUB.get(), ST.get());
4339 if (!CombNextUB.isUsable())
4340 return 0;
4341 // UB = UB + ST
4342 CombNextUB = SemaRef.BuildBinOp(CurScope, IncLoc, BO_Assign, CombUB.get(),
4343 CombNextUB.get());
4344 CombNextUB = SemaRef.ActOnFinishFullExpr(CombNextUB.get());
4345 if (!CombNextUB.isUsable())
4346 return 0;
4347 }
4348 }
4349
4350 // Create increment expression for distribute loop when combined in a same
4351 // directive with for as IV = IV + ST; ensure upper bound expression based
4352 // on PrevUB instead of NumIterations - used to implement 'for' when found
4353 // in combination with 'distribute', like in 'distribute parallel for'
4354 SourceLocation DistIncLoc;
4355 ExprResult DistCond, DistInc, PrevEUB;
4356 if (isOpenMPLoopBoundSharingDirective(DKind)) {
4357 DistCond = SemaRef.BuildBinOp(CurScope, CondLoc, BO_LE, IV.get(), UB.get());
4358 assert(DistCond.isUsable() && "distribute cond expr was not built")((DistCond.isUsable() && "distribute cond expr was not built"
) ? static_cast<void> (0) : __assert_fail ("DistCond.isUsable() && \"distribute cond expr was not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4358, __PRETTY_FUNCTION__))
;
4359
4360 DistInc =
4361 SemaRef.BuildBinOp(CurScope, DistIncLoc, BO_Add, IV.get(), ST.get());
4362 assert(DistInc.isUsable() && "distribute inc expr was not built")((DistInc.isUsable() && "distribute inc expr was not built"
) ? static_cast<void> (0) : __assert_fail ("DistInc.isUsable() && \"distribute inc expr was not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4362, __PRETTY_FUNCTION__))
;
4363 DistInc = SemaRef.BuildBinOp(CurScope, DistIncLoc, BO_Assign, IV.get(),
4364 DistInc.get());
4365 DistInc = SemaRef.ActOnFinishFullExpr(DistInc.get());
4366 assert(DistInc.isUsable() && "distribute inc expr was not built")((DistInc.isUsable() && "distribute inc expr was not built"
) ? static_cast<void> (0) : __assert_fail ("DistInc.isUsable() && \"distribute inc expr was not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4366, __PRETTY_FUNCTION__))
;
4367
4368 // Build expression: UB = min(UB, prevUB) for #for in composite or combined
4369 // construct
4370 SourceLocation DistEUBLoc;
4371 ExprResult IsUBGreater =
4372 SemaRef.BuildBinOp(CurScope, DistEUBLoc, BO_GT, UB.get(), PrevUB.get());
4373 ExprResult CondOp = SemaRef.ActOnConditionalOp(
4374 DistEUBLoc, DistEUBLoc, IsUBGreater.get(), PrevUB.get(), UB.get());
4375 PrevEUB = SemaRef.BuildBinOp(CurScope, DistIncLoc, BO_Assign, UB.get(),
4376 CondOp.get());
4377 PrevEUB = SemaRef.ActOnFinishFullExpr(PrevEUB.get());
4378 }
4379
4380 // Build updates and final values of the loop counters.
4381 bool HasErrors = false;
4382 Built.Counters.resize(NestedLoopCount);
4383 Built.Inits.resize(NestedLoopCount);
4384 Built.Updates.resize(NestedLoopCount);
4385 Built.Finals.resize(NestedLoopCount);
4386 SmallVector<Expr *, 4> LoopMultipliers;
4387 {
4388 ExprResult Div;
4389 // Go from inner nested loop to outer.
4390 for (int Cnt = NestedLoopCount - 1; Cnt >= 0; --Cnt) {
4391 LoopIterationSpace &IS = IterSpaces[Cnt];
4392 SourceLocation UpdLoc = IS.IncSrcRange.getBegin();
4393 // Build: Iter = (IV / Div) % IS.NumIters
4394 // where Div is product of previous iterations' IS.NumIters.
4395 ExprResult Iter;
4396 if (Div.isUsable()) {
4397 Iter =
4398 SemaRef.BuildBinOp(CurScope, UpdLoc, BO_Div, IV.get(), Div.get());
4399 } else {
4400 Iter = IV;
4401 assert((Cnt == (int)NestedLoopCount - 1) &&(((Cnt == (int)NestedLoopCount - 1) && "unusable div expected on first iteration only"
) ? static_cast<void> (0) : __assert_fail ("(Cnt == (int)NestedLoopCount - 1) && \"unusable div expected on first iteration only\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4402, __PRETTY_FUNCTION__))
4402 "unusable div expected on first iteration only")(((Cnt == (int)NestedLoopCount - 1) && "unusable div expected on first iteration only"
) ? static_cast<void> (0) : __assert_fail ("(Cnt == (int)NestedLoopCount - 1) && \"unusable div expected on first iteration only\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4402, __PRETTY_FUNCTION__))
;
4403 }
4404
4405 if (Cnt != 0 && Iter.isUsable())
4406 Iter = SemaRef.BuildBinOp(CurScope, UpdLoc, BO_Rem, Iter.get(),
4407 IS.NumIterations);
4408 if (!Iter.isUsable()) {
4409 HasErrors = true;
4410 break;
4411 }
4412
4413 // Build update: IS.CounterVar(Private) = IS.Start + Iter * IS.Step
4414 auto *VD = cast<VarDecl>(cast<DeclRefExpr>(IS.CounterVar)->getDecl());
4415 auto *CounterVar = buildDeclRefExpr(SemaRef, VD, IS.CounterVar->getType(),
4416 IS.CounterVar->getExprLoc(),
4417 /*RefersToCapture=*/true);
4418 ExprResult Init = BuildCounterInit(SemaRef, CurScope, UpdLoc, CounterVar,
4419 IS.CounterInit, Captures);
4420 if (!Init.isUsable()) {
4421 HasErrors = true;
4422 break;
4423 }
4424 ExprResult Update = BuildCounterUpdate(
4425 SemaRef, CurScope, UpdLoc, CounterVar, IS.CounterInit, Iter,
4426 IS.CounterStep, IS.Subtract, &Captures);
4427 if (!Update.isUsable()) {
4428 HasErrors = true;
4429 break;
4430 }
4431
4432 // Build final: IS.CounterVar = IS.Start + IS.NumIters * IS.Step
4433 ExprResult Final = BuildCounterUpdate(
4434 SemaRef, CurScope, UpdLoc, CounterVar, IS.CounterInit,
4435 IS.NumIterations, IS.CounterStep, IS.Subtract, &Captures);
4436 if (!Final.isUsable()) {
4437 HasErrors = true;
4438 break;
4439 }
4440
4441 // Build Div for the next iteration: Div <- Div * IS.NumIters
4442 if (Cnt != 0) {
4443 if (Div.isUnset())
4444 Div = IS.NumIterations;
4445 else
4446 Div = SemaRef.BuildBinOp(CurScope, UpdLoc, BO_Mul, Div.get(),
4447 IS.NumIterations);
4448
4449 // Add parentheses (for debugging purposes only).
4450 if (Div.isUsable())
4451 Div = tryBuildCapture(SemaRef, Div.get(), Captures);
4452 if (!Div.isUsable()) {
4453 HasErrors = true;
4454 break;
4455 }
4456 LoopMultipliers.push_back(Div.get());
4457 }
4458 if (!Update.isUsable() || !Final.isUsable()) {
4459 HasErrors = true;
4460 break;
4461 }
4462 // Save results
4463 Built.Counters[Cnt] = IS.CounterVar;
4464 Built.PrivateCounters[Cnt] = IS.PrivateCounterVar;
4465 Built.Inits[Cnt] = Init.get();
4466 Built.Updates[Cnt] = Update.get();
4467 Built.Finals[Cnt] = Final.get();
4468 }
4469 }
4470
4471 if (HasErrors)
4472 return 0;
4473
4474 // Save results
4475 Built.IterationVarRef = IV.get();
4476 Built.LastIteration = LastIteration.get();
4477 Built.NumIterations = NumIterations.get();
4478 Built.CalcLastIteration =
4479 SemaRef.ActOnFinishFullExpr(CalcLastIteration.get()).get();
4480 Built.PreCond = PreCond.get();
4481 Built.PreInits = buildPreInits(C, Captures);
4482 Built.Cond = Cond.get();
4483 Built.Init = Init.get();
4484 Built.Inc = Inc.get();
4485 Built.LB = LB.get();
4486 Built.UB = UB.get();
4487 Built.IL = IL.get();
4488 Built.ST = ST.get();
4489 Built.EUB = EUB.get();
4490 Built.NLB = NextLB.get();
4491 Built.NUB = NextUB.get();
4492 Built.PrevLB = PrevLB.get();
4493 Built.PrevUB = PrevUB.get();
4494 Built.DistInc = DistInc.get();
4495 Built.PrevEUB = PrevEUB.get();
4496 Built.DistCombinedFields.LB = CombLB.get();
4497 Built.DistCombinedFields.UB = CombUB.get();
4498 Built.DistCombinedFields.EUB = CombEUB.get();
4499 Built.DistCombinedFields.Init = CombInit.get();
4500 Built.DistCombinedFields.Cond = CombCond.get();
4501 Built.DistCombinedFields.NLB = CombNextLB.get();
4502 Built.DistCombinedFields.NUB = CombNextUB.get();
4503
4504 Expr *CounterVal = SemaRef.DefaultLvalueConversion(IV.get()).get();
4505 // Fill data for doacross depend clauses.
4506 for (auto Pair : DSA.getDoacrossDependClauses()) {
4507 if (Pair.first->getDependencyKind() == OMPC_DEPEND_source)
4508 Pair.first->setCounterValue(CounterVal);
4509 else {
4510 if (NestedLoopCount != Pair.second.size() ||
4511 NestedLoopCount != LoopMultipliers.size() + 1) {
4512 // Erroneous case - clause has some problems.
4513 Pair.first->setCounterValue(CounterVal);
4514 continue;
4515 }
4516 assert(Pair.first->getDependencyKind() == OMPC_DEPEND_sink)((Pair.first->getDependencyKind() == OMPC_DEPEND_sink) ? static_cast
<void> (0) : __assert_fail ("Pair.first->getDependencyKind() == OMPC_DEPEND_sink"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4516, __PRETTY_FUNCTION__))
;
4517 auto I = Pair.second.rbegin();
4518 auto IS = IterSpaces.rbegin();
4519 auto ILM = LoopMultipliers.rbegin();
4520 Expr *UpCounterVal = CounterVal;
4521 Expr *Multiplier = nullptr;
4522 for (int Cnt = NestedLoopCount - 1; Cnt >= 0; --Cnt) {
4523 if (I->first) {
4524 assert(IS->CounterStep)((IS->CounterStep) ? static_cast<void> (0) : __assert_fail
("IS->CounterStep", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4524, __PRETTY_FUNCTION__))
;
4525 Expr *NormalizedOffset =
4526 SemaRef
4527 .BuildBinOp(CurScope, I->first->getExprLoc(), BO_Div,
4528 I->first, IS->CounterStep)
4529 .get();
4530 if (Multiplier) {
4531 NormalizedOffset =
4532 SemaRef
4533 .BuildBinOp(CurScope, I->first->getExprLoc(), BO_Mul,
4534 NormalizedOffset, Multiplier)
4535 .get();
4536 }
4537 assert(I->second == OO_Plus || I->second == OO_Minus)((I->second == OO_Plus || I->second == OO_Minus) ? static_cast
<void> (0) : __assert_fail ("I->second == OO_Plus || I->second == OO_Minus"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4537, __PRETTY_FUNCTION__))
;
4538 BinaryOperatorKind BOK = (I->second == OO_Plus) ? BO_Add : BO_Sub;
4539 UpCounterVal = SemaRef
4540 .BuildBinOp(CurScope, I->first->getExprLoc(), BOK,
4541 UpCounterVal, NormalizedOffset)
4542 .get();
4543 }
4544 Multiplier = *ILM;
4545 ++I;
4546 ++IS;
4547 ++ILM;
4548 }
4549 Pair.first->setCounterValue(UpCounterVal);
4550 }
4551 }
4552
4553 return NestedLoopCount;
4554}
4555
4556static Expr *getCollapseNumberExpr(ArrayRef<OMPClause *> Clauses) {
4557 auto CollapseClauses =
4558 OMPExecutableDirective::getClausesOfKind<OMPCollapseClause>(Clauses);
4559 if (CollapseClauses.begin() != CollapseClauses.end())
4560 return (*CollapseClauses.begin())->getNumForLoops();
4561 return nullptr;
4562}
4563
4564static Expr *getOrderedNumberExpr(ArrayRef<OMPClause *> Clauses) {
4565 auto OrderedClauses =
4566 OMPExecutableDirective::getClausesOfKind<OMPOrderedClause>(Clauses);
4567 if (OrderedClauses.begin() != OrderedClauses.end())
4568 return (*OrderedClauses.begin())->getNumForLoops();
4569 return nullptr;
4570}
4571
4572static bool checkSimdlenSafelenSpecified(Sema &S,
4573 const ArrayRef<OMPClause *> Clauses) {
4574 OMPSafelenClause *Safelen = nullptr;
4575 OMPSimdlenClause *Simdlen = nullptr;
4576
4577 for (auto *Clause : Clauses) {
4578 if (Clause->getClauseKind() == OMPC_safelen)
4579 Safelen = cast<OMPSafelenClause>(Clause);
4580 else if (Clause->getClauseKind() == OMPC_simdlen)
4581 Simdlen = cast<OMPSimdlenClause>(Clause);
4582 if (Safelen && Simdlen)
4583 break;
4584 }
4585
4586 if (Simdlen && Safelen) {
4587 llvm::APSInt SimdlenRes, SafelenRes;
4588 auto SimdlenLength = Simdlen->getSimdlen();
4589 auto SafelenLength = Safelen->getSafelen();
4590 if (SimdlenLength->isValueDependent() || SimdlenLength->isTypeDependent() ||
4591 SimdlenLength->isInstantiationDependent() ||
4592 SimdlenLength->containsUnexpandedParameterPack())
4593 return false;
4594 if (SafelenLength->isValueDependent() || SafelenLength->isTypeDependent() ||
4595 SafelenLength->isInstantiationDependent() ||
4596 SafelenLength->containsUnexpandedParameterPack())
4597 return false;
4598 SimdlenLength->EvaluateAsInt(SimdlenRes, S.Context);
4599 SafelenLength->EvaluateAsInt(SafelenRes, S.Context);
4600 // OpenMP 4.5 [2.8.1, simd Construct, Restrictions]
4601 // If both simdlen and safelen clauses are specified, the value of the
4602 // simdlen parameter must be less than or equal to the value of the safelen
4603 // parameter.
4604 if (SimdlenRes > SafelenRes) {
4605 S.Diag(SimdlenLength->getExprLoc(),
4606 diag::err_omp_wrong_simdlen_safelen_values)
4607 << SimdlenLength->getSourceRange() << SafelenLength->getSourceRange();
4608 return true;
4609 }
4610 }
4611 return false;
4612}
4613
4614StmtResult Sema::ActOnOpenMPSimdDirective(
4615 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
4616 SourceLocation EndLoc,
4617 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
4618 if (!AStmt)
4619 return StmtError();
4620
4621 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4621, __PRETTY_FUNCTION__))
;
4622 OMPLoopDirective::HelperExprs B;
4623 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
4624 // define the nested loops number.
4625 unsigned NestedLoopCount = CheckOpenMPLoop(
4626 OMPD_simd, getCollapseNumberExpr(Clauses), getOrderedNumberExpr(Clauses),
4627 AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
, VarsWithImplicitDSA, B);
4628 if (NestedLoopCount == 0)
4629 return StmtError();
4630
4631 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp simd loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4632, __PRETTY_FUNCTION__))
4632 "omp simd loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp simd loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4632, __PRETTY_FUNCTION__))
;
4633
4634 if (!CurContext->isDependentContext()) {
4635 // Finalize the clauses that need pre-built expressions for CodeGen.
4636 for (auto C : Clauses) {
4637 if (auto *LC = dyn_cast<OMPLinearClause>(C))
4638 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
4639 B.NumIterations, *this, CurScope,
4640 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
4641 return StmtError();
4642 }
4643 }
4644
4645 if (checkSimdlenSafelenSpecified(*this, Clauses))
4646 return StmtError();
4647
4648 getCurFunction()->setHasBranchProtectedScope();
4649 return OMPSimdDirective::Create(Context, StartLoc, EndLoc, NestedLoopCount,
4650 Clauses, AStmt, B);
4651}
4652
4653StmtResult Sema::ActOnOpenMPForDirective(
4654 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
4655 SourceLocation EndLoc,
4656 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
4657 if (!AStmt)
4658 return StmtError();
4659
4660 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4660, __PRETTY_FUNCTION__))
;
4661 OMPLoopDirective::HelperExprs B;
4662 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
4663 // define the nested loops number.
4664 unsigned NestedLoopCount = CheckOpenMPLoop(
4665 OMPD_for, getCollapseNumberExpr(Clauses), getOrderedNumberExpr(Clauses),
4666 AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
, VarsWithImplicitDSA, B);
4667 if (NestedLoopCount == 0)
4668 return StmtError();
4669
4670 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4671, __PRETTY_FUNCTION__))
4671 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4671, __PRETTY_FUNCTION__))
;
4672
4673 if (!CurContext->isDependentContext()) {
4674 // Finalize the clauses that need pre-built expressions for CodeGen.
4675 for (auto C : Clauses) {
4676 if (auto *LC = dyn_cast<OMPLinearClause>(C))
4677 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
4678 B.NumIterations, *this, CurScope,
4679 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
4680 return StmtError();
4681 }
4682 }
4683
4684 getCurFunction()->setHasBranchProtectedScope();
4685 return OMPForDirective::Create(Context, StartLoc, EndLoc, NestedLoopCount,
4686 Clauses, AStmt, B, DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
4687}
4688
4689StmtResult Sema::ActOnOpenMPForSimdDirective(
4690 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
4691 SourceLocation EndLoc,
4692 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
4693 if (!AStmt)
4694 return StmtError();
4695
4696 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4696, __PRETTY_FUNCTION__))
;
4697 OMPLoopDirective::HelperExprs B;
4698 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
4699 // define the nested loops number.
4700 unsigned NestedLoopCount =
4701 CheckOpenMPLoop(OMPD_for_simd, getCollapseNumberExpr(Clauses),
4702 getOrderedNumberExpr(Clauses), AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
4703 VarsWithImplicitDSA, B);
4704 if (NestedLoopCount == 0)
4705 return StmtError();
4706
4707 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for simd loop exprs were not built") ? static_cast<void
> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4708, __PRETTY_FUNCTION__))
4708 "omp for simd loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for simd loop exprs were not built") ? static_cast<void
> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4708, __PRETTY_FUNCTION__))
;
4709
4710 if (!CurContext->isDependentContext()) {
4711 // Finalize the clauses that need pre-built expressions for CodeGen.
4712 for (auto C : Clauses) {
4713 if (auto *LC = dyn_cast<OMPLinearClause>(C))
4714 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
4715 B.NumIterations, *this, CurScope,
4716 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
4717 return StmtError();
4718 }
4719 }
4720
4721 if (checkSimdlenSafelenSpecified(*this, Clauses))
4722 return StmtError();
4723
4724 getCurFunction()->setHasBranchProtectedScope();
4725 return OMPForSimdDirective::Create(Context, StartLoc, EndLoc, NestedLoopCount,
4726 Clauses, AStmt, B);
4727}
4728
4729StmtResult Sema::ActOnOpenMPSectionsDirective(ArrayRef<OMPClause *> Clauses,
4730 Stmt *AStmt,
4731 SourceLocation StartLoc,
4732 SourceLocation EndLoc) {
4733 if (!AStmt)
4734 return StmtError();
4735
4736 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4736, __PRETTY_FUNCTION__))
;
4737 auto BaseStmt = AStmt;
4738 while (auto *CS = dyn_cast_or_null<CapturedStmt>(BaseStmt))
4739 BaseStmt = CS->getCapturedStmt();
4740 if (auto *C = dyn_cast_or_null<CompoundStmt>(BaseStmt)) {
4741 auto S = C->children();
4742 if (S.begin() == S.end())
4743 return StmtError();
4744 // All associated statements must be '#pragma omp section' except for
4745 // the first one.
4746 for (Stmt *SectionStmt : llvm::make_range(std::next(S.begin()), S.end())) {
4747 if (!SectionStmt || !isa<OMPSectionDirective>(SectionStmt)) {
4748 if (SectionStmt)
4749 Diag(SectionStmt->getLocStart(),
4750 diag::err_omp_sections_substmt_not_section);
4751 return StmtError();
4752 }
4753 cast<OMPSectionDirective>(SectionStmt)
4754 ->setHasCancel(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
4755 }
4756 } else {
4757 Diag(AStmt->getLocStart(), diag::err_omp_sections_not_compound_stmt);
4758 return StmtError();
4759 }
4760
4761 getCurFunction()->setHasBranchProtectedScope();
4762
4763 return OMPSectionsDirective::Create(Context, StartLoc, EndLoc, Clauses, AStmt,
4764 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
4765}
4766
4767StmtResult Sema::ActOnOpenMPSectionDirective(Stmt *AStmt,
4768 SourceLocation StartLoc,
4769 SourceLocation EndLoc) {
4770 if (!AStmt)
4771 return StmtError();
4772
4773 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4773, __PRETTY_FUNCTION__))
;
4774
4775 getCurFunction()->setHasBranchProtectedScope();
4776 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setParentCancelRegion(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
4777
4778 return OMPSectionDirective::Create(Context, StartLoc, EndLoc, AStmt,
4779 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
4780}
4781
4782StmtResult Sema::ActOnOpenMPSingleDirective(ArrayRef<OMPClause *> Clauses,
4783 Stmt *AStmt,
4784 SourceLocation StartLoc,
4785 SourceLocation EndLoc) {
4786 if (!AStmt)
4787 return StmtError();
4788
4789 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4789, __PRETTY_FUNCTION__))
;
4790
4791 getCurFunction()->setHasBranchProtectedScope();
4792
4793 // OpenMP [2.7.3, single Construct, Restrictions]
4794 // The copyprivate clause must not be used with the nowait clause.
4795 OMPClause *Nowait = nullptr;
4796 OMPClause *Copyprivate = nullptr;
4797 for (auto *Clause : Clauses) {
4798 if (Clause->getClauseKind() == OMPC_nowait)
4799 Nowait = Clause;
4800 else if (Clause->getClauseKind() == OMPC_copyprivate)
4801 Copyprivate = Clause;
4802 if (Copyprivate && Nowait) {
4803 Diag(Copyprivate->getLocStart(),
4804 diag::err_omp_single_copyprivate_with_nowait);
4805 Diag(Nowait->getLocStart(), diag::note_omp_nowait_clause_here);
4806 return StmtError();
4807 }
4808 }
4809
4810 return OMPSingleDirective::Create(Context, StartLoc, EndLoc, Clauses, AStmt);
4811}
4812
4813StmtResult Sema::ActOnOpenMPMasterDirective(Stmt *AStmt,
4814 SourceLocation StartLoc,
4815 SourceLocation EndLoc) {
4816 if (!AStmt)
4817 return StmtError();
4818
4819 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4819, __PRETTY_FUNCTION__))
;
4820
4821 getCurFunction()->setHasBranchProtectedScope();
4822
4823 return OMPMasterDirective::Create(Context, StartLoc, EndLoc, AStmt);
4824}
4825
4826StmtResult Sema::ActOnOpenMPCriticalDirective(
4827 const DeclarationNameInfo &DirName, ArrayRef<OMPClause *> Clauses,
4828 Stmt *AStmt, SourceLocation StartLoc, SourceLocation EndLoc) {
4829 if (!AStmt)
4830 return StmtError();
4831
4832 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4832, __PRETTY_FUNCTION__))
;
4833
4834 bool ErrorFound = false;
4835 llvm::APSInt Hint;
4836 SourceLocation HintLoc;
4837 bool DependentHint = false;
4838 for (auto *C : Clauses) {
4839 if (C->getClauseKind() == OMPC_hint) {
4840 if (!DirName.getName()) {
4841 Diag(C->getLocStart(), diag::err_omp_hint_clause_no_name);
4842 ErrorFound = true;
4843 }
4844 Expr *E = cast<OMPHintClause>(C)->getHint();
4845 if (E->isTypeDependent() || E->isValueDependent() ||
4846 E->isInstantiationDependent())
4847 DependentHint = true;
4848 else {
4849 Hint = E->EvaluateKnownConstInt(Context);
4850 HintLoc = C->getLocStart();
4851 }
4852 }
4853 }
4854 if (ErrorFound)
4855 return StmtError();
4856 auto Pair = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCriticalWithHint(DirName);
4857 if (Pair.first && DirName.getName() && !DependentHint) {
4858 if (llvm::APSInt::compareValues(Hint, Pair.second) != 0) {
4859 Diag(StartLoc, diag::err_omp_critical_with_hint);
4860 if (HintLoc.isValid()) {
4861 Diag(HintLoc, diag::note_omp_critical_hint_here)
4862 << 0 << Hint.toString(/*Radix=*/10, /*Signed=*/false);
4863 } else
4864 Diag(StartLoc, diag::note_omp_critical_no_hint) << 0;
4865 if (auto *C = Pair.first->getSingleClause<OMPHintClause>()) {
4866 Diag(C->getLocStart(), diag::note_omp_critical_hint_here)
4867 << 1
4868 << C->getHint()->EvaluateKnownConstInt(Context).toString(
4869 /*Radix=*/10, /*Signed=*/false);
4870 } else
4871 Diag(Pair.first->getLocStart(), diag::note_omp_critical_no_hint) << 1;
4872 }
4873 }
4874
4875 getCurFunction()->setHasBranchProtectedScope();
4876
4877 auto *Dir = OMPCriticalDirective::Create(Context, DirName, StartLoc, EndLoc,
4878 Clauses, AStmt);
4879 if (!Pair.first && DirName.getName() && !DependentHint)
4880 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->addCriticalWithHint(Dir, Hint);
4881 return Dir;
4882}
4883
4884StmtResult Sema::ActOnOpenMPParallelForDirective(
4885 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
4886 SourceLocation EndLoc,
4887 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
4888 if (!AStmt)
4889 return StmtError();
4890
4891 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
4892 // 1.2.2 OpenMP Language Terminology
4893 // Structured block - An executable statement with a single entry at the
4894 // top and a single exit at the bottom.
4895 // The point of exit cannot be a branch out of the structured block.
4896 // longjmp() and throw() must not violate the entry/exit criteria.
4897 CS->getCapturedDecl()->setNothrow();
4898
4899 OMPLoopDirective::HelperExprs B;
4900 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
4901 // define the nested loops number.
4902 unsigned NestedLoopCount =
4903 CheckOpenMPLoop(OMPD_parallel_for, getCollapseNumberExpr(Clauses),
4904 getOrderedNumberExpr(Clauses), AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
4905 VarsWithImplicitDSA, B);
4906 if (NestedLoopCount == 0)
4907 return StmtError();
4908
4909 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp parallel for loop exprs were not built") ? static_cast<
void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp parallel for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4910, __PRETTY_FUNCTION__))
4910 "omp parallel for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp parallel for loop exprs were not built") ? static_cast<
void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp parallel for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4910, __PRETTY_FUNCTION__))
;
4911
4912 if (!CurContext->isDependentContext()) {
4913 // Finalize the clauses that need pre-built expressions for CodeGen.
4914 for (auto C : Clauses) {
4915 if (auto *LC = dyn_cast<OMPLinearClause>(C))
4916 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
4917 B.NumIterations, *this, CurScope,
4918 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
4919 return StmtError();
4920 }
4921 }
4922
4923 getCurFunction()->setHasBranchProtectedScope();
4924 return OMPParallelForDirective::Create(Context, StartLoc, EndLoc,
4925 NestedLoopCount, Clauses, AStmt, B,
4926 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
4927}
4928
4929StmtResult Sema::ActOnOpenMPParallelForSimdDirective(
4930 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
4931 SourceLocation EndLoc,
4932 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
4933 if (!AStmt)
4934 return StmtError();
4935
4936 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
4937 // 1.2.2 OpenMP Language Terminology
4938 // Structured block - An executable statement with a single entry at the
4939 // top and a single exit at the bottom.
4940 // The point of exit cannot be a branch out of the structured block.
4941 // longjmp() and throw() must not violate the entry/exit criteria.
4942 CS->getCapturedDecl()->setNothrow();
4943
4944 OMPLoopDirective::HelperExprs B;
4945 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
4946 // define the nested loops number.
4947 unsigned NestedLoopCount =
4948 CheckOpenMPLoop(OMPD_parallel_for_simd, getCollapseNumberExpr(Clauses),
4949 getOrderedNumberExpr(Clauses), AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
4950 VarsWithImplicitDSA, B);
4951 if (NestedLoopCount == 0)
4952 return StmtError();
4953
4954 if (!CurContext->isDependentContext()) {
4955 // Finalize the clauses that need pre-built expressions for CodeGen.
4956 for (auto C : Clauses) {
4957 if (auto *LC = dyn_cast<OMPLinearClause>(C))
4958 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
4959 B.NumIterations, *this, CurScope,
4960 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
4961 return StmtError();
4962 }
4963 }
4964
4965 if (checkSimdlenSafelenSpecified(*this, Clauses))
4966 return StmtError();
4967
4968 getCurFunction()->setHasBranchProtectedScope();
4969 return OMPParallelForSimdDirective::Create(
4970 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
4971}
4972
4973StmtResult
4974Sema::ActOnOpenMPParallelSectionsDirective(ArrayRef<OMPClause *> Clauses,
4975 Stmt *AStmt, SourceLocation StartLoc,
4976 SourceLocation EndLoc) {
4977 if (!AStmt)
4978 return StmtError();
4979
4980 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 4980, __PRETTY_FUNCTION__))
;
4981 auto BaseStmt = AStmt;
4982 while (auto *CS = dyn_cast_or_null<CapturedStmt>(BaseStmt))
4983 BaseStmt = CS->getCapturedStmt();
4984 if (auto *C = dyn_cast_or_null<CompoundStmt>(BaseStmt)) {
4985 auto S = C->children();
4986 if (S.begin() == S.end())
4987 return StmtError();
4988 // All associated statements must be '#pragma omp section' except for
4989 // the first one.
4990 for (Stmt *SectionStmt : llvm::make_range(std::next(S.begin()), S.end())) {
4991 if (!SectionStmt || !isa<OMPSectionDirective>(SectionStmt)) {
4992 if (SectionStmt)
4993 Diag(SectionStmt->getLocStart(),
4994 diag::err_omp_parallel_sections_substmt_not_section);
4995 return StmtError();
4996 }
4997 cast<OMPSectionDirective>(SectionStmt)
4998 ->setHasCancel(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
4999 }
5000 } else {
5001 Diag(AStmt->getLocStart(),
5002 diag::err_omp_parallel_sections_not_compound_stmt);
5003 return StmtError();
5004 }
5005
5006 getCurFunction()->setHasBranchProtectedScope();
5007
5008 return OMPParallelSectionsDirective::Create(
5009 Context, StartLoc, EndLoc, Clauses, AStmt, DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
5010}
5011
5012StmtResult Sema::ActOnOpenMPTaskDirective(ArrayRef<OMPClause *> Clauses,
5013 Stmt *AStmt, SourceLocation StartLoc,
5014 SourceLocation EndLoc) {
5015 if (!AStmt)
5016 return StmtError();
5017
5018 auto *CS = cast<CapturedStmt>(AStmt);
5019 // 1.2.2 OpenMP Language Terminology
5020 // Structured block - An executable statement with a single entry at the
5021 // top and a single exit at the bottom.
5022 // The point of exit cannot be a branch out of the structured block.
5023 // longjmp() and throw() must not violate the entry/exit criteria.
5024 CS->getCapturedDecl()->setNothrow();
5025
5026 getCurFunction()->setHasBranchProtectedScope();
5027
5028 return OMPTaskDirective::Create(Context, StartLoc, EndLoc, Clauses, AStmt,
5029 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
5030}
5031
5032StmtResult Sema::ActOnOpenMPTaskyieldDirective(SourceLocation StartLoc,
5033 SourceLocation EndLoc) {
5034 return OMPTaskyieldDirective::Create(Context, StartLoc, EndLoc);
5035}
5036
5037StmtResult Sema::ActOnOpenMPBarrierDirective(SourceLocation StartLoc,
5038 SourceLocation EndLoc) {
5039 return OMPBarrierDirective::Create(Context, StartLoc, EndLoc);
5040}
5041
5042StmtResult Sema::ActOnOpenMPTaskwaitDirective(SourceLocation StartLoc,
5043 SourceLocation EndLoc) {
5044 return OMPTaskwaitDirective::Create(Context, StartLoc, EndLoc);
5045}
5046
5047StmtResult Sema::ActOnOpenMPTaskgroupDirective(Stmt *AStmt,
5048 SourceLocation StartLoc,
5049 SourceLocation EndLoc) {
5050 if (!AStmt)
5051 return StmtError();
5052
5053 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 5053, __PRETTY_FUNCTION__))
;
5054
5055 getCurFunction()->setHasBranchProtectedScope();
5056
5057 return OMPTaskgroupDirective::Create(Context, StartLoc, EndLoc, AStmt);
5058}
5059
5060StmtResult Sema::ActOnOpenMPFlushDirective(ArrayRef<OMPClause *> Clauses,
5061 SourceLocation StartLoc,
5062 SourceLocation EndLoc) {
5063 assert(Clauses.size() <= 1 && "Extra clauses in flush directive")((Clauses.size() <= 1 && "Extra clauses in flush directive"
) ? static_cast<void> (0) : __assert_fail ("Clauses.size() <= 1 && \"Extra clauses in flush directive\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 5063, __PRETTY_FUNCTION__))
;
5064 return OMPFlushDirective::Create(Context, StartLoc, EndLoc, Clauses);
5065}
5066
5067StmtResult Sema::ActOnOpenMPOrderedDirective(ArrayRef<OMPClause *> Clauses,
5068 Stmt *AStmt,
5069 SourceLocation StartLoc,
5070 SourceLocation EndLoc) {
5071 OMPClause *DependFound = nullptr;
5072 OMPClause *DependSourceClause = nullptr;
5073 OMPClause *DependSinkClause = nullptr;
5074 bool ErrorFound = false;
5075 OMPThreadsClause *TC = nullptr;
5076 OMPSIMDClause *SC = nullptr;
5077 for (auto *C : Clauses) {
5078 if (auto *DC = dyn_cast<OMPDependClause>(C)) {
5079 DependFound = C;
5080 if (DC->getDependencyKind() == OMPC_DEPEND_source) {
5081 if (DependSourceClause) {
5082 Diag(C->getLocStart(), diag::err_omp_more_one_clause)
5083 << getOpenMPDirectiveName(OMPD_ordered)
5084 << getOpenMPClauseName(OMPC_depend) << 2;
5085 ErrorFound = true;
5086 } else
5087 DependSourceClause = C;
5088 if (DependSinkClause) {
5089 Diag(C->getLocStart(), diag::err_omp_depend_sink_source_not_allowed)
5090 << 0;
5091 ErrorFound = true;
5092 }
5093 } else if (DC->getDependencyKind() == OMPC_DEPEND_sink) {
5094 if (DependSourceClause) {
5095 Diag(C->getLocStart(), diag::err_omp_depend_sink_source_not_allowed)
5096 << 1;
5097 ErrorFound = true;
5098 }
5099 DependSinkClause = C;
5100 }
5101 } else if (C->getClauseKind() == OMPC_threads)
5102 TC = cast<OMPThreadsClause>(C);
5103 else if (C->getClauseKind() == OMPC_simd)
5104 SC = cast<OMPSIMDClause>(C);
5105 }
5106 if (!ErrorFound && !SC &&
5107 isOpenMPSimdDirective(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getParentDirective())) {
5108 // OpenMP [2.8.1,simd Construct, Restrictions]
5109 // An ordered construct with the simd clause is the only OpenMP construct
5110 // that can appear in the simd region.
5111 Diag(StartLoc, diag::err_omp_prohibited_region_simd);
5112 ErrorFound = true;
5113 } else if (DependFound && (TC || SC)) {
5114 Diag(DependFound->getLocStart(), diag::err_omp_depend_clause_thread_simd)
5115 << getOpenMPClauseName(TC ? TC->getClauseKind() : SC->getClauseKind());
5116 ErrorFound = true;
5117 } else if (DependFound && !DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getParentOrderedRegionParam()) {
5118 Diag(DependFound->getLocStart(),
5119 diag::err_omp_ordered_directive_without_param);
5120 ErrorFound = true;
5121 } else if (TC || Clauses.empty()) {
5122 if (auto *Param = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getParentOrderedRegionParam()) {
5123 SourceLocation ErrLoc = TC ? TC->getLocStart() : StartLoc;
5124 Diag(ErrLoc, diag::err_omp_ordered_directive_with_param)
5125 << (TC != nullptr);
5126 Diag(Param->getLocStart(), diag::note_omp_ordered_param);
5127 ErrorFound = true;
5128 }
5129 }
5130 if ((!AStmt && !DependFound) || ErrorFound)
5131 return StmtError();
5132
5133 if (AStmt) {
5134 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 5134, __PRETTY_FUNCTION__))
;
5135
5136 getCurFunction()->setHasBranchProtectedScope();
5137 }
5138
5139 return OMPOrderedDirective::Create(Context, StartLoc, EndLoc, Clauses, AStmt);
5140}
5141
5142namespace {
5143/// \brief Helper class for checking expression in 'omp atomic [update]'
5144/// construct.
5145class OpenMPAtomicUpdateChecker {
5146 /// \brief Error results for atomic update expressions.
5147 enum ExprAnalysisErrorCode {
5148 /// \brief A statement is not an expression statement.
5149 NotAnExpression,
5150 /// \brief Expression is not builtin binary or unary operation.
5151 NotABinaryOrUnaryExpression,
5152 /// \brief Unary operation is not post-/pre- increment/decrement operation.
5153 NotAnUnaryIncDecExpression,
5154 /// \brief An expression is not of scalar type.
5155 NotAScalarType,
5156 /// \brief A binary operation is not an assignment operation.
5157 NotAnAssignmentOp,
5158 /// \brief RHS part of the binary operation is not a binary expression.
5159 NotABinaryExpression,
5160 /// \brief RHS part is not additive/multiplicative/shift/biwise binary
5161 /// expression.
5162 NotABinaryOperator,
5163 /// \brief RHS binary operation does not have reference to the updated LHS
5164 /// part.
5165 NotAnUpdateExpression,
5166 /// \brief No errors is found.
5167 NoError
5168 };
5169 /// \brief Reference to Sema.
5170 Sema &SemaRef;
5171 /// \brief A location for note diagnostics (when error is found).
5172 SourceLocation NoteLoc;
5173 /// \brief 'x' lvalue part of the source atomic expression.
5174 Expr *X;
5175 /// \brief 'expr' rvalue part of the source atomic expression.
5176 Expr *E;
5177 /// \brief Helper expression of the form
5178 /// 'OpaqueValueExpr(x) binop OpaqueValueExpr(expr)' or
5179 /// 'OpaqueValueExpr(expr) binop OpaqueValueExpr(x)'.
5180 Expr *UpdateExpr;
5181 /// \brief Is 'x' a LHS in a RHS part of full update expression. It is
5182 /// important for non-associative operations.
5183 bool IsXLHSInRHSPart;
5184 BinaryOperatorKind Op;
5185 SourceLocation OpLoc;
5186 /// \brief true if the source expression is a postfix unary operation, false
5187 /// if it is a prefix unary operation.
5188 bool IsPostfixUpdate;
5189
5190public:
5191 OpenMPAtomicUpdateChecker(Sema &SemaRef)
5192 : SemaRef(SemaRef), X(nullptr), E(nullptr), UpdateExpr(nullptr),
5193 IsXLHSInRHSPart(false), Op(BO_PtrMemD), IsPostfixUpdate(false) {}
5194 /// \brief Check specified statement that it is suitable for 'atomic update'
5195 /// constructs and extract 'x', 'expr' and Operation from the original
5196 /// expression. If DiagId and NoteId == 0, then only check is performed
5197 /// without error notification.
5198 /// \param DiagId Diagnostic which should be emitted if error is found.
5199 /// \param NoteId Diagnostic note for the main error message.
5200 /// \return true if statement is not an update expression, false otherwise.
5201 bool checkStatement(Stmt *S, unsigned DiagId = 0, unsigned NoteId = 0);
5202 /// \brief Return the 'x' lvalue part of the source atomic expression.
5203 Expr *getX() const { return X; }
5204 /// \brief Return the 'expr' rvalue part of the source atomic expression.
5205 Expr *getExpr() const { return E; }
5206 /// \brief Return the update expression used in calculation of the updated
5207 /// value. Always has form 'OpaqueValueExpr(x) binop OpaqueValueExpr(expr)' or
5208 /// 'OpaqueValueExpr(expr) binop OpaqueValueExpr(x)'.
5209 Expr *getUpdateExpr() const { return UpdateExpr; }
5210 /// \brief Return true if 'x' is LHS in RHS part of full update expression,
5211 /// false otherwise.
5212 bool isXLHSInRHSPart() const { return IsXLHSInRHSPart; }
5213
5214 /// \brief true if the source expression is a postfix unary operation, false
5215 /// if it is a prefix unary operation.
5216 bool isPostfixUpdate() const { return IsPostfixUpdate; }
5217
5218private:
5219 bool checkBinaryOperation(BinaryOperator *AtomicBinOp, unsigned DiagId = 0,
5220 unsigned NoteId = 0);
5221};
5222} // namespace
5223
5224bool OpenMPAtomicUpdateChecker::checkBinaryOperation(
5225 BinaryOperator *AtomicBinOp, unsigned DiagId, unsigned NoteId) {
5226 ExprAnalysisErrorCode ErrorFound = NoError;
5227 SourceLocation ErrorLoc, NoteLoc;
5228 SourceRange ErrorRange, NoteRange;
5229 // Allowed constructs are:
5230 // x = x binop expr;
5231 // x = expr binop x;
5232 if (AtomicBinOp->getOpcode() == BO_Assign) {
5233 X = AtomicBinOp->getLHS();
5234 if (auto *AtomicInnerBinOp = dyn_cast<BinaryOperator>(
5235 AtomicBinOp->getRHS()->IgnoreParenImpCasts())) {
5236 if (AtomicInnerBinOp->isMultiplicativeOp() ||
5237 AtomicInnerBinOp->isAdditiveOp() || AtomicInnerBinOp->isShiftOp() ||
5238 AtomicInnerBinOp->isBitwiseOp()) {
5239 Op = AtomicInnerBinOp->getOpcode();
5240 OpLoc = AtomicInnerBinOp->getOperatorLoc();
5241 auto *LHS = AtomicInnerBinOp->getLHS();
5242 auto *RHS = AtomicInnerBinOp->getRHS();
5243 llvm::FoldingSetNodeID XId, LHSId, RHSId;
5244 X->IgnoreParenImpCasts()->Profile(XId, SemaRef.getASTContext(),
5245 /*Canonical=*/true);
5246 LHS->IgnoreParenImpCasts()->Profile(LHSId, SemaRef.getASTContext(),
5247 /*Canonical=*/true);
5248 RHS->IgnoreParenImpCasts()->Profile(RHSId, SemaRef.getASTContext(),
5249 /*Canonical=*/true);
5250 if (XId == LHSId) {
5251 E = RHS;
5252 IsXLHSInRHSPart = true;
5253 } else if (XId == RHSId) {
5254 E = LHS;
5255 IsXLHSInRHSPart = false;
5256 } else {
5257 ErrorLoc = AtomicInnerBinOp->getExprLoc();
5258 ErrorRange = AtomicInnerBinOp->getSourceRange();
5259 NoteLoc = X->getExprLoc();
5260 NoteRange = X->getSourceRange();
5261 ErrorFound = NotAnUpdateExpression;
5262 }
5263 } else {
5264 ErrorLoc = AtomicInnerBinOp->getExprLoc();
5265 ErrorRange = AtomicInnerBinOp->getSourceRange();
5266 NoteLoc = AtomicInnerBinOp->getOperatorLoc();
5267 NoteRange = SourceRange(NoteLoc, NoteLoc);
5268 ErrorFound = NotABinaryOperator;
5269 }
5270 } else {
5271 NoteLoc = ErrorLoc = AtomicBinOp->getRHS()->getExprLoc();
5272 NoteRange = ErrorRange = AtomicBinOp->getRHS()->getSourceRange();
5273 ErrorFound = NotABinaryExpression;
5274 }
5275 } else {
5276 ErrorLoc = AtomicBinOp->getExprLoc();
5277 ErrorRange = AtomicBinOp->getSourceRange();
5278 NoteLoc = AtomicBinOp->getOperatorLoc();
5279 NoteRange = SourceRange(NoteLoc, NoteLoc);
5280 ErrorFound = NotAnAssignmentOp;
5281 }
5282 if (ErrorFound != NoError && DiagId != 0 && NoteId != 0) {
5283 SemaRef.Diag(ErrorLoc, DiagId) << ErrorRange;
5284 SemaRef.Diag(NoteLoc, NoteId) << ErrorFound << NoteRange;
5285 return true;
5286 } else if (SemaRef.CurContext->isDependentContext())
5287 E = X = UpdateExpr = nullptr;
5288 return ErrorFound != NoError;
5289}
5290
5291bool OpenMPAtomicUpdateChecker::checkStatement(Stmt *S, unsigned DiagId,
5292 unsigned NoteId) {
5293 ExprAnalysisErrorCode ErrorFound = NoError;
5294 SourceLocation ErrorLoc, NoteLoc;
5295 SourceRange ErrorRange, NoteRange;
5296 // Allowed constructs are:
5297 // x++;
5298 // x--;
5299 // ++x;
5300 // --x;
5301 // x binop= expr;
5302 // x = x binop expr;
5303 // x = expr binop x;
5304 if (auto *AtomicBody = dyn_cast<Expr>(S)) {
5305 AtomicBody = AtomicBody->IgnoreParenImpCasts();
5306 if (AtomicBody->getType()->isScalarType() ||
5307 AtomicBody->isInstantiationDependent()) {
5308 if (auto *AtomicCompAssignOp = dyn_cast<CompoundAssignOperator>(
5309 AtomicBody->IgnoreParenImpCasts())) {
5310 // Check for Compound Assignment Operation
5311 Op = BinaryOperator::getOpForCompoundAssignment(
5312 AtomicCompAssignOp->getOpcode());
5313 OpLoc = AtomicCompAssignOp->getOperatorLoc();
5314 E = AtomicCompAssignOp->getRHS();
5315 X = AtomicCompAssignOp->getLHS()->IgnoreParens();
5316 IsXLHSInRHSPart = true;
5317 } else if (auto *AtomicBinOp = dyn_cast<BinaryOperator>(
5318 AtomicBody->IgnoreParenImpCasts())) {
5319 // Check for Binary Operation
5320 if (checkBinaryOperation(AtomicBinOp, DiagId, NoteId))
5321 return true;
5322 } else if (auto *AtomicUnaryOp = dyn_cast<UnaryOperator>(
5323 AtomicBody->IgnoreParenImpCasts())) {
5324 // Check for Unary Operation
5325 if (AtomicUnaryOp->isIncrementDecrementOp()) {
5326 IsPostfixUpdate = AtomicUnaryOp->isPostfix();
5327 Op = AtomicUnaryOp->isIncrementOp() ? BO_Add : BO_Sub;
5328 OpLoc = AtomicUnaryOp->getOperatorLoc();
5329 X = AtomicUnaryOp->getSubExpr()->IgnoreParens();
5330 E = SemaRef.ActOnIntegerConstant(OpLoc, /*uint64_t Val=*/1).get();
5331 IsXLHSInRHSPart = true;
5332 } else {
5333 ErrorFound = NotAnUnaryIncDecExpression;
5334 ErrorLoc = AtomicUnaryOp->getExprLoc();
5335 ErrorRange = AtomicUnaryOp->getSourceRange();
5336 NoteLoc = AtomicUnaryOp->getOperatorLoc();
5337 NoteRange = SourceRange(NoteLoc, NoteLoc);
5338 }
5339 } else if (!AtomicBody->isInstantiationDependent()) {
5340 ErrorFound = NotABinaryOrUnaryExpression;
5341 NoteLoc = ErrorLoc = AtomicBody->getExprLoc();
5342 NoteRange = ErrorRange = AtomicBody->getSourceRange();
5343 }
5344 } else {
5345 ErrorFound = NotAScalarType;
5346 NoteLoc = ErrorLoc = AtomicBody->getLocStart();
5347 NoteRange = ErrorRange = SourceRange(NoteLoc, NoteLoc);
5348 }
5349 } else {
5350 ErrorFound = NotAnExpression;
5351 NoteLoc = ErrorLoc = S->getLocStart();
5352 NoteRange = ErrorRange = SourceRange(NoteLoc, NoteLoc);
5353 }
5354 if (ErrorFound != NoError && DiagId != 0 && NoteId != 0) {
5355 SemaRef.Diag(ErrorLoc, DiagId) << ErrorRange;
5356 SemaRef.Diag(NoteLoc, NoteId) << ErrorFound << NoteRange;
5357 return true;
5358 } else if (SemaRef.CurContext->isDependentContext())
5359 E = X = UpdateExpr = nullptr;
5360 if (ErrorFound == NoError && E && X) {
5361 // Build an update expression of form 'OpaqueValueExpr(x) binop
5362 // OpaqueValueExpr(expr)' or 'OpaqueValueExpr(expr) binop
5363 // OpaqueValueExpr(x)' and then cast it to the type of the 'x' expression.
5364 auto *OVEX = new (SemaRef.getASTContext())
5365 OpaqueValueExpr(X->getExprLoc(), X->getType(), VK_RValue);
5366 auto *OVEExpr = new (SemaRef.getASTContext())
5367 OpaqueValueExpr(E->getExprLoc(), E->getType(), VK_RValue);
5368 auto Update =
5369 SemaRef.CreateBuiltinBinOp(OpLoc, Op, IsXLHSInRHSPart ? OVEX : OVEExpr,
5370 IsXLHSInRHSPart ? OVEExpr : OVEX);
5371 if (Update.isInvalid())
5372 return true;
5373 Update = SemaRef.PerformImplicitConversion(Update.get(), X->getType(),
5374 Sema::AA_Casting);
5375 if (Update.isInvalid())
5376 return true;
5377 UpdateExpr = Update.get();
5378 }
5379 return ErrorFound != NoError;
5380}
5381
5382StmtResult Sema::ActOnOpenMPAtomicDirective(ArrayRef<OMPClause *> Clauses,
5383 Stmt *AStmt,
5384 SourceLocation StartLoc,
5385 SourceLocation EndLoc) {
5386 if (!AStmt)
5387 return StmtError();
5388
5389 auto *CS = cast<CapturedStmt>(AStmt);
5390 // 1.2.2 OpenMP Language Terminology
5391 // Structured block - An executable statement with a single entry at the
5392 // top and a single exit at the bottom.
5393 // The point of exit cannot be a branch out of the structured block.
5394 // longjmp() and throw() must not violate the entry/exit criteria.
5395 OpenMPClauseKind AtomicKind = OMPC_unknown;
5396 SourceLocation AtomicKindLoc;
5397 for (auto *C : Clauses) {
5398 if (C->getClauseKind() == OMPC_read || C->getClauseKind() == OMPC_write ||
5399 C->getClauseKind() == OMPC_update ||
5400 C->getClauseKind() == OMPC_capture) {
5401 if (AtomicKind != OMPC_unknown) {
5402 Diag(C->getLocStart(), diag::err_omp_atomic_several_clauses)
5403 << SourceRange(C->getLocStart(), C->getLocEnd());
5404 Diag(AtomicKindLoc, diag::note_omp_atomic_previous_clause)
5405 << getOpenMPClauseName(AtomicKind);
5406 } else {
5407 AtomicKind = C->getClauseKind();
5408 AtomicKindLoc = C->getLocStart();
5409 }
5410 }
5411 }
5412
5413 auto Body = CS->getCapturedStmt();
5414 if (auto *EWC = dyn_cast<ExprWithCleanups>(Body))
5415 Body = EWC->getSubExpr();
5416
5417 Expr *X = nullptr;
5418 Expr *V = nullptr;
5419 Expr *E = nullptr;
5420 Expr *UE = nullptr;
5421 bool IsXLHSInRHSPart = false;
5422 bool IsPostfixUpdate = false;
5423 // OpenMP [2.12.6, atomic Construct]
5424 // In the next expressions:
5425 // * x and v (as applicable) are both l-value expressions with scalar type.
5426 // * During the execution of an atomic region, multiple syntactic
5427 // occurrences of x must designate the same storage location.
5428 // * Neither of v and expr (as applicable) may access the storage location
5429 // designated by x.
5430 // * Neither of x and expr (as applicable) may access the storage location
5431 // designated by v.
5432 // * expr is an expression with scalar type.
5433 // * binop is one of +, *, -, /, &, ^, |, <<, or >>.
5434 // * binop, binop=, ++, and -- are not overloaded operators.
5435 // * The expression x binop expr must be numerically equivalent to x binop
5436 // (expr). This requirement is satisfied if the operators in expr have
5437 // precedence greater than binop, or by using parentheses around expr or
5438 // subexpressions of expr.
5439 // * The expression expr binop x must be numerically equivalent to (expr)
5440 // binop x. This requirement is satisfied if the operators in expr have
5441 // precedence equal to or greater than binop, or by using parentheses around
5442 // expr or subexpressions of expr.
5443 // * For forms that allow multiple occurrences of x, the number of times
5444 // that x is evaluated is unspecified.
5445 if (AtomicKind == OMPC_read) {
5446 enum {
5447 NotAnExpression,
5448 NotAnAssignmentOp,
5449 NotAScalarType,
5450 NotAnLValue,
5451 NoError
5452 } ErrorFound = NoError;
5453 SourceLocation ErrorLoc, NoteLoc;
5454 SourceRange ErrorRange, NoteRange;
5455 // If clause is read:
5456 // v = x;
5457 if (auto *AtomicBody = dyn_cast<Expr>(Body)) {
5458 auto *AtomicBinOp =
5459 dyn_cast<BinaryOperator>(AtomicBody->IgnoreParenImpCasts());
5460 if (AtomicBinOp && AtomicBinOp->getOpcode() == BO_Assign) {
5461 X = AtomicBinOp->getRHS()->IgnoreParenImpCasts();
5462 V = AtomicBinOp->getLHS()->IgnoreParenImpCasts();
5463 if ((X->isInstantiationDependent() || X->getType()->isScalarType()) &&
5464 (V->isInstantiationDependent() || V->getType()->isScalarType())) {
5465 if (!X->isLValue() || !V->isLValue()) {
5466 auto NotLValueExpr = X->isLValue() ? V : X;
5467 ErrorFound = NotAnLValue;
5468 ErrorLoc = AtomicBinOp->getExprLoc();
5469 ErrorRange = AtomicBinOp->getSourceRange();
5470 NoteLoc = NotLValueExpr->getExprLoc();
5471 NoteRange = NotLValueExpr->getSourceRange();
5472 }
5473 } else if (!X->isInstantiationDependent() ||
5474 !V->isInstantiationDependent()) {
5475 auto NotScalarExpr =
5476 (X->isInstantiationDependent() || X->getType()->isScalarType())
5477 ? V
5478 : X;
5479 ErrorFound = NotAScalarType;
5480 ErrorLoc = AtomicBinOp->getExprLoc();
5481 ErrorRange = AtomicBinOp->getSourceRange();
5482 NoteLoc = NotScalarExpr->getExprLoc();
5483 NoteRange = NotScalarExpr->getSourceRange();
5484 }
5485 } else if (!AtomicBody->isInstantiationDependent()) {
5486 ErrorFound = NotAnAssignmentOp;
5487 ErrorLoc = AtomicBody->getExprLoc();
5488 ErrorRange = AtomicBody->getSourceRange();
5489 NoteLoc = AtomicBinOp ? AtomicBinOp->getOperatorLoc()
5490 : AtomicBody->getExprLoc();
5491 NoteRange = AtomicBinOp ? AtomicBinOp->getSourceRange()
5492 : AtomicBody->getSourceRange();
5493 }
5494 } else {
5495 ErrorFound = NotAnExpression;
5496 NoteLoc = ErrorLoc = Body->getLocStart();
5497 NoteRange = ErrorRange = SourceRange(NoteLoc, NoteLoc);
5498 }
5499 if (ErrorFound != NoError) {
5500 Diag(ErrorLoc, diag::err_omp_atomic_read_not_expression_statement)
5501 << ErrorRange;
5502 Diag(NoteLoc, diag::note_omp_atomic_read_write) << ErrorFound
5503 << NoteRange;
5504 return StmtError();
5505 } else if (CurContext->isDependentContext())
5506 V = X = nullptr;
5507 } else if (AtomicKind == OMPC_write) {
5508 enum {
5509 NotAnExpression,
5510 NotAnAssignmentOp,
5511 NotAScalarType,
5512 NotAnLValue,
5513 NoError
5514 } ErrorFound = NoError;
5515 SourceLocation ErrorLoc, NoteLoc;
5516 SourceRange ErrorRange, NoteRange;
5517 // If clause is write:
5518 // x = expr;
5519 if (auto *AtomicBody = dyn_cast<Expr>(Body)) {
5520 auto *AtomicBinOp =
5521 dyn_cast<BinaryOperator>(AtomicBody->IgnoreParenImpCasts());
5522 if (AtomicBinOp && AtomicBinOp->getOpcode() == BO_Assign) {
5523 X = AtomicBinOp->getLHS();
5524 E = AtomicBinOp->getRHS();
5525 if ((X->isInstantiationDependent() || X->getType()->isScalarType()) &&
5526 (E->isInstantiationDependent() || E->getType()->isScalarType())) {
5527 if (!X->isLValue()) {
5528 ErrorFound = NotAnLValue;
5529 ErrorLoc = AtomicBinOp->getExprLoc();
5530 ErrorRange = AtomicBinOp->getSourceRange();
5531 NoteLoc = X->getExprLoc();
5532 NoteRange = X->getSourceRange();
5533 }
5534 } else if (!X->isInstantiationDependent() ||
5535 !E->isInstantiationDependent()) {
5536 auto NotScalarExpr =
5537 (X->isInstantiationDependent() || X->getType()->isScalarType())
5538 ? E
5539 : X;
5540 ErrorFound = NotAScalarType;
5541 ErrorLoc = AtomicBinOp->getExprLoc();
5542 ErrorRange = AtomicBinOp->getSourceRange();
5543 NoteLoc = NotScalarExpr->getExprLoc();
5544 NoteRange = NotScalarExpr->getSourceRange();
5545 }
5546 } else if (!AtomicBody->isInstantiationDependent()) {
5547 ErrorFound = NotAnAssignmentOp;
5548 ErrorLoc = AtomicBody->getExprLoc();
5549 ErrorRange = AtomicBody->getSourceRange();
5550 NoteLoc = AtomicBinOp ? AtomicBinOp->getOperatorLoc()
5551 : AtomicBody->getExprLoc();
5552 NoteRange = AtomicBinOp ? AtomicBinOp->getSourceRange()
5553 : AtomicBody->getSourceRange();
5554 }
5555 } else {
5556 ErrorFound = NotAnExpression;
5557 NoteLoc = ErrorLoc = Body->getLocStart();
5558 NoteRange = ErrorRange = SourceRange(NoteLoc, NoteLoc);
5559 }
5560 if (ErrorFound != NoError) {
5561 Diag(ErrorLoc, diag::err_omp_atomic_write_not_expression_statement)
5562 << ErrorRange;
5563 Diag(NoteLoc, diag::note_omp_atomic_read_write) << ErrorFound
5564 << NoteRange;
5565 return StmtError();
5566 } else if (CurContext->isDependentContext())
5567 E = X = nullptr;
5568 } else if (AtomicKind == OMPC_update || AtomicKind == OMPC_unknown) {
5569 // If clause is update:
5570 // x++;
5571 // x--;
5572 // ++x;
5573 // --x;
5574 // x binop= expr;
5575 // x = x binop expr;
5576 // x = expr binop x;
5577 OpenMPAtomicUpdateChecker Checker(*this);
5578 if (Checker.checkStatement(
5579 Body, (AtomicKind == OMPC_update)
5580 ? diag::err_omp_atomic_update_not_expression_statement
5581 : diag::err_omp_atomic_not_expression_statement,
5582 diag::note_omp_atomic_update))
5583 return StmtError();
5584 if (!CurContext->isDependentContext()) {
5585 E = Checker.getExpr();
5586 X = Checker.getX();
5587 UE = Checker.getUpdateExpr();
5588 IsXLHSInRHSPart = Checker.isXLHSInRHSPart();
5589 }
5590 } else if (AtomicKind == OMPC_capture) {
5591 enum {
5592 NotAnAssignmentOp,
5593 NotACompoundStatement,
5594 NotTwoSubstatements,
5595 NotASpecificExpression,
5596 NoError
5597 } ErrorFound = NoError;
5598 SourceLocation ErrorLoc, NoteLoc;
5599 SourceRange ErrorRange, NoteRange;
5600 if (auto *AtomicBody = dyn_cast<Expr>(Body)) {
5601 // If clause is a capture:
5602 // v = x++;
5603 // v = x--;
5604 // v = ++x;
5605 // v = --x;
5606 // v = x binop= expr;
5607 // v = x = x binop expr;
5608 // v = x = expr binop x;
5609 auto *AtomicBinOp =
5610 dyn_cast<BinaryOperator>(AtomicBody->IgnoreParenImpCasts());
5611 if (AtomicBinOp && AtomicBinOp->getOpcode() == BO_Assign) {
5612 V = AtomicBinOp->getLHS();
5613 Body = AtomicBinOp->getRHS()->IgnoreParenImpCasts();
5614 OpenMPAtomicUpdateChecker Checker(*this);
5615 if (Checker.checkStatement(
5616 Body, diag::err_omp_atomic_capture_not_expression_statement,
5617 diag::note_omp_atomic_update))
5618 return StmtError();
5619 E = Checker.getExpr();
5620 X = Checker.getX();
5621 UE = Checker.getUpdateExpr();
5622 IsXLHSInRHSPart = Checker.isXLHSInRHSPart();
5623 IsPostfixUpdate = Checker.isPostfixUpdate();
5624 } else if (!AtomicBody->isInstantiationDependent()) {
5625 ErrorLoc = AtomicBody->getExprLoc();
5626 ErrorRange = AtomicBody->getSourceRange();
5627 NoteLoc = AtomicBinOp ? AtomicBinOp->getOperatorLoc()
5628 : AtomicBody->getExprLoc();
5629 NoteRange = AtomicBinOp ? AtomicBinOp->getSourceRange()
5630 : AtomicBody->getSourceRange();
5631 ErrorFound = NotAnAssignmentOp;
5632 }
5633 if (ErrorFound != NoError) {
5634 Diag(ErrorLoc, diag::err_omp_atomic_capture_not_expression_statement)
5635 << ErrorRange;
5636 Diag(NoteLoc, diag::note_omp_atomic_capture) << ErrorFound << NoteRange;
5637 return StmtError();
5638 } else if (CurContext->isDependentContext()) {
5639 UE = V = E = X = nullptr;
5640 }
5641 } else {
5642 // If clause is a capture:
5643 // { v = x; x = expr; }
5644 // { v = x; x++; }
5645 // { v = x; x--; }
5646 // { v = x; ++x; }
5647 // { v = x; --x; }
5648 // { v = x; x binop= expr; }
5649 // { v = x; x = x binop expr; }
5650 // { v = x; x = expr binop x; }
5651 // { x++; v = x; }
5652 // { x--; v = x; }
5653 // { ++x; v = x; }
5654 // { --x; v = x; }
5655 // { x binop= expr; v = x; }
5656 // { x = x binop expr; v = x; }
5657 // { x = expr binop x; v = x; }
5658 if (auto *CS = dyn_cast<CompoundStmt>(Body)) {
5659 // Check that this is { expr1; expr2; }
5660 if (CS->size() == 2) {
5661 auto *First = CS->body_front();
5662 auto *Second = CS->body_back();
5663 if (auto *EWC = dyn_cast<ExprWithCleanups>(First))
5664 First = EWC->getSubExpr()->IgnoreParenImpCasts();
5665 if (auto *EWC = dyn_cast<ExprWithCleanups>(Second))
5666 Second = EWC->getSubExpr()->IgnoreParenImpCasts();
5667 // Need to find what subexpression is 'v' and what is 'x'.
5668 OpenMPAtomicUpdateChecker Checker(*this);
5669 bool IsUpdateExprFound = !Checker.checkStatement(Second);
5670 BinaryOperator *BinOp = nullptr;
5671 if (IsUpdateExprFound) {
5672 BinOp = dyn_cast<BinaryOperator>(First);
5673 IsUpdateExprFound = BinOp && BinOp->getOpcode() == BO_Assign;
5674 }
5675 if (IsUpdateExprFound && !CurContext->isDependentContext()) {
5676 // { v = x; x++; }
5677 // { v = x; x--; }
5678 // { v = x; ++x; }
5679 // { v = x; --x; }
5680 // { v = x; x binop= expr; }
5681 // { v = x; x = x binop expr; }
5682 // { v = x; x = expr binop x; }
5683 // Check that the first expression has form v = x.
5684 auto *PossibleX = BinOp->getRHS()->IgnoreParenImpCasts();
5685 llvm::FoldingSetNodeID XId, PossibleXId;
5686 Checker.getX()->Profile(XId, Context, /*Canonical=*/true);
5687 PossibleX->Profile(PossibleXId, Context, /*Canonical=*/true);
5688 IsUpdateExprFound = XId == PossibleXId;
5689 if (IsUpdateExprFound) {
5690 V = BinOp->getLHS();
5691 X = Checker.getX();
5692 E = Checker.getExpr();
5693 UE = Checker.getUpdateExpr();
5694 IsXLHSInRHSPart = Checker.isXLHSInRHSPart();
5695 IsPostfixUpdate = true;
5696 }
5697 }
5698 if (!IsUpdateExprFound) {
5699 IsUpdateExprFound = !Checker.checkStatement(First);
5700 BinOp = nullptr;
5701 if (IsUpdateExprFound) {
5702 BinOp = dyn_cast<BinaryOperator>(Second);
5703 IsUpdateExprFound = BinOp && BinOp->getOpcode() == BO_Assign;
5704 }
5705 if (IsUpdateExprFound && !CurContext->isDependentContext()) {
5706 // { x++; v = x; }
5707 // { x--; v = x; }
5708 // { ++x; v = x; }
5709 // { --x; v = x; }
5710 // { x binop= expr; v = x; }
5711 // { x = x binop expr; v = x; }
5712 // { x = expr binop x; v = x; }
5713 // Check that the second expression has form v = x.
5714 auto *PossibleX = BinOp->getRHS()->IgnoreParenImpCasts();
5715 llvm::FoldingSetNodeID XId, PossibleXId;
5716 Checker.getX()->Profile(XId, Context, /*Canonical=*/true);
5717 PossibleX->Profile(PossibleXId, Context, /*Canonical=*/true);
5718 IsUpdateExprFound = XId == PossibleXId;
5719 if (IsUpdateExprFound) {
5720 V = BinOp->getLHS();
5721 X = Checker.getX();
5722 E = Checker.getExpr();
5723 UE = Checker.getUpdateExpr();
5724 IsXLHSInRHSPart = Checker.isXLHSInRHSPart();
5725 IsPostfixUpdate = false;
5726 }
5727 }
5728 }
5729 if (!IsUpdateExprFound) {
5730 // { v = x; x = expr; }
5731 auto *FirstExpr = dyn_cast<Expr>(First);
5732 auto *SecondExpr = dyn_cast<Expr>(Second);
5733 if (!FirstExpr || !SecondExpr ||
5734 !(FirstExpr->isInstantiationDependent() ||
5735 SecondExpr->isInstantiationDependent())) {
5736 auto *FirstBinOp = dyn_cast<BinaryOperator>(First);
5737 if (!FirstBinOp || FirstBinOp->getOpcode() != BO_Assign) {
5738 ErrorFound = NotAnAssignmentOp;
5739 NoteLoc = ErrorLoc = FirstBinOp ? FirstBinOp->getOperatorLoc()
5740 : First->getLocStart();
5741 NoteRange = ErrorRange = FirstBinOp
5742 ? FirstBinOp->getSourceRange()
5743 : SourceRange(ErrorLoc, ErrorLoc);
5744 } else {
5745 auto *SecondBinOp = dyn_cast<BinaryOperator>(Second);
5746 if (!SecondBinOp || SecondBinOp->getOpcode() != BO_Assign) {
5747 ErrorFound = NotAnAssignmentOp;
5748 NoteLoc = ErrorLoc = SecondBinOp
5749 ? SecondBinOp->getOperatorLoc()
5750 : Second->getLocStart();
5751 NoteRange = ErrorRange =
5752 SecondBinOp ? SecondBinOp->getSourceRange()
5753 : SourceRange(ErrorLoc, ErrorLoc);
5754 } else {
5755 auto *PossibleXRHSInFirst =
5756 FirstBinOp->getRHS()->IgnoreParenImpCasts();
5757 auto *PossibleXLHSInSecond =
5758 SecondBinOp->getLHS()->IgnoreParenImpCasts();
5759 llvm::FoldingSetNodeID X1Id, X2Id;
5760 PossibleXRHSInFirst->Profile(X1Id, Context,
5761 /*Canonical=*/true);
5762 PossibleXLHSInSecond->Profile(X2Id, Context,
5763 /*Canonical=*/true);
5764 IsUpdateExprFound = X1Id == X2Id;
5765 if (IsUpdateExprFound) {
5766 V = FirstBinOp->getLHS();
5767 X = SecondBinOp->getLHS();
5768 E = SecondBinOp->getRHS();
5769 UE = nullptr;
5770 IsXLHSInRHSPart = false;
5771 IsPostfixUpdate = true;
5772 } else {
5773 ErrorFound = NotASpecificExpression;
5774 ErrorLoc = FirstBinOp->getExprLoc();
5775 ErrorRange = FirstBinOp->getSourceRange();
5776 NoteLoc = SecondBinOp->getLHS()->getExprLoc();
5777 NoteRange = SecondBinOp->getRHS()->getSourceRange();
5778 }
5779 }
5780 }
5781 }
5782 }
5783 } else {
5784 NoteLoc = ErrorLoc = Body->getLocStart();
5785 NoteRange = ErrorRange =
5786 SourceRange(Body->getLocStart(), Body->getLocStart());
5787 ErrorFound = NotTwoSubstatements;
5788 }
5789 } else {
5790 NoteLoc = ErrorLoc = Body->getLocStart();
5791 NoteRange = ErrorRange =
5792 SourceRange(Body->getLocStart(), Body->getLocStart());
5793 ErrorFound = NotACompoundStatement;
5794 }
5795 if (ErrorFound != NoError) {
5796 Diag(ErrorLoc, diag::err_omp_atomic_capture_not_compound_statement)
5797 << ErrorRange;
5798 Diag(NoteLoc, diag::note_omp_atomic_capture) << ErrorFound << NoteRange;
5799 return StmtError();
5800 } else if (CurContext->isDependentContext()) {
5801 UE = V = E = X = nullptr;
5802 }
5803 }
5804 }
5805
5806 getCurFunction()->setHasBranchProtectedScope();
5807
5808 return OMPAtomicDirective::Create(Context, StartLoc, EndLoc, Clauses, AStmt,
5809 X, V, E, UE, IsXLHSInRHSPart,
5810 IsPostfixUpdate);
5811}
5812
5813StmtResult Sema::ActOnOpenMPTargetDirective(ArrayRef<OMPClause *> Clauses,
5814 Stmt *AStmt,
5815 SourceLocation StartLoc,
5816 SourceLocation EndLoc) {
5817 if (!AStmt)
5818 return StmtError();
5819
5820 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
5821 // 1.2.2 OpenMP Language Terminology
5822 // Structured block - An executable statement with a single entry at the
5823 // top and a single exit at the bottom.
5824 // The point of exit cannot be a branch out of the structured block.
5825 // longjmp() and throw() must not violate the entry/exit criteria.
5826 CS->getCapturedDecl()->setNothrow();
5827
5828 // OpenMP [2.16, Nesting of Regions]
5829 // If specified, a teams construct must be contained within a target
5830 // construct. That target construct must contain no statements or directives
5831 // outside of the teams construct.
5832 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->hasInnerTeamsRegion()) {
5833 auto S = AStmt->IgnoreContainers(/*IgnoreCaptured*/ true);
5834 bool OMPTeamsFound = true;
5835 if (auto *CS = dyn_cast<CompoundStmt>(S)) {
5836 auto I = CS->body_begin();
5837 while (I != CS->body_end()) {
5838 auto *OED = dyn_cast<OMPExecutableDirective>(*I);
5839 if (!OED || !isOpenMPTeamsDirective(OED->getDirectiveKind())) {
5840 OMPTeamsFound = false;
5841 break;
5842 }
5843 ++I;
5844 }
5845 assert(I != CS->body_end() && "Not found statement")((I != CS->body_end() && "Not found statement") ? static_cast
<void> (0) : __assert_fail ("I != CS->body_end() && \"Not found statement\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 5845, __PRETTY_FUNCTION__))
;
5846 S = *I;
5847 } else {
5848 auto *OED = dyn_cast<OMPExecutableDirective>(S);
5849 OMPTeamsFound = OED && isOpenMPTeamsDirective(OED->getDirectiveKind());
5850 }
5851 if (!OMPTeamsFound) {
5852 Diag(StartLoc, diag::err_omp_target_contains_not_only_teams);
5853 Diag(DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getInnerTeamsRegionLoc(),
5854 diag::note_omp_nested_teams_construct_here);
5855 Diag(S->getLocStart(), diag::note_omp_nested_statement_here)
5856 << isa<OMPExecutableDirective>(S);
5857 return StmtError();
5858 }
5859 }
5860
5861 getCurFunction()->setHasBranchProtectedScope();
5862
5863 return OMPTargetDirective::Create(Context, StartLoc, EndLoc, Clauses, AStmt);
5864}
5865
5866StmtResult
5867Sema::ActOnOpenMPTargetParallelDirective(ArrayRef<OMPClause *> Clauses,
5868 Stmt *AStmt, SourceLocation StartLoc,
5869 SourceLocation EndLoc) {
5870 if (!AStmt)
5871 return StmtError();
5872
5873 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
5874 // 1.2.2 OpenMP Language Terminology
5875 // Structured block - An executable statement with a single entry at the
5876 // top and a single exit at the bottom.
5877 // The point of exit cannot be a branch out of the structured block.
5878 // longjmp() and throw() must not violate the entry/exit criteria.
5879 CS->getCapturedDecl()->setNothrow();
5880
5881 getCurFunction()->setHasBranchProtectedScope();
5882
5883 return OMPTargetParallelDirective::Create(Context, StartLoc, EndLoc, Clauses,
5884 AStmt);
5885}
5886
5887StmtResult Sema::ActOnOpenMPTargetParallelForDirective(
5888 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
5889 SourceLocation EndLoc,
5890 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
5891 if (!AStmt)
5892 return StmtError();
5893
5894 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
5895 // 1.2.2 OpenMP Language Terminology
5896 // Structured block - An executable statement with a single entry at the
5897 // top and a single exit at the bottom.
5898 // The point of exit cannot be a branch out of the structured block.
5899 // longjmp() and throw() must not violate the entry/exit criteria.
5900 CS->getCapturedDecl()->setNothrow();
5901
5902 OMPLoopDirective::HelperExprs B;
5903 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
5904 // define the nested loops number.
5905 unsigned NestedLoopCount =
5906 CheckOpenMPLoop(OMPD_target_parallel_for, getCollapseNumberExpr(Clauses),
5907 getOrderedNumberExpr(Clauses), AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
5908 VarsWithImplicitDSA, B);
5909 if (NestedLoopCount == 0)
5910 return StmtError();
5911
5912 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target parallel for loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target parallel for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 5913, __PRETTY_FUNCTION__))
5913 "omp target parallel for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target parallel for loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target parallel for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 5913, __PRETTY_FUNCTION__))
;
5914
5915 if (!CurContext->isDependentContext()) {
5916 // Finalize the clauses that need pre-built expressions for CodeGen.
5917 for (auto C : Clauses) {
5918 if (auto *LC = dyn_cast<OMPLinearClause>(C))
5919 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
5920 B.NumIterations, *this, CurScope,
5921 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
5922 return StmtError();
5923 }
5924 }
5925
5926 getCurFunction()->setHasBranchProtectedScope();
5927 return OMPTargetParallelForDirective::Create(Context, StartLoc, EndLoc,
5928 NestedLoopCount, Clauses, AStmt,
5929 B, DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isCancelRegion());
5930}
5931
5932/// \brief Check for existence of a map clause in the list of clauses.
5933static bool HasMapClause(ArrayRef<OMPClause *> Clauses) {
5934 for (ArrayRef<OMPClause *>::iterator I = Clauses.begin(), E = Clauses.end();
5935 I != E; ++I) {
5936 if (*I != nullptr && (*I)->getClauseKind() == OMPC_map) {
5937 return true;
5938 }
5939 }
5940
5941 return false;
5942}
5943
5944StmtResult Sema::ActOnOpenMPTargetDataDirective(ArrayRef<OMPClause *> Clauses,
5945 Stmt *AStmt,
5946 SourceLocation StartLoc,
5947 SourceLocation EndLoc) {
5948 if (!AStmt)
5949 return StmtError();
5950
5951 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 5951, __PRETTY_FUNCTION__))
;
5952
5953 // OpenMP [2.10.1, Restrictions, p. 97]
5954 // At least one map clause must appear on the directive.
5955 if (!HasMapClause(Clauses)) {
5956 Diag(StartLoc, diag::err_omp_no_map_for_directive)
5957 << getOpenMPDirectiveName(OMPD_target_data);
5958 return StmtError();
5959 }
5960
5961 getCurFunction()->setHasBranchProtectedScope();
5962
5963 return OMPTargetDataDirective::Create(Context, StartLoc, EndLoc, Clauses,
5964 AStmt);
5965}
5966
5967StmtResult
5968Sema::ActOnOpenMPTargetEnterDataDirective(ArrayRef<OMPClause *> Clauses,
5969 SourceLocation StartLoc,
5970 SourceLocation EndLoc) {
5971 // OpenMP [2.10.2, Restrictions, p. 99]
5972 // At least one map clause must appear on the directive.
5973 if (!HasMapClause(Clauses)) {
5974 Diag(StartLoc, diag::err_omp_no_map_for_directive)
5975 << getOpenMPDirectiveName(OMPD_target_enter_data);
5976 return StmtError();
5977 }
5978
5979 return OMPTargetEnterDataDirective::Create(Context, StartLoc, EndLoc,
5980 Clauses);
5981}
5982
5983StmtResult
5984Sema::ActOnOpenMPTargetExitDataDirective(ArrayRef<OMPClause *> Clauses,
5985 SourceLocation StartLoc,
5986 SourceLocation EndLoc) {
5987 // OpenMP [2.10.3, Restrictions, p. 102]
5988 // At least one map clause must appear on the directive.
5989 if (!HasMapClause(Clauses)) {
5990 Diag(StartLoc, diag::err_omp_no_map_for_directive)
5991 << getOpenMPDirectiveName(OMPD_target_exit_data);
5992 return StmtError();
5993 }
5994
5995 return OMPTargetExitDataDirective::Create(Context, StartLoc, EndLoc, Clauses);
5996}
5997
5998StmtResult Sema::ActOnOpenMPTargetUpdateDirective(ArrayRef<OMPClause *> Clauses,
5999 SourceLocation StartLoc,
6000 SourceLocation EndLoc) {
6001 bool seenMotionClause = false;
6002 for (auto *C : Clauses) {
6003 if (C->getClauseKind() == OMPC_to || C->getClauseKind() == OMPC_from)
6004 seenMotionClause = true;
6005 }
6006 if (!seenMotionClause) {
6007 Diag(StartLoc, diag::err_omp_at_least_one_motion_clause_required);
6008 return StmtError();
6009 }
6010 return OMPTargetUpdateDirective::Create(Context, StartLoc, EndLoc, Clauses);
6011}
6012
6013StmtResult Sema::ActOnOpenMPTeamsDirective(ArrayRef<OMPClause *> Clauses,
6014 Stmt *AStmt, SourceLocation StartLoc,
6015 SourceLocation EndLoc) {
6016 if (!AStmt)
6017 return StmtError();
6018
6019 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6020 // 1.2.2 OpenMP Language Terminology
6021 // Structured block - An executable statement with a single entry at the
6022 // top and a single exit at the bottom.
6023 // The point of exit cannot be a branch out of the structured block.
6024 // longjmp() and throw() must not violate the entry/exit criteria.
6025 CS->getCapturedDecl()->setNothrow();
6026
6027 getCurFunction()->setHasBranchProtectedScope();
6028
6029 return OMPTeamsDirective::Create(Context, StartLoc, EndLoc, Clauses, AStmt);
6030}
6031
6032StmtResult
6033Sema::ActOnOpenMPCancellationPointDirective(SourceLocation StartLoc,
6034 SourceLocation EndLoc,
6035 OpenMPDirectiveKind CancelRegion) {
6036 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isParentNowaitRegion()) {
6037 Diag(StartLoc, diag::err_omp_parent_cancel_region_nowait) << 0;
6038 return StmtError();
6039 }
6040 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isParentOrderedRegion()) {
6041 Diag(StartLoc, diag::err_omp_parent_cancel_region_ordered) << 0;
6042 return StmtError();
6043 }
6044 return OMPCancellationPointDirective::Create(Context, StartLoc, EndLoc,
6045 CancelRegion);
6046}
6047
6048StmtResult Sema::ActOnOpenMPCancelDirective(ArrayRef<OMPClause *> Clauses,
6049 SourceLocation StartLoc,
6050 SourceLocation EndLoc,
6051 OpenMPDirectiveKind CancelRegion) {
6052 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isParentNowaitRegion()) {
6053 Diag(StartLoc, diag::err_omp_parent_cancel_region_nowait) << 1;
6054 return StmtError();
6055 }
6056 if (DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->isParentOrderedRegion()) {
6057 Diag(StartLoc, diag::err_omp_parent_cancel_region_ordered) << 1;
6058 return StmtError();
6059 }
6060 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setParentCancelRegion(/*Cancel=*/true);
6061 return OMPCancelDirective::Create(Context, StartLoc, EndLoc, Clauses,
6062 CancelRegion);
6063}
6064
6065static bool checkGrainsizeNumTasksClauses(Sema &S,
6066 ArrayRef<OMPClause *> Clauses) {
6067 OMPClause *PrevClause = nullptr;
6068 bool ErrorFound = false;
6069 for (auto *C : Clauses) {
6070 if (C->getClauseKind() == OMPC_grainsize ||
6071 C->getClauseKind() == OMPC_num_tasks) {
6072 if (!PrevClause)
6073 PrevClause = C;
6074 else if (PrevClause->getClauseKind() != C->getClauseKind()) {
6075 S.Diag(C->getLocStart(),
6076 diag::err_omp_grainsize_num_tasks_mutually_exclusive)
6077 << getOpenMPClauseName(C->getClauseKind())
6078 << getOpenMPClauseName(PrevClause->getClauseKind());
6079 S.Diag(PrevClause->getLocStart(),
6080 diag::note_omp_previous_grainsize_num_tasks)
6081 << getOpenMPClauseName(PrevClause->getClauseKind());
6082 ErrorFound = true;
6083 }
6084 }
6085 }
6086 return ErrorFound;
6087}
6088
6089StmtResult Sema::ActOnOpenMPTaskLoopDirective(
6090 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6091 SourceLocation EndLoc,
6092 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6093 if (!AStmt)
6094 return StmtError();
6095
6096 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6096, __PRETTY_FUNCTION__))
;
6097 OMPLoopDirective::HelperExprs B;
6098 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
6099 // define the nested loops number.
6100 unsigned NestedLoopCount =
6101 CheckOpenMPLoop(OMPD_taskloop, getCollapseNumberExpr(Clauses),
6102 /*OrderedLoopCountExpr=*/nullptr, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6103 VarsWithImplicitDSA, B);
6104 if (NestedLoopCount == 0)
6105 return StmtError();
6106
6107 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6108, __PRETTY_FUNCTION__))
6108 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6108, __PRETTY_FUNCTION__))
;
6109
6110 // OpenMP, [2.9.2 taskloop Construct, Restrictions]
6111 // The grainsize clause and num_tasks clause are mutually exclusive and may
6112 // not appear on the same taskloop directive.
6113 if (checkGrainsizeNumTasksClauses(*this, Clauses))
6114 return StmtError();
6115
6116 getCurFunction()->setHasBranchProtectedScope();
6117 return OMPTaskLoopDirective::Create(Context, StartLoc, EndLoc,
6118 NestedLoopCount, Clauses, AStmt, B);
6119}
6120
6121StmtResult Sema::ActOnOpenMPTaskLoopSimdDirective(
6122 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6123 SourceLocation EndLoc,
6124 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6125 if (!AStmt)
6126 return StmtError();
6127
6128 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6128, __PRETTY_FUNCTION__))
;
6129 OMPLoopDirective::HelperExprs B;
6130 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
6131 // define the nested loops number.
6132 unsigned NestedLoopCount =
6133 CheckOpenMPLoop(OMPD_taskloop_simd, getCollapseNumberExpr(Clauses),
6134 /*OrderedLoopCountExpr=*/nullptr, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6135 VarsWithImplicitDSA, B);
6136 if (NestedLoopCount == 0)
6137 return StmtError();
6138
6139 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6140, __PRETTY_FUNCTION__))
6140 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6140, __PRETTY_FUNCTION__))
;
6141
6142 if (!CurContext->isDependentContext()) {
6143 // Finalize the clauses that need pre-built expressions for CodeGen.
6144 for (auto C : Clauses) {
6145 if (auto *LC = dyn_cast<OMPLinearClause>(C))
6146 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
6147 B.NumIterations, *this, CurScope,
6148 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
6149 return StmtError();
6150 }
6151 }
6152
6153 // OpenMP, [2.9.2 taskloop Construct, Restrictions]
6154 // The grainsize clause and num_tasks clause are mutually exclusive and may
6155 // not appear on the same taskloop directive.
6156 if (checkGrainsizeNumTasksClauses(*this, Clauses))
6157 return StmtError();
6158
6159 getCurFunction()->setHasBranchProtectedScope();
6160 return OMPTaskLoopSimdDirective::Create(Context, StartLoc, EndLoc,
6161 NestedLoopCount, Clauses, AStmt, B);
6162}
6163
6164StmtResult Sema::ActOnOpenMPDistributeDirective(
6165 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6166 SourceLocation EndLoc,
6167 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6168 if (!AStmt)
6169 return StmtError();
6170
6171 assert(isa<CapturedStmt>(AStmt) && "Captured statement expected")((isa<CapturedStmt>(AStmt) && "Captured statement expected"
) ? static_cast<void> (0) : __assert_fail ("isa<CapturedStmt>(AStmt) && \"Captured statement expected\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6171, __PRETTY_FUNCTION__))
;
6172 OMPLoopDirective::HelperExprs B;
6173 // In presence of clause 'collapse' with number of loops, it will
6174 // define the nested loops number.
6175 unsigned NestedLoopCount =
6176 CheckOpenMPLoop(OMPD_distribute, getCollapseNumberExpr(Clauses),
6177 nullptr /*ordered not a clause on distribute*/, AStmt,
6178 *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
, VarsWithImplicitDSA, B);
6179 if (NestedLoopCount == 0)
6180 return StmtError();
6181
6182 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6183, __PRETTY_FUNCTION__))
6183 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6183, __PRETTY_FUNCTION__))
;
6184
6185 getCurFunction()->setHasBranchProtectedScope();
6186 return OMPDistributeDirective::Create(Context, StartLoc, EndLoc,
6187 NestedLoopCount, Clauses, AStmt, B);
6188}
6189
6190StmtResult Sema::ActOnOpenMPDistributeParallelForDirective(
6191 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6192 SourceLocation EndLoc,
6193 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6194 if (!AStmt)
6195 return StmtError();
6196
6197 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6198 // 1.2.2 OpenMP Language Terminology
6199 // Structured block - An executable statement with a single entry at the
6200 // top and a single exit at the bottom.
6201 // The point of exit cannot be a branch out of the structured block.
6202 // longjmp() and throw() must not violate the entry/exit criteria.
6203 CS->getCapturedDecl()->setNothrow();
6204
6205 OMPLoopDirective::HelperExprs B;
6206 // In presence of clause 'collapse' with number of loops, it will
6207 // define the nested loops number.
6208 unsigned NestedLoopCount = CheckOpenMPLoop(
6209 OMPD_distribute_parallel_for, getCollapseNumberExpr(Clauses),
6210 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6211 VarsWithImplicitDSA, B);
6212 if (NestedLoopCount == 0)
6213 return StmtError();
6214
6215 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6216, __PRETTY_FUNCTION__))
6216 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6216, __PRETTY_FUNCTION__))
;
6217
6218 getCurFunction()->setHasBranchProtectedScope();
6219 return OMPDistributeParallelForDirective::Create(
6220 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6221}
6222
6223StmtResult Sema::ActOnOpenMPDistributeParallelForSimdDirective(
6224 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6225 SourceLocation EndLoc,
6226 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6227 if (!AStmt)
6228 return StmtError();
6229
6230 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6231 // 1.2.2 OpenMP Language Terminology
6232 // Structured block - An executable statement with a single entry at the
6233 // top and a single exit at the bottom.
6234 // The point of exit cannot be a branch out of the structured block.
6235 // longjmp() and throw() must not violate the entry/exit criteria.
6236 CS->getCapturedDecl()->setNothrow();
6237
6238 OMPLoopDirective::HelperExprs B;
6239 // In presence of clause 'collapse' with number of loops, it will
6240 // define the nested loops number.
6241 unsigned NestedLoopCount = CheckOpenMPLoop(
6242 OMPD_distribute_parallel_for_simd, getCollapseNumberExpr(Clauses),
6243 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6244 VarsWithImplicitDSA, B);
6245 if (NestedLoopCount == 0)
6246 return StmtError();
6247
6248 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6249, __PRETTY_FUNCTION__))
6249 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6249, __PRETTY_FUNCTION__))
;
6250
6251 if (checkSimdlenSafelenSpecified(*this, Clauses))
6252 return StmtError();
6253
6254 getCurFunction()->setHasBranchProtectedScope();
6255 return OMPDistributeParallelForSimdDirective::Create(
6256 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6257}
6258
6259StmtResult Sema::ActOnOpenMPDistributeSimdDirective(
6260 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6261 SourceLocation EndLoc,
6262 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6263 if (!AStmt)
6264 return StmtError();
6265
6266 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6267 // 1.2.2 OpenMP Language Terminology
6268 // Structured block - An executable statement with a single entry at the
6269 // top and a single exit at the bottom.
6270 // The point of exit cannot be a branch out of the structured block.
6271 // longjmp() and throw() must not violate the entry/exit criteria.
6272 CS->getCapturedDecl()->setNothrow();
6273
6274 OMPLoopDirective::HelperExprs B;
6275 // In presence of clause 'collapse' with number of loops, it will
6276 // define the nested loops number.
6277 unsigned NestedLoopCount =
6278 CheckOpenMPLoop(OMPD_distribute_simd, getCollapseNumberExpr(Clauses),
6279 nullptr /*ordered not a clause on distribute*/, AStmt,
6280 *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
, VarsWithImplicitDSA, B);
6281 if (NestedLoopCount == 0)
6282 return StmtError();
6283
6284 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6285, __PRETTY_FUNCTION__))
6285 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6285, __PRETTY_FUNCTION__))
;
6286
6287 if (checkSimdlenSafelenSpecified(*this, Clauses))
6288 return StmtError();
6289
6290 getCurFunction()->setHasBranchProtectedScope();
6291 return OMPDistributeSimdDirective::Create(Context, StartLoc, EndLoc,
6292 NestedLoopCount, Clauses, AStmt, B);
6293}
6294
6295StmtResult Sema::ActOnOpenMPTargetParallelForSimdDirective(
6296 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6297 SourceLocation EndLoc,
6298 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6299 if (!AStmt)
6300 return StmtError();
6301
6302 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6303 // 1.2.2 OpenMP Language Terminology
6304 // Structured block - An executable statement with a single entry at the
6305 // top and a single exit at the bottom.
6306 // The point of exit cannot be a branch out of the structured block.
6307 // longjmp() and throw() must not violate the entry/exit criteria.
6308 CS->getCapturedDecl()->setNothrow();
6309
6310 OMPLoopDirective::HelperExprs B;
6311 // In presence of clause 'collapse' or 'ordered' with number of loops, it will
6312 // define the nested loops number.
6313 unsigned NestedLoopCount = CheckOpenMPLoop(
6314 OMPD_target_parallel_for_simd, getCollapseNumberExpr(Clauses),
6315 getOrderedNumberExpr(Clauses), AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6316 VarsWithImplicitDSA, B);
6317 if (NestedLoopCount == 0)
6318 return StmtError();
6319
6320 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target parallel for simd loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target parallel for simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6321, __PRETTY_FUNCTION__))
6321 "omp target parallel for simd loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target parallel for simd loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target parallel for simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6321, __PRETTY_FUNCTION__))
;
6322
6323 if (!CurContext->isDependentContext()) {
6324 // Finalize the clauses that need pre-built expressions for CodeGen.
6325 for (auto C : Clauses) {
6326 if (auto *LC = dyn_cast<OMPLinearClause>(C))
6327 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
6328 B.NumIterations, *this, CurScope,
6329 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
6330 return StmtError();
6331 }
6332 }
6333 if (checkSimdlenSafelenSpecified(*this, Clauses))
6334 return StmtError();
6335
6336 getCurFunction()->setHasBranchProtectedScope();
6337 return OMPTargetParallelForSimdDirective::Create(
6338 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6339}
6340
6341StmtResult Sema::ActOnOpenMPTargetSimdDirective(
6342 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6343 SourceLocation EndLoc,
6344 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6345 if (!AStmt)
6346 return StmtError();
6347
6348 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6349 // 1.2.2 OpenMP Language Terminology
6350 // Structured block - An executable statement with a single entry at the
6351 // top and a single exit at the bottom.
6352 // The point of exit cannot be a branch out of the structured block.
6353 // longjmp() and throw() must not violate the entry/exit criteria.
6354 CS->getCapturedDecl()->setNothrow();
6355
6356 OMPLoopDirective::HelperExprs B;
6357 // In presence of clause 'collapse' with number of loops, it will define the
6358 // nested loops number.
6359 unsigned NestedLoopCount =
6360 CheckOpenMPLoop(OMPD_target_simd, getCollapseNumberExpr(Clauses),
6361 getOrderedNumberExpr(Clauses), AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6362 VarsWithImplicitDSA, B);
6363 if (NestedLoopCount == 0)
6364 return StmtError();
6365
6366 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target simd loop exprs were not built") ? static_cast<
void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6367, __PRETTY_FUNCTION__))
6367 "omp target simd loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target simd loop exprs were not built") ? static_cast<
void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6367, __PRETTY_FUNCTION__))
;
6368
6369 if (!CurContext->isDependentContext()) {
6370 // Finalize the clauses that need pre-built expressions for CodeGen.
6371 for (auto C : Clauses) {
6372 if (auto *LC = dyn_cast<OMPLinearClause>(C))
6373 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
6374 B.NumIterations, *this, CurScope,
6375 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
6376 return StmtError();
6377 }
6378 }
6379
6380 if (checkSimdlenSafelenSpecified(*this, Clauses))
6381 return StmtError();
6382
6383 getCurFunction()->setHasBranchProtectedScope();
6384 return OMPTargetSimdDirective::Create(Context, StartLoc, EndLoc,
6385 NestedLoopCount, Clauses, AStmt, B);
6386}
6387
6388StmtResult Sema::ActOnOpenMPTeamsDistributeDirective(
6389 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6390 SourceLocation EndLoc,
6391 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6392 if (!AStmt)
6393 return StmtError();
6394
6395 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6396 // 1.2.2 OpenMP Language Terminology
6397 // Structured block - An executable statement with a single entry at the
6398 // top and a single exit at the bottom.
6399 // The point of exit cannot be a branch out of the structured block.
6400 // longjmp() and throw() must not violate the entry/exit criteria.
6401 CS->getCapturedDecl()->setNothrow();
6402
6403 OMPLoopDirective::HelperExprs B;
6404 // In presence of clause 'collapse' with number of loops, it will
6405 // define the nested loops number.
6406 unsigned NestedLoopCount =
6407 CheckOpenMPLoop(OMPD_teams_distribute, getCollapseNumberExpr(Clauses),
6408 nullptr /*ordered not a clause on distribute*/, AStmt,
6409 *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
, VarsWithImplicitDSA, B);
6410 if (NestedLoopCount == 0)
6411 return StmtError();
6412
6413 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp teams distribute loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp teams distribute loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6414, __PRETTY_FUNCTION__))
6414 "omp teams distribute loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp teams distribute loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp teams distribute loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6414, __PRETTY_FUNCTION__))
;
6415
6416 getCurFunction()->setHasBranchProtectedScope();
6417 return OMPTeamsDistributeDirective::Create(
6418 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6419}
6420
6421StmtResult Sema::ActOnOpenMPTeamsDistributeSimdDirective(
6422 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6423 SourceLocation EndLoc,
6424 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6425 if (!AStmt)
6426 return StmtError();
6427
6428 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6429 // 1.2.2 OpenMP Language Terminology
6430 // Structured block - An executable statement with a single entry at the
6431 // top and a single exit at the bottom.
6432 // The point of exit cannot be a branch out of the structured block.
6433 // longjmp() and throw() must not violate the entry/exit criteria.
6434 CS->getCapturedDecl()->setNothrow();
6435
6436 OMPLoopDirective::HelperExprs B;
6437 // In presence of clause 'collapse' with number of loops, it will
6438 // define the nested loops number.
6439 unsigned NestedLoopCount = CheckOpenMPLoop(
6440 OMPD_teams_distribute_simd, getCollapseNumberExpr(Clauses),
6441 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6442 VarsWithImplicitDSA, B);
6443
6444 if (NestedLoopCount == 0)
6445 return StmtError();
6446
6447 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp teams distribute simd loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp teams distribute simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6448, __PRETTY_FUNCTION__))
6448 "omp teams distribute simd loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp teams distribute simd loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp teams distribute simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6448, __PRETTY_FUNCTION__))
;
6449
6450 if (!CurContext->isDependentContext()) {
6451 // Finalize the clauses that need pre-built expressions for CodeGen.
6452 for (auto C : Clauses) {
6453 if (auto *LC = dyn_cast<OMPLinearClause>(C))
6454 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
6455 B.NumIterations, *this, CurScope,
6456 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
6457 return StmtError();
6458 }
6459 }
6460
6461 if (checkSimdlenSafelenSpecified(*this, Clauses))
6462 return StmtError();
6463
6464 getCurFunction()->setHasBranchProtectedScope();
6465 return OMPTeamsDistributeSimdDirective::Create(
6466 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6467}
6468
6469StmtResult Sema::ActOnOpenMPTeamsDistributeParallelForSimdDirective(
6470 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6471 SourceLocation EndLoc,
6472 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6473 if (!AStmt)
6474 return StmtError();
6475
6476 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6477 // 1.2.2 OpenMP Language Terminology
6478 // Structured block - An executable statement with a single entry at the
6479 // top and a single exit at the bottom.
6480 // The point of exit cannot be a branch out of the structured block.
6481 // longjmp() and throw() must not violate the entry/exit criteria.
6482 CS->getCapturedDecl()->setNothrow();
6483
6484 OMPLoopDirective::HelperExprs B;
6485 // In presence of clause 'collapse' with number of loops, it will
6486 // define the nested loops number.
6487 auto NestedLoopCount = CheckOpenMPLoop(
6488 OMPD_teams_distribute_parallel_for_simd, getCollapseNumberExpr(Clauses),
6489 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6490 VarsWithImplicitDSA, B);
6491
6492 if (NestedLoopCount == 0)
6493 return StmtError();
6494
6495 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6496, __PRETTY_FUNCTION__))
6496 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6496, __PRETTY_FUNCTION__))
;
6497
6498 if (!CurContext->isDependentContext()) {
6499 // Finalize the clauses that need pre-built expressions for CodeGen.
6500 for (auto C : Clauses) {
6501 if (auto *LC = dyn_cast<OMPLinearClause>(C))
6502 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
6503 B.NumIterations, *this, CurScope,
6504 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
6505 return StmtError();
6506 }
6507 }
6508
6509 if (checkSimdlenSafelenSpecified(*this, Clauses))
6510 return StmtError();
6511
6512 getCurFunction()->setHasBranchProtectedScope();
6513 return OMPTeamsDistributeParallelForSimdDirective::Create(
6514 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6515}
6516
6517StmtResult Sema::ActOnOpenMPTeamsDistributeParallelForDirective(
6518 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6519 SourceLocation EndLoc,
6520 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6521 if (!AStmt)
6522 return StmtError();
6523
6524 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6525 // 1.2.2 OpenMP Language Terminology
6526 // Structured block - An executable statement with a single entry at the
6527 // top and a single exit at the bottom.
6528 // The point of exit cannot be a branch out of the structured block.
6529 // longjmp() and throw() must not violate the entry/exit criteria.
6530 CS->getCapturedDecl()->setNothrow();
6531
6532 OMPLoopDirective::HelperExprs B;
6533 // In presence of clause 'collapse' with number of loops, it will
6534 // define the nested loops number.
6535 unsigned NestedLoopCount = CheckOpenMPLoop(
6536 OMPD_teams_distribute_parallel_for, getCollapseNumberExpr(Clauses),
6537 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6538 VarsWithImplicitDSA, B);
6539
6540 if (NestedLoopCount == 0)
6541 return StmtError();
6542
6543 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6544, __PRETTY_FUNCTION__))
6544 "omp for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp for loop exprs were not built") ? static_cast<void>
(0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6544, __PRETTY_FUNCTION__))
;
6545
6546 if (!CurContext->isDependentContext()) {
6547 // Finalize the clauses that need pre-built expressions for CodeGen.
6548 for (auto C : Clauses) {
6549 if (auto *LC = dyn_cast<OMPLinearClause>(C))
6550 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
6551 B.NumIterations, *this, CurScope,
6552 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
6553 return StmtError();
6554 }
6555 }
6556
6557 getCurFunction()->setHasBranchProtectedScope();
6558 return OMPTeamsDistributeParallelForDirective::Create(
6559 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6560}
6561
6562StmtResult Sema::ActOnOpenMPTargetTeamsDirective(ArrayRef<OMPClause *> Clauses,
6563 Stmt *AStmt,
6564 SourceLocation StartLoc,
6565 SourceLocation EndLoc) {
6566 if (!AStmt)
6567 return StmtError();
6568
6569 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6570 // 1.2.2 OpenMP Language Terminology
6571 // Structured block - An executable statement with a single entry at the
6572 // top and a single exit at the bottom.
6573 // The point of exit cannot be a branch out of the structured block.
6574 // longjmp() and throw() must not violate the entry/exit criteria.
6575 CS->getCapturedDecl()->setNothrow();
6576
6577 getCurFunction()->setHasBranchProtectedScope();
6578
6579 return OMPTargetTeamsDirective::Create(Context, StartLoc, EndLoc, Clauses,
6580 AStmt);
6581}
6582
6583StmtResult Sema::ActOnOpenMPTargetTeamsDistributeDirective(
6584 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6585 SourceLocation EndLoc,
6586 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6587 if (!AStmt)
6588 return StmtError();
6589
6590 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6591 // 1.2.2 OpenMP Language Terminology
6592 // Structured block - An executable statement with a single entry at the
6593 // top and a single exit at the bottom.
6594 // The point of exit cannot be a branch out of the structured block.
6595 // longjmp() and throw() must not violate the entry/exit criteria.
6596 CS->getCapturedDecl()->setNothrow();
6597
6598 OMPLoopDirective::HelperExprs B;
6599 // In presence of clause 'collapse' with number of loops, it will
6600 // define the nested loops number.
6601 auto NestedLoopCount = CheckOpenMPLoop(
6602 OMPD_target_teams_distribute,
6603 getCollapseNumberExpr(Clauses),
6604 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6605 VarsWithImplicitDSA, B);
6606 if (NestedLoopCount == 0)
6607 return StmtError();
6608
6609 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6610, __PRETTY_FUNCTION__))
6610 "omp target teams distribute loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute loop exprs were not built") ? static_cast
<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6610, __PRETTY_FUNCTION__))
;
6611
6612 getCurFunction()->setHasBranchProtectedScope();
6613 return OMPTargetTeamsDistributeDirective::Create(
6614 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6615}
6616
6617StmtResult Sema::ActOnOpenMPTargetTeamsDistributeParallelForDirective(
6618 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6619 SourceLocation EndLoc,
6620 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6621 if (!AStmt)
6622 return StmtError();
6623
6624 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6625 // 1.2.2 OpenMP Language Terminology
6626 // Structured block - An executable statement with a single entry at the
6627 // top and a single exit at the bottom.
6628 // The point of exit cannot be a branch out of the structured block.
6629 // longjmp() and throw() must not violate the entry/exit criteria.
6630 CS->getCapturedDecl()->setNothrow();
6631
6632 OMPLoopDirective::HelperExprs B;
6633 // In presence of clause 'collapse' with number of loops, it will
6634 // define the nested loops number.
6635 auto NestedLoopCount = CheckOpenMPLoop(
6636 OMPD_target_teams_distribute_parallel_for,
6637 getCollapseNumberExpr(Clauses),
6638 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6639 VarsWithImplicitDSA, B);
6640 if (NestedLoopCount == 0)
6641 return StmtError();
6642
6643 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute parallel for loop exprs were not built"
) ? static_cast<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute parallel for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6644, __PRETTY_FUNCTION__))
6644 "omp target teams distribute parallel for loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute parallel for loop exprs were not built"
) ? static_cast<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute parallel for loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6644, __PRETTY_FUNCTION__))
;
6645
6646 if (!CurContext->isDependentContext()) {
6647 // Finalize the clauses that need pre-built expressions for CodeGen.
6648 for (auto C : Clauses) {
6649 if (auto *LC = dyn_cast<OMPLinearClause>(C))
6650 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
6651 B.NumIterations, *this, CurScope,
6652 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
6653 return StmtError();
6654 }
6655 }
6656
6657 getCurFunction()->setHasBranchProtectedScope();
6658 return OMPTargetTeamsDistributeParallelForDirective::Create(
6659 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6660}
6661
6662StmtResult Sema::ActOnOpenMPTargetTeamsDistributeParallelForSimdDirective(
6663 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6664 SourceLocation EndLoc,
6665 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6666 if (!AStmt)
6667 return StmtError();
6668
6669 CapturedStmt *CS = cast<CapturedStmt>(AStmt);
6670 // 1.2.2 OpenMP Language Terminology
6671 // Structured block - An executable statement with a single entry at the
6672 // top and a single exit at the bottom.
6673 // The point of exit cannot be a branch out of the structured block.
6674 // longjmp() and throw() must not violate the entry/exit criteria.
6675 CS->getCapturedDecl()->setNothrow();
6676
6677 OMPLoopDirective::HelperExprs B;
6678 // In presence of clause 'collapse' with number of loops, it will
6679 // define the nested loops number.
6680 auto NestedLoopCount = CheckOpenMPLoop(
6681 OMPD_target_teams_distribute_parallel_for_simd,
6682 getCollapseNumberExpr(Clauses),
6683 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6684 VarsWithImplicitDSA, B);
6685 if (NestedLoopCount == 0)
6686 return StmtError();
6687
6688 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute parallel for simd loop exprs were not "
"built") ? static_cast<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute parallel for simd loop exprs were not \" \"built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6690, __PRETTY_FUNCTION__))
6689 "omp target teams distribute parallel for simd loop exprs were not "(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute parallel for simd loop exprs were not "
"built") ? static_cast<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute parallel for simd loop exprs were not \" \"built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6690, __PRETTY_FUNCTION__))
6690 "built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute parallel for simd loop exprs were not "
"built") ? static_cast<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute parallel for simd loop exprs were not \" \"built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6690, __PRETTY_FUNCTION__))
;
6691
6692 if (!CurContext->isDependentContext()) {
6693 // Finalize the clauses that need pre-built expressions for CodeGen.
6694 for (auto C : Clauses) {
6695 if (auto *LC = dyn_cast<OMPLinearClause>(C))
6696 if (FinishOpenMPLinearClause(*LC, cast<DeclRefExpr>(B.IterationVarRef),
6697 B.NumIterations, *this, CurScope,
6698 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
))
6699 return StmtError();
6700 }
6701 }
6702
6703 getCurFunction()->setHasBranchProtectedScope();
6704 return OMPTargetTeamsDistributeParallelForSimdDirective::Create(
6705 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6706}
6707
6708StmtResult Sema::ActOnOpenMPTargetTeamsDistributeSimdDirective(
6709 ArrayRef<OMPClause *> Clauses, Stmt *AStmt, SourceLocation StartLoc,
6710 SourceLocation EndLoc,
6711 llvm::DenseMap<ValueDecl *, Expr *> &VarsWithImplicitDSA) {
6712 if (!AStmt)
6713 return StmtError();
6714
6715 auto *CS = cast<CapturedStmt>(AStmt);
6716 // 1.2.2 OpenMP Language Terminology
6717 // Structured block - An executable statement with a single entry at the
6718 // top and a single exit at the bottom.
6719 // The point of exit cannot be a branch out of the structured block.
6720 // longjmp() and throw() must not violate the entry/exit criteria.
6721 CS->getCapturedDecl()->setNothrow();
6722
6723 OMPLoopDirective::HelperExprs B;
6724 // In presence of clause 'collapse' with number of loops, it will
6725 // define the nested loops number.
6726 auto NestedLoopCount = CheckOpenMPLoop(
6727 OMPD_target_teams_distribute_simd, getCollapseNumberExpr(Clauses),
6728 nullptr /*ordered not a clause on distribute*/, AStmt, *this, *DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
,
6729 VarsWithImplicitDSA, B);
6730 if (NestedLoopCount == 0)
6731 return StmtError();
6732
6733 assert((CurContext->isDependentContext() || B.builtAll()) &&(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute simd loop exprs were not built"
) ? static_cast<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6734, __PRETTY_FUNCTION__))
6734 "omp target teams distribute simd loop exprs were not built")(((CurContext->isDependentContext() || B.builtAll()) &&
"omp target teams distribute simd loop exprs were not built"
) ? static_cast<void> (0) : __assert_fail ("(CurContext->isDependentContext() || B.builtAll()) && \"omp target teams distribute simd loop exprs were not built\""
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6734, __PRETTY_FUNCTION__))
;
6735
6736 getCurFunction()->setHasBranchProtectedScope();
6737 return OMPTargetTeamsDistributeSimdDirective::Create(
6738 Context, StartLoc, EndLoc, NestedLoopCount, Clauses, AStmt, B);
6739}
6740
6741OMPClause *Sema::ActOnOpenMPSingleExprClause(OpenMPClauseKind Kind, Expr *Expr,
6742 SourceLocation StartLoc,
6743 SourceLocation LParenLoc,
6744 SourceLocation EndLoc) {
6745 OMPClause *Res = nullptr;
6746 switch (Kind) {
6747 case OMPC_final:
6748 Res = ActOnOpenMPFinalClause(Expr, StartLoc, LParenLoc, EndLoc);
6749 break;
6750 case OMPC_num_threads:
6751 Res = ActOnOpenMPNumThreadsClause(Expr, StartLoc, LParenLoc, EndLoc);
6752 break;
6753 case OMPC_safelen:
6754 Res = ActOnOpenMPSafelenClause(Expr, StartLoc, LParenLoc, EndLoc);
6755 break;
6756 case OMPC_simdlen:
6757 Res = ActOnOpenMPSimdlenClause(Expr, StartLoc, LParenLoc, EndLoc);
6758 break;
6759 case OMPC_collapse:
6760 Res = ActOnOpenMPCollapseClause(Expr, StartLoc, LParenLoc, EndLoc);
6761 break;
6762 case OMPC_ordered:
6763 Res = ActOnOpenMPOrderedClause(StartLoc, EndLoc, LParenLoc, Expr);
6764 break;
6765 case OMPC_device:
6766 Res = ActOnOpenMPDeviceClause(Expr, StartLoc, LParenLoc, EndLoc);
6767 break;
6768 case OMPC_num_teams:
6769 Res = ActOnOpenMPNumTeamsClause(Expr, StartLoc, LParenLoc, EndLoc);
6770 break;
6771 case OMPC_thread_limit:
6772 Res = ActOnOpenMPThreadLimitClause(Expr, StartLoc, LParenLoc, EndLoc);
6773 break;
6774 case OMPC_priority:
6775 Res = ActOnOpenMPPriorityClause(Expr, StartLoc, LParenLoc, EndLoc);
6776 break;
6777 case OMPC_grainsize:
6778 Res = ActOnOpenMPGrainsizeClause(Expr, StartLoc, LParenLoc, EndLoc);
6779 break;
6780 case OMPC_num_tasks:
6781 Res = ActOnOpenMPNumTasksClause(Expr, StartLoc, LParenLoc, EndLoc);
6782 break;
6783 case OMPC_hint:
6784 Res = ActOnOpenMPHintClause(Expr, StartLoc, LParenLoc, EndLoc);
6785 break;
6786 case OMPC_if:
6787 case OMPC_default:
6788 case OMPC_proc_bind:
6789 case OMPC_schedule:
6790 case OMPC_private:
6791 case OMPC_firstprivate:
6792 case OMPC_lastprivate:
6793 case OMPC_shared:
6794 case OMPC_reduction:
6795 case OMPC_linear:
6796 case OMPC_aligned:
6797 case OMPC_copyin:
6798 case OMPC_copyprivate:
6799 case OMPC_nowait:
6800 case OMPC_untied:
6801 case OMPC_mergeable:
6802 case OMPC_threadprivate:
6803 case OMPC_flush:
6804 case OMPC_read:
6805 case OMPC_write:
6806 case OMPC_update:
6807 case OMPC_capture:
6808 case OMPC_seq_cst:
6809 case OMPC_depend:
6810 case OMPC_threads:
6811 case OMPC_simd:
6812 case OMPC_map:
6813 case OMPC_nogroup:
6814 case OMPC_dist_schedule:
6815 case OMPC_defaultmap:
6816 case OMPC_unknown:
6817 case OMPC_uniform:
6818 case OMPC_to:
6819 case OMPC_from:
6820 case OMPC_use_device_ptr:
6821 case OMPC_is_device_ptr:
6822 llvm_unreachable("Clause is not allowed.")::llvm::llvm_unreachable_internal("Clause is not allowed.", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6822)
;
6823 }
6824 return Res;
6825}
6826
6827// An OpenMP directive such as 'target parallel' has two captured regions:
6828// for the 'target' and 'parallel' respectively. This function returns
6829// the region in which to capture expressions associated with a clause.
6830// A return value of OMPD_unknown signifies that the expression should not
6831// be captured.
6832static OpenMPDirectiveKind getOpenMPCaptureRegionForClause(
6833 OpenMPDirectiveKind DKind, OpenMPClauseKind CKind,
6834 OpenMPDirectiveKind NameModifier = OMPD_unknown) {
6835 OpenMPDirectiveKind CaptureRegion = OMPD_unknown;
6836
6837 switch (CKind) {
6838 case OMPC_if:
6839 switch (DKind) {
6840 case OMPD_target_parallel:
6841 // If this clause applies to the nested 'parallel' region, capture within
6842 // the 'target' region, otherwise do not capture.
6843 if (NameModifier == OMPD_unknown || NameModifier == OMPD_parallel)
6844 CaptureRegion = OMPD_target;
6845 break;
6846 case OMPD_cancel:
6847 case OMPD_parallel:
6848 case OMPD_parallel_sections:
6849 case OMPD_parallel_for:
6850 case OMPD_parallel_for_simd:
6851 case OMPD_target:
6852 case OMPD_target_simd:
6853 case OMPD_target_parallel_for:
6854 case OMPD_target_parallel_for_simd:
6855 case OMPD_target_teams:
6856 case OMPD_target_teams_distribute:
6857 case OMPD_target_teams_distribute_simd:
6858 case OMPD_target_teams_distribute_parallel_for:
6859 case OMPD_target_teams_distribute_parallel_for_simd:
6860 case OMPD_teams_distribute_parallel_for:
6861 case OMPD_teams_distribute_parallel_for_simd:
6862 case OMPD_distribute_parallel_for:
6863 case OMPD_distribute_parallel_for_simd:
6864 case OMPD_task:
6865 case OMPD_taskloop:
6866 case OMPD_taskloop_simd:
6867 case OMPD_target_data:
6868 case OMPD_target_enter_data:
6869 case OMPD_target_exit_data:
6870 case OMPD_target_update:
6871 // Do not capture if-clause expressions.
6872 break;
6873 case OMPD_threadprivate:
6874 case OMPD_taskyield:
6875 case OMPD_barrier:
6876 case OMPD_taskwait:
6877 case OMPD_cancellation_point:
6878 case OMPD_flush:
6879 case OMPD_declare_reduction:
6880 case OMPD_declare_simd:
6881 case OMPD_declare_target:
6882 case OMPD_end_declare_target:
6883 case OMPD_teams:
6884 case OMPD_simd:
6885 case OMPD_for:
6886 case OMPD_for_simd:
6887 case OMPD_sections:
6888 case OMPD_section:
6889 case OMPD_single:
6890 case OMPD_master:
6891 case OMPD_critical:
6892 case OMPD_taskgroup:
6893 case OMPD_distribute:
6894 case OMPD_ordered:
6895 case OMPD_atomic:
6896 case OMPD_distribute_simd:
6897 case OMPD_teams_distribute:
6898 case OMPD_teams_distribute_simd:
6899 llvm_unreachable("Unexpected OpenMP directive with if-clause")::llvm::llvm_unreachable_internal("Unexpected OpenMP directive with if-clause"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6899)
;
6900 case OMPD_unknown:
6901 llvm_unreachable("Unknown OpenMP directive")::llvm::llvm_unreachable_internal("Unknown OpenMP directive",
"/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6901)
;
6902 }
6903 break;
6904 case OMPC_num_threads:
6905 switch (DKind) {
6906 case OMPD_target_parallel:
6907 CaptureRegion = OMPD_target;
6908 break;
6909 case OMPD_cancel:
6910 case OMPD_parallel:
6911 case OMPD_parallel_sections:
6912 case OMPD_parallel_for:
6913 case OMPD_parallel_for_simd:
6914 case OMPD_target:
6915 case OMPD_target_simd:
6916 case OMPD_target_parallel_for:
6917 case OMPD_target_parallel_for_simd:
6918 case OMPD_target_teams:
6919 case OMPD_target_teams_distribute:
6920 case OMPD_target_teams_distribute_simd:
6921 case OMPD_target_teams_distribute_parallel_for:
6922 case OMPD_target_teams_distribute_parallel_for_simd:
6923 case OMPD_teams_distribute_parallel_for:
6924 case OMPD_teams_distribute_parallel_for_simd:
6925 case OMPD_distribute_parallel_for:
6926 case OMPD_distribute_parallel_for_simd:
6927 case OMPD_task:
6928 case OMPD_taskloop:
6929 case OMPD_taskloop_simd:
6930 case OMPD_target_data:
6931 case OMPD_target_enter_data:
6932 case OMPD_target_exit_data:
6933 case OMPD_target_update:
6934 // Do not capture num_threads-clause expressions.
6935 break;
6936 case OMPD_threadprivate:
6937 case OMPD_taskyield:
6938 case OMPD_barrier:
6939 case OMPD_taskwait:
6940 case OMPD_cancellation_point:
6941 case OMPD_flush:
6942 case OMPD_declare_reduction:
6943 case OMPD_declare_simd:
6944 case OMPD_declare_target:
6945 case OMPD_end_declare_target:
6946 case OMPD_teams:
6947 case OMPD_simd:
6948 case OMPD_for:
6949 case OMPD_for_simd:
6950 case OMPD_sections:
6951 case OMPD_section:
6952 case OMPD_single:
6953 case OMPD_master:
6954 case OMPD_critical:
6955 case OMPD_taskgroup:
6956 case OMPD_distribute:
6957 case OMPD_ordered:
6958 case OMPD_atomic:
6959 case OMPD_distribute_simd:
6960 case OMPD_teams_distribute:
6961 case OMPD_teams_distribute_simd:
6962 llvm_unreachable("Unexpected OpenMP directive with num_threads-clause")::llvm::llvm_unreachable_internal("Unexpected OpenMP directive with num_threads-clause"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6962)
;
6963 case OMPD_unknown:
6964 llvm_unreachable("Unknown OpenMP directive")::llvm::llvm_unreachable_internal("Unknown OpenMP directive",
"/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 6964)
;
6965 }
6966 break;
6967 case OMPC_num_teams:
6968 switch (DKind) {
6969 case OMPD_target_teams:
6970 CaptureRegion = OMPD_target;
6971 break;
6972 case OMPD_cancel:
6973 case OMPD_parallel:
6974 case OMPD_parallel_sections:
6975 case OMPD_parallel_for:
6976 case OMPD_parallel_for_simd:
6977 case OMPD_target:
6978 case OMPD_target_simd:
6979 case OMPD_target_parallel:
6980 case OMPD_target_parallel_for:
6981 case OMPD_target_parallel_for_simd:
6982 case OMPD_target_teams_distribute:
6983 case OMPD_target_teams_distribute_simd:
6984 case OMPD_target_teams_distribute_parallel_for:
6985 case OMPD_target_teams_distribute_parallel_for_simd:
6986 case OMPD_teams_distribute_parallel_for:
6987 case OMPD_teams_distribute_parallel_for_simd:
6988 case OMPD_distribute_parallel_for:
6989 case OMPD_distribute_parallel_for_simd:
6990 case OMPD_task:
6991 case OMPD_taskloop:
6992 case OMPD_taskloop_simd:
6993 case OMPD_target_data:
6994 case OMPD_target_enter_data:
6995 case OMPD_target_exit_data:
6996 case OMPD_target_update:
6997 case OMPD_teams:
6998 case OMPD_teams_distribute:
6999 case OMPD_teams_distribute_simd:
7000 // Do not capture num_teams-clause expressions.
7001 break;
7002 case OMPD_threadprivate:
7003 case OMPD_taskyield:
7004 case OMPD_barrier:
7005 case OMPD_taskwait:
7006 case OMPD_cancellation_point:
7007 case OMPD_flush:
7008 case OMPD_declare_reduction:
7009 case OMPD_declare_simd:
7010 case OMPD_declare_target:
7011 case OMPD_end_declare_target:
7012 case OMPD_simd:
7013 case OMPD_for:
7014 case OMPD_for_simd:
7015 case OMPD_sections:
7016 case OMPD_section:
7017 case OMPD_single:
7018 case OMPD_master:
7019 case OMPD_critical:
7020 case OMPD_taskgroup:
7021 case OMPD_distribute:
7022 case OMPD_ordered:
7023 case OMPD_atomic:
7024 case OMPD_distribute_simd:
7025 llvm_unreachable("Unexpected OpenMP directive with num_teams-clause")::llvm::llvm_unreachable_internal("Unexpected OpenMP directive with num_teams-clause"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 7025)
;
7026 case OMPD_unknown:
7027 llvm_unreachable("Unknown OpenMP directive")::llvm::llvm_unreachable_internal("Unknown OpenMP directive",
"/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 7027)
;
7028 }
7029 break;
7030 case OMPC_thread_limit:
7031 switch (DKind) {
7032 case OMPD_target_teams:
7033 CaptureRegion = OMPD_target;
7034 break;
7035 case OMPD_cancel:
7036 case OMPD_parallel:
7037 case OMPD_parallel_sections:
7038 case OMPD_parallel_for:
7039 case OMPD_parallel_for_simd:
7040 case OMPD_target:
7041 case OMPD_target_simd:
7042 case OMPD_target_parallel:
7043 case OMPD_target_parallel_for:
7044 case OMPD_target_parallel_for_simd:
7045 case OMPD_target_teams_distribute:
7046 case OMPD_target_teams_distribute_simd:
7047 case OMPD_target_teams_distribute_parallel_for:
7048 case OMPD_target_teams_distribute_parallel_for_simd:
7049 case OMPD_teams_distribute_parallel_for:
7050 case OMPD_teams_distribute_parallel_for_simd:
7051 case OMPD_distribute_parallel_for:
7052 case OMPD_distribute_parallel_for_simd:
7053 case OMPD_task:
7054 case OMPD_taskloop:
7055 case OMPD_taskloop_simd:
7056 case OMPD_target_data:
7057 case OMPD_target_enter_data:
7058 case OMPD_target_exit_data:
7059 case OMPD_target_update:
7060 case OMPD_teams:
7061 case OMPD_teams_distribute:
7062 case OMPD_teams_distribute_simd:
7063 // Do not capture thread_limit-clause expressions.
7064 break;
7065 case OMPD_threadprivate:
7066 case OMPD_taskyield:
7067 case OMPD_barrier:
7068 case OMPD_taskwait:
7069 case OMPD_cancellation_point:
7070 case OMPD_flush:
7071 case OMPD_declare_reduction:
7072 case OMPD_declare_simd:
7073 case OMPD_declare_target:
7074 case OMPD_end_declare_target:
7075 case OMPD_simd:
7076 case OMPD_for:
7077 case OMPD_for_simd:
7078 case OMPD_sections:
7079 case OMPD_section:
7080 case OMPD_single:
7081 case OMPD_master:
7082 case OMPD_critical:
7083 case OMPD_taskgroup:
7084 case OMPD_distribute:
7085 case OMPD_ordered:
7086 case OMPD_atomic:
7087 case OMPD_distribute_simd:
7088 llvm_unreachable("Unexpected OpenMP directive with thread_limit-clause")::llvm::llvm_unreachable_internal("Unexpected OpenMP directive with thread_limit-clause"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 7088)
;
7089 case OMPD_unknown:
7090 llvm_unreachable("Unknown OpenMP directive")::llvm::llvm_unreachable_internal("Unknown OpenMP directive",
"/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 7090)
;
7091 }
7092 break;
7093 case OMPC_schedule:
7094 case OMPC_dist_schedule:
7095 case OMPC_firstprivate:
7096 case OMPC_lastprivate:
7097 case OMPC_reduction:
7098 case OMPC_linear:
7099 case OMPC_default:
7100 case OMPC_proc_bind:
7101 case OMPC_final:
7102 case OMPC_safelen:
7103 case OMPC_simdlen:
7104 case OMPC_collapse:
7105 case OMPC_private:
7106 case OMPC_shared:
7107 case OMPC_aligned:
7108 case OMPC_copyin:
7109 case OMPC_copyprivate:
7110 case OMPC_ordered:
7111 case OMPC_nowait:
7112 case OMPC_untied:
7113 case OMPC_mergeable:
7114 case OMPC_threadprivate:
7115 case OMPC_flush:
7116 case OMPC_read:
7117 case OMPC_write:
7118 case OMPC_update:
7119 case OMPC_capture:
7120 case OMPC_seq_cst:
7121 case OMPC_depend:
7122 case OMPC_device:
7123 case OMPC_threads:
7124 case OMPC_simd:
7125 case OMPC_map:
7126 case OMPC_priority:
7127 case OMPC_grainsize:
7128 case OMPC_nogroup:
7129 case OMPC_num_tasks:
7130 case OMPC_hint:
7131 case OMPC_defaultmap:
7132 case OMPC_unknown:
7133 case OMPC_uniform:
7134 case OMPC_to:
7135 case OMPC_from:
7136 case OMPC_use_device_ptr:
7137 case OMPC_is_device_ptr:
7138 llvm_unreachable("Unexpected OpenMP clause.")::llvm::llvm_unreachable_internal("Unexpected OpenMP clause."
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 7138)
;
7139 }
7140 return CaptureRegion;
7141}
7142
7143OMPClause *Sema::ActOnOpenMPIfClause(OpenMPDirectiveKind NameModifier,
7144 Expr *Condition, SourceLocation StartLoc,
7145 SourceLocation LParenLoc,
7146 SourceLocation NameModifierLoc,
7147 SourceLocation ColonLoc,
7148 SourceLocation EndLoc) {
7149 Expr *ValExpr = Condition;
7150 Stmt *HelperValStmt = nullptr;
7151 OpenMPDirectiveKind CaptureRegion = OMPD_unknown;
7152 if (!Condition->isValueDependent() && !Condition->isTypeDependent() &&
7153 !Condition->isInstantiationDependent() &&
7154 !Condition->containsUnexpandedParameterPack()) {
7155 ExprResult Val = CheckBooleanCondition(StartLoc, Condition);
7156 if (Val.isInvalid())
7157 return nullptr;
7158
7159 ValExpr = MakeFullExpr(Val.get()).get();
7160
7161 OpenMPDirectiveKind DKind = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective();
7162 CaptureRegion =
7163 getOpenMPCaptureRegionForClause(DKind, OMPC_if, NameModifier);
7164 if (CaptureRegion != OMPD_unknown) {
7165 llvm::MapVector<Expr *, DeclRefExpr *> Captures;
7166 ValExpr = tryBuildCapture(*this, ValExpr, Captures).get();
7167 HelperValStmt = buildPreInits(Context, Captures);
7168 }
7169 }
7170
7171 return new (Context)
7172 OMPIfClause(NameModifier, ValExpr, HelperValStmt, CaptureRegion, StartLoc,
7173 LParenLoc, NameModifierLoc, ColonLoc, EndLoc);
7174}
7175
7176OMPClause *Sema::ActOnOpenMPFinalClause(Expr *Condition,
7177 SourceLocation StartLoc,
7178 SourceLocation LParenLoc,
7179 SourceLocation EndLoc) {
7180 Expr *ValExpr = Condition;
7181 if (!Condition->isValueDependent() && !Condition->isTypeDependent() &&
7182 !Condition->isInstantiationDependent() &&
7183 !Condition->containsUnexpandedParameterPack()) {
7184 ExprResult Val = CheckBooleanCondition(StartLoc, Condition);
7185 if (Val.isInvalid())
7186 return nullptr;
7187
7188 ValExpr = MakeFullExpr(Val.get()).get();
7189 }
7190
7191 return new (Context) OMPFinalClause(ValExpr, StartLoc, LParenLoc, EndLoc);
7192}
7193ExprResult Sema::PerformOpenMPImplicitIntegerConversion(SourceLocation Loc,
7194 Expr *Op) {
7195 if (!Op)
7196 return ExprError();
7197
7198 class IntConvertDiagnoser : public ICEConvertDiagnoser {
7199 public:
7200 IntConvertDiagnoser()
7201 : ICEConvertDiagnoser(/*AllowScopedEnumerations*/ false, false, true) {}
7202 SemaDiagnosticBuilder diagnoseNotInt(Sema &S, SourceLocation Loc,
7203 QualType T) override {
7204 return S.Diag(Loc, diag::err_omp_not_integral) << T;
7205 }
7206 SemaDiagnosticBuilder diagnoseIncomplete(Sema &S, SourceLocation Loc,
7207 QualType T) override {
7208 return S.Diag(Loc, diag::err_omp_incomplete_type) << T;
7209 }
7210 SemaDiagnosticBuilder diagnoseExplicitConv(Sema &S, SourceLocation Loc,
7211 QualType T,
7212 QualType ConvTy) override {
7213 return S.Diag(Loc, diag::err_omp_explicit_conversion) << T << ConvTy;
7214 }
7215 SemaDiagnosticBuilder noteExplicitConv(Sema &S, CXXConversionDecl *Conv,
7216 QualType ConvTy) override {
7217 return S.Diag(Conv->getLocation(), diag::note_omp_conversion_here)
7218 << ConvTy->isEnumeralType() << ConvTy;
7219 }
7220 SemaDiagnosticBuilder diagnoseAmbiguous(Sema &S, SourceLocation Loc,
7221 QualType T) override {
7222 return S.Diag(Loc, diag::err_omp_ambiguous_conversion) << T;
7223 }
7224 SemaDiagnosticBuilder noteAmbiguous(Sema &S, CXXConversionDecl *Conv,
7225 QualType ConvTy) override {
7226 return S.Diag(Conv->getLocation(), diag::note_omp_conversion_here)
7227 << ConvTy->isEnumeralType() << ConvTy;
7228 }
7229 SemaDiagnosticBuilder diagnoseConversion(Sema &, SourceLocation, QualType,
7230 QualType) override {
7231 llvm_unreachable("conversion functions are permitted")::llvm::llvm_unreachable_internal("conversion functions are permitted"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 7231)
;
7232 }
7233 } ConvertDiagnoser;
7234 return PerformContextualImplicitConversion(Loc, Op, ConvertDiagnoser);
7235}
7236
7237static bool IsNonNegativeIntegerValue(Expr *&ValExpr, Sema &SemaRef,
7238 OpenMPClauseKind CKind,
7239 bool StrictlyPositive) {
7240 if (!ValExpr->isTypeDependent() && !ValExpr->isValueDependent() &&
7241 !ValExpr->isInstantiationDependent()) {
7242 SourceLocation Loc = ValExpr->getExprLoc();
7243 ExprResult Value =
7244 SemaRef.PerformOpenMPImplicitIntegerConversion(Loc, ValExpr);
7245 if (Value.isInvalid())
7246 return false;
7247
7248 ValExpr = Value.get();
7249 // The expression must evaluate to a non-negative integer value.
7250 llvm::APSInt Result;
7251 if (ValExpr->isIntegerConstantExpr(Result, SemaRef.Context) &&
7252 Result.isSigned() &&
7253 !((!StrictlyPositive && Result.isNonNegative()) ||
7254 (StrictlyPositive && Result.isStrictlyPositive()))) {
7255 SemaRef.Diag(Loc, diag::err_omp_negative_expression_in_clause)
7256 << getOpenMPClauseName(CKind) << (StrictlyPositive ? 1 : 0)
7257 << ValExpr->getSourceRange();
7258 return false;
7259 }
7260 }
7261 return true;
7262}
7263
7264OMPClause *Sema::ActOnOpenMPNumThreadsClause(Expr *NumThreads,
7265 SourceLocation StartLoc,
7266 SourceLocation LParenLoc,
7267 SourceLocation EndLoc) {
7268 Expr *ValExpr = NumThreads;
7269 Stmt *HelperValStmt = nullptr;
7270 OpenMPDirectiveKind CaptureRegion = OMPD_unknown;
7271
7272 // OpenMP [2.5, Restrictions]
7273 // The num_threads expression must evaluate to a positive integer value.
7274 if (!IsNonNegativeIntegerValue(ValExpr, *this, OMPC_num_threads,
7275 /*StrictlyPositive=*/true))
7276 return nullptr;
7277
7278 OpenMPDirectiveKind DKind = DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getCurrentDirective();
7279 CaptureRegion = getOpenMPCaptureRegionForClause(DKind, OMPC_num_threads);
7280 if (CaptureRegion != OMPD_unknown) {
7281 llvm::MapVector<Expr *, DeclRefExpr *> Captures;
7282 ValExpr = tryBuildCapture(*this, ValExpr, Captures).get();
7283 HelperValStmt = buildPreInits(Context, Captures);
7284 }
7285
7286 return new (Context) OMPNumThreadsClause(
7287 ValExpr, HelperValStmt, CaptureRegion, StartLoc, LParenLoc, EndLoc);
7288}
7289
7290ExprResult Sema::VerifyPositiveIntegerConstantInClause(Expr *E,
7291 OpenMPClauseKind CKind,
7292 bool StrictlyPositive) {
7293 if (!E)
7294 return ExprError();
7295 if (E->isValueDependent() || E->isTypeDependent() ||
7296 E->isInstantiationDependent() || E->containsUnexpandedParameterPack())
7297 return E;
7298 llvm::APSInt Result;
7299 ExprResult ICE = VerifyIntegerConstantExpression(E, &Result);
7300 if (ICE.isInvalid())
7301 return ExprError();
7302 if ((StrictlyPositive && !Result.isStrictlyPositive()) ||
7303 (!StrictlyPositive && !Result.isNonNegative())) {
7304 Diag(E->getExprLoc(), diag::err_omp_negative_expression_in_clause)
7305 << getOpenMPClauseName(CKind) << (StrictlyPositive ? 1 : 0)
7306 << E->getSourceRange();
7307 return ExprError();
7308 }
7309 if (CKind == OMPC_aligned && !Result.isPowerOf2()) {
7310 Diag(E->getExprLoc(), diag::warn_omp_alignment_not_power_of_two)
7311 << E->getSourceRange();
7312 return ExprError();
7313 }
7314 if (CKind == OMPC_collapse && DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->getAssociatedLoops() == 1)
7315 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setAssociatedLoops(Result.getExtValue());
7316 else if (CKind == OMPC_ordered)
7317 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setAssociatedLoops(Result.getExtValue());
7318 return ICE;
7319}
7320
7321OMPClause *Sema::ActOnOpenMPSafelenClause(Expr *Len, SourceLocation StartLoc,
7322 SourceLocation LParenLoc,
7323 SourceLocation EndLoc) {
7324 // OpenMP [2.8.1, simd construct, Description]
7325 // The parameter of the safelen clause must be a constant
7326 // positive integer expression.
7327 ExprResult Safelen = VerifyPositiveIntegerConstantInClause(Len, OMPC_safelen);
7328 if (Safelen.isInvalid())
7329 return nullptr;
7330 return new (Context)
7331 OMPSafelenClause(Safelen.get(), StartLoc, LParenLoc, EndLoc);
7332}
7333
7334OMPClause *Sema::ActOnOpenMPSimdlenClause(Expr *Len, SourceLocation StartLoc,
7335 SourceLocation LParenLoc,
7336 SourceLocation EndLoc) {
7337 // OpenMP [2.8.1, simd construct, Description]
7338 // The parameter of the simdlen clause must be a constant
7339 // positive integer expression.
7340 ExprResult Simdlen = VerifyPositiveIntegerConstantInClause(Len, OMPC_simdlen);
7341 if (Simdlen.isInvalid())
7342 return nullptr;
7343 return new (Context)
7344 OMPSimdlenClause(Simdlen.get(), StartLoc, LParenLoc, EndLoc);
7345}
7346
7347OMPClause *Sema::ActOnOpenMPCollapseClause(Expr *NumForLoops,
7348 SourceLocation StartLoc,
7349 SourceLocation LParenLoc,
7350 SourceLocation EndLoc) {
7351 // OpenMP [2.7.1, loop construct, Description]
7352 // OpenMP [2.8.1, simd construct, Description]
7353 // OpenMP [2.9.6, distribute construct, Description]
7354 // The parameter of the collapse clause must be a constant
7355 // positive integer expression.
7356 ExprResult NumForLoopsResult =
7357 VerifyPositiveIntegerConstantInClause(NumForLoops, OMPC_collapse);
7358 if (NumForLoopsResult.isInvalid())
7359 return nullptr;
7360 return new (Context)
7361 OMPCollapseClause(NumForLoopsResult.get(), StartLoc, LParenLoc, EndLoc);
7362}
7363
7364OMPClause *Sema::ActOnOpenMPOrderedClause(SourceLocation StartLoc,
7365 SourceLocation EndLoc,
7366 SourceLocation LParenLoc,
7367 Expr *NumForLoops) {
7368 // OpenMP [2.7.1, loop construct, Description]
7369 // OpenMP [2.8.1, simd construct, Description]
7370 // OpenMP [2.9.6, distribute construct, Description]
7371 // The parameter of the ordered clause must be a constant
7372 // positive integer expression if any.
7373 if (NumForLoops && LParenLoc.isValid()) {
7374 ExprResult NumForLoopsResult =
7375 VerifyPositiveIntegerConstantInClause(NumForLoops, OMPC_ordered);
7376 if (NumForLoopsResult.isInvalid())
7377 return nullptr;
7378 NumForLoops = NumForLoopsResult.get();
7379 } else
7380 NumForLoops = nullptr;
7381 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setOrderedRegion(/*IsOrdered=*/true, NumForLoops);
7382 return new (Context)
7383 OMPOrderedClause(NumForLoops, StartLoc, LParenLoc, EndLoc);
7384}
7385
7386OMPClause *Sema::ActOnOpenMPSimpleClause(
7387 OpenMPClauseKind Kind, unsigned Argument, SourceLocation ArgumentLoc,
7388 SourceLocation StartLoc, SourceLocation LParenLoc, SourceLocation EndLoc) {
7389 OMPClause *Res = nullptr;
7390 switch (Kind) {
7391 case OMPC_default:
7392 Res =
7393 ActOnOpenMPDefaultClause(static_cast<OpenMPDefaultClauseKind>(Argument),
7394 ArgumentLoc, StartLoc, LParenLoc, EndLoc);
7395 break;
7396 case OMPC_proc_bind:
7397 Res = ActOnOpenMPProcBindClause(
7398 static_cast<OpenMPProcBindClauseKind>(Argument), ArgumentLoc, StartLoc,
7399 LParenLoc, EndLoc);
7400 break;
7401 case OMPC_if:
7402 case OMPC_final:
7403 case OMPC_num_threads:
7404 case OMPC_safelen:
7405 case OMPC_simdlen:
7406 case OMPC_collapse:
7407 case OMPC_schedule:
7408 case OMPC_private:
7409 case OMPC_firstprivate:
7410 case OMPC_lastprivate:
7411 case OMPC_shared:
7412 case OMPC_reduction:
7413 case OMPC_linear:
7414 case OMPC_aligned:
7415 case OMPC_copyin:
7416 case OMPC_copyprivate:
7417 case OMPC_ordered:
7418 case OMPC_nowait:
7419 case OMPC_untied:
7420 case OMPC_mergeable:
7421 case OMPC_threadprivate:
7422 case OMPC_flush:
7423 case OMPC_read:
7424 case OMPC_write:
7425 case OMPC_update:
7426 case OMPC_capture:
7427 case OMPC_seq_cst:
7428 case OMPC_depend:
7429 case OMPC_device:
7430 case OMPC_threads:
7431 case OMPC_simd:
7432 case OMPC_map:
7433 case OMPC_num_teams:
7434 case OMPC_thread_limit:
7435 case OMPC_priority:
7436 case OMPC_grainsize:
7437 case OMPC_nogroup:
7438 case OMPC_num_tasks:
7439 case OMPC_hint:
7440 case OMPC_dist_schedule:
7441 case OMPC_defaultmap:
7442 case OMPC_unknown:
7443 case OMPC_uniform:
7444 case OMPC_to:
7445 case OMPC_from:
7446 case OMPC_use_device_ptr:
7447 case OMPC_is_device_ptr:
7448 llvm_unreachable("Clause is not allowed.")::llvm::llvm_unreachable_internal("Clause is not allowed.", "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 7448)
;
7449 }
7450 return Res;
7451}
7452
7453static std::string
7454getListOfPossibleValues(OpenMPClauseKind K, unsigned First, unsigned Last,
7455 ArrayRef<unsigned> Exclude = llvm::None) {
7456 std::string Values;
7457 unsigned Bound = Last >= 2 ? Last - 2 : 0;
7458 unsigned Skipped = Exclude.size();
7459 auto S = Exclude.begin(), E = Exclude.end();
7460 for (unsigned i = First; i < Last; ++i) {
7461 if (std::find(S, E, i) != E) {
7462 --Skipped;
7463 continue;
7464 }
7465 Values += "'";
7466 Values += getOpenMPSimpleClauseTypeName(K, i);
7467 Values += "'";
7468 if (i == Bound - Skipped)
7469 Values += " or ";
7470 else if (i != Bound + 1 - Skipped)
7471 Values += ", ";
7472 }
7473 return Values;
7474}
7475
7476OMPClause *Sema::ActOnOpenMPDefaultClause(OpenMPDefaultClauseKind Kind,
7477 SourceLocation KindKwLoc,
7478 SourceLocation StartLoc,
7479 SourceLocation LParenLoc,
7480 SourceLocation EndLoc) {
7481 if (Kind == OMPC_DEFAULT_unknown) {
7482 static_assert(OMPC_DEFAULT_unknown > 0,
7483 "OMPC_DEFAULT_unknown not greater than 0");
7484 Diag(KindKwLoc, diag::err_omp_unexpected_clause_value)
7485 << getListOfPossibleValues(OMPC_default, /*First=*/0,
7486 /*Last=*/OMPC_DEFAULT_unknown)
7487 << getOpenMPClauseName(OMPC_default);
7488 return nullptr;
7489 }
7490 switch (Kind) {
7491 case OMPC_DEFAULT_none:
7492 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setDefaultDSANone(KindKwLoc);
7493 break;
7494 case OMPC_DEFAULT_shared:
7495 DSAStackstatic_cast<DSAStackTy *>(VarDataSharingAttributesStack
)
->setDefaultDSAShared(KindKwLoc);
7496 break;
7497 case OMPC_DEFAULT_unknown:
7498 llvm_unreachable("Clause kind is not allowed.")::llvm::llvm_unreachable_internal("Clause kind is not allowed."
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpenMP.cpp"
, 7498)
;
7499 break;
7500 }
7501 return new (Context)
7502 OMPDefaultClause(Kind, KindKwLoc, StartLoc, LParenLoc, EndLoc);
7503}
7504
7505OMPClause *Sema::ActOnOpenMPProcBindClause(OpenMPProcBindClauseKind Kind,
7506 SourceLocation KindKwLoc,
7507 SourceLocation StartLoc,
7508 SourceLocation LParenLoc,
7509 SourceLocation EndLoc) {
7510 if (Kind == OMPC_PROC_BIND_unknown) {
7511 Diag(KindKwLoc, diag::err_omp_unexpected_clause_value)
7512 << getListOfPossibleValues(OMPC_proc_bind, /*First=*/0,
7513 /*Last=*/OMPC_PROC_BIND_unknown)
7514 << getOpenMPClauseName(OMPC_proc_bind);
7515 return nullptr;
7516 }
7517 return new (Context)
7518 OMPProcBindClause(Kind, KindKwLoc, StartLoc, LParenLoc, EndLoc);
7519}
7520
7521OMPClause *Sema::ActOnOpenMPSingleExprWithArgClause(
7522 OpenMPClauseKind Kind, ArrayRef<unsigned> Argument, Expr *Expr,
7523 SourceLocation StartLoc, SourceLocation LParenLoc,
7524 ArrayRef<SourceLocation> ArgumentLoc, SourceLocation DelimLoc,
7525 SourceLocation EndLoc) {
7526 OMPClause *Res = nullptr;
7527 switch (Kind) {
7528 case OMPC_schedule:
7529 enum { Modifier1, Modifier2, ScheduleKind, NumberOfElements };
7530 assert(Argument.size() == NumberOfElements &&((Argument.size() == NumberOfElements && ArgumentLoc.
size() == NumberOfElements) ? static_cast<void> (0) : __assert_fail
("Argument.size() == NumberOfElements && ArgumentLoc.size() == NumberOfElements"
, "/tmp/buildd/llvm-toolchain-snapshot-5.0~svn303373/tools/clang/lib/Sema/SemaOpen