Branch data Line data Source code
1 : : /* Perform the semantic phase of parsing, i.e., the process of
2 : : building tree structure, checking semantic consistency, and
3 : : building RTL. These routines are used both during actual parsing
4 : : and during the instantiation of template functions.
5 : :
6 : : Copyright (C) 1998-2024 Free Software Foundation, Inc.
7 : : Written by Mark Mitchell (mmitchell@usa.net) based on code found
8 : : formerly in parse.y and pt.cc.
9 : :
10 : : This file is part of GCC.
11 : :
12 : : GCC is free software; you can redistribute it and/or modify it
13 : : under the terms of the GNU General Public License as published by
14 : : the Free Software Foundation; either version 3, or (at your option)
15 : : any later version.
16 : :
17 : : GCC is distributed in the hope that it will be useful, but
18 : : WITHOUT ANY WARRANTY; without even the implied warranty of
19 : : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 : : General Public License for more details.
21 : :
22 : : You should have received a copy of the GNU General Public License
23 : : along with GCC; see the file COPYING3. If not see
24 : : <http://www.gnu.org/licenses/>. */
25 : :
26 : : #include "config.h"
27 : : #include "system.h"
28 : : #include "coretypes.h"
29 : : #include "target.h"
30 : : #include "bitmap.h"
31 : : #include "cp-tree.h"
32 : : #include "stringpool.h"
33 : : #include "cgraph.h"
34 : : #include "stmt.h"
35 : : #include "varasm.h"
36 : : #include "stor-layout.h"
37 : : #include "c-family/c-objc.h"
38 : : #include "tree-inline.h"
39 : : #include "intl.h"
40 : : #include "tree-iterator.h"
41 : : #include "omp-general.h"
42 : : #include "convert.h"
43 : : #include "stringpool.h"
44 : : #include "attribs.h"
45 : : #include "gomp-constants.h"
46 : : #include "predict.h"
47 : : #include "memmodel.h"
48 : :
49 : : /* There routines provide a modular interface to perform many parsing
50 : : operations. They may therefore be used during actual parsing, or
51 : : during template instantiation, which may be regarded as a
52 : : degenerate form of parsing. */
53 : :
54 : : static tree maybe_convert_cond (tree);
55 : : static tree finalize_nrv_r (tree *, int *, void *);
56 : :
57 : : /* Used for OpenMP non-static data member privatization. */
58 : :
59 : : static hash_map<tree, tree> *omp_private_member_map;
60 : : static vec<tree> omp_private_member_vec;
61 : : static bool omp_private_member_ignore_next;
62 : :
63 : :
64 : : /* Deferred Access Checking Overview
65 : : ---------------------------------
66 : :
67 : : Most C++ expressions and declarations require access checking
68 : : to be performed during parsing. However, in several cases,
69 : : this has to be treated differently.
70 : :
71 : : For member declarations, access checking has to be deferred
72 : : until more information about the declaration is known. For
73 : : example:
74 : :
75 : : class A {
76 : : typedef int X;
77 : : public:
78 : : X f();
79 : : };
80 : :
81 : : A::X A::f();
82 : : A::X g();
83 : :
84 : : When we are parsing the function return type `A::X', we don't
85 : : really know if this is allowed until we parse the function name.
86 : :
87 : : Furthermore, some contexts require that access checking is
88 : : never performed at all. These include class heads, and template
89 : : instantiations.
90 : :
91 : : Typical use of access checking functions is described here:
92 : :
93 : : 1. When we enter a context that requires certain access checking
94 : : mode, the function `push_deferring_access_checks' is called with
95 : : DEFERRING argument specifying the desired mode. Access checking
96 : : may be performed immediately (dk_no_deferred), deferred
97 : : (dk_deferred), or not performed (dk_no_check).
98 : :
99 : : 2. When a declaration such as a type, or a variable, is encountered,
100 : : the function `perform_or_defer_access_check' is called. It
101 : : maintains a vector of all deferred checks.
102 : :
103 : : 3. The global `current_class_type' or `current_function_decl' is then
104 : : setup by the parser. `enforce_access' relies on these information
105 : : to check access.
106 : :
107 : : 4. Upon exiting the context mentioned in step 1,
108 : : `perform_deferred_access_checks' is called to check all declaration
109 : : stored in the vector. `pop_deferring_access_checks' is then
110 : : called to restore the previous access checking mode.
111 : :
112 : : In case of parsing error, we simply call `pop_deferring_access_checks'
113 : : without `perform_deferred_access_checks'. */
114 : :
115 : : struct GTY(()) deferred_access {
116 : : /* A vector representing name-lookups for which we have deferred
117 : : checking access controls. We cannot check the accessibility of
118 : : names used in a decl-specifier-seq until we know what is being
119 : : declared because code like:
120 : :
121 : : class A {
122 : : class B {};
123 : : B* f();
124 : : }
125 : :
126 : : A::B* A::f() { return 0; }
127 : :
128 : : is valid, even though `A::B' is not generally accessible. */
129 : : vec<deferred_access_check, va_gc> *deferred_access_checks;
130 : :
131 : : /* The current mode of access checks. */
132 : : enum deferring_kind deferring_access_checks_kind;
133 : : };
134 : :
135 : : /* Data for deferred access checking. */
136 : : static GTY(()) vec<deferred_access, va_gc> *deferred_access_stack;
137 : : static GTY(()) unsigned deferred_access_no_check;
138 : :
139 : : /* Save the current deferred access states and start deferred
140 : : access checking iff DEFER_P is true. */
141 : :
142 : : void
143 : 18221501454 : push_deferring_access_checks (deferring_kind deferring)
144 : : {
145 : : /* For context like template instantiation, access checking
146 : : disabling applies to all nested context. */
147 : 18221501454 : if (deferred_access_no_check || deferring == dk_no_check)
148 : 263104456 : deferred_access_no_check++;
149 : : else
150 : : {
151 : 17958396998 : deferred_access e = {NULL, deferring};
152 : 17958396998 : vec_safe_push (deferred_access_stack, e);
153 : : }
154 : 18221501454 : }
155 : :
156 : : /* Save the current deferred access states and start deferred access
157 : : checking, continuing the set of deferred checks in CHECKS. */
158 : :
159 : : void
160 : 277843029 : reopen_deferring_access_checks (vec<deferred_access_check, va_gc> * checks)
161 : : {
162 : 277843029 : push_deferring_access_checks (dk_deferred);
163 : 277843029 : if (!deferred_access_no_check)
164 : 271486741 : deferred_access_stack->last().deferred_access_checks = checks;
165 : 277843029 : }
166 : :
167 : : /* Resume deferring access checks again after we stopped doing
168 : : this previously. */
169 : :
170 : : void
171 : 154702185 : resume_deferring_access_checks (void)
172 : : {
173 : 154702185 : if (!deferred_access_no_check)
174 : 154684362 : deferred_access_stack->last().deferring_access_checks_kind = dk_deferred;
175 : 154702185 : }
176 : :
177 : : /* Stop deferring access checks. */
178 : :
179 : : void
180 : 425052674 : stop_deferring_access_checks (void)
181 : : {
182 : 425052674 : if (!deferred_access_no_check)
183 : 425000114 : deferred_access_stack->last().deferring_access_checks_kind = dk_no_deferred;
184 : 425052674 : }
185 : :
186 : : /* Discard the current deferred access checks and restore the
187 : : previous states. */
188 : :
189 : : void
190 : 11012301528 : pop_deferring_access_checks (void)
191 : : {
192 : 11012301528 : if (deferred_access_no_check)
193 : 194596646 : deferred_access_no_check--;
194 : : else
195 : 10817704882 : deferred_access_stack->pop ();
196 : 11012301528 : }
197 : :
198 : : /* Returns a TREE_LIST representing the deferred checks.
199 : : The TREE_PURPOSE of each node is the type through which the
200 : : access occurred; the TREE_VALUE is the declaration named.
201 : : */
202 : :
203 : : vec<deferred_access_check, va_gc> *
204 : 960378907 : get_deferred_access_checks (void)
205 : : {
206 : 960378907 : if (deferred_access_no_check)
207 : : return NULL;
208 : : else
209 : 947779434 : return (deferred_access_stack->last().deferred_access_checks);
210 : : }
211 : :
212 : : /* Take current deferred checks and combine with the
213 : : previous states if we also defer checks previously.
214 : : Otherwise perform checks now. */
215 : :
216 : : void
217 : 7209070420 : pop_to_parent_deferring_access_checks (void)
218 : : {
219 : 7209070420 : if (deferred_access_no_check)
220 : 68507804 : deferred_access_no_check--;
221 : : else
222 : : {
223 : 7140562616 : vec<deferred_access_check, va_gc> *checks;
224 : 7140562616 : deferred_access *ptr;
225 : :
226 : 7140562616 : checks = (deferred_access_stack->last ().deferred_access_checks);
227 : :
228 : 7140562616 : deferred_access_stack->pop ();
229 : 7140562616 : ptr = &deferred_access_stack->last ();
230 : 7140562616 : if (ptr->deferring_access_checks_kind == dk_no_deferred)
231 : : {
232 : : /* Check access. */
233 : 453336409 : perform_access_checks (checks, tf_warning_or_error);
234 : : }
235 : : else
236 : : {
237 : : /* Merge with parent. */
238 : : int i, j;
239 : : deferred_access_check *chk, *probe;
240 : :
241 : 6843553283 : FOR_EACH_VEC_SAFE_ELT (checks, i, chk)
242 : : {
243 : 85707188 : FOR_EACH_VEC_SAFE_ELT (ptr->deferred_access_checks, j, probe)
244 : : {
245 : 8218613 : if (probe->binfo == chk->binfo &&
246 : 6554904 : probe->decl == chk->decl &&
247 : 675021 : probe->diag_decl == chk->diag_decl)
248 : 674963 : goto found;
249 : : }
250 : : /* Insert into parent's checks. */
251 : 77488575 : vec_safe_push (ptr->deferred_access_checks, *chk);
252 : 78163538 : found:;
253 : : }
254 : : }
255 : : }
256 : 7209070420 : }
257 : :
258 : : /* Called from enforce_access. A class has attempted (but failed) to access
259 : : DECL. It is already established that a baseclass of that class,
260 : : PARENT_BINFO, has private access to DECL. Examine certain special cases
261 : : to find a decl that accurately describes the source of the problem. If
262 : : none of the special cases apply, simply return DECL as the source of the
263 : : problem. */
264 : :
265 : : static tree
266 : 182 : get_class_access_diagnostic_decl (tree parent_binfo, tree decl)
267 : : {
268 : : /* When a class is denied access to a decl in a baseclass, most of the
269 : : time it is because the decl itself was declared as private at the point
270 : : of declaration.
271 : :
272 : : However, in C++, there are (at least) two situations in which a decl
273 : : can be private even though it was not originally defined as such.
274 : : These two situations only apply if a baseclass had private access to
275 : : DECL (this function is only called if that is the case). */
276 : :
277 : : /* We should first check whether the reason the parent had private access
278 : : to DECL was simply because DECL was created and declared as private in
279 : : the parent. If it was, then DECL is definitively the source of the
280 : : problem. */
281 : 182 : if (SAME_BINFO_TYPE_P (context_for_name_lookup (decl),
282 : : BINFO_TYPE (parent_binfo)))
283 : : return decl;
284 : :
285 : : /* 1. If the "using" keyword is used to inherit DECL within the parent,
286 : : this may cause DECL to be private, so we should return the using
287 : : statement as the source of the problem.
288 : :
289 : : Scan the fields of PARENT_BINFO and see if there are any using decls. If
290 : : there are, see if they inherit DECL. If they do, that's where DECL must
291 : : have been declared private. */
292 : :
293 : 66 : for (tree parent_field = TYPE_FIELDS (BINFO_TYPE (parent_binfo));
294 : 326 : parent_field;
295 : 260 : parent_field = DECL_CHAIN (parent_field))
296 : : /* Not necessary, but also check TREE_PRIVATE for the sake of
297 : : eliminating obviously non-relevant using decls. */
298 : 278 : if (TREE_CODE (parent_field) == USING_DECL
299 : 278 : && TREE_PRIVATE (parent_field))
300 : : {
301 : 78 : tree decl_stripped = strip_using_decl (parent_field);
302 : :
303 : : /* The using statement might be overloaded. If so, we need to
304 : : check all of the overloads. */
305 : 180 : for (ovl_iterator iter (decl_stripped); iter; ++iter)
306 : : /* If equal, the using statement inherits DECL, and so is the
307 : : source of the access failure, so return it. */
308 : 99 : if (*iter == decl)
309 : 18 : return parent_field;
310 : : }
311 : :
312 : : /* 2. If DECL was privately inherited by the parent class, then DECL will
313 : : be inaccessible, even though it may originally have been accessible to
314 : : deriving classes. In that case, the fault lies with the parent, since it
315 : : used a private inheritance, so we return the parent as the source of the
316 : : problem.
317 : :
318 : : Since this is the last check, we just assume it's true. At worst, it
319 : : will simply point to the class that failed to give access, which is
320 : : technically true. */
321 : 48 : return TYPE_NAME (BINFO_TYPE (parent_binfo));
322 : : }
323 : :
324 : : /* If the current scope isn't allowed to access DECL along
325 : : BASETYPE_PATH, give an error, or if we're parsing a function or class
326 : : template, defer the access check to be performed at instantiation time.
327 : : The most derived class in BASETYPE_PATH is the one used to qualify DECL.
328 : : DIAG_DECL is the declaration to use in the error diagnostic. */
329 : :
330 : : static bool
331 : 260040757 : enforce_access (tree basetype_path, tree decl, tree diag_decl,
332 : : tsubst_flags_t complain, access_failure_info *afi = NULL)
333 : : {
334 : 260040757 : gcc_assert (TREE_CODE (basetype_path) == TREE_BINFO);
335 : :
336 : 260040757 : if (flag_new_inheriting_ctors
337 : 337886923 : && DECL_INHERITED_CTOR (decl))
338 : : {
339 : : /* 7.3.3/18: The additional constructors are accessible if they would be
340 : : accessible when used to construct an object of the corresponding base
341 : : class. */
342 : 40101 : decl = strip_inheriting_ctors (decl);
343 : 40101 : basetype_path = lookup_base (basetype_path, DECL_CONTEXT (decl),
344 : : ba_any, NULL, complain);
345 : : }
346 : :
347 : 260040757 : tree cs = current_scope ();
348 : 260040757 : if (in_template_context
349 : 260040757 : && (CLASS_TYPE_P (cs) || TREE_CODE (cs) == FUNCTION_DECL))
350 : 36143574 : if (tree template_info = get_template_info (cs))
351 : : {
352 : : /* When parsing a function or class template, we in general need to
353 : : defer access checks until template instantiation time, since a friend
354 : : declaration may grant access only to a particular specialization of
355 : : the template. */
356 : :
357 : 35936678 : if (accessible_p (basetype_path, decl, /*consider_local_p=*/true))
358 : : /* But if the member is deemed accessible at parse time, then we can
359 : : assume it'll be accessible at instantiation time. */
360 : : return true;
361 : :
362 : : /* Access of a dependent decl should be rechecked after tsubst'ing
363 : : into the user of the decl, rather than explicitly deferring the
364 : : check here. */
365 : 141 : gcc_assert (!uses_template_parms (decl));
366 : 141 : if (TREE_CODE (decl) == FIELD_DECL)
367 : 6 : gcc_assert (!uses_template_parms (DECL_CONTEXT (decl)));
368 : :
369 : : /* Defer this access check until instantiation time. */
370 : 141 : deferred_access_check access_check;
371 : 141 : access_check.binfo = basetype_path;
372 : 141 : access_check.decl = decl;
373 : 141 : access_check.diag_decl = diag_decl;
374 : 141 : access_check.loc = input_location;
375 : 141 : vec_safe_push (TI_DEFERRED_ACCESS_CHECKS (template_info), access_check);
376 : 141 : return true;
377 : : }
378 : :
379 : 224104079 : if (!accessible_p (basetype_path, decl, /*consider_local_p=*/true))
380 : : {
381 : 21916 : if (flag_new_inheriting_ctors)
382 : 21886 : diag_decl = strip_inheriting_ctors (diag_decl);
383 : 21916 : if (complain & tf_error)
384 : : {
385 : 1106 : access_kind access_failure_reason = ak_none;
386 : :
387 : : /* By default, using the decl as the source of the problem will
388 : : usually give correct results. */
389 : 1106 : tree diag_location = diag_decl;
390 : :
391 : : /* However, if a parent of BASETYPE_PATH had private access to decl,
392 : : then it actually might be the case that the source of the problem
393 : : is not DECL. */
394 : 1106 : tree parent_binfo = get_parent_with_private_access (decl,
395 : : basetype_path);
396 : :
397 : : /* So if a parent did have private access, then we need to do
398 : : special checks to obtain the best diagnostic location decl. */
399 : 1106 : if (parent_binfo != NULL_TREE)
400 : : {
401 : 182 : diag_location = get_class_access_diagnostic_decl (parent_binfo,
402 : : diag_decl);
403 : :
404 : : /* We also at this point know that the reason access failed was
405 : : because decl was private. */
406 : 182 : access_failure_reason = ak_private;
407 : : }
408 : :
409 : : /* Finally, generate an error message. */
410 : 1106 : complain_about_access (decl, diag_decl, diag_location, true,
411 : : access_failure_reason);
412 : : }
413 : 21916 : if (afi)
414 : 406 : afi->record_access_failure (basetype_path, decl, diag_decl);
415 : 21916 : return false;
416 : : }
417 : :
418 : : return true;
419 : : }
420 : :
421 : : /* Perform the access checks in CHECKS. The TREE_PURPOSE of each node
422 : : is the BINFO indicating the qualifying scope used to access the
423 : : DECL node stored in the TREE_VALUE of the node. If CHECKS is empty
424 : : or we aren't in SFINAE context or all the checks succeed return TRUE,
425 : : otherwise FALSE. */
426 : :
427 : : bool
428 : 842785868 : perform_access_checks (vec<deferred_access_check, va_gc> *checks,
429 : : tsubst_flags_t complain)
430 : : {
431 : 842785868 : int i;
432 : 842785868 : deferred_access_check *chk;
433 : 842785868 : location_t loc = input_location;
434 : 842785868 : bool ok = true;
435 : :
436 : 842785868 : if (!checks)
437 : : return true;
438 : :
439 : 90781229 : FOR_EACH_VEC_SAFE_ELT (checks, i, chk)
440 : : {
441 : 51285853 : input_location = chk->loc;
442 : 51285853 : ok &= enforce_access (chk->binfo, chk->decl, chk->diag_decl, complain);
443 : : }
444 : :
445 : 39495376 : input_location = loc;
446 : 39495376 : return (complain & tf_error) ? true : ok;
447 : : }
448 : :
449 : : /* Perform the deferred access checks.
450 : :
451 : : After performing the checks, we still have to keep the list
452 : : `deferred_access_stack->deferred_access_checks' since we may want
453 : : to check access for them again later in a different context.
454 : : For example:
455 : :
456 : : class A {
457 : : typedef int X;
458 : : static X a;
459 : : };
460 : : A::X A::a, x; // No error for `A::a', error for `x'
461 : :
462 : : We have to perform deferred access of `A::X', first with `A::a',
463 : : next with `x'. Return value like perform_access_checks above. */
464 : :
465 : : bool
466 : 213770484 : perform_deferred_access_checks (tsubst_flags_t complain)
467 : : {
468 : 213770484 : return perform_access_checks (get_deferred_access_checks (), complain);
469 : : }
470 : :
471 : : /* Defer checking the accessibility of DECL, when looked up in
472 : : BINFO. DIAG_DECL is the declaration to use to print diagnostics.
473 : : Return value like perform_access_checks above.
474 : : If non-NULL, report failures to AFI. */
475 : :
476 : : bool
477 : 413031470 : perform_or_defer_access_check (tree binfo, tree decl, tree diag_decl,
478 : : tsubst_flags_t complain,
479 : : access_failure_info *afi)
480 : : {
481 : 413031470 : int i;
482 : 413031470 : deferred_access *ptr;
483 : 413031470 : deferred_access_check *chk;
484 : :
485 : : /* Exit if we are in a context that no access checking is performed. */
486 : 413031470 : if (deferred_access_no_check)
487 : : return true;
488 : :
489 : 393526896 : gcc_assert (TREE_CODE (binfo) == TREE_BINFO);
490 : :
491 : 393526896 : ptr = &deferred_access_stack->last ();
492 : :
493 : : /* If we are not supposed to defer access checks, just check now. */
494 : 393526896 : if (ptr->deferring_access_checks_kind == dk_no_deferred)
495 : : {
496 : 208754904 : bool ok = enforce_access (binfo, decl, diag_decl, complain, afi);
497 : 351347977 : return (complain & tf_error) ? true : ok;
498 : : }
499 : :
500 : : /* See if we are already going to perform this check. */
501 : 220849226 : FOR_EACH_VEC_SAFE_ELT (ptr->deferred_access_checks, i, chk)
502 : : {
503 : 47190763 : if (chk->decl == decl && chk->binfo == binfo &&
504 : 11113789 : chk->diag_decl == diag_decl)
505 : : {
506 : : return true;
507 : : }
508 : : }
509 : : /* If not, record the check. */
510 : 173658463 : deferred_access_check new_access = {binfo, decl, diag_decl, input_location};
511 : 173658463 : vec_safe_push (ptr->deferred_access_checks, new_access);
512 : :
513 : 173658463 : return true;
514 : : }
515 : :
516 : : /* Returns nonzero if the current statement is a full expression,
517 : : i.e. temporaries created during that statement should be destroyed
518 : : at the end of the statement. */
519 : :
520 : : int
521 : 1055899409 : stmts_are_full_exprs_p (void)
522 : : {
523 : 1055899409 : return current_stmt_tree ()->stmts_are_full_exprs_p;
524 : : }
525 : :
526 : : /* T is a statement. Add it to the statement-tree. This is the C++
527 : : version. The C/ObjC frontends have a slightly different version of
528 : : this function. */
529 : :
530 : : tree
531 : 977826481 : add_stmt (tree t)
532 : : {
533 : 977826481 : enum tree_code code = TREE_CODE (t);
534 : :
535 : 977826481 : if (EXPR_P (t) && code != LABEL_EXPR)
536 : : {
537 : 937934751 : if (!EXPR_HAS_LOCATION (t))
538 : 157339982 : SET_EXPR_LOCATION (t, input_location);
539 : :
540 : : /* When we expand a statement-tree, we must know whether or not the
541 : : statements are full-expressions. We record that fact here. */
542 : 937934751 : if (STATEMENT_CODE_P (TREE_CODE (t)))
543 : 237756494 : STMT_IS_FULL_EXPR_P (t) = stmts_are_full_exprs_p ();
544 : : }
545 : :
546 : 977826481 : if (code == LABEL_EXPR || code == CASE_LABEL_EXPR)
547 : 3151386 : STATEMENT_LIST_HAS_LABEL (cur_stmt_list) = 1;
548 : :
549 : : /* Add T to the statement-tree. Non-side-effect statements need to be
550 : : recorded during statement expressions. */
551 : 977826481 : gcc_checking_assert (!stmt_list_stack->is_empty ());
552 : 977826481 : append_to_statement_list_force (t, &cur_stmt_list);
553 : :
554 : 977826481 : return t;
555 : : }
556 : :
557 : : /* Returns the stmt_tree to which statements are currently being added. */
558 : :
559 : : stmt_tree
560 : 5695674357 : current_stmt_tree (void)
561 : : {
562 : 5695674357 : return (cfun
563 : 5681786057 : ? &cfun->language->base.x_stmt_tree
564 : 5695674357 : : &scope_chain->x_stmt_tree);
565 : : }
566 : :
567 : : /* If statements are full expressions, wrap STMT in a CLEANUP_POINT_EXPR. */
568 : :
569 : : static tree
570 : 293272 : maybe_cleanup_point_expr (tree expr)
571 : : {
572 : 293272 : if (!processing_template_decl && stmts_are_full_exprs_p ())
573 : 286336 : expr = fold_build_cleanup_point_expr (TREE_TYPE (expr), expr);
574 : 293272 : return expr;
575 : : }
576 : :
577 : : /* Like maybe_cleanup_point_expr except have the type of the new expression be
578 : : void so we don't need to create a temporary variable to hold the inner
579 : : expression. The reason why we do this is because the original type might be
580 : : an aggregate and we cannot create a temporary variable for that type. */
581 : :
582 : : tree
583 : 243575467 : maybe_cleanup_point_expr_void (tree expr)
584 : : {
585 : 243575467 : if (!processing_template_decl && stmts_are_full_exprs_p ())
586 : 89001319 : expr = fold_build_cleanup_point_expr (void_type_node, expr);
587 : 243575467 : return expr;
588 : : }
589 : :
590 : :
591 : :
592 : : /* Create a declaration statement for the declaration given by the DECL. */
593 : :
594 : : void
595 : 78772432 : add_decl_expr (tree decl)
596 : : {
597 : 78772432 : tree r = build_stmt (DECL_SOURCE_LOCATION (decl), DECL_EXPR, decl);
598 : 78772432 : if (DECL_INITIAL (decl)
599 : 78772432 : || (DECL_SIZE (decl) && TREE_SIDE_EFFECTS (DECL_SIZE (decl))))
600 : 6183220 : r = maybe_cleanup_point_expr_void (r);
601 : 78772432 : add_stmt (r);
602 : 78772432 : }
603 : :
604 : : /* Set EXPR_LOCATION of the cleanups of any CLEANUP_STMT in STMTS to LOC. */
605 : :
606 : : static void
607 : 924698870 : set_cleanup_locs (tree stmts, location_t loc)
608 : : {
609 : 929700682 : if (TREE_CODE (stmts) == CLEANUP_STMT)
610 : : {
611 : 5001812 : tree t = CLEANUP_EXPR (stmts);
612 : 5001812 : if (t && TREE_CODE (t) != POSTCONDITION_STMT)
613 : 5001812 : protected_set_expr_location (t, loc);
614 : : /* Avoid locus differences for C++ cdtor calls depending on whether
615 : : cdtor_returns_this: a conversion to void is added to discard the return
616 : : value, and this conversion ends up carrying the location, and when it
617 : : gets discarded, the location is lost. So hold it in the call as
618 : : well. */
619 : 5001812 : if (TREE_CODE (t) == NOP_EXPR
620 : 0 : && TREE_TYPE (t) == void_type_node
621 : 5001812 : && TREE_CODE (TREE_OPERAND (t, 0)) == CALL_EXPR)
622 : 0 : protected_set_expr_location (TREE_OPERAND (t, 0), loc);
623 : 5001812 : set_cleanup_locs (CLEANUP_BODY (stmts), loc);
624 : : }
625 : 924698870 : else if (TREE_CODE (stmts) == STATEMENT_LIST)
626 : 830784533 : for (tree stmt : tsi_range (stmts))
627 : 639508216 : set_cleanup_locs (stmt, loc);
628 : 924698870 : }
629 : :
630 : : /* True iff the innermost block scope is a try block. */
631 : :
632 : : static bool
633 : 285190654 : at_try_scope ()
634 : : {
635 : 285190654 : cp_binding_level *b = current_binding_level;
636 : 285190924 : while (b && b->kind == sk_cleanup)
637 : 270 : b = b->level_chain;
638 : 285190654 : return b && b->kind == sk_try;
639 : : }
640 : :
641 : : /* Finish a scope. */
642 : :
643 : : tree
644 : 285190654 : do_poplevel (tree stmt_list)
645 : : {
646 : 285190654 : tree block = NULL;
647 : :
648 : 285190654 : bool was_try = at_try_scope ();
649 : :
650 : 285190654 : if (stmts_are_full_exprs_p ())
651 : 285171710 : block = poplevel (kept_level_p (), 1, 0);
652 : :
653 : : /* This needs to come after poplevel merges sk_cleanup statement_lists. */
654 : 285190654 : maybe_splice_retval_cleanup (stmt_list, was_try);
655 : :
656 : 285190654 : stmt_list = pop_stmt_list (stmt_list);
657 : :
658 : : /* input_location is the last token of the scope, usually a }. */
659 : 285190654 : set_cleanup_locs (stmt_list, input_location);
660 : :
661 : 285190654 : if (!processing_template_decl)
662 : : {
663 : 87036040 : stmt_list = c_build_bind_expr (input_location, block, stmt_list);
664 : : /* ??? See c_end_compound_stmt re statement expressions. */
665 : : }
666 : :
667 : 285190654 : return stmt_list;
668 : : }
669 : :
670 : : /* Begin a new scope. */
671 : :
672 : : static tree
673 : 285182435 : do_pushlevel (scope_kind sk)
674 : : {
675 : 285182435 : tree ret = push_stmt_list ();
676 : 285182435 : if (stmts_are_full_exprs_p ())
677 : 285171757 : begin_scope (sk, NULL);
678 : 285182435 : return ret;
679 : : }
680 : :
681 : : /* Queue a cleanup. CLEANUP is an expression/statement to be executed
682 : : when the current scope is exited. EH_ONLY is true when this is not
683 : : meant to apply to normal control flow transfer. DECL is the VAR_DECL
684 : : being cleaned up, if any, or null for temporaries or subobjects. */
685 : :
686 : : void
687 : 5001706 : push_cleanup (tree decl, tree cleanup, bool eh_only)
688 : : {
689 : 5001706 : tree stmt = build_stmt (input_location, CLEANUP_STMT, NULL, cleanup, decl);
690 : 5001706 : CLEANUP_EH_ONLY (stmt) = eh_only;
691 : 5001706 : add_stmt (stmt);
692 : 5001706 : CLEANUP_BODY (stmt) = push_stmt_list ();
693 : 5001706 : }
694 : :
695 : : /* Simple infinite loop tracking for -Wreturn-type. We keep a stack of all
696 : : the current loops, represented by 'NULL_TREE' if we've seen a possible
697 : : exit, and 'error_mark_node' if not. This is currently used only to
698 : : suppress the warning about a function with no return statements, and
699 : : therefore we don't bother noting returns as possible exits. We also
700 : : don't bother with gotos. */
701 : :
702 : : static void
703 : 14572988 : begin_maybe_infinite_loop (tree cond)
704 : : {
705 : : /* Only track this while parsing a function, not during instantiation. */
706 : 14572988 : if (!cfun || (DECL_TEMPLATE_INSTANTIATION (current_function_decl)
707 : 2072039 : && !processing_template_decl))
708 : : return;
709 : 12500407 : bool maybe_infinite = true;
710 : 12500407 : if (cond)
711 : : {
712 : 12292417 : cond = fold_non_dependent_expr (cond);
713 : 12292417 : maybe_infinite = integer_nonzerop (cond);
714 : : }
715 : 24792824 : vec_safe_push (cp_function_chain->infinite_loops,
716 : 12500407 : maybe_infinite ? error_mark_node : NULL_TREE);
717 : :
718 : : }
719 : :
720 : : /* A break is a possible exit for the current loop. */
721 : :
722 : : void
723 : 1313763 : break_maybe_infinite_loop (void)
724 : : {
725 : 1313763 : if (!cfun)
726 : : return;
727 : 1313763 : cp_function_chain->infinite_loops->last() = NULL_TREE;
728 : : }
729 : :
730 : : /* If we reach the end of the loop without seeing a possible exit, we have
731 : : an infinite loop. */
732 : :
733 : : static void
734 : 14572988 : end_maybe_infinite_loop (tree cond)
735 : : {
736 : 14572988 : if (!cfun || (DECL_TEMPLATE_INSTANTIATION (current_function_decl)
737 : 2072039 : && !processing_template_decl))
738 : : return;
739 : 12500407 : tree current = cp_function_chain->infinite_loops->pop();
740 : 12500407 : if (current != NULL_TREE)
741 : : {
742 : 3935894 : cond = fold_non_dependent_expr (cond);
743 : 3935894 : if (integer_nonzerop (cond))
744 : 198124 : current_function_infinite_loop = 1;
745 : : }
746 : : }
747 : :
748 : : /* Begin a conditional that might contain a declaration. When generating
749 : : normal code, we want the declaration to appear before the statement
750 : : containing the conditional. When generating template code, we want the
751 : : conditional to be rendered as the raw DECL_EXPR. */
752 : :
753 : : static void
754 : 61322920 : begin_cond (tree *cond_p)
755 : : {
756 : 61322920 : if (processing_template_decl)
757 : 43187592 : *cond_p = push_stmt_list ();
758 : 61322920 : }
759 : :
760 : : /* Finish such a conditional. */
761 : :
762 : : static void
763 : 61322920 : finish_cond (tree *cond_p, tree expr)
764 : : {
765 : 61322920 : if (processing_template_decl)
766 : : {
767 : 43187592 : tree cond = pop_stmt_list (*cond_p);
768 : :
769 : 43187592 : if (expr == NULL_TREE)
770 : : /* Empty condition in 'for'. */
771 : 205948 : gcc_assert (empty_expr_stmt_p (cond));
772 : 42981644 : else if (check_for_bare_parameter_packs (expr))
773 : 0 : expr = error_mark_node;
774 : 42981644 : else if (!empty_expr_stmt_p (cond))
775 : 574165 : expr = build2 (COMPOUND_EXPR, TREE_TYPE (expr), cond, expr);
776 : : }
777 : 61322920 : *cond_p = expr;
778 : 61322920 : }
779 : :
780 : : /* If *COND_P specifies a conditional with a declaration, transform the
781 : : loop such that
782 : : while (A x = 42) { }
783 : : for (; A x = 42;) { }
784 : : becomes
785 : : while (true) { A x = 42; if (!x) break; }
786 : : for (;;) { A x = 42; if (!x) break; }
787 : : The statement list for BODY will be empty if the conditional did
788 : : not declare anything. */
789 : :
790 : : static void
791 : 9958621 : simplify_loop_decl_cond (tree *cond_p, tree body)
792 : : {
793 : 9958621 : tree cond, if_stmt;
794 : :
795 : 9958621 : if (!TREE_SIDE_EFFECTS (body))
796 : 9949013 : return;
797 : :
798 : 9608 : cond = *cond_p;
799 : 9608 : *cond_p = boolean_true_node;
800 : :
801 : 9608 : if_stmt = begin_if_stmt ();
802 : 9608 : cond_p = &cond;
803 : 19228 : while (TREE_CODE (*cond_p) == ANNOTATE_EXPR)
804 : 12 : cond_p = &TREE_OPERAND (*cond_p, 0);
805 : 9608 : *cond_p = cp_build_unary_op (TRUTH_NOT_EXPR, *cond_p, false,
806 : : tf_warning_or_error);
807 : 9608 : finish_if_stmt_cond (cond, if_stmt);
808 : 9608 : finish_break_stmt ();
809 : 9608 : finish_then_clause (if_stmt);
810 : 9608 : finish_if_stmt (if_stmt);
811 : : }
812 : :
813 : : /* Finish a goto-statement. */
814 : :
815 : : tree
816 : 1513 : finish_goto_stmt (tree destination)
817 : : {
818 : 1513 : if (identifier_p (destination))
819 : 1391 : destination = lookup_label (destination);
820 : :
821 : : /* We warn about unused labels with -Wunused. That means we have to
822 : : mark the used labels as used. */
823 : 1513 : if (TREE_CODE (destination) == LABEL_DECL)
824 : 1391 : TREE_USED (destination) = 1;
825 : : else
826 : : {
827 : 122 : destination = mark_rvalue_use (destination);
828 : 122 : if (!processing_template_decl)
829 : : {
830 : 102 : destination = cp_convert (ptr_type_node, destination,
831 : : tf_warning_or_error);
832 : 102 : if (error_operand_p (destination))
833 : : return NULL_TREE;
834 : 93 : destination
835 : 93 : = fold_build_cleanup_point_expr (TREE_TYPE (destination),
836 : : destination);
837 : : }
838 : : }
839 : :
840 : 1504 : check_goto (destination);
841 : :
842 : 1504 : add_stmt (build_predict_expr (PRED_GOTO, NOT_TAKEN));
843 : 1504 : return add_stmt (build_stmt (input_location, GOTO_EXPR, destination));
844 : : }
845 : :
846 : : /* Returns true if T corresponds to an assignment operator expression. */
847 : :
848 : : static bool
849 : 718784 : is_assignment_op_expr_p (tree t)
850 : : {
851 : 718784 : if (t == NULL_TREE)
852 : : return false;
853 : :
854 : 718784 : if (TREE_CODE (t) == MODIFY_EXPR
855 : 718784 : || (TREE_CODE (t) == MODOP_EXPR
856 : 329 : && TREE_CODE (TREE_OPERAND (t, 1)) == NOP_EXPR))
857 : : return true;
858 : :
859 : 718200 : tree call = extract_call_expr (t);
860 : 718200 : if (call == NULL_TREE
861 : 117984 : || call == error_mark_node
862 : 836184 : || !CALL_EXPR_OPERATOR_SYNTAX (call))
863 : : return false;
864 : :
865 : 4300 : tree fndecl = cp_get_callee_fndecl_nofold (call);
866 : 4300 : return fndecl != NULL_TREE
867 : 4272 : && DECL_ASSIGNMENT_OPERATOR_P (fndecl)
868 : 4351 : && DECL_OVERLOADED_OPERATOR_IS (fndecl, NOP_EXPR);
869 : : }
870 : :
871 : : /* Return true if TYPE is a class type that is convertible to
872 : : and assignable from bool. */
873 : :
874 : : static GTY((deletable)) hash_map<tree, bool> *boolish_class_type_p_cache;
875 : :
876 : : static bool
877 : 60 : boolish_class_type_p (tree type)
878 : : {
879 : 60 : type = TYPE_MAIN_VARIANT (type);
880 : 60 : if (!CLASS_TYPE_P (type) || !COMPLETE_TYPE_P (type))
881 : : return false;
882 : :
883 : 78 : if (bool *r = hash_map_safe_get (boolish_class_type_p_cache, type))
884 : 27 : return *r;
885 : :
886 : 18 : tree ops;
887 : 18 : bool has_bool_assignment = false;
888 : 18 : bool has_bool_conversion = false;
889 : :
890 : 18 : ops = lookup_fnfields (type, assign_op_identifier, /*protect=*/0, tf_none);
891 : 55 : for (tree op : ovl_range (BASELINK_FUNCTIONS (ops)))
892 : : {
893 : 29 : op = STRIP_TEMPLATE (op);
894 : 29 : if (TREE_CODE (op) != FUNCTION_DECL)
895 : 0 : continue;
896 : 29 : tree parm = DECL_CHAIN (DECL_ARGUMENTS (op));
897 : 29 : tree parm_type = non_reference (TREE_TYPE (parm));
898 : 29 : if (TREE_CODE (parm_type) == BOOLEAN_TYPE)
899 : : {
900 : : has_bool_assignment = true;
901 : : break;
902 : : }
903 : : }
904 : :
905 : 18 : if (has_bool_assignment)
906 : : {
907 : 3 : ops = lookup_conversions (type);
908 : 3 : for (; ops; ops = TREE_CHAIN (ops))
909 : : {
910 : 3 : tree op = TREE_VALUE (ops);
911 : 3 : if (!DECL_NONCONVERTING_P (op)
912 : 3 : && TREE_CODE (DECL_CONV_FN_TYPE (op)) == BOOLEAN_TYPE)
913 : : {
914 : : has_bool_conversion = true;
915 : : break;
916 : : }
917 : : }
918 : : }
919 : :
920 : 18 : bool boolish = has_bool_assignment && has_bool_conversion;
921 : 18 : hash_map_safe_put<true> (boolish_class_type_p_cache, type, boolish);
922 : 18 : return boolish;
923 : : }
924 : :
925 : :
926 : : /* Maybe warn about an unparenthesized 'a = b' (appearing in a
927 : : boolean context where 'a == b' might have been intended).
928 : : NESTED_P is true if T is the RHS of another assignment. */
929 : :
930 : : void
931 : 57730502 : maybe_warn_unparenthesized_assignment (tree t, bool nested_p,
932 : : tsubst_flags_t complain)
933 : : {
934 : 57730502 : tree type = TREE_TYPE (t);
935 : 57730502 : t = STRIP_REFERENCE_REF (t);
936 : :
937 : 57730502 : if ((complain & tf_warning)
938 : 57695794 : && warn_parentheses
939 : 718784 : && is_assignment_op_expr_p (t)
940 : : /* A parenthesized expression would've had this warning
941 : : suppressed by finish_parenthesized_expr. */
942 : 635 : && !warning_suppressed_p (t, OPT_Wparentheses)
943 : : /* In c = a = b, don't warn if a has type bool or bool-like class. */
944 : 57730753 : && (!nested_p
945 : 80 : || (TREE_CODE (type) != BOOLEAN_TYPE
946 : 60 : && !boolish_class_type_p (type))))
947 : : {
948 : 219 : warning_at (cp_expr_loc_or_input_loc (t), OPT_Wparentheses,
949 : : "suggest parentheses around assignment used as truth value");
950 : 219 : suppress_warning (t, OPT_Wparentheses);
951 : : }
952 : 57730502 : }
953 : :
954 : : /* Helper class for saving/restoring ANNOTATE_EXPRs. For a tree node t, users
955 : : can construct one of these like so:
956 : :
957 : : annotate_saver s (&t);
958 : :
959 : : and t will be updated to have any annotations removed. The user can then
960 : : transform t, and later restore the ANNOTATE_EXPRs with:
961 : :
962 : : t = s.restore (t).
963 : :
964 : : The intent is to ensure that any ANNOTATE_EXPRs remain the outermost
965 : : expressions following any operations on t. */
966 : :
967 : : class annotate_saver {
968 : : /* The chain of saved annotations, if there were any. Otherwise null. */
969 : : tree m_annotations;
970 : :
971 : : /* If M_ANNOTATIONS is non-null, then M_INNER points to TREE_OPERAND (A, 0)
972 : : for the innermost annotation A. */
973 : : tree *m_inner;
974 : :
975 : : public:
976 : : annotate_saver (tree *);
977 : : tree restore (tree);
978 : : };
979 : :
980 : : /* If *COND is an ANNOTATE_EXPR, walk through the chain of annotations, and set
981 : : *COND equal to the first non-ANNOTATE_EXPR (saving a pointer to the
982 : : original chain of annotations for later use in restore). */
983 : :
984 : 37637525 : annotate_saver::annotate_saver (tree *cond) : m_annotations (nullptr)
985 : : {
986 : 37637525 : tree *t = cond;
987 : 37640370 : while (TREE_CODE (*t) == ANNOTATE_EXPR)
988 : 2845 : t = &TREE_OPERAND (*t, 0);
989 : :
990 : 37637525 : if (t != cond)
991 : : {
992 : 2845 : m_annotations = *cond;
993 : 2845 : *cond = *t;
994 : 2845 : m_inner = t;
995 : : }
996 : 37637525 : }
997 : :
998 : : /* If we didn't strip any annotations on construction, return NEW_INNER
999 : : unmodified. Otherwise, wrap the saved annotations around NEW_INNER (updating
1000 : : the types and flags of the annotations if needed) and return the resulting
1001 : : expression. */
1002 : :
1003 : : tree
1004 : 37637525 : annotate_saver::restore (tree new_inner)
1005 : : {
1006 : 37637525 : if (!m_annotations)
1007 : : return new_inner;
1008 : :
1009 : : /* If the type of the inner expression changed, we need to update the types
1010 : : of all the ANNOTATE_EXPRs. We may need to update the flags too, but we
1011 : : assume they only change if the type of the inner expression changes.
1012 : : The flag update logic assumes that the other operands to the
1013 : : ANNOTATE_EXPRs are always INTEGER_CSTs. */
1014 : 2845 : if (TREE_TYPE (new_inner) != TREE_TYPE (*m_inner))
1015 : : {
1016 : 6 : const bool new_readonly
1017 : 6 : = TREE_READONLY (new_inner) || CONSTANT_CLASS_P (new_inner);
1018 : :
1019 : 12 : for (tree c = m_annotations; c != *m_inner; c = TREE_OPERAND (c, 0))
1020 : : {
1021 : 6 : gcc_checking_assert (TREE_CODE (c) == ANNOTATE_EXPR
1022 : : && TREE_CODE (TREE_OPERAND (c, 1)) == INTEGER_CST
1023 : : && TREE_CODE (TREE_OPERAND (c, 2)) == INTEGER_CST);
1024 : 6 : TREE_TYPE (c) = TREE_TYPE (new_inner);
1025 : 6 : TREE_SIDE_EFFECTS (c) = TREE_SIDE_EFFECTS (new_inner);
1026 : 6 : TREE_READONLY (c) = new_readonly;
1027 : : }
1028 : : }
1029 : :
1030 : 2845 : *m_inner = new_inner;
1031 : 2845 : return m_annotations;
1032 : : }
1033 : :
1034 : : /* COND is the condition-expression for an if, while, etc.,
1035 : : statement. Convert it to a boolean value, if appropriate.
1036 : : In addition, verify sequence points if -Wsequence-point is enabled. */
1037 : :
1038 : : static tree
1039 : 65310486 : maybe_convert_cond (tree cond)
1040 : : {
1041 : : /* Empty conditions remain empty. */
1042 : 65310486 : if (!cond)
1043 : : return NULL_TREE;
1044 : :
1045 : : /* Wait until we instantiate templates before doing conversion. */
1046 : 65048595 : if (type_dependent_expression_p (cond))
1047 : 27411070 : return cond;
1048 : :
1049 : : /* Strip any ANNOTATE_EXPRs from COND. */
1050 : 37637525 : annotate_saver annotations (&cond);
1051 : :
1052 : : /* For structured binding used in condition, the conversion needs to be
1053 : : evaluated before the individual variables are initialized in the
1054 : : std::tuple_{size,elemenet} case. cp_finish_decomp saved the conversion
1055 : : result in a TARGET_EXPR, pick it up from there. */
1056 : 333722 : if (DECL_DECOMPOSITION_P (cond)
1057 : 171 : && DECL_DECOMP_IS_BASE (cond)
1058 : 171 : && DECL_DECOMP_BASE (cond)
1059 : 37637693 : && TREE_CODE (DECL_DECOMP_BASE (cond)) == TARGET_EXPR)
1060 : 42 : cond = TARGET_EXPR_SLOT (DECL_DECOMP_BASE (cond));
1061 : :
1062 : 37637525 : if (warn_sequence_point && !processing_template_decl)
1063 : 289023 : verify_sequence_points (cond);
1064 : :
1065 : 37637525 : maybe_warn_unparenthesized_assignment (cond, /*nested_p=*/false,
1066 : : tf_warning_or_error);
1067 : :
1068 : : /* Do the conversion. */
1069 : 37637525 : cond = convert_from_reference (cond);
1070 : 37637525 : cond = condition_conversion (cond);
1071 : :
1072 : : /* Restore any ANNOTATE_EXPRs around COND. */
1073 : 37637525 : return annotations.restore (cond);
1074 : : }
1075 : :
1076 : : /* Finish an expression-statement, whose EXPRESSION is as indicated. */
1077 : :
1078 : : tree
1079 : 134467682 : finish_expr_stmt (tree expr)
1080 : : {
1081 : 134467682 : tree r = NULL_TREE;
1082 : 134467682 : location_t loc = EXPR_LOCATION (expr);
1083 : :
1084 : 134281937 : if (expr != NULL_TREE)
1085 : : {
1086 : : /* If we ran into a problem, make sure we complained. */
1087 : 134466927 : gcc_assert (expr != error_mark_node || seen_error ());
1088 : :
1089 : 134466927 : if (!processing_template_decl)
1090 : : {
1091 : 51968751 : if (warn_sequence_point)
1092 : 791229 : verify_sequence_points (expr);
1093 : 51968751 : expr = convert_to_void (expr, ICV_STATEMENT, tf_warning_or_error);
1094 : : }
1095 : 82498176 : else if (!type_dependent_expression_p (expr))
1096 : 17043122 : convert_to_void (expr, ICV_STATEMENT, tf_warning_or_error);
1097 : :
1098 : 134466924 : if (check_for_bare_parameter_packs (expr))
1099 : 24 : expr = error_mark_node;
1100 : :
1101 : : /* Simplification of inner statement expressions, compound exprs,
1102 : : etc can result in us already having an EXPR_STMT. */
1103 : 134466924 : if (TREE_CODE (expr) != CLEANUP_POINT_EXPR)
1104 : : {
1105 : 134466751 : if (TREE_CODE (expr) != EXPR_STMT)
1106 : 132819932 : expr = build_stmt (loc, EXPR_STMT, expr);
1107 : 134466751 : expr = maybe_cleanup_point_expr_void (expr);
1108 : : }
1109 : :
1110 : 134466924 : r = add_stmt (expr);
1111 : : }
1112 : :
1113 : 134467679 : return r;
1114 : : }
1115 : :
1116 : :
1117 : : /* Begin an if-statement. Returns a newly created IF_STMT if
1118 : : appropriate. */
1119 : :
1120 : : tree
1121 : 50940601 : begin_if_stmt (void)
1122 : : {
1123 : 50940601 : tree r, scope;
1124 : 50940601 : scope = do_pushlevel (sk_cond);
1125 : 50940601 : r = build_stmt (input_location, IF_STMT, NULL_TREE,
1126 : : NULL_TREE, NULL_TREE, scope);
1127 : 50940601 : current_binding_level->this_entity = r;
1128 : 50940601 : begin_cond (&IF_COND (r));
1129 : 50940601 : return r;
1130 : : }
1131 : :
1132 : : /* Returns true if FN, a CALL_EXPR, is a call to
1133 : : std::is_constant_evaluated or __builtin_is_constant_evaluated. */
1134 : :
1135 : : static bool
1136 : 218430 : is_std_constant_evaluated_p (tree fn)
1137 : : {
1138 : : /* std::is_constant_evaluated takes no arguments. */
1139 : 218430 : if (call_expr_nargs (fn) != 0)
1140 : : return false;
1141 : :
1142 : 73832 : tree fndecl = cp_get_callee_fndecl_nofold (fn);
1143 : 73832 : if (fndecl == NULL_TREE)
1144 : : return false;
1145 : :
1146 : 19370 : if (fndecl_built_in_p (fndecl, CP_BUILT_IN_IS_CONSTANT_EVALUATED,
1147 : : BUILT_IN_FRONTEND))
1148 : : return true;
1149 : :
1150 : 19345 : if (!decl_in_std_namespace_p (fndecl))
1151 : : return false;
1152 : :
1153 : 6528 : tree name = DECL_NAME (fndecl);
1154 : 6528 : return name && id_equal (name, "is_constant_evaluated");
1155 : : }
1156 : :
1157 : : /* Callback function for maybe_warn_for_constant_evaluated that looks
1158 : : for calls to std::is_constant_evaluated in TP. */
1159 : :
1160 : : static tree
1161 : 4073618 : find_std_constant_evaluated_r (tree *tp, int *walk_subtrees, void *)
1162 : : {
1163 : 4073618 : tree t = *tp;
1164 : :
1165 : 4073618 : if (TYPE_P (t) || TREE_CONSTANT (t))
1166 : : {
1167 : 699933 : *walk_subtrees = false;
1168 : 699933 : return NULL_TREE;
1169 : : }
1170 : :
1171 : 3373685 : switch (TREE_CODE (t))
1172 : : {
1173 : 218430 : case CALL_EXPR:
1174 : 218430 : if (is_std_constant_evaluated_p (t))
1175 : : return t;
1176 : : break;
1177 : 6 : case EXPR_STMT:
1178 : : /* Don't warn in statement expressions. */
1179 : 6 : *walk_subtrees = false;
1180 : 6 : return NULL_TREE;
1181 : : default:
1182 : : break;
1183 : : }
1184 : :
1185 : : return NULL_TREE;
1186 : : }
1187 : :
1188 : : /* In certain contexts, std::is_constant_evaluated() is always true (for
1189 : : instance, in a consteval function or in a constexpr if), or always false
1190 : : (e.g., in a non-constexpr non-consteval function) so give the user a clue. */
1191 : :
1192 : : static void
1193 : 51015879 : maybe_warn_for_constant_evaluated (tree cond, bool constexpr_if,
1194 : : bool trivial_infinite)
1195 : : {
1196 : 51015879 : if (!warn_tautological_compare)
1197 : : return;
1198 : :
1199 : : /* Suppress warning for std::is_constant_evaluated if the conditional
1200 : : comes from a macro. */
1201 : 1233152 : if (from_macro_expansion_at (EXPR_LOCATION (cond)))
1202 : : return;
1203 : :
1204 : 511306 : cond = cp_walk_tree_without_duplicates (&cond, find_std_constant_evaluated_r,
1205 : : NULL);
1206 : 511306 : if (cond)
1207 : : {
1208 : 725 : if (constexpr_if)
1209 : 32 : warning_at (EXPR_LOCATION (cond), OPT_Wtautological_compare,
1210 : : "%<std::is_constant_evaluated%> always evaluates to "
1211 : : "true in %<if constexpr%>");
1212 : 693 : else if (trivial_infinite)
1213 : : {
1214 : 8 : auto_diagnostic_group d;
1215 : 8 : if (warning_at (EXPR_LOCATION (cond), OPT_Wtautological_compare,
1216 : : "%<std::is_constant_evaluated%> evaluates to "
1217 : : "true when checking if trivially empty iteration "
1218 : : "statement is trivial infinite loop")
1219 : 8 : && !maybe_constexpr_fn (current_function_decl))
1220 : 8 : inform (EXPR_LOCATION (cond),
1221 : : "and evaluates to false when actually evaluating "
1222 : : "the condition in non-%<constexpr%> function");
1223 : 8 : }
1224 : 685 : else if (!maybe_constexpr_fn (current_function_decl))
1225 : 22 : warning_at (EXPR_LOCATION (cond), OPT_Wtautological_compare,
1226 : : "%<std::is_constant_evaluated%> always evaluates to "
1227 : : "false in a non-%<constexpr%> function");
1228 : 1326 : else if (DECL_IMMEDIATE_FUNCTION_P (current_function_decl))
1229 : 3 : warning_at (EXPR_LOCATION (cond), OPT_Wtautological_compare,
1230 : : "%<std::is_constant_evaluated%> always evaluates to "
1231 : : "true in a %<consteval%> function");
1232 : : }
1233 : : }
1234 : :
1235 : : /* Process the COND of an if-statement, which may be given by
1236 : : IF_STMT. */
1237 : :
1238 : : tree
1239 : 50940601 : finish_if_stmt_cond (tree orig_cond, tree if_stmt)
1240 : : {
1241 : 50940601 : tree cond = maybe_convert_cond (orig_cond);
1242 : 50940601 : maybe_warn_for_constant_evaluated (cond, IF_STMT_CONSTEXPR_P (if_stmt),
1243 : : /*trivial_infinite=*/false);
1244 : 50940601 : if (IF_STMT_CONSTEXPR_P (if_stmt)
1245 : 6814633 : && !type_dependent_expression_p (cond)
1246 : 4293266 : && require_constant_expression (cond)
1247 : 4293239 : && !instantiation_dependent_expression_p (cond)
1248 : : /* Wait until instantiation time, since only then COND has been
1249 : : converted to bool. */
1250 : 53515917 : && TYPE_MAIN_VARIANT (TREE_TYPE (cond)) == boolean_type_node)
1251 : : {
1252 : 2575316 : cond = instantiate_non_dependent_expr (cond);
1253 : 2575316 : cond = cxx_constant_value (cond);
1254 : : }
1255 : 48365285 : else if (processing_template_decl)
1256 : 34831045 : cond = orig_cond;
1257 : 50940601 : finish_cond (&IF_COND (if_stmt), cond);
1258 : 50940601 : add_stmt (if_stmt);
1259 : 50940601 : THEN_CLAUSE (if_stmt) = push_stmt_list ();
1260 : 50940601 : return cond;
1261 : : }
1262 : :
1263 : : /* Finish the then-clause of an if-statement, which may be given by
1264 : : IF_STMT. */
1265 : :
1266 : : tree
1267 : 50933316 : finish_then_clause (tree if_stmt)
1268 : : {
1269 : 50933316 : THEN_CLAUSE (if_stmt) = pop_stmt_list (THEN_CLAUSE (if_stmt));
1270 : 50933316 : return if_stmt;
1271 : : }
1272 : :
1273 : : /* Begin the else-clause of an if-statement. */
1274 : :
1275 : : void
1276 : 18380507 : begin_else_clause (tree if_stmt)
1277 : : {
1278 : 18380507 : ELSE_CLAUSE (if_stmt) = push_stmt_list ();
1279 : 18380507 : }
1280 : :
1281 : : /* Finish the else-clause of an if-statement, which may be given by
1282 : : IF_STMT. */
1283 : :
1284 : : void
1285 : 18380507 : finish_else_clause (tree if_stmt)
1286 : : {
1287 : 18380507 : ELSE_CLAUSE (if_stmt) = pop_stmt_list (ELSE_CLAUSE (if_stmt));
1288 : 18380507 : }
1289 : :
1290 : : /* Callback for cp_walk_tree to mark all {VAR,PARM}_DECLs in a tree as
1291 : : read. */
1292 : :
1293 : : static tree
1294 : 338863531 : maybe_mark_exp_read_r (tree *tp, int *, void *)
1295 : : {
1296 : 338863531 : tree t = *tp;
1297 : 338863531 : if (VAR_P (t) || TREE_CODE (t) == PARM_DECL)
1298 : 21840515 : mark_exp_read (t);
1299 : 338863531 : return NULL_TREE;
1300 : : }
1301 : :
1302 : : /* Finish an if-statement. */
1303 : :
1304 : : void
1305 : 50931286 : finish_if_stmt (tree if_stmt)
1306 : : {
1307 : 50931286 : tree scope = IF_SCOPE (if_stmt);
1308 : 50931286 : IF_SCOPE (if_stmt) = NULL;
1309 : 50931286 : if (IF_STMT_CONSTEXPR_P (if_stmt))
1310 : : {
1311 : : /* Prevent various -Wunused warnings. We might not instantiate
1312 : : either of these branches, so we would not mark the variables
1313 : : used in that branch as read. */
1314 : 6807348 : cp_walk_tree_without_duplicates (&THEN_CLAUSE (if_stmt),
1315 : : maybe_mark_exp_read_r, NULL);
1316 : 6807348 : cp_walk_tree_without_duplicates (&ELSE_CLAUSE (if_stmt),
1317 : : maybe_mark_exp_read_r, NULL);
1318 : : }
1319 : 50931286 : add_stmt (do_poplevel (scope));
1320 : 50931286 : }
1321 : :
1322 : : /* Determine if iteration statement with *CONDP condition and
1323 : : loop BODY is trivially empty iteration statement or even
1324 : : trivial infinite loop. In the latter case for -ffinite-loops
1325 : : add ANNOTATE_EXPR to mark the loop as maybe validly infinite.
1326 : : Also, emit -Wtautological-compare warning for std::is_constant_evaluated ()
1327 : : calls in the condition when needed. */
1328 : :
1329 : : static void
1330 : 14105335 : finish_loop_cond (tree *condp, tree body)
1331 : : {
1332 : 14105335 : if (TREE_CODE (*condp) == INTEGER_CST)
1333 : : return;
1334 : 10254669 : bool trivially_empty = expr_first (body) == NULL_TREE;
1335 : 10254669 : bool trivial_infinite = false;
1336 : 10254669 : if (trivially_empty)
1337 : : {
1338 : 71571 : tree c = fold_non_dependent_expr (*condp, tf_none,
1339 : : /*manifestly_const_eval=*/true);
1340 : 71571 : trivial_infinite = c && integer_nonzerop (c);
1341 : : }
1342 : 10254669 : if (warn_tautological_compare)
1343 : : {
1344 : 75436 : tree cond = *condp;
1345 : 75764 : while (TREE_CODE (cond) == ANNOTATE_EXPR)
1346 : 328 : cond = TREE_OPERAND (cond, 0);
1347 : 75436 : if (trivial_infinite
1348 : 75500 : && !DECL_IMMEDIATE_FUNCTION_P (current_function_decl))
1349 : 64 : maybe_warn_for_constant_evaluated (cond, /*constexpr_if=*/false,
1350 : : /*trivial_infinite=*/true);
1351 : 75372 : else if (!trivially_empty
1352 : 313 : || !processing_template_decl
1353 : 75688 : || DECL_IMMEDIATE_FUNCTION_P (current_function_decl))
1354 : 75214 : maybe_warn_for_constant_evaluated (cond, /*constexpr_if=*/false,
1355 : : /*trivial_infinite=*/false);
1356 : : }
1357 : 10254669 : if (trivial_infinite && flag_finite_loops && !processing_template_decl)
1358 : 64 : *condp = build3 (ANNOTATE_EXPR, TREE_TYPE (*condp), *condp,
1359 : 64 : build_int_cst (integer_type_node,
1360 : 64 : annot_expr_maybe_infinite_kind),
1361 : : integer_zero_node);
1362 : : }
1363 : :
1364 : : /* Begin a while-statement. Returns a newly created WHILE_STMT if
1365 : : appropriate. */
1366 : :
1367 : : tree
1368 : 3652428 : begin_while_stmt (void)
1369 : : {
1370 : 3652428 : tree r;
1371 : 3652428 : r = build_stmt (input_location, WHILE_STMT, NULL_TREE, NULL_TREE, NULL_TREE);
1372 : 3652428 : add_stmt (r);
1373 : 3652428 : WHILE_BODY (r) = do_pushlevel (sk_block);
1374 : 3652428 : begin_cond (&WHILE_COND (r));
1375 : 3652428 : return r;
1376 : : }
1377 : :
1378 : : /* Process the COND of a while-statement, which may be given by
1379 : : WHILE_STMT. */
1380 : :
1381 : : void
1382 : 3652428 : finish_while_stmt_cond (tree cond, tree while_stmt, bool ivdep,
1383 : : tree unroll, bool novector)
1384 : : {
1385 : 3652428 : cond = maybe_convert_cond (cond);
1386 : 3652428 : finish_cond (&WHILE_COND (while_stmt), cond);
1387 : 3652428 : begin_maybe_infinite_loop (cond);
1388 : 3652428 : if (ivdep && cond != error_mark_node)
1389 : 24 : WHILE_COND (while_stmt) = build3 (ANNOTATE_EXPR,
1390 : 12 : TREE_TYPE (WHILE_COND (while_stmt)),
1391 : 12 : WHILE_COND (while_stmt),
1392 : 12 : build_int_cst (integer_type_node,
1393 : 12 : annot_expr_ivdep_kind),
1394 : : integer_zero_node);
1395 : 3652428 : if (unroll && cond != error_mark_node)
1396 : 24810 : WHILE_COND (while_stmt) = build3 (ANNOTATE_EXPR,
1397 : 12405 : TREE_TYPE (WHILE_COND (while_stmt)),
1398 : 12405 : WHILE_COND (while_stmt),
1399 : 12405 : build_int_cst (integer_type_node,
1400 : 12405 : annot_expr_unroll_kind),
1401 : : unroll);
1402 : 3652428 : if (novector && cond != error_mark_node)
1403 : 36 : WHILE_COND (while_stmt) = build3 (ANNOTATE_EXPR,
1404 : 18 : TREE_TYPE (WHILE_COND (while_stmt)),
1405 : 18 : WHILE_COND (while_stmt),
1406 : 18 : build_int_cst (integer_type_node,
1407 : 18 : annot_expr_no_vector_kind),
1408 : : integer_zero_node);
1409 : 3652428 : simplify_loop_decl_cond (&WHILE_COND (while_stmt), WHILE_BODY (while_stmt));
1410 : 3652428 : }
1411 : :
1412 : : /* Finish a while-statement, which may be given by WHILE_STMT. */
1413 : :
1414 : : void
1415 : 3652428 : finish_while_stmt (tree while_stmt)
1416 : : {
1417 : 3652428 : end_maybe_infinite_loop (boolean_true_node);
1418 : 3652428 : WHILE_BODY (while_stmt) = do_poplevel (WHILE_BODY (while_stmt));
1419 : 3652428 : finish_loop_cond (&WHILE_COND (while_stmt), WHILE_BODY (while_stmt));
1420 : 3652428 : }
1421 : :
1422 : : /* Begin a do-statement. Returns a newly created DO_STMT if
1423 : : appropriate. */
1424 : :
1425 : : tree
1426 : 4408605 : begin_do_stmt (void)
1427 : : {
1428 : 4408605 : tree r = build_stmt (input_location, DO_STMT, NULL_TREE, NULL_TREE,
1429 : : NULL_TREE);
1430 : 4408605 : begin_maybe_infinite_loop (boolean_true_node);
1431 : 4408605 : add_stmt (r);
1432 : 4408605 : DO_BODY (r) = push_stmt_list ();
1433 : 4408605 : return r;
1434 : : }
1435 : :
1436 : : /* Finish the body of a do-statement, which may be given by DO_STMT. */
1437 : :
1438 : : void
1439 : 4408605 : finish_do_body (tree do_stmt)
1440 : : {
1441 : 4408605 : tree body = DO_BODY (do_stmt) = pop_stmt_list (DO_BODY (do_stmt));
1442 : :
1443 : 4408605 : if (TREE_CODE (body) == STATEMENT_LIST && STATEMENT_LIST_TAIL (body))
1444 : 424914 : body = STATEMENT_LIST_TAIL (body)->stmt;
1445 : :
1446 : 4408605 : if (IS_EMPTY_STMT (body))
1447 : 28 : warning (OPT_Wempty_body,
1448 : : "suggest explicit braces around empty body in %<do%> statement");
1449 : 4408605 : }
1450 : :
1451 : : /* Finish a do-statement, which may be given by DO_STMT, and whose
1452 : : COND is as indicated. */
1453 : :
1454 : : void
1455 : 4408605 : finish_do_stmt (tree cond, tree do_stmt, bool ivdep, tree unroll,
1456 : : bool novector)
1457 : : {
1458 : 4408605 : cond = maybe_convert_cond (cond);
1459 : 4408605 : end_maybe_infinite_loop (cond);
1460 : : /* Unlike other iteration statements, the condition may not contain
1461 : : a declaration, so we don't call finish_cond which checks for
1462 : : unexpanded parameter packs. */
1463 : 4408605 : if (check_for_bare_parameter_packs (cond))
1464 : 3 : cond = error_mark_node;
1465 : 4408605 : if (ivdep && cond != error_mark_node)
1466 : 3 : cond = build3 (ANNOTATE_EXPR, TREE_TYPE (cond), cond,
1467 : 3 : build_int_cst (integer_type_node, annot_expr_ivdep_kind),
1468 : : integer_zero_node);
1469 : 4408605 : if (unroll && cond != error_mark_node)
1470 : 9 : cond = build3 (ANNOTATE_EXPR, TREE_TYPE (cond), cond,
1471 : 9 : build_int_cst (integer_type_node, annot_expr_unroll_kind),
1472 : : unroll);
1473 : 4408605 : if (novector && cond != error_mark_node)
1474 : 0 : cond = build3 (ANNOTATE_EXPR, TREE_TYPE (cond), cond,
1475 : 0 : build_int_cst (integer_type_node, annot_expr_no_vector_kind),
1476 : : integer_zero_node);
1477 : 4408605 : DO_COND (do_stmt) = cond;
1478 : 4408605 : tree do_body = DO_BODY (do_stmt);
1479 : 4408577 : if (CONVERT_EXPR_P (do_body)
1480 : 28 : && integer_zerop (TREE_OPERAND (do_body, 0))
1481 : 4408633 : && VOID_TYPE_P (TREE_TYPE (do_body)))
1482 : : do_body = NULL_TREE;
1483 : 4408605 : finish_loop_cond (&DO_COND (do_stmt), do_body);
1484 : 4408605 : }
1485 : :
1486 : : /* Finish a return-statement. The EXPRESSION returned, if any, is as
1487 : : indicated. */
1488 : :
1489 : : tree
1490 : 96886278 : finish_return_stmt (tree expr)
1491 : : {
1492 : 96886278 : tree r;
1493 : 96886278 : bool no_warning;
1494 : 96886278 : bool dangling;
1495 : :
1496 : 96886278 : expr = check_return_expr (expr, &no_warning, &dangling);
1497 : :
1498 : 96886278 : if (error_operand_p (expr)
1499 : 96886278 : || (flag_openmp && !check_omp_return ()))
1500 : : {
1501 : : /* Suppress -Wreturn-type for this function. */
1502 : 1137 : if (warn_return_type)
1503 : 1131 : suppress_warning (current_function_decl, OPT_Wreturn_type);
1504 : 1137 : return error_mark_node;
1505 : : }
1506 : :
1507 : 96885141 : if (!processing_template_decl)
1508 : : {
1509 : 33686873 : if (warn_sequence_point)
1510 : 989424 : verify_sequence_points (expr);
1511 : : }
1512 : :
1513 : 96885141 : r = build_stmt (input_location, RETURN_EXPR, expr);
1514 : 96885141 : RETURN_EXPR_LOCAL_ADDR_P (r) = dangling;
1515 : 96885141 : if (no_warning)
1516 : 35 : suppress_warning (r, OPT_Wreturn_type);
1517 : 96885141 : r = maybe_cleanup_point_expr_void (r);
1518 : 96885141 : r = add_stmt (r);
1519 : :
1520 : 96885141 : return r;
1521 : : }
1522 : :
1523 : : /* Begin the scope of a for-statement or a range-for-statement.
1524 : : Both the returned trees are to be used in a call to
1525 : : begin_for_stmt or begin_range_for_stmt. */
1526 : :
1527 : : tree
1528 : 6511955 : begin_for_scope (tree *init)
1529 : : {
1530 : 6511955 : tree scope = do_pushlevel (sk_for);
1531 : :
1532 : 6511955 : if (processing_template_decl)
1533 : 5201533 : *init = push_stmt_list ();
1534 : : else
1535 : 1310422 : *init = NULL_TREE;
1536 : :
1537 : 6511955 : return scope;
1538 : : }
1539 : :
1540 : : /* Begin a for-statement. Returns a new FOR_STMT.
1541 : : SCOPE and INIT should be the return of begin_for_scope,
1542 : : or both NULL_TREE */
1543 : :
1544 : : tree
1545 : 6306193 : begin_for_stmt (tree scope, tree init)
1546 : : {
1547 : 6306193 : tree r;
1548 : :
1549 : 6306193 : r = build_stmt (input_location, FOR_STMT, NULL_TREE, NULL_TREE,
1550 : : NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE);
1551 : :
1552 : 6306193 : if (scope == NULL_TREE)
1553 : : {
1554 : 1125405 : gcc_assert (!init);
1555 : 1125405 : scope = begin_for_scope (&init);
1556 : : }
1557 : :
1558 : 6306193 : FOR_INIT_STMT (r) = init;
1559 : 6306193 : FOR_SCOPE (r) = scope;
1560 : :
1561 : 6306193 : return r;
1562 : : }
1563 : :
1564 : : /* Finish the init-statement of a for-statement, which may be
1565 : : given by FOR_STMT. */
1566 : :
1567 : : void
1568 : 6306193 : finish_init_stmt (tree for_stmt)
1569 : : {
1570 : 6306193 : if (processing_template_decl)
1571 : 4995771 : FOR_INIT_STMT (for_stmt) = pop_stmt_list (FOR_INIT_STMT (for_stmt));
1572 : 6306193 : add_stmt (for_stmt);
1573 : 6306193 : FOR_BODY (for_stmt) = do_pushlevel (sk_block);
1574 : 6306193 : begin_cond (&FOR_COND (for_stmt));
1575 : 6306193 : }
1576 : :
1577 : : /* Finish the COND of a for-statement, which may be given by
1578 : : FOR_STMT. */
1579 : :
1580 : : void
1581 : 6306193 : finish_for_cond (tree cond, tree for_stmt, bool ivdep, tree unroll,
1582 : : bool novector)
1583 : : {
1584 : 6306193 : cond = maybe_convert_cond (cond);
1585 : 6306193 : finish_cond (&FOR_COND (for_stmt), cond);
1586 : 6306193 : begin_maybe_infinite_loop (cond);
1587 : 6306193 : if (ivdep && cond != error_mark_node)
1588 : 68 : FOR_COND (for_stmt) = build3 (ANNOTATE_EXPR,
1589 : 34 : TREE_TYPE (FOR_COND (for_stmt)),
1590 : 34 : FOR_COND (for_stmt),
1591 : 34 : build_int_cst (integer_type_node,
1592 : 34 : annot_expr_ivdep_kind),
1593 : : integer_zero_node);
1594 : 6306193 : if (unroll && cond != error_mark_node)
1595 : 408 : FOR_COND (for_stmt) = build3 (ANNOTATE_EXPR,
1596 : 204 : TREE_TYPE (FOR_COND (for_stmt)),
1597 : 204 : FOR_COND (for_stmt),
1598 : 204 : build_int_cst (integer_type_node,
1599 : 204 : annot_expr_unroll_kind),
1600 : : unroll);
1601 : 6306193 : if (novector && cond && cond != error_mark_node)
1602 : 268 : FOR_COND (for_stmt) = build3 (ANNOTATE_EXPR,
1603 : 134 : TREE_TYPE (FOR_COND (for_stmt)),
1604 : 134 : FOR_COND (for_stmt),
1605 : 134 : build_int_cst (integer_type_node,
1606 : 134 : annot_expr_no_vector_kind),
1607 : : integer_zero_node);
1608 : 6306193 : simplify_loop_decl_cond (&FOR_COND (for_stmt), FOR_BODY (for_stmt));
1609 : 6306193 : }
1610 : :
1611 : : /* Finish the increment-EXPRESSION in a for-statement, which may be
1612 : : given by FOR_STMT. */
1613 : :
1614 : : void
1615 : 6300854 : finish_for_expr (tree expr, tree for_stmt)
1616 : : {
1617 : 6300854 : if (!expr)
1618 : : return;
1619 : : /* If EXPR is an overloaded function, issue an error; there is no
1620 : : context available to use to perform overload resolution. */
1621 : 5951323 : if (type_unknown_p (expr))
1622 : : {
1623 : 6 : cxx_incomplete_type_error (expr, TREE_TYPE (expr));
1624 : 6 : expr = error_mark_node;
1625 : : }
1626 : 5951323 : if (!processing_template_decl)
1627 : : {
1628 : 1249340 : if (warn_sequence_point)
1629 : 13526 : verify_sequence_points (expr);
1630 : 1249340 : expr = convert_to_void (expr, ICV_THIRD_IN_FOR,
1631 : : tf_warning_or_error);
1632 : : }
1633 : 4701983 : else if (!type_dependent_expression_p (expr))
1634 : 1832008 : convert_to_void (expr, ICV_THIRD_IN_FOR, tf_warning_or_error);
1635 : 5951323 : expr = maybe_cleanup_point_expr_void (expr);
1636 : 5951323 : if (check_for_bare_parameter_packs (expr))
1637 : 0 : expr = error_mark_node;
1638 : 5951323 : FOR_EXPR (for_stmt) = expr;
1639 : : }
1640 : :
1641 : : /* During parsing of the body, range for uses "__for_{range,begin,end} "
1642 : : decl names to make those unaccessible by code in the body.
1643 : : Find those decls and store into RANGE_FOR_DECL array, so that they
1644 : : can be changed later to ones with underscore instead of space, so that
1645 : : it can be inspected in the debugger. */
1646 : :
1647 : : void
1648 : 6512068 : find_range_for_decls (tree range_for_decl[3])
1649 : : {
1650 : 6512068 : gcc_assert (CPTI_FOR_BEGIN__IDENTIFIER == CPTI_FOR_RANGE__IDENTIFIER + 1
1651 : : && CPTI_FOR_END__IDENTIFIER == CPTI_FOR_RANGE__IDENTIFIER + 2
1652 : : && CPTI_FOR_RANGE_IDENTIFIER == CPTI_FOR_RANGE__IDENTIFIER + 3
1653 : : && CPTI_FOR_BEGIN_IDENTIFIER == CPTI_FOR_BEGIN__IDENTIFIER + 3
1654 : : && CPTI_FOR_END_IDENTIFIER == CPTI_FOR_END__IDENTIFIER + 3);
1655 : 26048272 : for (int i = 0; i < 3; i++)
1656 : : {
1657 : 19536204 : tree id = cp_global_trees[CPTI_FOR_RANGE__IDENTIFIER + i];
1658 : 19536204 : if (IDENTIFIER_BINDING (id)
1659 : 19536204 : && IDENTIFIER_BINDING (id)->scope == current_binding_level)
1660 : : {
1661 : 157980 : range_for_decl[i] = IDENTIFIER_BINDING (id)->value;
1662 : 157980 : gcc_assert (VAR_P (range_for_decl[i])
1663 : : && DECL_ARTIFICIAL (range_for_decl[i]));
1664 : : }
1665 : : }
1666 : 6512068 : }
1667 : :
1668 : : /* Finish the body of a for-statement, which may be given by
1669 : : FOR_STMT. The increment-EXPR for the loop must be
1670 : : provided.
1671 : : It can also finish RANGE_FOR_STMT. */
1672 : :
1673 : : void
1674 : 6511955 : finish_for_stmt (tree for_stmt)
1675 : : {
1676 : 6511955 : end_maybe_infinite_loop (boolean_true_node);
1677 : :
1678 : 6511955 : if (TREE_CODE (for_stmt) == RANGE_FOR_STMT)
1679 : 205762 : RANGE_FOR_BODY (for_stmt) = do_poplevel (RANGE_FOR_BODY (for_stmt));
1680 : : else
1681 : : {
1682 : 6306193 : FOR_BODY (for_stmt) = do_poplevel (FOR_BODY (for_stmt));
1683 : 6306193 : if (FOR_COND (for_stmt))
1684 : 6044302 : finish_loop_cond (&FOR_COND (for_stmt),
1685 : 6044302 : FOR_EXPR (for_stmt) ? integer_one_node
1686 : 128281 : : FOR_BODY (for_stmt));
1687 : : }
1688 : :
1689 : : /* Pop the scope for the body of the loop. */
1690 : 6511955 : tree *scope_ptr = (TREE_CODE (for_stmt) == RANGE_FOR_STMT
1691 : 6511955 : ? &RANGE_FOR_SCOPE (for_stmt)
1692 : 6306193 : : &FOR_SCOPE (for_stmt));
1693 : 6511955 : tree scope = *scope_ptr;
1694 : 6511955 : *scope_ptr = NULL;
1695 : :
1696 : : /* During parsing of the body, range for uses "__for_{range,begin,end} "
1697 : : decl names to make those unaccessible by code in the body.
1698 : : Change it to ones with underscore instead of space, so that it can
1699 : : be inspected in the debugger. */
1700 : 6511955 : tree range_for_decl[3] = { NULL_TREE, NULL_TREE, NULL_TREE };
1701 : 6511955 : find_range_for_decls (range_for_decl);
1702 : :
1703 : : /* P2718R0 - Add CLEANUP_POINT_EXPR so that temporaries in
1704 : : for-range-initializer whose lifetime is extended are destructed
1705 : : here. */
1706 : 6511955 : if (flag_range_for_ext_temps
1707 : 6432444 : && range_for_decl[0]
1708 : 6563926 : && FOR_INIT_STMT (for_stmt))
1709 : : {
1710 : 51971 : tree stmt = pop_stmt_list (FOR_INIT_STMT (for_stmt));
1711 : 51971 : FOR_INIT_STMT (for_stmt) = NULL_TREE;
1712 : 51971 : stmt = build_stmt (EXPR_LOCATION (for_stmt), EXPR_STMT, stmt);
1713 : 51971 : stmt = maybe_cleanup_point_expr_void (stmt);
1714 : 51971 : add_stmt (stmt);
1715 : : }
1716 : :
1717 : 6511955 : add_stmt (do_poplevel (scope));
1718 : :
1719 : : /* If we're being called from build_vec_init, don't mess with the names of
1720 : : the variables for an enclosing range-for. */
1721 : 6511955 : if (!stmts_are_full_exprs_p ())
1722 : 5339 : return;
1723 : :
1724 : 26026464 : for (int i = 0; i < 3; i++)
1725 : 19519848 : if (range_for_decl[i])
1726 : 157865 : DECL_NAME (range_for_decl[i])
1727 : 157865 : = cp_global_trees[CPTI_FOR_RANGE_IDENTIFIER + i];
1728 : : }
1729 : :
1730 : : /* Begin a range-for-statement. Returns a new RANGE_FOR_STMT.
1731 : : SCOPE and INIT should be the return of begin_for_scope,
1732 : : or both NULL_TREE .
1733 : : To finish it call finish_for_stmt(). */
1734 : :
1735 : : tree
1736 : 205762 : begin_range_for_stmt (tree scope, tree init)
1737 : : {
1738 : 205762 : begin_maybe_infinite_loop (boolean_false_node);
1739 : :
1740 : 205762 : tree r = build_stmt (input_location, RANGE_FOR_STMT, NULL_TREE, NULL_TREE,
1741 : : NULL_TREE, NULL_TREE, NULL_TREE, NULL_TREE);
1742 : :
1743 : 205762 : if (scope == NULL_TREE)
1744 : : {
1745 : 6 : gcc_assert (!init);
1746 : 6 : scope = begin_for_scope (&init);
1747 : : }
1748 : :
1749 : : /* Since C++20, RANGE_FOR_STMTs can use the init tree, so save it. */
1750 : 205762 : RANGE_FOR_INIT_STMT (r) = init;
1751 : 205762 : RANGE_FOR_SCOPE (r) = scope;
1752 : :
1753 : 205762 : return r;
1754 : : }
1755 : :
1756 : : /* Finish the head of a range-based for statement, which may
1757 : : be given by RANGE_FOR_STMT. DECL must be the declaration
1758 : : and EXPR must be the loop expression. */
1759 : :
1760 : : void
1761 : 205762 : finish_range_for_decl (tree range_for_stmt, tree decl, tree expr)
1762 : : {
1763 : 205762 : if (processing_template_decl)
1764 : 411524 : RANGE_FOR_INIT_STMT (range_for_stmt)
1765 : 411524 : = pop_stmt_list (RANGE_FOR_INIT_STMT (range_for_stmt));
1766 : 205762 : RANGE_FOR_DECL (range_for_stmt) = decl;
1767 : 205762 : RANGE_FOR_EXPR (range_for_stmt) = expr;
1768 : 205762 : add_stmt (range_for_stmt);
1769 : 205762 : RANGE_FOR_BODY (range_for_stmt) = do_pushlevel (sk_block);
1770 : 205762 : }
1771 : :
1772 : : /* Finish a break-statement. */
1773 : :
1774 : : tree
1775 : 3317184 : finish_break_stmt (void)
1776 : : {
1777 : : /* In switch statements break is sometimes stylistically used after
1778 : : a return statement. This can lead to spurious warnings about
1779 : : control reaching the end of a non-void function when it is
1780 : : inlined. Note that we are calling block_may_fallthru with
1781 : : language specific tree nodes; this works because
1782 : : block_may_fallthru returns true when given something it does not
1783 : : understand. */
1784 : 3317184 : if (!block_may_fallthru (cur_stmt_list))
1785 : 983 : return void_node;
1786 : 3316201 : note_break_stmt ();
1787 : 3316201 : return add_stmt (build_stmt (input_location, BREAK_STMT, NULL_TREE));
1788 : : }
1789 : :
1790 : : /* Finish a continue-statement. */
1791 : :
1792 : : tree
1793 : 155430 : finish_continue_stmt (void)
1794 : : {
1795 : 155430 : return add_stmt (build_stmt (input_location, CONTINUE_STMT, NULL_TREE));
1796 : : }
1797 : :
1798 : : /* Begin a switch-statement. Returns a new SWITCH_STMT if
1799 : : appropriate. */
1800 : :
1801 : : tree
1802 : 423698 : begin_switch_stmt (void)
1803 : : {
1804 : 423698 : tree r, scope;
1805 : :
1806 : 423698 : scope = do_pushlevel (sk_cond);
1807 : 423698 : r = build_stmt (input_location, SWITCH_STMT, NULL_TREE, NULL_TREE, NULL_TREE,
1808 : : scope, NULL_TREE);
1809 : :
1810 : 423698 : begin_cond (&SWITCH_STMT_COND (r));
1811 : :
1812 : 423698 : return r;
1813 : : }
1814 : :
1815 : : /* Finish the cond of a switch-statement. */
1816 : :
1817 : : void
1818 : 423698 : finish_switch_cond (tree cond, tree switch_stmt)
1819 : : {
1820 : 423698 : tree orig_type = NULL;
1821 : :
1822 : 423698 : if (!processing_template_decl)
1823 : : {
1824 : : /* Convert the condition to an integer or enumeration type. */
1825 : 271114 : tree orig_cond = cond;
1826 : : /* For structured binding used in condition, the conversion needs to be
1827 : : evaluated before the individual variables are initialized in the
1828 : : std::tuple_{size,elemenet} case. cp_finish_decomp saved the
1829 : : conversion result in a TARGET_EXPR, pick it up from there. */
1830 : 122 : if (DECL_DECOMPOSITION_P (cond)
1831 : 57 : && DECL_DECOMP_IS_BASE (cond)
1832 : 57 : && DECL_DECOMP_BASE (cond)
1833 : 271168 : && TREE_CODE (DECL_DECOMP_BASE (cond)) == TARGET_EXPR)
1834 : 18 : cond = TARGET_EXPR_SLOT (DECL_DECOMP_BASE (cond));
1835 : 271114 : cond = build_expr_type_conversion (WANT_INT | WANT_ENUM, cond, true);
1836 : 271114 : if (cond == NULL_TREE)
1837 : : {
1838 : 42 : error_at (cp_expr_loc_or_input_loc (orig_cond),
1839 : : "switch quantity not an integer");
1840 : 27 : cond = error_mark_node;
1841 : : }
1842 : : /* We want unlowered type here to handle enum bit-fields. */
1843 : 271114 : orig_type = unlowered_expr_type (cond);
1844 : 271114 : if (TREE_CODE (orig_type) != ENUMERAL_TYPE)
1845 : 161031 : orig_type = TREE_TYPE (cond);
1846 : 271114 : if (cond != error_mark_node)
1847 : : {
1848 : : /* [stmt.switch]
1849 : :
1850 : : Integral promotions are performed. */
1851 : 271081 : cond = perform_integral_promotions (cond);
1852 : 271081 : cond = maybe_cleanup_point_expr (cond);
1853 : : }
1854 : : }
1855 : 423698 : if (check_for_bare_parameter_packs (cond))
1856 : 0 : cond = error_mark_node;
1857 : 423698 : else if (!processing_template_decl && warn_sequence_point)
1858 : 2405 : verify_sequence_points (cond);
1859 : :
1860 : 423698 : finish_cond (&SWITCH_STMT_COND (switch_stmt), cond);
1861 : 423698 : SWITCH_STMT_TYPE (switch_stmt) = orig_type;
1862 : 423698 : add_stmt (switch_stmt);
1863 : 423698 : push_switch (switch_stmt);
1864 : 423698 : SWITCH_STMT_BODY (switch_stmt) = push_stmt_list ();
1865 : 423698 : }
1866 : :
1867 : : /* Finish the body of a switch-statement, which may be given by
1868 : : SWITCH_STMT. The COND to switch on is indicated. */
1869 : :
1870 : : void
1871 : 423698 : finish_switch_stmt (tree switch_stmt)
1872 : : {
1873 : 423698 : tree scope;
1874 : :
1875 : 847396 : SWITCH_STMT_BODY (switch_stmt) =
1876 : 423698 : pop_stmt_list (SWITCH_STMT_BODY (switch_stmt));
1877 : 423698 : pop_switch ();
1878 : :
1879 : 423698 : scope = SWITCH_STMT_SCOPE (switch_stmt);
1880 : 423698 : SWITCH_STMT_SCOPE (switch_stmt) = NULL;
1881 : 423698 : add_stmt (do_poplevel (scope));
1882 : 423698 : }
1883 : :
1884 : : /* Begin a try-block. Returns a newly-created TRY_BLOCK if
1885 : : appropriate. */
1886 : :
1887 : : tree
1888 : 1078712 : begin_try_block (void)
1889 : : {
1890 : 1078712 : tree r = build_stmt (input_location, TRY_BLOCK, NULL_TREE, NULL_TREE);
1891 : 1078712 : add_stmt (r);
1892 : 1078712 : TRY_STMTS (r) = push_stmt_list ();
1893 : 1078712 : return r;
1894 : : }
1895 : :
1896 : : /* Likewise, for a function-try-block. The block returned in
1897 : : *COMPOUND_STMT is an artificial outer scope, containing the
1898 : : function-try-block. */
1899 : :
1900 : : tree
1901 : 334 : begin_function_try_block (tree *compound_stmt)
1902 : : {
1903 : 334 : tree r;
1904 : : /* This outer scope does not exist in the C++ standard, but we need
1905 : : a place to put __FUNCTION__ and similar variables. */
1906 : 334 : *compound_stmt = begin_compound_stmt (0);
1907 : 334 : current_binding_level->artificial = 1;
1908 : 334 : r = begin_try_block ();
1909 : 334 : FN_TRY_BLOCK_P (r) = 1;
1910 : 334 : return r;
1911 : : }
1912 : :
1913 : : /* Finish a try-block, which may be given by TRY_BLOCK. */
1914 : :
1915 : : void
1916 : 1078708 : finish_try_block (tree try_block)
1917 : : {
1918 : 1078708 : TRY_STMTS (try_block) = pop_stmt_list (TRY_STMTS (try_block));
1919 : 1078708 : TRY_HANDLERS (try_block) = push_stmt_list ();
1920 : 1078708 : }
1921 : :
1922 : : /* Finish the body of a cleanup try-block, which may be given by
1923 : : TRY_BLOCK. */
1924 : :
1925 : : void
1926 : 0 : finish_cleanup_try_block (tree try_block)
1927 : : {
1928 : 0 : TRY_STMTS (try_block) = pop_stmt_list (TRY_STMTS (try_block));
1929 : 0 : }
1930 : :
1931 : : /* Finish an implicitly generated try-block, with a cleanup is given
1932 : : by CLEANUP. */
1933 : :
1934 : : void
1935 : 0 : finish_cleanup (tree cleanup, tree try_block)
1936 : : {
1937 : 0 : TRY_HANDLERS (try_block) = cleanup;
1938 : 0 : CLEANUP_P (try_block) = 1;
1939 : 0 : }
1940 : :
1941 : : /* Likewise, for a function-try-block. */
1942 : :
1943 : : void
1944 : 334 : finish_function_try_block (tree try_block)
1945 : : {
1946 : 334 : finish_try_block (try_block);
1947 : : /* FIXME : something queer about CTOR_INITIALIZER somehow following
1948 : : the try block, but moving it inside. */
1949 : 334 : in_function_try_handler = 1;
1950 : 334 : }
1951 : :
1952 : : /* Finish a handler-sequence for a try-block, which may be given by
1953 : : TRY_BLOCK. */
1954 : :
1955 : : void
1956 : 1078708 : finish_handler_sequence (tree try_block)
1957 : : {
1958 : 1078708 : TRY_HANDLERS (try_block) = pop_stmt_list (TRY_HANDLERS (try_block));
1959 : 1078708 : check_handlers (TRY_HANDLERS (try_block));
1960 : 1078708 : }
1961 : :
1962 : : /* Finish the handler-seq for a function-try-block, given by
1963 : : TRY_BLOCK. COMPOUND_STMT is the outer block created by
1964 : : begin_function_try_block. */
1965 : :
1966 : : void
1967 : 334 : finish_function_handler_sequence (tree try_block, tree compound_stmt)
1968 : : {
1969 : 334 : in_function_try_handler = 0;
1970 : 334 : finish_handler_sequence (try_block);
1971 : 334 : finish_compound_stmt (compound_stmt);
1972 : 334 : }
1973 : :
1974 : : /* Begin a handler. Returns a HANDLER if appropriate. */
1975 : :
1976 : : tree
1977 : 1526685 : begin_handler (void)
1978 : : {
1979 : 1526685 : tree r;
1980 : :
1981 : 1526685 : r = build_stmt (input_location, HANDLER, NULL_TREE, NULL_TREE);
1982 : 1526685 : add_stmt (r);
1983 : :
1984 : : /* Create a binding level for the eh_info and the exception object
1985 : : cleanup. */
1986 : 1526685 : HANDLER_BODY (r) = do_pushlevel (sk_catch);
1987 : :
1988 : 1526685 : return r;
1989 : : }
1990 : :
1991 : : /* Finish the handler-parameters for a handler, which may be given by
1992 : : HANDLER. DECL is the declaration for the catch parameter, or NULL
1993 : : if this is a `catch (...)' clause. */
1994 : :
1995 : : void
1996 : 1526685 : finish_handler_parms (tree decl, tree handler)
1997 : : {
1998 : 1526685 : tree type = NULL_TREE;
1999 : 1526685 : if (processing_template_decl)
2000 : : {
2001 : 1397048 : if (decl)
2002 : : {
2003 : 462813 : decl = pushdecl (decl);
2004 : 462813 : decl = push_template_decl (decl);
2005 : 462813 : HANDLER_PARMS (handler) = decl;
2006 : 462813 : type = TREE_TYPE (decl);
2007 : : }
2008 : : }
2009 : : else
2010 : : {
2011 : 129637 : type = expand_start_catch_block (decl);
2012 : 129637 : if (warn_catch_value
2013 : 2017 : && type != NULL_TREE
2014 : 705 : && type != error_mark_node
2015 : 130342 : && !TYPE_REF_P (TREE_TYPE (decl)))
2016 : : {
2017 : 210 : tree orig_type = TREE_TYPE (decl);
2018 : 210 : if (CLASS_TYPE_P (orig_type))
2019 : : {
2020 : 96 : if (TYPE_POLYMORPHIC_P (orig_type))
2021 : 48 : warning_at (DECL_SOURCE_LOCATION (decl),
2022 : : OPT_Wcatch_value_,
2023 : : "catching polymorphic type %q#T by value",
2024 : : orig_type);
2025 : 48 : else if (warn_catch_value > 1)
2026 : 36 : warning_at (DECL_SOURCE_LOCATION (decl),
2027 : : OPT_Wcatch_value_,
2028 : : "catching type %q#T by value", orig_type);
2029 : : }
2030 : 114 : else if (warn_catch_value > 2)
2031 : 54 : warning_at (DECL_SOURCE_LOCATION (decl),
2032 : : OPT_Wcatch_value_,
2033 : : "catching non-reference type %q#T", orig_type);
2034 : : }
2035 : : }
2036 : 1526685 : HANDLER_TYPE (handler) = type;
2037 : 1526685 : }
2038 : :
2039 : : /* Finish a handler, which may be given by HANDLER. The BLOCKs are
2040 : : the return value from the matching call to finish_handler_parms. */
2041 : :
2042 : : void
2043 : 1526685 : finish_handler (tree handler)
2044 : : {
2045 : 1526685 : if (!processing_template_decl)
2046 : 129637 : expand_end_catch_block ();
2047 : 1526685 : HANDLER_BODY (handler) = do_poplevel (HANDLER_BODY (handler));
2048 : 1526685 : }
2049 : :
2050 : : /* Begin a compound statement. FLAGS contains some bits that control the
2051 : : behavior and context. If BCS_NO_SCOPE is set, the compound statement
2052 : : does not define a scope. If BCS_FN_BODY is set, this is the outermost
2053 : : block of a function. If BCS_TRY_BLOCK is set, this is the block
2054 : : created on behalf of a TRY statement. Returns a token to be passed to
2055 : : finish_compound_stmt. */
2056 : :
2057 : : tree
2058 : 219130476 : begin_compound_stmt (unsigned int flags)
2059 : : {
2060 : 219130476 : tree r;
2061 : :
2062 : 219130476 : if (flags & BCS_NO_SCOPE)
2063 : : {
2064 : 3576446 : r = push_stmt_list ();
2065 : 3576446 : STATEMENT_LIST_NO_SCOPE (r) = 1;
2066 : :
2067 : : /* Normally, we try hard to keep the BLOCK for a statement-expression.
2068 : : But, if it's a statement-expression with a scopeless block, there's
2069 : : nothing to keep, and we don't want to accidentally keep a block
2070 : : *inside* the scopeless block. */
2071 : 3576446 : keep_next_level (false);
2072 : : }
2073 : : else
2074 : : {
2075 : 215554030 : scope_kind sk = sk_block;
2076 : 215554030 : if (flags & BCS_TRY_BLOCK)
2077 : : sk = sk_try;
2078 : 214475318 : else if (flags & BCS_TRANSACTION)
2079 : : sk = sk_transaction;
2080 : 214475083 : else if (flags & BCS_STMT_EXPR)
2081 : 28940 : sk = sk_stmt_expr;
2082 : 215554030 : r = do_pushlevel (sk);
2083 : : }
2084 : :
2085 : : /* When processing a template, we need to remember where the braces were,
2086 : : so that we can set up identical scopes when instantiating the template
2087 : : later. BIND_EXPR is a handy candidate for this.
2088 : : Note that do_poplevel won't create a BIND_EXPR itself here (and thus
2089 : : result in nested BIND_EXPRs), since we don't build BLOCK nodes when
2090 : : processing templates. */
2091 : 219130476 : if (processing_template_decl)
2092 : : {
2093 : 148158334 : r = build3 (BIND_EXPR, NULL, NULL, r, NULL);
2094 : 148158334 : BIND_EXPR_TRY_BLOCK (r) = (flags & BCS_TRY_BLOCK) != 0;
2095 : 148158334 : BIND_EXPR_BODY_BLOCK (r) = (flags & BCS_FN_BODY) != 0;
2096 : 148158334 : TREE_SIDE_EFFECTS (r) = 1;
2097 : : }
2098 : :
2099 : 219130476 : return r;
2100 : : }
2101 : :
2102 : : /* Finish a compound-statement, which is given by STMT. */
2103 : :
2104 : : void
2105 : 219130432 : finish_compound_stmt (tree stmt)
2106 : : {
2107 : 219130432 : if (TREE_CODE (stmt) == BIND_EXPR)
2108 : : {
2109 : 148158334 : tree body = do_poplevel (BIND_EXPR_BODY (stmt));
2110 : : /* If the STATEMENT_LIST is empty and this BIND_EXPR isn't special,
2111 : : discard the BIND_EXPR so it can be merged with the containing
2112 : : STATEMENT_LIST. */
2113 : 148158334 : if (TREE_CODE (body) == STATEMENT_LIST
2114 : 135815445 : && STATEMENT_LIST_HEAD (body) == NULL
2115 : 10093702 : && !BIND_EXPR_BODY_BLOCK (stmt)
2116 : 157759241 : && !BIND_EXPR_TRY_BLOCK (stmt))
2117 : : stmt = body;
2118 : : else
2119 : 138557528 : BIND_EXPR_BODY (stmt) = body;
2120 : : }
2121 : 70972098 : else if (STATEMENT_LIST_NO_SCOPE (stmt))
2122 : 3568180 : stmt = pop_stmt_list (stmt);
2123 : : else
2124 : : {
2125 : : /* Destroy any ObjC "super" receivers that may have been
2126 : : created. */
2127 : 67403918 : objc_clear_super_receiver ();
2128 : :
2129 : 67403918 : stmt = do_poplevel (stmt);
2130 : : }
2131 : :
2132 : : /* ??? See c_end_compound_stmt wrt statement expressions. */
2133 : 219130432 : add_stmt (stmt);
2134 : 219130432 : }
2135 : :
2136 : : /* Finish an asm-statement, whose components are a STRING, some
2137 : : OUTPUT_OPERANDS, some INPUT_OPERANDS, some CLOBBERS and some
2138 : : LABELS. Also note whether the asm-statement should be
2139 : : considered volatile, and whether it is asm inline. TOPLEV_P
2140 : : is true if finishing namespace scope extended asm. */
2141 : :
2142 : : tree
2143 : 11249 : finish_asm_stmt (location_t loc, int volatile_p, tree string,
2144 : : tree output_operands, tree input_operands, tree clobbers,
2145 : : tree labels, bool inline_p, bool toplev_p)
2146 : : {
2147 : 11249 : tree r;
2148 : 11249 : tree t;
2149 : 11249 : int ninputs = list_length (input_operands);
2150 : 11249 : int noutputs = list_length (output_operands);
2151 : :
2152 : 11249 : if (!processing_template_decl)
2153 : : {
2154 : 10856 : const char *constraint;
2155 : 10856 : const char **oconstraints;
2156 : 10856 : bool allows_mem, allows_reg, is_inout;
2157 : 10856 : tree operand;
2158 : 10856 : int i;
2159 : :
2160 : 10856 : oconstraints = XALLOCAVEC (const char *, noutputs);
2161 : :
2162 : 10856 : string = resolve_asm_operand_names (string, output_operands,
2163 : : input_operands, labels);
2164 : :
2165 : 27288 : for (i = 0, t = output_operands; t; t = TREE_CHAIN (t), ++i)
2166 : : {
2167 : 16432 : operand = TREE_VALUE (t);
2168 : :
2169 : : /* ??? Really, this should not be here. Users should be using a
2170 : : proper lvalue, dammit. But there's a long history of using
2171 : : casts in the output operands. In cases like longlong.h, this
2172 : : becomes a primitive form of typechecking -- if the cast can be
2173 : : removed, then the output operand had a type of the proper width;
2174 : : otherwise we'll get an error. Gross, but ... */
2175 : 16432 : STRIP_NOPS (operand);
2176 : :
2177 : 16432 : operand = mark_lvalue_use (operand);
2178 : :
2179 : 16432 : if (!lvalue_or_else (operand, lv_asm, tf_warning_or_error))
2180 : 9 : operand = error_mark_node;
2181 : :
2182 : 16432 : if (operand != error_mark_node
2183 : 16432 : && (TREE_READONLY (operand)
2184 : 16417 : || CP_TYPE_CONST_P (TREE_TYPE (operand))
2185 : : /* Functions are not modifiable, even though they are
2186 : : lvalues. */
2187 : 16417 : || FUNC_OR_METHOD_TYPE_P (TREE_TYPE (operand))
2188 : : /* If it's an aggregate and any field is const, then it is
2189 : : effectively const. */
2190 : 16417 : || (CLASS_TYPE_P (TREE_TYPE (operand))
2191 : 22 : && C_TYPE_FIELDS_READONLY (TREE_TYPE (operand)))))
2192 : 6 : cxx_readonly_error (loc, operand, lv_asm);
2193 : :
2194 : : tree *op = &operand;
2195 : 16439 : while (TREE_CODE (*op) == COMPOUND_EXPR)
2196 : 7 : op = &TREE_OPERAND (*op, 1);
2197 : 16432 : switch (TREE_CODE (*op))
2198 : : {
2199 : 30 : case PREINCREMENT_EXPR:
2200 : 30 : case PREDECREMENT_EXPR:
2201 : 30 : case MODIFY_EXPR:
2202 : 30 : *op = genericize_compound_lvalue (*op);
2203 : 30 : op = &TREE_OPERAND (*op, 1);
2204 : 30 : break;
2205 : : default:
2206 : : break;
2207 : : }
2208 : :
2209 : 16432 : constraint = TREE_STRING_POINTER (TREE_VALUE (TREE_PURPOSE (t)));
2210 : 16432 : oconstraints[i] = constraint;
2211 : :
2212 : 16432 : if (parse_output_constraint (&constraint, i, ninputs, noutputs,
2213 : : &allows_mem, &allows_reg, &is_inout))
2214 : : {
2215 : : /* If the operand is going to end up in memory,
2216 : : mark it addressable. */
2217 : 16423 : if (!allows_reg && !cxx_mark_addressable (*op))
2218 : 0 : operand = error_mark_node;
2219 : 16423 : if (allows_reg && toplev_p)
2220 : : {
2221 : 3 : error_at (loc, "constraint allows registers outside of "
2222 : : "a function");
2223 : 3 : operand = error_mark_node;
2224 : : }
2225 : : }
2226 : : else
2227 : 9 : operand = error_mark_node;
2228 : :
2229 : 244 : if (toplev_p && operand != error_mark_node)
2230 : : {
2231 : 21 : if (TREE_SIDE_EFFECTS (operand))
2232 : : {
2233 : 0 : error_at (loc, "side-effects in output operand outside "
2234 : : "of a function");
2235 : 0 : operand = error_mark_node;
2236 : : }
2237 : : else
2238 : : {
2239 : 21 : tree addr
2240 : 21 : = cp_build_addr_expr (operand, tf_warning_or_error);
2241 : 21 : if (addr == error_mark_node)
2242 : 0 : operand = error_mark_node;
2243 : : else
2244 : : {
2245 : 21 : addr = maybe_constant_value (addr);
2246 : 21 : if (!initializer_constant_valid_p (addr,
2247 : 21 : TREE_TYPE (addr)))
2248 : : {
2249 : 3 : error_at (loc, "output operand outside of a "
2250 : : "function is not constant");
2251 : 3 : operand = error_mark_node;
2252 : : }
2253 : : else
2254 : 18 : operand = build_fold_indirect_ref (addr);
2255 : : }
2256 : : }
2257 : : }
2258 : 16411 : else if (operand != error_mark_node && strstr (constraint, "-"))
2259 : : {
2260 : 3 : error_at (loc, "%<-%> modifier used inside of a function");
2261 : 3 : operand = error_mark_node;
2262 : : }
2263 : :
2264 : 16432 : TREE_VALUE (t) = operand;
2265 : : }
2266 : :
2267 : 24889 : for (i = 0, t = input_operands; t; ++i, t = TREE_CHAIN (t))
2268 : : {
2269 : 14033 : constraint = TREE_STRING_POINTER (TREE_VALUE (TREE_PURPOSE (t)));
2270 : 14033 : bool constraint_parsed
2271 : 14033 : = parse_input_constraint (&constraint, i, ninputs, noutputs, 0,
2272 : : oconstraints, &allows_mem, &allows_reg);
2273 : : /* If the operand is going to end up in memory, don't call
2274 : : decay_conversion. */
2275 : 14033 : if (constraint_parsed && !allows_reg && allows_mem)
2276 : 119 : operand = mark_lvalue_use (TREE_VALUE (t));
2277 : : else
2278 : 13914 : operand = decay_conversion (TREE_VALUE (t), tf_warning_or_error);
2279 : :
2280 : : /* If the type of the operand hasn't been determined (e.g.,
2281 : : because it involves an overloaded function), then issue
2282 : : an error message. There's no context available to
2283 : : resolve the overloading. */
2284 : 14033 : if (TREE_TYPE (operand) == unknown_type_node)
2285 : : {
2286 : 3 : error_at (loc,
2287 : : "type of %<asm%> operand %qE could not be determined",
2288 : 3 : TREE_VALUE (t));
2289 : 3 : operand = error_mark_node;
2290 : : }
2291 : :
2292 : 14033 : if (constraint_parsed)
2293 : : {
2294 : : /* If the operand is going to end up in memory,
2295 : : mark it addressable. */
2296 : 14015 : if (!allows_reg && allows_mem)
2297 : : {
2298 : : /* Strip the nops as we allow this case. FIXME, this really
2299 : : should be rejected or made deprecated. */
2300 : 119 : STRIP_NOPS (operand);
2301 : :
2302 : 119 : tree *op = &operand;
2303 : 126 : while (TREE_CODE (*op) == COMPOUND_EXPR)
2304 : 7 : op = &TREE_OPERAND (*op, 1);
2305 : 119 : switch (TREE_CODE (*op))
2306 : : {
2307 : 27 : case PREINCREMENT_EXPR:
2308 : 27 : case PREDECREMENT_EXPR:
2309 : 27 : case MODIFY_EXPR:
2310 : 27 : *op = genericize_compound_lvalue (*op);
2311 : 27 : op = &TREE_OPERAND (*op, 1);
2312 : 27 : break;
2313 : : default:
2314 : : break;
2315 : : }
2316 : :
2317 : 119 : if (!cxx_mark_addressable (*op))
2318 : 0 : operand = error_mark_node;
2319 : : }
2320 : 13896 : else if (!allows_reg && !allows_mem)
2321 : : {
2322 : : /* If constraint allows neither register nor memory,
2323 : : try harder to get a constant. */
2324 : 248 : tree constop = maybe_constant_value (operand);
2325 : 248 : if (TREE_CONSTANT (constop))
2326 : 221 : operand = constop;
2327 : : }
2328 : 14015 : if (allows_reg && toplev_p)
2329 : : {
2330 : 3 : error_at (loc, "constraint allows registers outside of "
2331 : : "a function");
2332 : 3 : operand = error_mark_node;
2333 : : }
2334 : 14015 : if (constraint[0] == ':' && operand != error_mark_node)
2335 : : {
2336 : 36 : tree t = operand;
2337 : 36 : STRIP_NOPS (t);
2338 : 36 : if (TREE_CODE (t) != ADDR_EXPR
2339 : 36 : || !(TREE_CODE (TREE_OPERAND (t, 0)) == FUNCTION_DECL
2340 : 24 : || (VAR_P (TREE_OPERAND (t, 0))
2341 : 18 : && is_global_var (TREE_OPERAND (t, 0)))))
2342 : : {
2343 : 15 : error_at (loc, "%<:%> constraint operand is not address "
2344 : : "of a function or non-automatic variable");
2345 : 15 : operand = error_mark_node;
2346 : : }
2347 : : }
2348 : : }
2349 : : else
2350 : 18 : operand = error_mark_node;
2351 : :
2352 : 14033 : if (toplev_p && operand != error_mark_node)
2353 : : {
2354 : 96 : if (TREE_SIDE_EFFECTS (operand))
2355 : : {
2356 : 6 : error_at (loc, "side-effects in input operand outside "
2357 : : "of a function");
2358 : 6 : operand = error_mark_node;
2359 : : }
2360 : 90 : else if (allows_mem && lvalue_or_else (operand, lv_asm, tf_none))
2361 : : {
2362 : 21 : tree addr = cp_build_addr_expr (operand, tf_warning_or_error);
2363 : 21 : if (addr == error_mark_node)
2364 : 0 : operand = error_mark_node;
2365 : : else
2366 : : {
2367 : 21 : addr = maybe_constant_value (addr);
2368 : 21 : if (!initializer_constant_valid_p (addr,
2369 : 21 : TREE_TYPE (addr)))
2370 : : {
2371 : 3 : error_at (loc, "input operand outside of a "
2372 : : "function is not constant");
2373 : 3 : operand = error_mark_node;
2374 : : }
2375 : : else
2376 : 18 : operand = build_fold_indirect_ref (addr);
2377 : : }
2378 : : }
2379 : : else
2380 : : {
2381 : 69 : operand = maybe_constant_value (operand);
2382 : 69 : if (!initializer_constant_valid_p (operand,
2383 : 69 : TREE_TYPE (operand)))
2384 : : {
2385 : 3 : error_at (loc, "input operand outside of a "
2386 : : "function is not constant");
2387 : 3 : operand = error_mark_node;
2388 : : }
2389 : : }
2390 : : }
2391 : 13937 : else if (operand != error_mark_node && strstr (constraint, "-"))
2392 : : {
2393 : 9 : error_at (loc, "%<-%> modifier used inside of a function");
2394 : 9 : operand = error_mark_node;
2395 : : }
2396 : :
2397 : 14033 : TREE_VALUE (t) = operand;
2398 : : }
2399 : : }
2400 : :
2401 : 11249 : r = build_stmt (loc, ASM_EXPR, string,
2402 : : output_operands, input_operands,
2403 : : clobbers, labels);
2404 : 11249 : ASM_VOLATILE_P (r) = volatile_p || noutputs == 0;
2405 : 11249 : ASM_INLINE_P (r) = inline_p;
2406 : 11249 : if (toplev_p)
2407 : : {
2408 : 93 : symtab->finalize_toplevel_asm (r);
2409 : 93 : return r;
2410 : : }
2411 : 11156 : r = maybe_cleanup_point_expr_void (r);
2412 : 11156 : return add_stmt (r);
2413 : : }
2414 : :
2415 : : /* Finish a label with the indicated NAME. Returns the new label. */
2416 : :
2417 : : tree
2418 : 1872 : finish_label_stmt (tree name)
2419 : : {
2420 : 1872 : tree decl = define_label (input_location, name);
2421 : :
2422 : 1872 : if (decl == error_mark_node)
2423 : : return error_mark_node;
2424 : :
2425 : 1866 : add_stmt (build_stmt (input_location, LABEL_EXPR, decl));
2426 : :
2427 : 1866 : return decl;
2428 : : }
2429 : :
2430 : : /* Finish a series of declarations for local labels. G++ allows users
2431 : : to declare "local" labels, i.e., labels with scope. This extension
2432 : : is useful when writing code involving statement-expressions. */
2433 : :
2434 : : void
2435 : 195 : finish_label_decl (tree name)
2436 : : {
2437 : 195 : if (!at_function_scope_p ())
2438 : : {
2439 : 0 : error ("%<__label__%> declarations are only allowed in function scopes");
2440 : 0 : return;
2441 : : }
2442 : :
2443 : 195 : add_decl_expr (declare_local_label (name));
2444 : : }
2445 : :
2446 : : /* When DECL goes out of scope, make sure that CLEANUP is executed. */
2447 : :
2448 : : void
2449 : 2995396 : finish_decl_cleanup (tree decl, tree cleanup)
2450 : : {
2451 : 2995396 : push_cleanup (decl, cleanup, false);
2452 : 2995396 : }
2453 : :
2454 : : /* If the current scope exits with an exception, run CLEANUP. */
2455 : :
2456 : : void
2457 : 2001098 : finish_eh_cleanup (tree cleanup)
2458 : : {
2459 : 2001098 : push_cleanup (NULL, cleanup, true);
2460 : 2001098 : }
2461 : :
2462 : : /* The MEM_INITS is a list of mem-initializers, in reverse of the
2463 : : order they were written by the user. Each node is as for
2464 : : emit_mem_initializers. */
2465 : :
2466 : : void
2467 : 17361359 : finish_mem_initializers (tree mem_inits)
2468 : : {
2469 : : /* Reorder the MEM_INITS so that they are in the order they appeared
2470 : : in the source program. */
2471 : 17361359 : mem_inits = nreverse (mem_inits);
2472 : :
2473 : 17361359 : if (processing_template_decl)
2474 : : {
2475 : : tree mem;
2476 : :
2477 : 30335175 : for (mem = mem_inits; mem; mem = TREE_CHAIN (mem))
2478 : : {
2479 : : /* If the TREE_PURPOSE is a TYPE_PACK_EXPANSION, skip the
2480 : : check for bare parameter packs in the TREE_VALUE, because
2481 : : any parameter packs in the TREE_VALUE have already been
2482 : : bound as part of the TREE_PURPOSE. See
2483 : : make_pack_expansion for more information. */
2484 : 17912218 : if (TREE_CODE (TREE_PURPOSE (mem)) != TYPE_PACK_EXPANSION
2485 : 17912218 : && check_for_bare_parameter_packs (TREE_VALUE (mem)))
2486 : 3 : TREE_VALUE (mem) = error_mark_node;
2487 : : }
2488 : :
2489 : 12422957 : add_stmt (build_min_nt_loc (UNKNOWN_LOCATION,
2490 : : CTOR_INITIALIZER, mem_inits));
2491 : : }
2492 : : else
2493 : 4938402 : emit_mem_initializers (mem_inits);
2494 : 17361359 : }
2495 : :
2496 : : /* Obfuscate EXPR if it looks like an id-expression or member access so
2497 : : that the call to finish_decltype in do_auto_deduction will give the
2498 : : right result. If EVEN_UNEVAL, do this even in unevaluated context. */
2499 : :
2500 : : tree
2501 : 29591309 : force_paren_expr (tree expr, bool even_uneval /* = false */)
2502 : : {
2503 : : /* This is only needed for decltype(auto) in C++14. */
2504 : 29591309 : if (cxx_dialect < cxx14)
2505 : : return expr;
2506 : :
2507 : : /* If we're in unevaluated context, we can't be deducing a
2508 : : return/initializer type, so we don't need to mess with this. */
2509 : 28991719 : if (cp_unevaluated_operand && !even_uneval)
2510 : : return expr;
2511 : :
2512 : 26802669 : if (TREE_CODE (expr) == COMPONENT_REF
2513 : 26747443 : || TREE_CODE (expr) == SCOPE_REF
2514 : 53545432 : || REFERENCE_REF_P (expr))
2515 : 300556 : REF_PARENTHESIZED_P (expr) = true;
2516 : 26502113 : else if (DECL_P (tree_strip_any_location_wrapper (expr)))
2517 : : {
2518 : 1832885 : location_t loc = cp_expr_location (expr);
2519 : 1832885 : const tree_code code = processing_template_decl ? PAREN_EXPR
2520 : : : VIEW_CONVERT_EXPR;
2521 : 1832885 : expr = build1_loc (loc, code, TREE_TYPE (expr), expr);
2522 : 1832885 : REF_PARENTHESIZED_P (expr) = true;
2523 : : }
2524 : : return expr;
2525 : : }
2526 : :
2527 : : /* If T is an id-expression obfuscated by force_paren_expr, undo the
2528 : : obfuscation and return the underlying id-expression. Otherwise
2529 : : return T. */
2530 : :
2531 : : tree
2532 : 679922812 : maybe_undo_parenthesized_ref (tree t)
2533 : : {
2534 : 679922812 : if (cxx_dialect < cxx14)
2535 : : return t;
2536 : :
2537 : 670460373 : if ((TREE_CODE (t) == PAREN_EXPR || TREE_CODE (t) == VIEW_CONVERT_EXPR)
2538 : 745805210 : && REF_PARENTHESIZED_P (t))
2539 : 258801 : t = TREE_OPERAND (t, 0);
2540 : :
2541 : : return t;
2542 : : }
2543 : :
2544 : : /* Finish a parenthesized expression EXPR. */
2545 : :
2546 : : cp_expr
2547 : 26670117 : finish_parenthesized_expr (cp_expr expr)
2548 : : {
2549 : 26670117 : if (EXPR_P (expr))
2550 : : {
2551 : : /* This inhibits warnings in maybe_warn_unparenthesized_assignment
2552 : : and c_common_truthvalue_conversion. */
2553 : 53092920 : suppress_warning (STRIP_REFERENCE_REF (*expr), OPT_Wparentheses);
2554 : : /* And maybe_warn_sizeof_array_div. */
2555 : 53092920 : suppress_warning (STRIP_REFERENCE_REF (*expr), OPT_Wsizeof_array_div);
2556 : : }
2557 : :
2558 : 26670117 : if (TREE_CODE (expr) == OFFSET_REF
2559 : 26670117 : || TREE_CODE (expr) == SCOPE_REF)
2560 : : /* [expr.unary.op]/3 The qualified id of a pointer-to-member must not be
2561 : : enclosed in parentheses. */
2562 : 10767 : PTRMEM_OK_P (expr) = 0;
2563 : :
2564 : 26670117 : tree stripped_expr = tree_strip_any_location_wrapper (expr);
2565 : 26670117 : if (TREE_CODE (stripped_expr) == STRING_CST)
2566 : 826804 : PAREN_STRING_LITERAL_P (stripped_expr) = 1;
2567 : 25843313 : else if (TREE_CODE (stripped_expr) == PACK_INDEX_EXPR)
2568 : 38 : PACK_INDEX_PARENTHESIZED_P (stripped_expr) = true;
2569 : :
2570 : 26670117 : expr = cp_expr (force_paren_expr (expr), expr.get_location ());
2571 : :
2572 : 26670117 : return expr;
2573 : : }
2574 : :
2575 : : /* Finish a reference to a non-static data member (DECL) that is not
2576 : : preceded by `.' or `->'. */
2577 : :
2578 : : tree
2579 : 59848000 : finish_non_static_data_member (tree decl, tree object, tree qualifying_scope,
2580 : : tsubst_flags_t complain /* = tf_warning_or_error */)
2581 : : {
2582 : 59848000 : gcc_assert (TREE_CODE (decl) == FIELD_DECL);
2583 : 59848000 : bool try_omp_private = !object && omp_private_member_map;
2584 : 53402455 : tree ret;
2585 : :
2586 : 53402455 : if (!object)
2587 : : {
2588 : 53402455 : tree scope = qualifying_scope;
2589 : 53402455 : if (scope == NULL_TREE)
2590 : : {
2591 : 53357681 : scope = context_for_name_lookup (decl);
2592 : 53357681 : if (!TYPE_P (scope))
2593 : : {
2594 : : /* Can happen during error recovery (c++/85014). */
2595 : 3 : gcc_assert (seen_error ());
2596 : 3 : return error_mark_node;
2597 : : }
2598 : : }
2599 : 53402452 : object = maybe_dummy_object (scope, NULL);
2600 : : }
2601 : :
2602 : 59847997 : object = maybe_resolve_dummy (object, true);
2603 : 59847997 : if (object == error_mark_node)
2604 : : return error_mark_node;
2605 : :
2606 : : /* DR 613/850: Can use non-static data members without an associated
2607 : : object in sizeof/decltype/alignof. */
2608 : 59847994 : if (is_dummy_object (object)
2609 : 35068 : && !cp_unevaluated_operand
2610 : 59848086 : && (!processing_template_decl || !current_class_ref))
2611 : : {
2612 : 77 : if (complain & tf_error)
2613 : : {
2614 : 74 : auto_diagnostic_group d;
2615 : 74 : if (current_function_decl
2616 : 74 : && DECL_STATIC_FUNCTION_P (current_function_decl))
2617 : 3 : error ("invalid use of member %qD in static member function", decl);
2618 : 71 : else if (current_function_decl
2619 : 65 : && processing_contract_condition
2620 : 75 : && DECL_CONSTRUCTOR_P (current_function_decl))
2621 : 1 : error ("invalid use of member %qD in constructor %<pre%> contract", decl);
2622 : 70 : else if (current_function_decl
2623 : 64 : && processing_contract_condition
2624 : 72 : && DECL_DESTRUCTOR_P (current_function_decl))
2625 : 1 : error ("invalid use of member %qD in destructor %<post%> contract", decl);
2626 : : else
2627 : 69 : error ("invalid use of non-static data member %qD", decl);
2628 : 74 : inform (DECL_SOURCE_LOCATION (decl), "declared here");
2629 : 74 : }
2630 : :
2631 : 77 : return error_mark_node;
2632 : : }
2633 : :
2634 : 59847917 : if (current_class_ptr)
2635 : 59794263 : TREE_USED (current_class_ptr) = 1;
2636 : 59847917 : if (processing_template_decl)
2637 : : {
2638 : 48335254 : tree type = TREE_TYPE (decl);
2639 : :
2640 : 48335254 : if (TYPE_REF_P (type))
2641 : : /* Quals on the object don't matter. */;
2642 : 46618932 : else if (PACK_EXPANSION_P (type))
2643 : : /* Don't bother trying to represent this. */
2644 : : type = NULL_TREE;
2645 : 46618852 : else if (WILDCARD_TYPE_P (TREE_TYPE (object)))
2646 : : /* We don't know what the eventual quals will be, so punt until
2647 : : instantiation time.
2648 : :
2649 : : This can happen when called from build_capture_proxy for an explicit
2650 : : object lambda. It's a bit marginal to call this function in that
2651 : : case, since this function is for references to members of 'this',
2652 : : but the deduced type is required to be derived from the closure
2653 : : type, so it works. */
2654 : : type = NULL_TREE;
2655 : : else
2656 : : {
2657 : : /* Set the cv qualifiers. */
2658 : 46614551 : int quals = cp_type_quals (TREE_TYPE (object));
2659 : :
2660 : 46614551 : if (DECL_MUTABLE_P (decl))
2661 : 228398 : quals &= ~TYPE_QUAL_CONST;
2662 : :
2663 : 46614551 : quals |= cp_type_quals (TREE_TYPE (decl));
2664 : 46614551 : type = cp_build_qualified_type (type, quals);
2665 : : }
2666 : :
2667 : 48335254 : if (qualifying_scope)
2668 : : /* Wrap this in a SCOPE_REF for now. */
2669 : 30297 : ret = build_qualified_name (type, qualifying_scope, decl,
2670 : : /*template_p=*/false);
2671 : : else
2672 : 48304957 : ret = (convert_from_reference
2673 : 48304957 : (build_min (COMPONENT_REF, type, object, decl, NULL_TREE)));
2674 : : }
2675 : : /* If PROCESSING_TEMPLATE_DECL is nonzero here, then
2676 : : QUALIFYING_SCOPE is also non-null. */
2677 : : else
2678 : : {
2679 : 11512663 : tree access_type = TREE_TYPE (object);
2680 : :
2681 : 11512663 : if (!perform_or_defer_access_check (TYPE_BINFO (access_type), decl,
2682 : : decl, complain))
2683 : 0 : return error_mark_node;
2684 : :
2685 : : /* If the data member was named `C::M', convert `*this' to `C'
2686 : : first. */
2687 : 11512663 : if (qualifying_scope)
2688 : : {
2689 : 14444 : tree binfo = NULL_TREE;
2690 : 14444 : object = build_scoped_ref (object, qualifying_scope,
2691 : : &binfo);
2692 : : }
2693 : :
2694 : 11512663 : ret = build_class_member_access_expr (object, decl,
2695 : : /*access_path=*/NULL_TREE,
2696 : : /*preserve_reference=*/false,
2697 : : complain);
2698 : : }
2699 : 59847917 : if (try_omp_private)
2700 : : {
2701 : 1650 : tree *v = omp_private_member_map->get (decl);
2702 : 1650 : if (v)
2703 : 1225 : ret = convert_from_reference (*v);
2704 : : }
2705 : : return ret;
2706 : : }
2707 : :
2708 : : /* DECL was the declaration to which a qualified-id resolved. Issue
2709 : : an error message if it is not accessible. If OBJECT_TYPE is
2710 : : non-NULL, we have just seen `x->' or `x.' and OBJECT_TYPE is the
2711 : : type of `*x', or `x', respectively. If the DECL was named as
2712 : : `A::B' then NESTED_NAME_SPECIFIER is `A'. Return value is like
2713 : : perform_access_checks above. */
2714 : :
2715 : : bool
2716 : 3717534786 : check_accessibility_of_qualified_id (tree decl,
2717 : : tree object_type,
2718 : : tree nested_name_specifier,
2719 : : tsubst_flags_t complain)
2720 : : {
2721 : : /* If we're not checking, return immediately. */
2722 : 3717534786 : if (deferred_access_no_check)
2723 : : return true;
2724 : :
2725 : : /* Determine the SCOPE of DECL. */
2726 : 3709514846 : tree scope = context_for_name_lookup (decl);
2727 : : /* If the SCOPE is not a type, then DECL is not a member. */
2728 : 3709514846 : if (!TYPE_P (scope)
2729 : : /* If SCOPE is dependent then we can't perform this access check now,
2730 : : and since we'll perform this access check again after substitution
2731 : : there's no need to explicitly defer it. */
2732 : 3709514846 : || dependent_type_p (scope))
2733 : 3426028944 : return true;
2734 : :
2735 : 283485902 : tree qualifying_type = NULL_TREE;
2736 : : /* Compute the scope through which DECL is being accessed. */
2737 : 283485902 : if (object_type
2738 : : /* OBJECT_TYPE might not be a class type; consider:
2739 : :
2740 : : class A { typedef int I; };
2741 : : I *p;
2742 : : p->A::I::~I();
2743 : :
2744 : : In this case, we will have "A::I" as the DECL, but "I" as the
2745 : : OBJECT_TYPE. */
2746 : 74038 : && CLASS_TYPE_P (object_type)
2747 : 283559923 : && DERIVED_FROM_P (scope, object_type))
2748 : : {
2749 : : /* If we are processing a `->' or `.' expression, use the type of the
2750 : : left-hand side. */
2751 : 74012 : if (tree open = currently_open_class (object_type))
2752 : : qualifying_type = open;
2753 : : else
2754 : : qualifying_type = object_type;
2755 : : }
2756 : 283411890 : else if (nested_name_specifier)
2757 : : {
2758 : : /* If the reference is to a non-static member of the
2759 : : current class, treat it as if it were referenced through
2760 : : `this'. */
2761 : 347148321 : if (DECL_NONSTATIC_MEMBER_P (decl)
2762 : 173739949 : && current_class_ptr)
2763 : 155917 : if (tree current = current_nonlambda_class_type ())
2764 : : {
2765 : 155890 : if (dependent_type_p (current))
2766 : : /* In general we can't know whether this access goes through
2767 : : `this' until instantiation time. Punt now, or else we might
2768 : : create a deferred access check that's not relative to `this'
2769 : : when it ought to be. We'll check this access again after
2770 : : substitution, e.g. from tsubst_qualified_id. */
2771 : : return true;
2772 : :
2773 : 16132 : if (DERIVED_FROM_P (scope, current))
2774 : : qualifying_type = current;
2775 : : }
2776 : : /* Otherwise, use the type indicated by the
2777 : : nested-name-specifier. */
2778 : : if (!qualifying_type)
2779 : : qualifying_type = nested_name_specifier;
2780 : : }
2781 : : else
2782 : : /* Otherwise, the name must be from the current class or one of
2783 : : its bases. */
2784 : 109837728 : qualifying_type = currently_open_derived_class (scope);
2785 : :
2786 : 283282804 : if (qualifying_type
2787 : : /* It is possible for qualifying type to be a TEMPLATE_TYPE_PARM
2788 : : or similar in a default argument value. */
2789 : 283346144 : && CLASS_TYPE_P (qualifying_type))
2790 : 276972697 : return perform_or_defer_access_check (TYPE_BINFO (qualifying_type), decl,
2791 : 276972697 : decl, complain);
2792 : :
2793 : : return true;
2794 : : }
2795 : :
2796 : : /* EXPR is the result of a qualified-id. The QUALIFYING_CLASS was the
2797 : : class named to the left of the "::" operator. DONE is true if this
2798 : : expression is a complete postfix-expression; it is false if this
2799 : : expression is followed by '->', '[', '(', etc. ADDRESS_P is true
2800 : : iff this expression is the operand of '&'. TEMPLATE_P is true iff
2801 : : the qualified-id was of the form "A::template B". TEMPLATE_ARG_P
2802 : : is true iff this qualified name appears as a template argument. */
2803 : :
2804 : : tree
2805 : 57207395 : finish_qualified_id_expr (tree qualifying_class,
2806 : : tree expr,
2807 : : bool done,
2808 : : bool address_p,
2809 : : bool template_p,
2810 : : bool template_arg_p,
2811 : : tsubst_flags_t complain)
2812 : : {
2813 : 57207395 : gcc_assert (TYPE_P (qualifying_class));
2814 : :
2815 : 57207395 : if (error_operand_p (expr))
2816 : 18 : return error_mark_node;
2817 : :
2818 : 57207377 : if (DECL_P (expr)
2819 : : /* Functions are marked after overload resolution; avoid redundant
2820 : : warnings. */
2821 : 48475296 : && TREE_CODE (expr) != FUNCTION_DECL
2822 : 105682649 : && !mark_used (expr, complain))
2823 : 0 : return error_mark_node;
2824 : :
2825 : 57207377 : if (template_p)
2826 : : {
2827 : 2981671 : if (TREE_CODE (expr) == UNBOUND_CLASS_TEMPLATE)
2828 : : {
2829 : : /* cp_parser_lookup_name thought we were looking for a type,
2830 : : but we're actually looking for a declaration. */
2831 : 9 : qualifying_class = TYPE_CONTEXT (expr);
2832 : 9 : expr = TYPE_IDENTIFIER (expr);
2833 : : }
2834 : : else
2835 : 2981662 : check_template_keyword (expr);
2836 : : }
2837 : :
2838 : : /* If EXPR occurs as the operand of '&', use special handling that
2839 : : permits a pointer-to-member. */
2840 : 57207377 : if (address_p && done
2841 : 156122 : && TREE_CODE (qualifying_class) != ENUMERAL_TYPE)
2842 : : {
2843 : 156120 : if (TREE_CODE (expr) == SCOPE_REF)
2844 : 0 : expr = TREE_OPERAND (expr, 1);
2845 : 156120 : expr = build_offset_ref (qualifying_class, expr,
2846 : : /*address_p=*/true, complain);
2847 : 156120 : return expr;
2848 : : }
2849 : :
2850 : : /* No need to check access within an enum. */
2851 : 57051257 : if (TREE_CODE (qualifying_class) == ENUMERAL_TYPE
2852 : 1582910 : && TREE_CODE (expr) != IDENTIFIER_NODE)
2853 : : return expr;
2854 : :
2855 : : /* Within the scope of a class, turn references to non-static
2856 : : members into expression of the form "this->...". */
2857 : 55468350 : if (template_arg_p)
2858 : : /* But, within a template argument, we do not want make the
2859 : : transformation, as there is no "this" pointer. */
2860 : : ;
2861 : 55465787 : else if (TREE_CODE (expr) == FIELD_DECL)
2862 : : {
2863 : 44774 : push_deferring_access_checks (dk_no_check);
2864 : 44774 : expr = finish_non_static_data_member (expr, NULL_TREE,
2865 : : qualifying_class, complain);
2866 : 44774 : pop_deferring_access_checks ();
2867 : : }
2868 : 55421013 : else if (BASELINK_P (expr))
2869 : : {
2870 : : /* See if any of the functions are non-static members. */
2871 : : /* If so, the expression may be relative to 'this'. */
2872 : 8336277 : if (!shared_member_p (expr)
2873 : 231525 : && current_class_ptr
2874 : 8567378 : && DERIVED_FROM_P (qualifying_class,
2875 : : current_nonlambda_class_type ()))
2876 : 230960 : expr = (build_class_member_access_expr
2877 : 230960 : (maybe_dummy_object (qualifying_class, NULL),
2878 : : expr,
2879 : 230960 : BASELINK_ACCESS_BINFO (expr),
2880 : : /*preserve_reference=*/false,
2881 : : complain));
2882 : 8105317 : else if (done)
2883 : : /* The expression is a qualified name whose address is not
2884 : : being taken. */
2885 : 331 : expr = build_offset_ref (qualifying_class, expr, /*address_p=*/false,
2886 : : complain);
2887 : : }
2888 : 47084736 : else if (!template_p
2889 : 46846997 : && TREE_CODE (expr) == TEMPLATE_DECL
2890 : 47084837 : && !DECL_FUNCTION_TEMPLATE_P (expr))
2891 : : {
2892 : 101 : if (complain & tf_error)
2893 : 3 : error ("%qE missing template arguments", expr);
2894 : 101 : return error_mark_node;
2895 : : }
2896 : : else
2897 : : {
2898 : : /* In a template, return a SCOPE_REF for most qualified-ids
2899 : : so that we can check access at instantiation time. But if
2900 : : we're looking at a member of the current instantiation, we
2901 : : know we have access and building up the SCOPE_REF confuses
2902 : : non-type template argument handling. */
2903 : 47084635 : if (processing_template_decl
2904 : 47084635 : && (!currently_open_class (qualifying_class)
2905 : 3324 : || TREE_CODE (expr) == IDENTIFIER_NODE
2906 : 3324 : || TREE_CODE (expr) == TEMPLATE_ID_EXPR
2907 : 85 : || TREE_CODE (expr) == BIT_NOT_EXPR))
2908 : 9818777 : expr = build_qualified_name (TREE_TYPE (expr),
2909 : : qualifying_class, expr,
2910 : : template_p);
2911 : 37265858 : else if (tree wrap = maybe_get_tls_wrapper_call (expr))
2912 : 9 : expr = wrap;
2913 : :
2914 : 47084635 : expr = convert_from_reference (expr);
2915 : : }
2916 : :
2917 : : return expr;
2918 : : }
2919 : :
2920 : : /* Begin a statement-expression. The value returned must be passed to
2921 : : finish_stmt_expr. */
2922 : :
2923 : : tree
2924 : 3599037 : begin_stmt_expr (void)
2925 : : {
2926 : 3599037 : return push_stmt_list ();
2927 : : }
2928 : :
2929 : : /* Process the final expression of a statement expression. EXPR can be
2930 : : NULL, if the final expression is empty. Return a STATEMENT_LIST
2931 : : containing all the statements in the statement-expression, or
2932 : : ERROR_MARK_NODE if there was an error. */
2933 : :
2934 : : tree
2935 : 22388 : finish_stmt_expr_expr (tree expr, tree stmt_expr)
2936 : : {
2937 : 22388 : if (error_operand_p (expr))
2938 : : {
2939 : : /* The type of the statement-expression is the type of the last
2940 : : expression. */
2941 : 3 : TREE_TYPE (stmt_expr) = error_mark_node;
2942 : 3 : return error_mark_node;
2943 : : }
2944 : :
2945 : : /* If the last statement does not have "void" type, then the value
2946 : : of the last statement is the value of the entire expression. */
2947 : 22385 : if (expr)
2948 : : {
2949 : 22370 : tree type = TREE_TYPE (expr);
2950 : :
2951 : 22370 : if (type && type_unknown_p (type))
2952 : : {
2953 : 15 : error ("a statement expression is an insufficient context"
2954 : : " for overload resolution");
2955 : 15 : TREE_TYPE (stmt_expr) = error_mark_node;
2956 : 15 : return error_mark_node;
2957 : : }
2958 : 22355 : else if (processing_template_decl)
2959 : : {
2960 : 133 : expr = build_stmt (input_location, EXPR_STMT, expr);
2961 : 133 : expr = add_stmt (expr);
2962 : : /* Mark the last statement so that we can recognize it as such at
2963 : : template-instantiation time. */
2964 : 133 : EXPR_STMT_STMT_EXPR_RESULT (expr) = 1;
2965 : : }
2966 : 22222 : else if (VOID_TYPE_P (type))
2967 : : {
2968 : : /* Just treat this like an ordinary statement. */
2969 : 31 : expr = finish_expr_stmt (expr);
2970 : : }
2971 : : else
2972 : : {
2973 : : /* It actually has a value we need to deal with. First, force it
2974 : : to be an rvalue so that we won't need to build up a copy
2975 : : constructor call later when we try to assign it to something. */
2976 : 22191 : expr = force_rvalue (expr, tf_warning_or_error);
2977 : 22191 : if (error_operand_p (expr))
2978 : 0 : return error_mark_node;
2979 : :
2980 : : /* Update for array-to-pointer decay. */
2981 : 22191 : type = TREE_TYPE (expr);
2982 : :
2983 : : /* This TARGET_EXPR will initialize the outer one added by
2984 : : finish_stmt_expr. */
2985 : 22191 : set_target_expr_eliding (expr);
2986 : :
2987 : : /* Wrap it in a CLEANUP_POINT_EXPR and add it to the list like a
2988 : : normal statement, but don't convert to void or actually add
2989 : : the EXPR_STMT. */
2990 : 22191 : if (TREE_CODE (expr) != CLEANUP_POINT_EXPR)
2991 : 22191 : expr = maybe_cleanup_point_expr (expr);
2992 : 22191 : add_stmt (expr);
2993 : : }
2994 : :
2995 : : /* The type of the statement-expression is the type of the last
2996 : : expression. */
2997 : 22355 : TREE_TYPE (stmt_expr) = type;
2998 : : }
2999 : :
3000 : : return stmt_expr;
3001 : : }
3002 : :
3003 : : /* Finish a statement-expression. EXPR should be the value returned
3004 : : by the previous begin_stmt_expr. Returns an expression
3005 : : representing the statement-expression. */
3006 : :
3007 : : tree
3008 : 3599037 : finish_stmt_expr (tree stmt_expr, bool has_no_scope)
3009 : : {
3010 : 3599037 : tree type;
3011 : 3599037 : tree result;
3012 : :
3013 : 3599037 : if (error_operand_p (stmt_expr))
3014 : : {
3015 : 18 : pop_stmt_list (stmt_expr);
3016 : 18 : return error_mark_node;
3017 : : }
3018 : :
3019 : 3599019 : gcc_assert (TREE_CODE (stmt_expr) == STATEMENT_LIST);
3020 : :
3021 : 3599019 : type = TREE_TYPE (stmt_expr);
3022 : 3599019 : result = pop_stmt_list (stmt_expr);
3023 : 3599019 : TREE_TYPE (result) = type;
3024 : :
3025 : 3599019 : if (processing_template_decl)
3026 : : {
3027 : 8423 : result = build_min (STMT_EXPR, type, result);
3028 : 8423 : TREE_SIDE_EFFECTS (result) = 1;
3029 : 8423 : STMT_EXPR_NO_SCOPE (result) = has_no_scope;
3030 : : }
3031 : 3590596 : else if (CLASS_TYPE_P (type))
3032 : : {
3033 : : /* Wrap the statement-expression in a TARGET_EXPR so that the
3034 : : temporary object created by the final expression is destroyed at
3035 : : the end of the full-expression containing the
3036 : : statement-expression. */
3037 : 98 : result = force_target_expr (type, result, tf_warning_or_error);
3038 : : }
3039 : :
3040 : : return result;
3041 : : }
3042 : :
3043 : : /* Returns the expression which provides the value of STMT_EXPR. */
3044 : :
3045 : : tree
3046 : 151 : stmt_expr_value_expr (tree stmt_expr)
3047 : : {
3048 : 151 : tree t = STMT_EXPR_STMT (stmt_expr);
3049 : :
3050 : 151 : if (TREE_CODE (t) == BIND_EXPR)
3051 : 151 : t = BIND_EXPR_BODY (t);
3052 : :
3053 : 151 : if (TREE_CODE (t) == STATEMENT_LIST && STATEMENT_LIST_TAIL (t))
3054 : 118 : t = STATEMENT_LIST_TAIL (t)->stmt;
3055 : :
3056 : 151 : if (TREE_CODE (t) == EXPR_STMT)
3057 : 133 : t = EXPR_STMT_EXPR (t);
3058 : :
3059 : 151 : return t;
3060 : : }
3061 : :
3062 : : /* Return TRUE iff EXPR_STMT is an empty list of
3063 : : expression statements. */
3064 : :
3065 : : bool
3066 : 43187728 : empty_expr_stmt_p (tree expr_stmt)
3067 : : {
3068 : 43187731 : tree body = NULL_TREE;
3069 : :
3070 : 43187731 : if (expr_stmt == void_node)
3071 : : return true;
3072 : :
3073 : 43187728 : if (expr_stmt)
3074 : : {
3075 : 43187728 : if (TREE_CODE (expr_stmt) == EXPR_STMT)
3076 : 3 : body = EXPR_STMT_EXPR (expr_stmt);
3077 : 43187725 : else if (TREE_CODE (expr_stmt) == STATEMENT_LIST)
3078 : : body = expr_stmt;
3079 : : }
3080 : :
3081 : 3 : if (body)
3082 : : {
3083 : 42613463 : if (TREE_CODE (body) == STATEMENT_LIST)
3084 : 42613460 : return tsi_end_p (tsi_start (body));
3085 : : else
3086 : : return empty_expr_stmt_p (body);
3087 : : }
3088 : : return false;
3089 : : }
3090 : :
3091 : : /* Perform Koenig lookup. FN_EXPR is the postfix-expression representing
3092 : : the function (or functions) to call; ARGS are the arguments to the
3093 : : call. Returns the functions to be considered by overload resolution. */
3094 : :
3095 : : cp_expr
3096 : 15326370 : perform_koenig_lookup (cp_expr fn_expr, vec<tree, va_gc> *args,
3097 : : tsubst_flags_t complain)
3098 : : {
3099 : 15326370 : tree identifier = NULL_TREE;
3100 : 15326370 : tree functions = NULL_TREE;
3101 : 15326370 : tree tmpl_args = NULL_TREE;
3102 : 15326370 : bool template_id = false;
3103 : 15326370 : location_t loc = fn_expr.get_location ();
3104 : 15326370 : tree fn = fn_expr.get_value ();
3105 : :
3106 : 15326370 : STRIP_ANY_LOCATION_WRAPPER (fn);
3107 : :
3108 : 15326370 : if (TREE_CODE (fn) == TEMPLATE_ID_EXPR)
3109 : : {
3110 : : /* Use a separate flag to handle null args. */
3111 : 1860792 : template_id = true;
3112 : 1860792 : tmpl_args = TREE_OPERAND (fn, 1);
3113 : 1860792 : fn = TREE_OPERAND (fn, 0);
3114 : : }
3115 : :
3116 : : /* Find the name of the overloaded function. */
3117 : 15326370 : if (identifier_p (fn))
3118 : : identifier = fn;
3119 : : else
3120 : : {
3121 : 21097082 : functions = fn;
3122 : 15236006 : identifier = OVL_NAME (functions);
3123 : : }
3124 : :
3125 : : /* A call to a namespace-scope function using an unqualified name.
3126 : :
3127 : : Do Koenig lookup -- unless any of the arguments are
3128 : : type-dependent. */
3129 : 15326370 : if (!any_type_dependent_arguments_p (args)
3130 : 15326370 : && !any_dependent_template_arguments_p (tmpl_args))
3131 : : {
3132 : 14503045 : fn = lookup_arg_dependent (identifier, functions, args);
3133 : 14503045 : if (!fn)
3134 : : {
3135 : : /* The unqualified name could not be resolved. */
3136 : 21943 : if (complain & tf_error)
3137 : 382 : fn = unqualified_fn_lookup_error (cp_expr (identifier, loc));
3138 : : else
3139 : : fn = identifier;
3140 : : }
3141 : : }
3142 : :
3143 : 15326370 : if (fn && template_id && fn != error_mark_node)
3144 : 1860781 : fn = build2 (TEMPLATE_ID_EXPR, unknown_type_node, fn, tmpl_args);
3145 : :
3146 : 15326370 : return cp_expr (fn, loc);
3147 : : }
3148 : :
3149 : : /* Generate an expression for `FN (ARGS)'. This may change the
3150 : : contents of ARGS.
3151 : :
3152 : : If DISALLOW_VIRTUAL is true, the call to FN will be not generated
3153 : : as a virtual call, even if FN is virtual. (This flag is set when
3154 : : encountering an expression where the function name is explicitly
3155 : : qualified. For example a call to `X::f' never generates a virtual
3156 : : call.)
3157 : :
3158 : : Returns code for the call. */
3159 : :
3160 : : tree
3161 : 265555011 : finish_call_expr (tree fn, vec<tree, va_gc> **args, bool disallow_virtual,
3162 : : bool koenig_p, tsubst_flags_t complain)
3163 : : {
3164 : 265555011 : tree result;
3165 : 265555011 : tree orig_fn;
3166 : 265555011 : vec<tree, va_gc> *orig_args = *args;
3167 : :
3168 : 265555011 : if (fn == error_mark_node)
3169 : : return error_mark_node;
3170 : :
3171 : 265554018 : gcc_assert (!TYPE_P (fn));
3172 : :
3173 : : /* If FN may be a FUNCTION_DECL obfuscated by force_paren_expr, undo
3174 : : it so that we can tell this is a call to a known function. */
3175 : 265554018 : fn = maybe_undo_parenthesized_ref (fn);
3176 : :
3177 : 265554018 : STRIP_ANY_LOCATION_WRAPPER (fn);
3178 : :
3179 : 265554018 : orig_fn = fn;
3180 : :
3181 : 265554018 : if (processing_template_decl)
3182 : : {
3183 : : /* If FN is a local extern declaration (or set thereof) in a template,
3184 : : look it up again at instantiation time. */
3185 : 184998849 : if (is_overloaded_fn (fn))
3186 : : {
3187 : 113851086 : tree ifn = get_first_fn (fn);
3188 : 113851086 : if (TREE_CODE (ifn) == FUNCTION_DECL
3189 : 113851086 : && dependent_local_decl_p (ifn))
3190 : 15525 : orig_fn = DECL_NAME (ifn);
3191 : : }
3192 : :
3193 : : /* If the call expression is dependent, build a CALL_EXPR node
3194 : : with no type; type_dependent_expression_p recognizes
3195 : : expressions with no type as being dependent. */
3196 : 184998849 : if (type_dependent_expression_p (fn)
3197 : 184998849 : || any_type_dependent_arguments_p (*args))
3198 : : {
3199 : 165914037 : result = build_min_nt_call_vec (orig_fn, *args);
3200 : 220701078 : SET_EXPR_LOCATION (result, cp_expr_loc_or_input_loc (fn));
3201 : 165914037 : KOENIG_LOOKUP_P (result) = koenig_p;
3202 : : /* Disable the std::move warnings since this call was dependent
3203 : : (c++/89780, c++/107363). This also suppresses the
3204 : : -Wredundant-move warning. */
3205 : 165914037 : suppress_warning (result, OPT_Wpessimizing_move);
3206 : :
3207 : 165914037 : if (cfun && cp_function_chain && !cp_unevaluated_operand)
3208 : : {
3209 : 144173431 : bool abnormal = true;
3210 : 144350032 : for (lkp_iterator iter (maybe_get_fns (fn)); iter; ++iter)
3211 : : {
3212 : 80140111 : tree fndecl = STRIP_TEMPLATE (*iter);
3213 : 80140111 : if (TREE_CODE (fndecl) != FUNCTION_DECL
3214 : 80140111 : || !TREE_THIS_VOLATILE (fndecl))
3215 : : {
3216 : : abnormal = false;
3217 : : break;
3218 : : }
3219 : : }
3220 : : /* FIXME: Stop warning about falling off end of non-void
3221 : : function. But this is wrong. Even if we only see
3222 : : no-return fns at this point, we could select a
3223 : : future-defined return fn during instantiation. Or
3224 : : vice-versa. */
3225 : 144173431 : if (abnormal)
3226 : 64209921 : current_function_returns_abnormally = 1;
3227 : : }
3228 : 165914037 : if (TREE_CODE (fn) == COMPONENT_REF)
3229 : 82622716 : maybe_generic_this_capture (TREE_OPERAND (fn, 0),
3230 : 82622716 : TREE_OPERAND (fn, 1));
3231 : 165914037 : return result;
3232 : : }
3233 : 19084812 : orig_args = make_tree_vector_copy (*args);
3234 : : }
3235 : :
3236 : 99639981 : if (TREE_CODE (fn) == COMPONENT_REF)
3237 : : {
3238 : 20994804 : tree member = TREE_OPERAND (fn, 1);
3239 : 20994804 : if (BASELINK_P (member))
3240 : : {
3241 : 20817903 : tree object = TREE_OPERAND (fn, 0);
3242 : 41443067 : return build_new_method_call (object, member,
3243 : : args, NULL_TREE,
3244 : : (disallow_virtual
3245 : : ? LOOKUP_NORMAL | LOOKUP_NONVIRTUAL
3246 : : : LOOKUP_NORMAL),
3247 : : /*fn_p=*/NULL,
3248 : 20817903 : complain);
3249 : : }
3250 : : }
3251 : :
3252 : : /* Per 13.3.1.1, '(&f)(...)' is the same as '(f)(...)'. */
3253 : 78822078 : if (TREE_CODE (fn) == ADDR_EXPR
3254 : 78822078 : && TREE_CODE (TREE_OPERAND (fn, 0)) == OVERLOAD)
3255 : 9 : fn = TREE_OPERAND (fn, 0);
3256 : :
3257 : 78822078 : if (is_overloaded_fn (fn))
3258 : 75930849 : fn = baselink_for_fns (fn);
3259 : :
3260 : 78822078 : result = NULL_TREE;
3261 : 78822078 : if (BASELINK_P (fn))
3262 : : {
3263 : 14446912 : tree object;
3264 : :
3265 : : /* A call to a member function. From [over.call.func]:
3266 : :
3267 : : If the keyword this is in scope and refers to the class of
3268 : : that member function, or a derived class thereof, then the
3269 : : function call is transformed into a qualified function call
3270 : : using (*this) as the postfix-expression to the left of the
3271 : : . operator.... [Otherwise] a contrived object of type T
3272 : : becomes the implied object argument.
3273 : :
3274 : : In this situation:
3275 : :
3276 : : struct A { void f(); };
3277 : : struct B : public A {};
3278 : : struct C : public A { void g() { B::f(); }};
3279 : :
3280 : : "the class of that member function" refers to `A'. But 11.2
3281 : : [class.access.base] says that we need to convert 'this' to B* as
3282 : : part of the access, so we pass 'B' to maybe_dummy_object. */
3283 : :
3284 : 14446912 : if (DECL_MAYBE_IN_CHARGE_CONSTRUCTOR_P (get_first_fn (fn)))
3285 : : {
3286 : : /* A constructor call always uses a dummy object. (This constructor
3287 : : call which has the form A::A () is actually invalid and we are
3288 : : going to reject it later in build_new_method_call.) */
3289 : 39 : object = build_dummy_object (BINFO_TYPE (BASELINK_ACCESS_BINFO (fn)));
3290 : : }
3291 : : else
3292 : 14446873 : object = maybe_dummy_object (BINFO_TYPE (BASELINK_ACCESS_BINFO (fn)),
3293 : : NULL);
3294 : :
3295 : 15860779 : result = build_new_method_call (object, fn, args, NULL_TREE,
3296 : : (disallow_virtual
3297 : : ? LOOKUP_NORMAL|LOOKUP_NONVIRTUAL
3298 : : : LOOKUP_NORMAL),
3299 : : /*fn_p=*/NULL,
3300 : : complain);
3301 : : }
3302 : 64375166 : else if (concept_check_p (fn))
3303 : : {
3304 : 3 : error_at (EXPR_LOC_OR_LOC (fn, input_location),
3305 : : "cannot call a concept as a function");
3306 : 3 : return error_mark_node;
3307 : : }
3308 : 64375163 : else if (is_overloaded_fn (fn))
3309 : : {
3310 : : /* If the function is an overloaded builtin, resolve it. */
3311 : 61483937 : if (TREE_CODE (fn) == FUNCTION_DECL
3312 : 61483937 : && (DECL_BUILT_IN_CLASS (fn) == BUILT_IN_NORMAL
3313 : 14607156 : || DECL_BUILT_IN_CLASS (fn) == BUILT_IN_MD))
3314 : 7962070 : result = resolve_overloaded_builtin (input_location, fn, *args,
3315 : : complain & tf_error);
3316 : :
3317 : 7962070 : if (!result)
3318 : : {
3319 : 61248050 : tree alloc_size_attr = NULL_TREE;
3320 : 61248050 : if (warn_calloc_transposed_args
3321 : 551000 : && TREE_CODE (fn) == FUNCTION_DECL
3322 : 61248050 : && (alloc_size_attr
3323 : 408979 : = lookup_attribute ("alloc_size",
3324 : 408979 : TYPE_ATTRIBUTES (TREE_TYPE (fn)))))
3325 : 3045 : if (TREE_VALUE (alloc_size_attr) == NULL_TREE
3326 : 3045 : || TREE_CHAIN (TREE_VALUE (alloc_size_attr)) == NULL_TREE)
3327 : : alloc_size_attr = NULL_TREE;
3328 : 59668771 : if ((warn_sizeof_pointer_memaccess || alloc_size_attr)
3329 : 1579339 : && (complain & tf_warning)
3330 : 1465488 : && !vec_safe_is_empty (*args)
3331 : 62386979 : && !processing_template_decl)
3332 : : {
3333 : : location_t sizeof_arg_loc[6];
3334 : : tree sizeof_arg[6];
3335 : : unsigned int i;
3336 : 8212428 : for (i = 0; i < (alloc_size_attr ? 6 : 3); i++)
3337 : : {
3338 : 3079863 : tree t;
3339 : :
3340 : 3079863 : sizeof_arg_loc[i] = UNKNOWN_LOCATION;
3341 : 3079863 : sizeof_arg[i] = NULL_TREE;
3342 : 3079863 : if (i >= (*args)->length ())
3343 : 608345 : continue;
3344 : 2471518 : t = (**args)[i];
3345 : 2471518 : if (TREE_CODE (t) != SIZEOF_EXPR)
3346 : 2465338 : continue;
3347 : 6180 : if (SIZEOF_EXPR_TYPE_P (t))
3348 : 2294 : sizeof_arg[i] = TREE_TYPE (TREE_OPERAND (t, 0));
3349 : : else
3350 : 3886 : sizeof_arg[i] = TREE_OPERAND (t, 0);
3351 : 6180 : sizeof_arg_loc[i] = EXPR_LOCATION (t);
3352 : : }
3353 : 1026561 : if (warn_sizeof_pointer_memaccess)
3354 : : {
3355 : 1026501 : auto same_p = same_type_ignoring_top_level_qualifiers_p;
3356 : 1026501 : sizeof_pointer_memaccess_warning (sizeof_arg_loc, fn, *args,
3357 : : sizeof_arg, same_p);
3358 : : }
3359 : 1026561 : if (alloc_size_attr)
3360 : 60 : warn_for_calloc (sizeof_arg_loc, fn, *args, sizeof_arg,
3361 : : alloc_size_attr);
3362 : : }
3363 : :
3364 : 61248050 : if ((complain & tf_warning)
3365 : 43364116 : && TREE_CODE (fn) == FUNCTION_DECL
3366 : 21161146 : && fndecl_built_in_p (fn, BUILT_IN_MEMSET)
3367 : 108599 : && vec_safe_length (*args) == 3
3368 : 61356649 : && !any_type_dependent_arguments_p (*args))
3369 : : {
3370 : 108599 : tree arg0 = (*orig_args)[0];
3371 : 108599 : tree arg1 = (*orig_args)[1];
3372 : 108599 : tree arg2 = (*orig_args)[2];
3373 : 108599 : int literal_mask = ((literal_integer_zerop (arg1) << 1)
3374 : 108599 : | (literal_integer_zerop (arg2) << 2));
3375 : 108599 : warn_for_memset (input_location, arg0, arg2, literal_mask);
3376 : : }
3377 : :
3378 : : /* A call to a namespace-scope function. */
3379 : 61248050 : result = build_new_function_call (fn, args, complain);
3380 : : }
3381 : : }
3382 : 2891226 : else if (TREE_CODE (fn) == PSEUDO_DTOR_EXPR)
3383 : : {
3384 : 37484 : if (!vec_safe_is_empty (*args))
3385 : 0 : error ("arguments to destructor are not allowed");
3386 : : /* C++20/DR: If the postfix-expression names a pseudo-destructor (in
3387 : : which case the postfix-expression is a possibly-parenthesized class
3388 : : member access), the function call destroys the object of scalar type
3389 : : denoted by the object expression of the class member access. */
3390 : 37484 : tree ob = TREE_OPERAND (fn, 0);
3391 : 37484 : if (obvalue_p (ob))
3392 : 37466 : result = build_trivial_dtor_call (ob, true);
3393 : : else
3394 : : /* No location to clobber. */
3395 : 18 : result = convert_to_void (ob, ICV_STATEMENT, complain);
3396 : : }
3397 : 2853742 : else if (CLASS_TYPE_P (TREE_TYPE (fn)))
3398 : : /* If the "function" is really an object of class type, it might
3399 : : have an overloaded `operator ()'. */
3400 : 1465345 : result = build_op_call (fn, args, complain);
3401 : :
3402 : 77184273 : if (!result)
3403 : : /* A call where the function is unknown. */
3404 : 1388397 : result = cp_build_function_call_vec (fn, args, complain);
3405 : :
3406 : 78808557 : if (processing_template_decl && result != error_mark_node)
3407 : : {
3408 : 15273583 : if (INDIRECT_REF_P (result))
3409 : 1014641 : result = TREE_OPERAND (result, 0);
3410 : :
3411 : : /* Prune all but the selected function from the original overload
3412 : : set so that we can avoid some duplicate work at instantiation time. */
3413 : 15273583 : if (TREE_CODE (result) == CALL_EXPR
3414 : 15259663 : && really_overloaded_fn (orig_fn))
3415 : : {
3416 : 7072653 : tree sel_fn = CALL_EXPR_FN (result);
3417 : 7072653 : if (TREE_CODE (sel_fn) == COMPONENT_REF)
3418 : : {
3419 : : /* The non-dependent result of build_new_method_call. */
3420 : 2158897 : sel_fn = TREE_OPERAND (sel_fn, 1);
3421 : 2158897 : gcc_assert (BASELINK_P (sel_fn));
3422 : : }
3423 : 4913756 : else if (TREE_CODE (sel_fn) == ADDR_EXPR)
3424 : : /* Our original callee wasn't wrapped in an ADDR_EXPR,
3425 : : so strip this ADDR_EXPR added by build_over_call. */
3426 : 4913756 : sel_fn = TREE_OPERAND (sel_fn, 0);
3427 : : orig_fn = sel_fn;
3428 : : }
3429 : :
3430 : 15273583 : tree r = build_call_vec (TREE_TYPE (result), orig_fn, orig_args);
3431 : 15273583 : SET_EXPR_LOCATION (r, input_location);
3432 : 15273583 : KOENIG_LOOKUP_P (r) = koenig_p;
3433 : 15273583 : TREE_NO_WARNING (r) = TREE_NO_WARNING (result);
3434 : 15273583 : release_tree_vector (orig_args);
3435 : 15273583 : result = convert_from_reference (r);
3436 : : }
3437 : :
3438 : : return result;
3439 : : }
3440 : :
3441 : : /* Finish a call to a postfix increment or decrement or EXPR. (Which
3442 : : is indicated by CODE, which should be POSTINCREMENT_EXPR or
3443 : : POSTDECREMENT_EXPR.) */
3444 : :
3445 : : cp_expr
3446 : 2162632 : finish_increment_expr (cp_expr expr, enum tree_code code)
3447 : : {
3448 : : /* input_location holds the location of the trailing operator token.
3449 : : Build a location of the form:
3450 : : expr++
3451 : : ~~~~^~
3452 : : with the caret at the operator token, ranging from the start
3453 : : of EXPR to the end of the operator token. */
3454 : 2162632 : location_t combined_loc = make_location (input_location,
3455 : : expr.get_start (),
3456 : : get_finish (input_location));
3457 : 2162632 : cp_expr result = build_x_unary_op (combined_loc, code, expr,
3458 : 2162632 : NULL_TREE, tf_warning_or_error);
3459 : : /* TODO: build_x_unary_op doesn't honor the location, so set it here. */
3460 : 2162632 : result.set_location (combined_loc);
3461 : 2162632 : return result;
3462 : : }
3463 : :
3464 : : /* Finish a use of `this'. Returns an expression for `this'. */
3465 : :
3466 : : tree
3467 : 30211187 : finish_this_expr (void)
3468 : : {
3469 : 30211187 : tree result = NULL_TREE;
3470 : :
3471 : 30211187 : if (current_class_ptr)
3472 : : {
3473 : 30211143 : tree type = TREE_TYPE (current_class_ref);
3474 : :
3475 : : /* In a lambda expression, 'this' refers to the captured 'this'. */
3476 : 60422262 : if (LAMBDA_TYPE_P (type))
3477 : 203740 : result = lambda_expr_this_capture (CLASSTYPE_LAMBDA_EXPR (type), true);
3478 : : else
3479 : 30007403 : result = current_class_ptr;
3480 : : }
3481 : :
3482 : 30211143 : if (result)
3483 : : /* The keyword 'this' is a prvalue expression. */
3484 : 30211140 : return rvalue (result);
3485 : :
3486 : 47 : tree fn = current_nonlambda_function ();
3487 : 47 : if (fn && DECL_XOBJ_MEMBER_FUNCTION_P (fn))
3488 : : {
3489 : 4 : auto_diagnostic_group d;
3490 : 4 : error ("%<this%> is unavailable for explicit object member "
3491 : : "functions");
3492 : 4 : tree xobj_parm = DECL_ARGUMENTS (fn);
3493 : 4 : gcc_assert (xobj_parm);
3494 : 4 : tree parm_name = DECL_NAME (xobj_parm);
3495 : :
3496 : 4 : static tree remembered_fn = NULL_TREE;
3497 : : /* Only output this diagnostic once per function. */
3498 : 4 : if (remembered_fn == fn)
3499 : : /* Early escape. */;
3500 : 4 : else if (parm_name)
3501 : 4 : inform (DECL_SOURCE_LOCATION (xobj_parm),
3502 : : "use explicit object parameter %qs instead",
3503 : 2 : IDENTIFIER_POINTER (parm_name));
3504 : : else
3505 : 2 : inform (DECL_SOURCE_LOCATION (xobj_parm),
3506 : : "name the explicit object parameter");
3507 : :
3508 : 4 : remembered_fn = fn;
3509 : 4 : }
3510 : 43 : else if (fn && DECL_STATIC_FUNCTION_P (fn))
3511 : 3 : error ("%<this%> is unavailable for static member functions");
3512 : 40 : else if (fn && processing_contract_condition && DECL_CONSTRUCTOR_P (fn))
3513 : 0 : error ("invalid use of %<this%> before it is valid");
3514 : 40 : else if (fn && processing_contract_condition && DECL_DESTRUCTOR_P (fn))
3515 : 0 : error ("invalid use of %<this%> after it is valid");
3516 : 40 : else if (fn)
3517 : 22 : error ("invalid use of %<this%> in non-member function");
3518 : : else
3519 : 18 : error ("invalid use of %<this%> at top level");
3520 : 47 : return error_mark_node;
3521 : : }
3522 : :
3523 : : /* Finish a pseudo-destructor expression. If SCOPE is NULL, the
3524 : : expression was of the form `OBJECT.~DESTRUCTOR' where DESTRUCTOR is
3525 : : the TYPE for the type given. If SCOPE is non-NULL, the expression
3526 : : was of the form `OBJECT.SCOPE::~DESTRUCTOR'. */
3527 : :
3528 : : tree
3529 : 37532 : finish_pseudo_destructor_expr (tree object, tree scope, tree destructor,
3530 : : location_t loc)
3531 : : {
3532 : 37532 : if (object == error_mark_node || destructor == error_mark_node)
3533 : : return error_mark_node;
3534 : :
3535 : 37523 : gcc_assert (TYPE_P (destructor));
3536 : :
3537 : 37523 : if (!processing_template_decl)
3538 : : {
3539 : 37502 : if (scope == error_mark_node)
3540 : : {
3541 : 0 : error_at (loc, "invalid qualifying scope in pseudo-destructor name");
3542 : 0 : return error_mark_node;
3543 : : }
3544 : 37502 : if (is_auto (destructor))
3545 : 3 : destructor = TREE_TYPE (object);
3546 : 37502 : if (scope && TYPE_P (scope) && !check_dtor_name (scope, destructor))
3547 : : {
3548 : 3 : error_at (loc,
3549 : : "qualified type %qT does not match destructor name ~%qT",
3550 : : scope, destructor);
3551 : 3 : return error_mark_node;
3552 : : }
3553 : :
3554 : :
3555 : : /* [expr.pseudo] says both:
3556 : :
3557 : : The type designated by the pseudo-destructor-name shall be
3558 : : the same as the object type.
3559 : :
3560 : : and:
3561 : :
3562 : : The cv-unqualified versions of the object type and of the
3563 : : type designated by the pseudo-destructor-name shall be the
3564 : : same type.
3565 : :
3566 : : We implement the more generous second sentence, since that is
3567 : : what most other compilers do. */
3568 : 37499 : if (!same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (object),
3569 : : destructor))
3570 : : {
3571 : 9 : error_at (loc, "%qE is not of type %qT", object, destructor);
3572 : 9 : return error_mark_node;
3573 : : }
3574 : : }
3575 : :
3576 : 37511 : tree type = (type_dependent_expression_p (object)
3577 : 37511 : ? NULL_TREE : void_type_node);
3578 : :
3579 : 37511 : return build3_loc (loc, PSEUDO_DTOR_EXPR, type, object,
3580 : 37511 : scope, destructor);
3581 : : }
3582 : :
3583 : : /* Finish an expression of the form CODE EXPR. */
3584 : :
3585 : : cp_expr
3586 : 29598593 : finish_unary_op_expr (location_t op_loc, enum tree_code code, cp_expr expr,
3587 : : tsubst_flags_t complain)
3588 : : {
3589 : : /* Build a location of the form:
3590 : : ++expr
3591 : : ^~~~~~
3592 : : with the caret at the operator token, ranging from the start
3593 : : of the operator token to the end of EXPR. */
3594 : 29598593 : location_t combined_loc = make_location (op_loc,
3595 : : op_loc, expr.get_finish ());
3596 : 29598593 : cp_expr result = build_x_unary_op (combined_loc, code, expr,
3597 : 29598593 : NULL_TREE, complain);
3598 : : /* TODO: build_x_unary_op doesn't always honor the location. */
3599 : 29598593 : result.set_location (combined_loc);
3600 : :
3601 : 29598593 : if (result == error_mark_node)
3602 : : return result;
3603 : :
3604 : 29598223 : if (!(complain & tf_warning))
3605 : : return result;
3606 : :
3607 : 29598223 : tree result_ovl = result;
3608 : 29598223 : tree expr_ovl = expr;
3609 : :
3610 : 29598223 : if (!processing_template_decl)
3611 : 2382352 : expr_ovl = cp_fully_fold (expr_ovl);
3612 : :
3613 : 29598223 : if (!CONSTANT_CLASS_P (expr_ovl)
3614 : 29598223 : || TREE_OVERFLOW_P (expr_ovl))
3615 : : return result;
3616 : :
3617 : 193954 : if (!processing_template_decl)
3618 : 184200 : result_ovl = cp_fully_fold (result_ovl);
3619 : :
3620 : 193954 : if (CONSTANT_CLASS_P (result_ovl) && TREE_OVERFLOW_P (result_ovl))
3621 : 9 : overflow_warning (combined_loc, result_ovl);
3622 : :
3623 : : return result;
3624 : : }
3625 : :
3626 : : /* Return true if CONSTRUCTOR EXPR after pack expansion could have no
3627 : : elements. */
3628 : :
3629 : : static bool
3630 : 12 : maybe_zero_constructor_nelts (tree expr)
3631 : : {
3632 : 12 : if (CONSTRUCTOR_NELTS (expr) == 0)
3633 : : return true;
3634 : 12 : if (!processing_template_decl)
3635 : : return false;
3636 : 30 : for (constructor_elt &elt : CONSTRUCTOR_ELTS (expr))
3637 : 21 : if (!PACK_EXPANSION_P (elt.value))
3638 : : return false;
3639 : : return true;
3640 : : }
3641 : :
3642 : : /* Finish a compound-literal expression or C++11 functional cast with aggregate
3643 : : initializer. TYPE is the type to which the CONSTRUCTOR in COMPOUND_LITERAL
3644 : : is being cast. */
3645 : :
3646 : : tree
3647 : 6336779 : finish_compound_literal (tree type, tree compound_literal,
3648 : : tsubst_flags_t complain,
3649 : : fcl_t fcl_context)
3650 : : {
3651 : 6336779 : if (type == error_mark_node)
3652 : : return error_mark_node;
3653 : :
3654 : 6336766 : if (TYPE_REF_P (type))
3655 : : {
3656 : 12 : compound_literal
3657 : 12 : = finish_compound_literal (TREE_TYPE (type), compound_literal,
3658 : : complain, fcl_context);
3659 : : /* The prvalue is then used to direct-initialize the reference. */
3660 : 12 : tree r = (perform_implicit_conversion_flags
3661 : 12 : (type, compound_literal, complain, LOOKUP_NORMAL));
3662 : 12 : return convert_from_reference (r);
3663 : : }
3664 : :
3665 : 6336754 : if (!TYPE_OBJ_P (type))
3666 : : {
3667 : : /* DR2351 */
3668 : 60 : if (VOID_TYPE_P (type) && CONSTRUCTOR_NELTS (compound_literal) == 0)
3669 : : {
3670 : 12 : if (!processing_template_decl)
3671 : 9 : return void_node;
3672 : 3 : TREE_TYPE (compound_literal) = type;
3673 : 3 : TREE_HAS_CONSTRUCTOR (compound_literal) = 1;
3674 : 3 : CONSTRUCTOR_IS_DEPENDENT (compound_literal) = 0;
3675 : 3 : return compound_literal;
3676 : : }
3677 : 21 : else if (VOID_TYPE_P (type)
3678 : 15 : && processing_template_decl
3679 : 33 : && maybe_zero_constructor_nelts (compound_literal))
3680 : : /* If there are only packs in compound_literal, it could
3681 : : be void{} after pack expansion. */;
3682 : : else
3683 : : {
3684 : 12 : if (complain & tf_error)
3685 : 9 : error ("compound literal of non-object type %qT", type);
3686 : 12 : return error_mark_node;
3687 : : }
3688 : : }
3689 : :
3690 : 6336730 : if (template_placeholder_p (type))
3691 : : {
3692 : 42534 : type = do_auto_deduction (type, compound_literal, type, complain,
3693 : : adc_variable_type);
3694 : 42534 : if (type == error_mark_node)
3695 : : return error_mark_node;
3696 : : }
3697 : : /* C++23 auto{x}. */
3698 : 6294196 : else if (is_auto (type)
3699 : 109 : && !AUTO_IS_DECLTYPE (type)
3700 : 6294303 : && CONSTRUCTOR_NELTS (compound_literal) == 1)
3701 : : {
3702 : 101 : if (is_constrained_auto (type))
3703 : : {
3704 : 2 : if (complain & tf_error)
3705 : 2 : error ("%<auto{x}%> cannot be constrained");
3706 : 2 : return error_mark_node;
3707 : : }
3708 : 99 : else if (cxx_dialect < cxx23)
3709 : 1 : pedwarn (input_location, OPT_Wc__23_extensions,
3710 : : "%<auto{x}%> only available with "
3711 : : "%<-std=c++2b%> or %<-std=gnu++2b%>");
3712 : 99 : type = do_auto_deduction (type, compound_literal, type, complain,
3713 : : adc_variable_type);
3714 : 99 : if (type == error_mark_node)
3715 : : return error_mark_node;
3716 : : }
3717 : :
3718 : : /* Used to hold a copy of the compound literal in a template. */
3719 : 6336629 : tree orig_cl = NULL_TREE;
3720 : :
3721 : 6336629 : if (processing_template_decl)
3722 : : {
3723 : 3022269 : const bool dependent_p
3724 : 3022269 : = (instantiation_dependent_expression_p (compound_literal)
3725 : 3022269 : || dependent_type_p (type));
3726 : 622641 : if (dependent_p)
3727 : : /* We're about to return, no need to copy. */
3728 : : orig_cl = compound_literal;
3729 : : else
3730 : : /* We're going to need a copy. */
3731 : 622641 : orig_cl = unshare_constructor (compound_literal);
3732 : 3022269 : TREE_TYPE (orig_cl) = type;
3733 : : /* Mark the expression as a compound literal. */
3734 : 3022269 : TREE_HAS_CONSTRUCTOR (orig_cl) = 1;
3735 : : /* And as instantiation-dependent. */
3736 : 3022269 : CONSTRUCTOR_IS_DEPENDENT (orig_cl) = dependent_p;
3737 : 3022269 : if (fcl_context == fcl_c99)
3738 : 84 : CONSTRUCTOR_C99_COMPOUND_LITERAL (orig_cl) = 1;
3739 : : /* If the compound literal is dependent, we're done for now. */
3740 : 3022269 : if (dependent_p)
3741 : : return orig_cl;
3742 : : /* Otherwise, do go on to e.g. check narrowing. */
3743 : : }
3744 : :
3745 : 3937001 : type = complete_type (type);
3746 : :
3747 : 3937001 : if (TYPE_NON_AGGREGATE_CLASS (type))
3748 : : {
3749 : : /* Trying to deal with a CONSTRUCTOR instead of a TREE_LIST
3750 : : everywhere that deals with function arguments would be a pain, so
3751 : : just wrap it in a TREE_LIST. The parser set a flag so we know
3752 : : that it came from T{} rather than T({}). */
3753 : 494925 : CONSTRUCTOR_IS_DIRECT_INIT (compound_literal) = 1;
3754 : 494925 : compound_literal = build_tree_list (NULL_TREE, compound_literal);
3755 : 494925 : return build_functional_cast (input_location, type,
3756 : 494925 : compound_literal, complain);
3757 : : }
3758 : :
3759 : 3442076 : if (TREE_CODE (type) == ARRAY_TYPE
3760 : 3442076 : && check_array_initializer (NULL_TREE, type, compound_literal))
3761 : 9 : return error_mark_node;
3762 : 3442067 : compound_literal = reshape_init (type, compound_literal, complain);
3763 : 3248359 : if (SCALAR_TYPE_P (type)
3764 : 391038 : && !BRACE_ENCLOSED_INITIALIZER_P (compound_literal)
3765 : 3490057 : && !check_narrowing (type, compound_literal, complain))
3766 : 102 : return error_mark_node;
3767 : 3441965 : if (TREE_CODE (type) == ARRAY_TYPE
3768 : 3441965 : && TYPE_DOMAIN (type) == NULL_TREE)
3769 : : {
3770 : 706 : cp_complete_array_type_or_error (&type, compound_literal,
3771 : : false, complain);
3772 : 706 : if (type == error_mark_node)
3773 : : return error_mark_node;
3774 : : }
3775 : 3441962 : compound_literal = digest_init_flags (type, compound_literal,
3776 : : LOOKUP_NORMAL | LOOKUP_NO_NARROWING,
3777 : : complain);
3778 : 3441962 : if (compound_literal == error_mark_node)
3779 : : return error_mark_node;
3780 : :
3781 : : /* If we're in a template, return the original compound literal. */
3782 : 3441413 : if (orig_cl)
3783 : : return orig_cl;
3784 : :
3785 : 2857526 : if (TREE_CODE (compound_literal) == CONSTRUCTOR)
3786 : : {
3787 : 2508270 : TREE_HAS_CONSTRUCTOR (compound_literal) = true;
3788 : 2508270 : if (fcl_context == fcl_c99)
3789 : 32239 : CONSTRUCTOR_C99_COMPOUND_LITERAL (compound_literal) = 1;
3790 : : }
3791 : :
3792 : : /* Put static/constant array temporaries in static variables. */
3793 : : /* FIXME all C99 compound literals should be variables rather than C++
3794 : : temporaries, unless they are used as an aggregate initializer. */
3795 : 3662491 : if ((!at_function_scope_p () || CP_TYPE_CONST_P (type))
3796 : 2055620 : && fcl_context == fcl_c99
3797 : 80 : && TREE_CODE (type) == ARRAY_TYPE
3798 : 28 : && !TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type)
3799 : 2857554 : && initializer_constant_valid_p (compound_literal, type))
3800 : : {
3801 : 28 : tree decl = create_temporary_var (type);
3802 : 28 : DECL_CONTEXT (decl) = NULL_TREE;
3803 : 28 : DECL_INITIAL (decl) = compound_literal;
3804 : 28 : TREE_STATIC (decl) = 1;
3805 : 28 : if (literal_type_p (type) && CP_TYPE_CONST_NON_VOLATILE_P (type))
3806 : : {
3807 : : /* 5.19 says that a constant expression can include an
3808 : : lvalue-rvalue conversion applied to "a glvalue of literal type
3809 : : that refers to a non-volatile temporary object initialized
3810 : : with a constant expression". Rather than try to communicate
3811 : : that this VAR_DECL is a temporary, just mark it constexpr. */
3812 : 24 : DECL_DECLARED_CONSTEXPR_P (decl) = true;
3813 : 24 : DECL_INITIALIZED_BY_CONSTANT_EXPRESSION_P (decl) = true;
3814 : 24 : TREE_CONSTANT (decl) = true;
3815 : : }
3816 : 28 : cp_apply_type_quals_to_decl (cp_type_quals (type), decl);
3817 : 28 : decl = pushdecl_top_level (decl);
3818 : 28 : DECL_NAME (decl) = make_anon_name ();
3819 : 28 : SET_DECL_ASSEMBLER_NAME (decl, DECL_NAME (decl));
3820 : : /* Make sure the destructor is callable. */
3821 : 28 : tree clean = cxx_maybe_build_cleanup (decl, complain);
3822 : 28 : if (clean == error_mark_node)
3823 : : return error_mark_node;
3824 : 28 : return decl;
3825 : : }
3826 : :
3827 : : /* Represent other compound literals with TARGET_EXPR so we produce
3828 : : a prvalue, and can elide copies. */
3829 : 2857498 : if (!VECTOR_TYPE_P (type)
3830 : 2825866 : && (TREE_CODE (compound_literal) == CONSTRUCTOR
3831 : 349250 : || TREE_CODE (compound_literal) == VEC_INIT_EXPR))
3832 : : {
3833 : : /* The CONSTRUCTOR is now an initializer, not a compound literal. */
3834 : 2476616 : if (TREE_CODE (compound_literal) == CONSTRUCTOR)
3835 : 2476616 : TREE_HAS_CONSTRUCTOR (compound_literal) = false;
3836 : 2476616 : compound_literal = get_target_expr (compound_literal, complain);
3837 : : }
3838 : : else
3839 : : /* For e.g. int{42} just make sure it's a prvalue. */
3840 : 380882 : compound_literal = rvalue (compound_literal);
3841 : :
3842 : : return compound_literal;
3843 : : }
3844 : :
3845 : : /* Return the declaration for the function-name variable indicated by
3846 : : ID. */
3847 : :
3848 : : tree
3849 : 175540 : finish_fname (tree id)
3850 : : {
3851 : 175540 : tree decl;
3852 : :
3853 : 175540 : decl = fname_decl (input_location, C_RID_CODE (id), id);
3854 : 175540 : if (processing_template_decl && current_function_decl
3855 : 105926 : && decl != error_mark_node)
3856 : 105926 : decl = DECL_NAME (decl);
3857 : 175540 : return decl;
3858 : : }
3859 : :
3860 : : /* Finish a translation unit. */
3861 : :
3862 : : void
3863 : 91333 : finish_translation_unit (void)
3864 : : {
3865 : : /* In case there were missing closebraces,
3866 : : get us back to the global binding level. */
3867 : 91333 : pop_everything ();
3868 : 182666 : while (current_namespace != global_namespace)
3869 : 0 : pop_namespace ();
3870 : :
3871 : : /* Do file scope __FUNCTION__ et al. */
3872 : 91333 : finish_fname_decls ();
3873 : :
3874 : 91333 : if (vec_safe_length (scope_chain->omp_declare_target_attribute))
3875 : : {
3876 : 12 : cp_omp_declare_target_attr
3877 : 12 : a = scope_chain->omp_declare_target_attribute->pop ();
3878 : 12 : if (!errorcount)
3879 : 9 : error ("%qs without corresponding %qs",
3880 : : a.device_type >= 0 ? "#pragma omp begin declare target"
3881 : : : "#pragma omp declare target",
3882 : : "#pragma omp end declare target");
3883 : 24 : vec_safe_truncate (scope_chain->omp_declare_target_attribute, 0);
3884 : : }
3885 : 91333 : if (vec_safe_length (scope_chain->omp_begin_assumes))
3886 : : {
3887 : 3 : if (!errorcount)
3888 : 3 : error ("%qs without corresponding %qs",
3889 : : "#pragma omp begin assumes", "#pragma omp end assumes");
3890 : 3 : vec_safe_truncate (scope_chain->omp_begin_assumes, 0);
3891 : : }
3892 : 91333 : }
3893 : :
3894 : : /* Finish a template type parameter, specified as AGGR IDENTIFIER.
3895 : : Returns the parameter. */
3896 : :
3897 : : tree
3898 : 133708252 : finish_template_type_parm (tree aggr, tree identifier)
3899 : : {
3900 : 133708252 : if (aggr != class_type_node)
3901 : : {
3902 : 0 : permerror (input_location, "template type parameters must use the keyword %<class%> or %<typename%>");
3903 : 0 : aggr = class_type_node;
3904 : : }
3905 : :
3906 : 133708252 : return build_tree_list (aggr, identifier);
3907 : : }
3908 : :
3909 : : /* Finish a template template parameter, specified as AGGR IDENTIFIER.
3910 : : Returns the parameter. */
3911 : :
3912 : : tree
3913 : 305502 : finish_template_template_parm (tree aggr, tree identifier)
3914 : : {
3915 : 305502 : tree decl = build_decl (input_location,
3916 : : TYPE_DECL, identifier, NULL_TREE);
3917 : :
3918 : 305502 : tree tmpl = build_lang_decl (TEMPLATE_DECL, identifier, NULL_TREE);
3919 : 305502 : DECL_TEMPLATE_PARMS (tmpl) = current_template_parms;
3920 : 305502 : DECL_TEMPLATE_RESULT (tmpl) = decl;
3921 : 305502 : DECL_ARTIFICIAL (decl) = 1;
3922 : :
3923 : : /* Associate the constraints with the underlying declaration,
3924 : : not the template. */
3925 : 305502 : tree constr = current_template_constraints ();
3926 : 305502 : set_constraints (decl, constr);
3927 : :
3928 : 305502 : end_template_decl ();
3929 : :
3930 : 305502 : gcc_assert (DECL_TEMPLATE_PARMS (tmpl));
3931 : :
3932 : 305502 : check_default_tmpl_args (decl, DECL_TEMPLATE_PARMS (tmpl),
3933 : : /*is_primary=*/true, /*is_partial=*/false,
3934 : : /*is_friend=*/0);
3935 : :
3936 : 305502 : return finish_template_type_parm (aggr, tmpl);
3937 : : }
3938 : :
3939 : : /* ARGUMENT is the default-argument value for a template template
3940 : : parameter. If ARGUMENT is invalid, issue error messages and return
3941 : : the ERROR_MARK_NODE. Otherwise, ARGUMENT itself is returned. */
3942 : :
3943 : : tree
3944 : 831 : check_template_template_default_arg (tree argument)
3945 : : {
3946 : 831 : if (TREE_CODE (argument) != TEMPLATE_DECL
3947 : : && TREE_CODE (argument) != TEMPLATE_TEMPLATE_PARM
3948 : : && TREE_CODE (argument) != UNBOUND_CLASS_TEMPLATE)
3949 : : {
3950 : : if (TREE_CODE (argument) == TYPE_DECL)
3951 : : {
3952 : 18 : if (tree t = maybe_get_template_decl_from_type_decl (argument))
3953 : 18 : if (TREE_CODE (t) == TEMPLATE_DECL)
3954 : : return t;
3955 : 15 : error ("invalid use of type %qT as a default value for a template "
3956 : 15 : "template-parameter", TREE_TYPE (argument));
3957 : : }
3958 : : else
3959 : 0 : error ("invalid default argument for a template template parameter");
3960 : 15 : return error_mark_node;
3961 : : }
3962 : :
3963 : : return argument;
3964 : : }
3965 : :
3966 : : /* Begin a class definition, as indicated by T. */
3967 : :
3968 : : tree
3969 : 24388833 : begin_class_definition (tree t)
3970 : : {
3971 : 24388833 : if (error_operand_p (t) || error_operand_p (TYPE_MAIN_DECL (t)))
3972 : 39 : return error_mark_node;
3973 : :
3974 : 24388881 : if (processing_template_parmlist && !LAMBDA_TYPE_P (t))
3975 : : {
3976 : 9 : error ("definition of %q#T inside template parameter list", t);
3977 : 9 : return error_mark_node;
3978 : : }
3979 : :
3980 : : /* According to the C++ ABI, decimal classes defined in ISO/IEC TR 24733
3981 : : are passed the same as decimal scalar types. */
3982 : 24388785 : if (TREE_CODE (t) == RECORD_TYPE
3983 : 23957685 : && !processing_template_decl)
3984 : : {
3985 : 8053580 : tree ns = TYPE_CONTEXT (t);
3986 : 8053580 : if (ns && TREE_CODE (ns) == NAMESPACE_DECL
3987 : 6473605 : && DECL_CONTEXT (ns) == std_node
3988 : 762294 : && DECL_NAME (ns)
3989 : 8815854 : && id_equal (DECL_NAME (ns), "decimal"))
3990 : : {
3991 : 150 : const char *n = TYPE_NAME_STRING (t);
3992 : 150 : if ((strcmp (n, "decimal32") == 0)
3993 : 101 : || (strcmp (n, "decimal64") == 0)
3994 : 46 : || (strcmp (n, "decimal128") == 0))
3995 : 147 : TYPE_TRANSPARENT_AGGR (t) = 1;
3996 : : }
3997 : : }
3998 : :
3999 : : /* A non-implicit typename comes from code like:
4000 : :
4001 : : template <typename T> struct A {
4002 : : template <typename U> struct A<T>::B ...
4003 : :
4004 : : This is erroneous. */
4005 : 16335205 : else if (TREE_CODE (t) == TYPENAME_TYPE)
4006 : : {
4007 : 0 : error ("invalid definition of qualified type %qT", t);
4008 : 0 : t = error_mark_node;
4009 : : }
4010 : :
4011 : 24388785 : if (t == error_mark_node || ! MAYBE_CLASS_TYPE_P (t))
4012 : : {
4013 : 0 : t = make_class_type (RECORD_TYPE);
4014 : 0 : pushtag (make_anon_name (), t);
4015 : : }
4016 : :
4017 : 24388785 : if (TYPE_BEING_DEFINED (t))
4018 : : {
4019 : 0 : t = make_class_type (TREE_CODE (t));
4020 : 0 : pushtag (TYPE_IDENTIFIER (t), t);
4021 : : }
4022 : :
4023 : 24388785 : if (modules_p ())
4024 : : {
4025 : 160458 : if (!module_may_redeclare (TYPE_NAME (t)))
4026 : 0 : return error_mark_node;
4027 : 160458 : set_instantiating_module (TYPE_NAME (t));
4028 : 160458 : set_defining_module (TYPE_NAME (t));
4029 : : }
4030 : :
4031 : 24388785 : maybe_process_partial_specialization (t);
4032 : 24388785 : pushclass (t);
4033 : 24388785 : TYPE_BEING_DEFINED (t) = 1;
4034 : 24388785 : class_binding_level->defining_class_p = 1;
4035 : :
4036 : 24388785 : if (flag_pack_struct)
4037 : : {
4038 : 90 : tree v;
4039 : 90 : TYPE_PACKED (t) = 1;
4040 : : /* Even though the type is being defined for the first time
4041 : : here, there might have been a forward declaration, so there
4042 : : might be cv-qualified variants of T. */
4043 : 90 : for (v = TYPE_NEXT_VARIANT (t); v; v = TYPE_NEXT_VARIANT (v))
4044 : 0 : TYPE_PACKED (v) = 1;
4045 : : }
4046 : : /* Reset the interface data, at the earliest possible
4047 : : moment, as it might have been set via a class foo;
4048 : : before. */
4049 : 50152091 : if (! TYPE_UNNAMED_P (t))
4050 : : {
4051 : 23767340 : struct c_fileinfo *finfo = \
4052 : 23767340 : get_fileinfo (LOCATION_FILE (input_location));
4053 : 23767340 : CLASSTYPE_INTERFACE_ONLY (t) = finfo->interface_only;
4054 : 23767340 : SET_CLASSTYPE_INTERFACE_UNKNOWN_X
4055 : : (t, finfo->interface_unknown);
4056 : : }
4057 : 24388785 : reset_specialization ();
4058 : :
4059 : : /* Make a declaration for this class in its own scope. */
4060 : 24388785 : build_self_reference ();
4061 : :
4062 : 24388785 : return t;
4063 : : }
4064 : :
4065 : : /* Finish the member declaration given by DECL. */
4066 : :
4067 : : void
4068 : 323684062 : finish_member_declaration (tree decl)
4069 : : {
4070 : 323684062 : if (decl == error_mark_node || decl == NULL_TREE)
4071 : : return;
4072 : :
4073 : 323683134 : if (decl == void_type_node)
4074 : : /* The COMPONENT was a friend, not a member, and so there's
4075 : : nothing for us to do. */
4076 : : return;
4077 : :
4078 : : /* We should see only one DECL at a time. */
4079 : 323683134 : gcc_assert (DECL_CHAIN (decl) == NULL_TREE);
4080 : :
4081 : : /* Don't add decls after definition. */
4082 : 323683149 : gcc_assert (TYPE_BEING_DEFINED (current_class_type)
4083 : : /* We can add lambda types when late parsing default
4084 : : arguments. */
4085 : : || LAMBDA_TYPE_P (TREE_TYPE (decl)));
4086 : :
4087 : : /* Set up access control for DECL. */
4088 : 323683134 : TREE_PRIVATE (decl)
4089 : 323683134 : = (current_access_specifier == access_private_node);
4090 : 323683134 : TREE_PROTECTED (decl)
4091 : 323683134 : = (current_access_specifier == access_protected_node);
4092 : 323683134 : if (TREE_CODE (decl) == TEMPLATE_DECL)
4093 : : {
4094 : 37239769 : TREE_PRIVATE (DECL_TEMPLATE_RESULT (decl)) = TREE_PRIVATE (decl);
4095 : 37239769 : TREE_PROTECTED (DECL_TEMPLATE_RESULT (decl)) = TREE_PROTECTED (decl);
4096 : : }
4097 : :
4098 : : /* Mark the DECL as a member of the current class, unless it's
4099 : : a member of an enumeration. */
4100 : 323683134 : if (TREE_CODE (decl) != CONST_DECL)
4101 : 321511001 : DECL_CONTEXT (decl) = current_class_type;
4102 : :
4103 : : /* Remember the single FIELD_DECL an anonymous aggregate type is used for. */
4104 : 323683134 : if (TREE_CODE (decl) == FIELD_DECL
4105 : 323683134 : && ANON_AGGR_TYPE_P (TREE_TYPE (decl)))
4106 : : {
4107 : 146960 : gcc_assert (!ANON_AGGR_TYPE_FIELD (TYPE_MAIN_VARIANT (TREE_TYPE (decl))));
4108 : 146960 : ANON_AGGR_TYPE_FIELD (TYPE_MAIN_VARIANT (TREE_TYPE (decl))) = decl;
4109 : : }
4110 : :
4111 : 323683134 : if (TREE_CODE (decl) == USING_DECL)
4112 : : /* Avoid debug info for class-scope USING_DECLS for now, we'll
4113 : : call cp_emit_debug_info_for_using later. */
4114 : 2699330 : DECL_IGNORED_P (decl) = 1;
4115 : :
4116 : : /* Check for bare parameter packs in the non-static data member
4117 : : declaration. */
4118 : 323683134 : if (TREE_CODE (decl) == FIELD_DECL)
4119 : : {
4120 : 23229975 : if (check_for_bare_parameter_packs (TREE_TYPE (decl)))
4121 : 9 : TREE_TYPE (decl) = error_mark_node;
4122 : 23229975 : if (check_for_bare_parameter_packs (DECL_ATTRIBUTES (decl)))
4123 : 0 : DECL_ATTRIBUTES (decl) = NULL_TREE;
4124 : : }
4125 : :
4126 : : /* [dcl.link]
4127 : :
4128 : : A C language linkage is ignored for the names of class members
4129 : : and the member function type of class member functions. */
4130 : 323683134 : if (DECL_LANG_SPECIFIC (decl))
4131 : 295450917 : SET_DECL_LANGUAGE (decl, lang_cplusplus);
4132 : :
4133 : 323683134 : bool add = false;
4134 : :
4135 : : /* Functions and non-functions are added differently. */
4136 : 323683134 : if (DECL_DECLARES_FUNCTION_P (decl))
4137 : 171994106 : add = add_method (current_class_type, decl, false);
4138 : : /* Enter the DECL into the scope of the class, if the class
4139 : : isn't a closure (whose fields are supposed to be unnamed). */
4140 : 151689028 : else if (CLASSTYPE_LAMBDA_EXPR (current_class_type)
4141 : 149848303 : || maybe_push_used_methods (decl)
4142 : 300134515 : || pushdecl_class_level (decl))
4143 : : add = true;
4144 : :
4145 : 171994106 : if (add)
4146 : : {
4147 : : /* All TYPE_DECLs go at the end of TYPE_FIELDS. Ordinary fields
4148 : : go at the beginning. The reason is that
4149 : : legacy_nonfn_member_lookup searches the list in order, and we
4150 : : want a field name to override a type name so that the "struct
4151 : : stat hack" will work. In particular:
4152 : :
4153 : : struct S { enum E { }; static const int E = 5; int ary[S::E]; } s;
4154 : :
4155 : : is valid. */
4156 : :
4157 : 323677701 : if (TREE_CODE (decl) == TYPE_DECL)
4158 : 106823278 : TYPE_FIELDS (current_class_type)
4159 : 213646556 : = chainon (TYPE_FIELDS (current_class_type), decl);
4160 : : else
4161 : : {
4162 : 216854423 : DECL_CHAIN (decl) = TYPE_FIELDS (current_class_type);
4163 : 216854423 : TYPE_FIELDS (current_class_type) = decl;
4164 : : }
4165 : :
4166 : 323677701 : maybe_add_class_template_decl_list (current_class_type, decl,
4167 : : /*friend_p=*/0);
4168 : : }
4169 : : }
4170 : :
4171 : : /* Finish processing a complete template declaration. The PARMS are
4172 : : the template parameters. */
4173 : :
4174 : : void
4175 : 76241045 : finish_template_decl (tree parms)
4176 : : {
4177 : 76241045 : if (parms)
4178 : 76241039 : end_template_decl ();
4179 : : else
4180 : 6 : end_specialization ();
4181 : 76241045 : }
4182 : :
4183 : : // Returns the template type of the class scope being entered. If we're
4184 : : // entering a constrained class scope. TYPE is the class template
4185 : : // scope being entered and we may need to match the intended type with
4186 : : // a constrained specialization. For example:
4187 : : //
4188 : : // template<Object T>
4189 : : // struct S { void f(); }; #1
4190 : : //
4191 : : // template<Object T>
4192 : : // void S<T>::f() { } #2
4193 : : //
4194 : : // We check, in #2, that S<T> refers precisely to the type declared by
4195 : : // #1 (i.e., that the constraints match). Note that the following should
4196 : : // be an error since there is no specialization of S<T> that is
4197 : : // unconstrained, but this is not diagnosed here.
4198 : : //
4199 : : // template<typename T>
4200 : : // void S<T>::f() { }
4201 : : //
4202 : : // We cannot diagnose this problem here since this function also matches
4203 : : // qualified template names that are not part of a definition. For example:
4204 : : //
4205 : : // template<Integral T, Floating_point U>
4206 : : // typename pair<T, U>::first_type void f(T, U);
4207 : : //
4208 : : // Here, it is unlikely that there is a partial specialization of
4209 : : // pair constrained for Integral and Floating_point arguments.
4210 : : //
4211 : : // The general rule is: if a constrained specialization with matching
4212 : : // constraints is found return that type. Also note that if TYPE is not a
4213 : : // class-type (e.g. a typename type), then no fixup is needed.
4214 : :
4215 : : static tree
4216 : 3947601 : fixup_template_type (tree type)
4217 : : {
4218 : : // Find the template parameter list at the a depth appropriate to
4219 : : // the scope we're trying to enter.
4220 : 3947601 : tree parms = current_template_parms;
4221 : 3947601 : int depth = template_class_depth (type);
4222 : 8756566 : for (int n = current_template_depth; n > depth && parms; --n)
4223 : 861364 : parms = TREE_CHAIN (parms);
4224 : 3947601 : if (!parms)
4225 : : return type;
4226 : 3947596 : tree cur_reqs = TEMPLATE_PARMS_CONSTRAINTS (parms);
4227 : 3947596 : tree cur_constr = build_constraints (cur_reqs, NULL_TREE);
4228 : :
4229 : : // Search for a specialization whose type and constraints match.
4230 : 3947596 : tree tmpl = CLASSTYPE_TI_TEMPLATE (type);
4231 : 3947596 : tree specs = DECL_TEMPLATE_SPECIALIZATIONS (tmpl);
4232 : 7799081 : while (specs)
4233 : : {
4234 : 3943760 : tree spec_constr = get_constraints (TREE_VALUE (specs));
4235 : :
4236 : : // If the type and constraints match a specialization, then we
4237 : : // are entering that type.
4238 : 3943760 : if (same_type_p (type, TREE_TYPE (specs))
4239 : 3943760 : && equivalent_constraints (cur_constr, spec_constr))
4240 : 92275 : return TREE_TYPE (specs);
4241 : 3851485 : specs = TREE_CHAIN (specs);
4242 : : }
4243 : :
4244 : : // If no specialization matches, then must return the type
4245 : : // previously found.
4246 : : return type;
4247 : : }
4248 : :
4249 : : /* Finish processing a template-id (which names a type) of the form
4250 : : NAME < ARGS >. Return the TYPE_DECL for the type named by the
4251 : : template-id. If ENTERING_SCOPE is nonzero we are about to enter
4252 : : the scope of template-id indicated. */
4253 : :
4254 : : tree
4255 : 156088181 : finish_template_type (tree name, tree args, int entering_scope)
4256 : : {
4257 : 156088181 : tree type;
4258 : :
4259 : 156088181 : type = lookup_template_class (name, args,
4260 : : NULL_TREE, NULL_TREE,
4261 : : tf_warning_or_error | tf_user);
4262 : 156088178 : if (entering_scope)
4263 : 18136608 : type = adjust_type_for_entering_scope (type);
4264 : :
4265 : : /* If we might be entering the scope of a partial specialization,
4266 : : find the one with the right constraints. */
4267 : 156088178 : if (flag_concepts
4268 : 41768694 : && entering_scope
4269 : 4093160 : && CLASS_TYPE_P (type)
4270 : 4057043 : && CLASSTYPE_TEMPLATE_INFO (type)
4271 : 4057037 : && dependent_type_p (type)
4272 : 160035779 : && PRIMARY_TEMPLATE_P (CLASSTYPE_TI_TEMPLATE (type)))
4273 : 3947601 : type = fixup_template_type (type);
4274 : :
4275 : 156088178 : if (type == error_mark_node)
4276 : : return type;
4277 : 156085956 : else if (CLASS_TYPE_P (type) && !alias_type_or_template_p (type))
4278 : 133033023 : return TYPE_STUB_DECL (type);
4279 : : else
4280 : 23052933 : return TYPE_NAME (type);
4281 : : }
4282 : :
4283 : : /* Finish processing a BASE_CLASS with the indicated ACCESS_SPECIFIER.
4284 : : Return a TREE_LIST containing the ACCESS_SPECIFIER and the
4285 : : BASE_CLASS, or NULL_TREE if an error occurred. The
4286 : : ACCESS_SPECIFIER is one of
4287 : : access_{default,public,protected_private}_node. For a virtual base
4288 : : we set TREE_TYPE. */
4289 : :
4290 : : tree
4291 : 10429460 : finish_base_specifier (tree base, tree access, bool virtual_p)
4292 : : {
4293 : 10429460 : tree result;
4294 : :
4295 : 10429460 : if (base == error_mark_node)
4296 : : {
4297 : 0 : error ("invalid base-class specification");
4298 : 0 : result = NULL_TREE;
4299 : : }
4300 : 10429460 : else if (! MAYBE_CLASS_TYPE_P (base))
4301 : : {
4302 : 3 : error ("%qT is not a class type", base);
4303 : 3 : result = NULL_TREE;
4304 : : }
4305 : : else
4306 : : {
4307 : 10429457 : if (cp_type_quals (base) != 0)
4308 : : {
4309 : : /* DR 484: Can a base-specifier name a cv-qualified
4310 : : class type? */
4311 : 12 : base = TYPE_MAIN_VARIANT (base);
4312 : : }
4313 : 10429457 : result = build_tree_list (access, base);
4314 : 10429457 : if (virtual_p)
4315 : 24929 : TREE_TYPE (result) = integer_type_node;
4316 : : }
4317 : :
4318 : 10429460 : return result;
4319 : : }
4320 : :
4321 : : /* If FNS is a member function, a set of member functions, or a
4322 : : template-id referring to one or more member functions, return a
4323 : : BASELINK for FNS, incorporating the current access context.
4324 : : Otherwise, return FNS unchanged. */
4325 : :
4326 : : tree
4327 : 118446820 : baselink_for_fns (tree fns)
4328 : : {
4329 : 118446820 : tree scope;
4330 : 118446820 : tree cl;
4331 : :
4332 : 118446820 : if (BASELINK_P (fns)
4333 : 118446820 : || error_operand_p (fns))
4334 : : return fns;
4335 : :
4336 : 104011485 : scope = ovl_scope (fns);
4337 : 104011485 : if (!CLASS_TYPE_P (scope))
4338 : : return fns;
4339 : :
4340 : 5861921 : cl = currently_open_derived_class (scope);
4341 : 5861921 : if (!cl)
4342 : 4103021 : cl = scope;
4343 : 5861921 : tree access_path = TYPE_BINFO (cl);
4344 : 5861921 : tree conv_path = (cl == scope ? access_path
4345 : 736874 : : lookup_base (cl, scope, ba_any, NULL, tf_none));
4346 : 5861921 : return build_baselink (conv_path, access_path, fns, /*optype=*/NULL_TREE);
4347 : : }
4348 : :
4349 : : /* Returns true iff DECL is a variable from a function outside
4350 : : the current one. */
4351 : :
4352 : : static bool
4353 : 1864315213 : outer_var_p (tree decl)
4354 : : {
4355 : : /* These should have been stripped or otherwise handled by the caller. */
4356 : 1864315213 : gcc_checking_assert (!REFERENCE_REF_P (decl));
4357 : :
4358 : 1197576243 : return ((VAR_P (decl) || TREE_CODE (decl) == PARM_DECL)
4359 : 1682899810 : && DECL_FUNCTION_SCOPE_P (decl)
4360 : : /* Don't get confused by temporaries. */
4361 : 1421605266 : && DECL_NAME (decl)
4362 : 3274660460 : && (DECL_CONTEXT (decl) != current_function_decl
4363 : 1405552944 : || parsing_nsdmi ()));
4364 : : }
4365 : :
4366 : : /* As above, but also checks that DECL is automatic. */
4367 : :
4368 : : bool
4369 : 1864315213 : outer_automatic_var_p (tree decl)
4370 : : {
4371 : 1864315213 : return (outer_var_p (decl)
4372 : 1864315213 : && !TREE_STATIC (decl));
4373 : : }
4374 : :
4375 : : /* DECL satisfies outer_automatic_var_p. Possibly complain about it or
4376 : : rewrite it for lambda capture.
4377 : :
4378 : : If ODR_USE is true, we're being called from mark_use, and we complain about
4379 : : use of constant variables. If ODR_USE is false, we're being called for the
4380 : : id-expression, and we do lambda capture. */
4381 : :
4382 : : tree
4383 : 2111040 : process_outer_var_ref (tree decl, tsubst_flags_t complain, bool odr_use)
4384 : : {
4385 : 2111040 : if (cp_unevaluated_operand)
4386 : : {
4387 : 1182083 : tree type = TREE_TYPE (decl);
4388 : 1182083 : if (!dependent_type_p (type)
4389 : 1182083 : && variably_modified_type_p (type, NULL_TREE))
4390 : : /* VLAs are used even in unevaluated context. */;
4391 : : else
4392 : : /* It's not a use (3.2) if we're in an unevaluated context. */
4393 : 1182077 : return decl;
4394 : : }
4395 : 928963 : if (decl == error_mark_node)
4396 : : return decl;
4397 : :
4398 : 928963 : tree context = DECL_CONTEXT (decl);
4399 : 928963 : tree containing_function = current_function_decl;
4400 : 928963 : tree lambda_stack = NULL_TREE;
4401 : 928963 : tree lambda_expr = NULL_TREE;
4402 : 928963 : tree initializer = convert_from_reference (decl);
4403 : :
4404 : : /* Mark it as used now even if the use is ill-formed. */
4405 : 928963 : if (!mark_used (decl, complain))
4406 : 3 : return error_mark_node;
4407 : :
4408 : 928960 : if (parsing_nsdmi ())
4409 : : containing_function = NULL_TREE;
4410 : :
4411 : 1857518 : if (containing_function && LAMBDA_FUNCTION_P (containing_function))
4412 : : {
4413 : : /* Check whether we've already built a proxy. */
4414 : : tree var = decl;
4415 : 931435 : while (is_normal_capture_proxy (var))
4416 : 2763 : var = DECL_CAPTURED_VARIABLE (var);
4417 : 928672 : tree d = retrieve_local_specialization (var);
4418 : :
4419 : 928672 : if (d && d != decl && is_capture_proxy (d))
4420 : : {
4421 : 502195 : if (DECL_CONTEXT (d) == containing_function)
4422 : : /* We already have an inner proxy. */
4423 : : return d;
4424 : : else
4425 : : /* We need to capture an outer proxy. */
4426 : 2745 : return process_outer_var_ref (d, complain, odr_use);
4427 : : }
4428 : : }
4429 : :
4430 : : /* If we are in a lambda function, we can move out until we hit
4431 : : 1. the context,
4432 : : 2. a non-lambda function, or
4433 : : 3. a non-default capturing lambda function. */
4434 : 855344 : while (context != containing_function
4435 : : /* containing_function can be null with invalid generic lambdas. */
4436 : 855344 : && containing_function
4437 : 1284244 : && LAMBDA_FUNCTION_P (containing_function))
4438 : : {
4439 : 428900 : tree closure = DECL_CONTEXT (containing_function);
4440 : 428900 : lambda_expr = CLASSTYPE_LAMBDA_EXPR (closure);
4441 : :
4442 : 428900 : if (TYPE_CLASS_SCOPE_P (closure))
4443 : : /* A lambda in an NSDMI (c++/64496). */
4444 : : break;
4445 : :
4446 : 428897 : if (LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (lambda_expr) == CPLD_NONE)
4447 : : break;
4448 : :
4449 : 428579 : lambda_stack = tree_cons (NULL_TREE, lambda_expr, lambda_stack);
4450 : :
4451 : 428579 : containing_function = decl_function_context (containing_function);
4452 : : }
4453 : :
4454 : : /* In a lambda within a template, wait until instantiation time to implicitly
4455 : : capture a parameter pack. We want to wait because we don't know if we're
4456 : : capturing the whole pack or a single element, and it's OK to wait because
4457 : : find_parameter_packs_r walks into the lambda body. */
4458 : 426765 : if (context == containing_function
4459 : 426765 : && DECL_PACK_P (decl))
4460 : : return decl;
4461 : :
4462 : 398372 : if (lambda_expr && VAR_P (decl) && DECL_ANON_UNION_VAR_P (decl))
4463 : : {
4464 : 6 : if (complain & tf_error)
4465 : 6 : error ("cannot capture member %qD of anonymous union", decl);
4466 : 6 : return error_mark_node;
4467 : : }
4468 : : /* Do lambda capture when processing the id-expression, not when
4469 : : odr-using a variable. */
4470 : 398366 : if (!odr_use && context == containing_function)
4471 : 795514 : decl = add_default_capture (lambda_stack,
4472 : 397757 : /*id=*/DECL_NAME (decl), initializer);
4473 : : /* Only an odr-use of an outer automatic variable causes an
4474 : : error, and a constant variable can decay to a prvalue
4475 : : constant without odr-use. So don't complain yet. */
4476 : 609 : else if (!odr_use && decl_constant_var_p (decl))
4477 : : return decl;
4478 : 254 : else if (lambda_expr)
4479 : : {
4480 : 42 : if (complain & tf_error)
4481 : : {
4482 : 42 : auto_diagnostic_group d;
4483 : 42 : error ("%qD is not captured", decl);
4484 : 42 : tree closure = LAMBDA_EXPR_CLOSURE (lambda_expr);
4485 : 42 : if (LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (lambda_expr) == CPLD_NONE)
4486 : 39 : inform (location_of (closure),
4487 : : "the lambda has no capture-default");
4488 : 3 : else if (TYPE_CLASS_SCOPE_P (closure))
4489 : 3 : inform (UNKNOWN_LOCATION, "lambda in local class %q+T cannot "
4490 : : "capture variables from the enclosing context",
4491 : 3 : TYPE_CONTEXT (closure));
4492 : 42 : inform (DECL_SOURCE_LOCATION (decl), "%q#D declared here", decl);
4493 : 42 : }
4494 : 42 : return error_mark_node;
4495 : : }
4496 : 212 : else if (processing_contract_condition && (TREE_CODE (decl) == PARM_DECL))
4497 : : /* Use of a parameter in a contract condition is fine. */
4498 : : return decl;
4499 : : else
4500 : : {
4501 : 42 : if (complain & tf_error)
4502 : : {
4503 : 36 : auto_diagnostic_group d;
4504 : 54 : error (VAR_P (decl)
4505 : : ? G_("use of local variable with automatic storage from "
4506 : : "containing function")
4507 : : : G_("use of parameter from containing function"));
4508 : 36 : inform (DECL_SOURCE_LOCATION (decl), "%q#D declared here", decl);
4509 : 36 : }
4510 : 42 : return error_mark_node;
4511 : : }
4512 : 397757 : return decl;
4513 : : }
4514 : :
4515 : : /* ID_EXPRESSION is a representation of parsed, but unprocessed,
4516 : : id-expression. (See cp_parser_id_expression for details.) SCOPE,
4517 : : if non-NULL, is the type or namespace used to explicitly qualify
4518 : : ID_EXPRESSION. DECL is the entity to which that name has been
4519 : : resolved.
4520 : :
4521 : : *CONSTANT_EXPRESSION_P is true if we are presently parsing a
4522 : : constant-expression. In that case, *NON_CONSTANT_EXPRESSION_P will
4523 : : be set to true if this expression isn't permitted in a
4524 : : constant-expression, but it is otherwise not set by this function.
4525 : : *ALLOW_NON_CONSTANT_EXPRESSION_P is true if we are parsing a
4526 : : constant-expression, but a non-constant expression is also
4527 : : permissible.
4528 : :
4529 : : DONE is true if this expression is a complete postfix-expression;
4530 : : it is false if this expression is followed by '->', '[', '(', etc.
4531 : : ADDRESS_P is true iff this expression is the operand of '&'.
4532 : : TEMPLATE_P is true iff the qualified-id was of the form
4533 : : "A::template B". TEMPLATE_ARG_P is true iff this qualified name
4534 : : appears as a template argument.
4535 : :
4536 : : If an error occurs, and it is the kind of error that might cause
4537 : : the parser to abort a tentative parse, *ERROR_MSG is filled in. It
4538 : : is the caller's responsibility to issue the message. *ERROR_MSG
4539 : : will be a string with static storage duration, so the caller need
4540 : : not "free" it.
4541 : :
4542 : : Return an expression for the entity, after issuing appropriate
4543 : : diagnostics. This function is also responsible for transforming a
4544 : : reference to a non-static member into a COMPONENT_REF that makes
4545 : : the use of "this" explicit.
4546 : :
4547 : : Upon return, *IDK will be filled in appropriately. */
4548 : : static cp_expr
4549 : 588388479 : finish_id_expression_1 (tree id_expression,
4550 : : tree decl,
4551 : : tree scope,
4552 : : cp_id_kind *idk,
4553 : : bool integral_constant_expression_p,
4554 : : bool allow_non_integral_constant_expression_p,
4555 : : bool *non_integral_constant_expression_p,
4556 : : bool template_p,
4557 : : bool done,
4558 : : bool address_p,
4559 : : bool template_arg_p,
4560 : : const char **error_msg,
4561 : : location_t location)
4562 : : {
4563 : 588388479 : decl = strip_using_decl (decl);
4564 : :
4565 : : /* Initialize the output parameters. */
4566 : 588388479 : *idk = CP_ID_KIND_NONE;
4567 : 588388479 : *error_msg = NULL;
4568 : :
4569 : 588388479 : if (id_expression == error_mark_node)
4570 : 12 : return error_mark_node;
4571 : : /* If we have a template-id, then no further lookup is
4572 : : required. If the template-id was for a template-class, we
4573 : : will sometimes have a TYPE_DECL at this point. */
4574 : 588388467 : else if (TREE_CODE (decl) == TEMPLATE_ID_EXPR
4575 : 559823138 : || TREE_CODE (decl) == TYPE_DECL)
4576 : : ;
4577 : : /* Look up the name. */
4578 : : else
4579 : : {
4580 : 559822258 : if (decl == error_mark_node)
4581 : : {
4582 : : /* Name lookup failed. */
4583 : 88217 : if (scope
4584 : 88217 : && (!TYPE_P (scope)
4585 : 116 : || (!dependentish_scope_p (scope)
4586 : 112 : && !(identifier_p (id_expression)
4587 : 97 : && IDENTIFIER_CONV_OP_P (id_expression)
4588 : 3 : && dependent_type_p (TREE_TYPE (id_expression))))))
4589 : : {
4590 : : /* If the qualifying type is non-dependent (and the name
4591 : : does not name a conversion operator to a dependent
4592 : : type), issue an error. */
4593 : 357 : qualified_name_lookup_error (scope, id_expression, decl, location);
4594 : 357 : return error_mark_node;
4595 : : }
4596 : 87860 : else if (!scope)
4597 : : {
4598 : : /* It may be resolved via Koenig lookup. */
4599 : 87850 : *idk = CP_ID_KIND_UNQUALIFIED;
4600 : 87850 : return id_expression;
4601 : : }
4602 : : else
4603 : : decl = id_expression;
4604 : : }
4605 : :
4606 : : /* Remember that the name was used in the definition of
4607 : : the current class so that we can check later to see if
4608 : : the meaning would have been different after the class
4609 : : was entirely defined. */
4610 : 559734041 : if (!scope && decl != error_mark_node && identifier_p (id_expression))
4611 : 508517266 : maybe_note_name_used_in_class (id_expression, decl);
4612 : :
4613 : : /* A use in unevaluated operand might not be instantiated appropriately
4614 : : if tsubst_copy builds a dummy parm, or if we never instantiate a
4615 : : generic lambda, so mark it now. */
4616 : 559734051 : if (processing_template_decl && cp_unevaluated_operand)
4617 : 8789958 : mark_type_use (decl);
4618 : :
4619 : : /* Disallow uses of local variables from containing functions, except
4620 : : within lambda-expressions. */
4621 : 559734051 : if (outer_automatic_var_p (decl))
4622 : : {
4623 : 1723032 : decl = process_outer_var_ref (decl, tf_warning_or_error);
4624 : 1723032 : if (decl == error_mark_node)
4625 : 81 : return error_mark_node;
4626 : : }
4627 : :
4628 : : /* Also disallow uses of function parameters outside the function
4629 : : body, except inside an unevaluated context (i.e. decltype). */
4630 : 559733970 : if (TREE_CODE (decl) == PARM_DECL
4631 : 236211442 : && DECL_CONTEXT (decl) == NULL_TREE
4632 : 3944449 : && !cp_unevaluated_operand
4633 : 559734397 : && !processing_contract_condition)
4634 : : {
4635 : 25 : *error_msg = G_("use of parameter outside function body");
4636 : 25 : return error_mark_node;
4637 : : }
4638 : : }
4639 : :
4640 : : /* If we didn't find anything, or what we found was a type,
4641 : : then this wasn't really an id-expression. */
4642 : 588300154 : if (TREE_CODE (decl) == TEMPLATE_DECL
4643 : 588300154 : && !DECL_FUNCTION_TEMPLATE_P (decl))
4644 : : {
4645 : 57 : *error_msg = G_("missing template arguments");
4646 : 57 : return error_mark_node;
4647 : : }
4648 : 588300097 : else if (TREE_CODE (decl) == TYPE_DECL
4649 : 588299217 : || TREE_CODE (decl) == NAMESPACE_DECL)
4650 : : {
4651 : 895 : *error_msg = G_("expected primary-expression");
4652 : 895 : return error_mark_node;
4653 : : }
4654 : :
4655 : : /* If the name resolved to a template parameter, there is no
4656 : : need to look it up again later. */
4657 : 26987368 : if ((TREE_CODE (decl) == CONST_DECL && DECL_TEMPLATE_PARM_P (decl))
4658 : 597950309 : || TREE_CODE (decl) == TEMPLATE_PARM_INDEX)
4659 : : {
4660 : 17336261 : tree r;
4661 : :
4662 : 17336261 : *idk = CP_ID_KIND_NONE;
4663 : 17336261 : if (TREE_CODE (decl) == TEMPLATE_PARM_INDEX)
4664 : 0 : decl = TEMPLATE_PARM_DECL (decl);
4665 : 17336261 : r = DECL_INITIAL (decl);
4666 : 17336261 : if (CLASS_TYPE_P (TREE_TYPE (r)) && !CP_TYPE_CONST_P (TREE_TYPE (r)))
4667 : : {
4668 : : /* If the entity is a template parameter object for a template
4669 : : parameter of type T, the type of the expression is const T. */
4670 : 129 : tree ctype = TREE_TYPE (r);
4671 : 129 : ctype = cp_build_qualified_type (ctype, (cp_type_quals (ctype)
4672 : : | TYPE_QUAL_CONST));
4673 : 129 : r = build1 (VIEW_CONVERT_EXPR, ctype, r);
4674 : : }
4675 : 17336261 : r = convert_from_reference (r);
4676 : 17336261 : if (integral_constant_expression_p
4677 : 2836684 : && !dependent_type_p (TREE_TYPE (decl))
4678 : 19696327 : && !(INTEGRAL_OR_ENUMERATION_TYPE_P (TREE_TYPE (r))))
4679 : : {
4680 : 72 : if (!allow_non_integral_constant_expression_p)
4681 : 6 : error ("template parameter %qD of type %qT is not allowed in "
4682 : : "an integral constant expression because it is not of "
4683 : 6 : "integral or enumeration type", decl, TREE_TYPE (decl));
4684 : 72 : *non_integral_constant_expression_p = true;
4685 : : }
4686 : 17336261 : return r;
4687 : : }
4688 : 570962941 : else if (TREE_CODE (decl) == UNBOUND_CLASS_TEMPLATE)
4689 : : {
4690 : 9 : gcc_checking_assert (scope);
4691 : 9 : *idk = CP_ID_KIND_QUALIFIED;
4692 : 9 : cp_warn_deprecated_use_scopes (scope);
4693 : 9 : decl = finish_qualified_id_expr (scope, decl, done, address_p,
4694 : : template_p, template_arg_p,
4695 : : tf_warning_or_error);
4696 : : }
4697 : : else
4698 : : {
4699 : 570962932 : if (TREE_CODE (decl) == TEMPLATE_ID_EXPR
4700 : 28565329 : && variable_template_p (TREE_OPERAND (decl, 0))
4701 : 576586704 : && !concept_check_p (decl))
4702 : : /* Try resolving this variable TEMPLATE_ID_EXPR (which is always
4703 : : considered type-dependent) now, so that the dependence test that
4704 : : follows gives us the right answer: if it represents a non-dependent
4705 : : variable template-id then finish_template_variable will yield the
4706 : : corresponding non-dependent VAR_DECL. */
4707 : 5623772 : decl = finish_template_variable (decl);
4708 : :
4709 : 570962932 : bool dependent_p = type_dependent_expression_p (decl);
4710 : :
4711 : : /* If the declaration was explicitly qualified indicate
4712 : : that. The semantics of `A::f(3)' are different than
4713 : : `f(3)' if `f' is virtual. */
4714 : 1141925864 : *idk = (scope
4715 : 570962932 : ? CP_ID_KIND_QUALIFIED
4716 : 504569901 : : (TREE_CODE (decl) == TEMPLATE_ID_EXPR
4717 : 504569901 : ? CP_ID_KIND_TEMPLATE_ID
4718 : : : (dependent_p
4719 : 491264590 : ? CP_ID_KIND_UNQUALIFIED_DEPENDENT
4720 : : : CP_ID_KIND_UNQUALIFIED)));
4721 : :
4722 : 570962932 : if (dependent_p
4723 : 570962932 : && !scope
4724 : 334707318 : && DECL_P (decl)
4725 : 884848894 : && any_dependent_type_attributes_p (DECL_ATTRIBUTES (decl)))
4726 : : /* Dependent type attributes on the decl mean that the TREE_TYPE is
4727 : : wrong, so just return the identifier. */
4728 : 39 : return id_expression;
4729 : :
4730 : 570962893 : if (DECL_CLASS_TEMPLATE_P (decl))
4731 : : {
4732 : 0 : error ("use of class template %qT as expression", decl);
4733 : 0 : return error_mark_node;
4734 : : }
4735 : :
4736 : 570962893 : if (TREE_CODE (decl) == TREE_LIST)
4737 : : {
4738 : : /* Ambiguous reference to base members. */
4739 : 0 : auto_diagnostic_group d;
4740 : 0 : error ("request for member %qD is ambiguous in "
4741 : : "multiple inheritance lattice", id_expression);
4742 : 0 : print_candidates (decl);
4743 : 0 : return error_mark_node;
4744 : 0 : }
4745 : :
4746 : : /* Mark variable-like entities as used. Functions are similarly
4747 : : marked either below or after overload resolution. */
4748 : 570962893 : if ((VAR_P (decl)
4749 : 415395427 : || TREE_CODE (decl) == PARM_DECL
4750 : 179184016 : || TREE_CODE (decl) == CONST_DECL
4751 : 169532909 : || TREE_CODE (decl) == RESULT_DECL)
4752 : 816825411 : && !mark_used (decl))
4753 : 12 : return error_mark_node;
4754 : :
4755 : : /* Only certain kinds of names are allowed in constant
4756 : : expression. Template parameters have already
4757 : : been handled above. */
4758 : 570962878 : if (! error_operand_p (decl)
4759 : 570962593 : && !dependent_p
4760 : 570962593 : && integral_constant_expression_p
4761 : 54348243 : && !decl_constant_var_p (decl)
4762 : 44968846 : && TREE_CODE (decl) != CONST_DECL
4763 : 39177327 : && !builtin_valid_in_constant_expr_p (decl)
4764 : 610099573 : && !concept_check_p (decl))
4765 : : {
4766 : 39004229 : if (!allow_non_integral_constant_expression_p)
4767 : : {
4768 : 31 : error ("%qD cannot appear in a constant-expression", decl);
4769 : 31 : return error_mark_node;
4770 : : }
4771 : 39004198 : *non_integral_constant_expression_p = true;
4772 : : }
4773 : :
4774 : 570962847 : if (tree wrap = maybe_get_tls_wrapper_call (decl))
4775 : : /* Replace an evaluated use of the thread_local variable with
4776 : : a call to its wrapper. */
4777 : : decl = wrap;
4778 : 570962485 : else if (concept_check_p (decl))
4779 : : {
4780 : : /* Nothing more to do. All of the analysis for concept checks
4781 : : is done by build_conept_id, called from the parser. */
4782 : : }
4783 : 566673901 : else if (scope)
4784 : : {
4785 : 65873067 : if (TREE_CODE (decl) == SCOPE_REF)
4786 : : {
4787 : 4207 : gcc_assert (same_type_p (scope, TREE_OPERAND (decl, 0)));
4788 : 4207 : decl = TREE_OPERAND (decl, 1);
4789 : : }
4790 : :
4791 : 65873067 : decl = (adjust_result_of_qualified_name_lookup
4792 : 65873067 : (decl, scope, current_nonlambda_class_type()));
4793 : :
4794 : 65873067 : cp_warn_deprecated_use_scopes (scope);
4795 : :
4796 : 65873067 : if (TYPE_P (scope))
4797 : 10088128 : decl = finish_qualified_id_expr (scope,
4798 : : decl,
4799 : : done,
4800 : : address_p,
4801 : : template_p,
4802 : : template_arg_p,
4803 : : tf_warning_or_error);
4804 : : else
4805 : 55784939 : decl = convert_from_reference (decl);
4806 : : }
4807 : 500800834 : else if (TREE_CODE (decl) == FIELD_DECL)
4808 : : {
4809 : : /* Since SCOPE is NULL here, this is an unqualified name.
4810 : : Access checking has been performed during name lookup
4811 : : already. Turn off checking to avoid duplicate errors. */
4812 : 53356793 : push_deferring_access_checks (dk_no_check);
4813 : 53356793 : decl = finish_non_static_data_member (decl, NULL_TREE,
4814 : : /*qualifying_scope=*/NULL_TREE);
4815 : 53356793 : pop_deferring_access_checks ();
4816 : : }
4817 : 447444041 : else if (is_overloaded_fn (decl))
4818 : : {
4819 : : /* We only need to look at the first function,
4820 : : because all the fns share the attribute we're
4821 : : concerned with (all member fns or all non-members). */
4822 : 51220840 : tree first_fn = get_first_fn (decl);
4823 : 51220840 : first_fn = STRIP_TEMPLATE (first_fn);
4824 : :
4825 : 51220840 : if (!template_arg_p
4826 : 51220840 : && (TREE_CODE (first_fn) == USING_DECL
4827 : 51219068 : || (TREE_CODE (first_fn) == FUNCTION_DECL
4828 : 51219068 : && DECL_FUNCTION_MEMBER_P (first_fn)
4829 : 29840696 : && !shared_member_p (decl))))
4830 : : {
4831 : : /* A set of member functions. */
4832 : 23991282 : decl = maybe_dummy_object (DECL_CONTEXT (first_fn), 0);
4833 : 23991282 : return finish_class_member_access_expr (decl, id_expression,
4834 : : /*template_p=*/false,
4835 : 23991282 : tf_warning_or_error);
4836 : : }
4837 : :
4838 : 27229558 : decl = baselink_for_fns (decl);
4839 : : }
4840 : : else
4841 : : {
4842 : 390998542 : if (DECL_P (decl) && DECL_NONLOCAL (decl)
4843 : 397535079 : && DECL_CLASS_SCOPE_P (decl))
4844 : : {
4845 : 1311878 : tree context = context_for_name_lookup (decl);
4846 : 1311878 : if (context != current_class_type)
4847 : : {
4848 : 767621 : tree path = currently_open_derived_class (context);
4849 : 767621 : if (!path)
4850 : : /* PATH can be null for using an enum of an unrelated
4851 : : class; we checked its access in lookup_using_decl.
4852 : :
4853 : : ??? Should this case make a clone instead, like
4854 : : handle_using_decl? */
4855 : 10 : gcc_assert (TREE_CODE (decl) == CONST_DECL);
4856 : : else
4857 : 767611 : perform_or_defer_access_check (TYPE_BINFO (path),
4858 : : decl, decl,
4859 : : tf_warning_or_error);
4860 : : }
4861 : : }
4862 : :
4863 : 396223201 : decl = convert_from_reference (decl);
4864 : : }
4865 : : }
4866 : :
4867 : 546971574 : return cp_expr (decl, location);
4868 : : }
4869 : :
4870 : : /* As per finish_id_expression_1, but adding a wrapper node
4871 : : around the result if needed to express LOCATION. */
4872 : :
4873 : : cp_expr
4874 : 588388479 : finish_id_expression (tree id_expression,
4875 : : tree decl,
4876 : : tree scope,
4877 : : cp_id_kind *idk,
4878 : : bool integral_constant_expression_p,
4879 : : bool allow_non_integral_constant_expression_p,
4880 : : bool *non_integral_constant_expression_p,
4881 : : bool template_p,
4882 : : bool done,
4883 : : bool address_p,
4884 : : bool template_arg_p,
4885 : : const char **error_msg,
4886 : : location_t location)
4887 : : {
4888 : 588388479 : cp_expr result
4889 : 588388479 : = finish_id_expression_1 (id_expression, decl, scope, idk,
4890 : : integral_constant_expression_p,
4891 : : allow_non_integral_constant_expression_p,
4892 : : non_integral_constant_expression_p,
4893 : : template_p, done, address_p, template_arg_p,
4894 : : error_msg, location);
4895 : 588388476 : return result.maybe_add_location_wrapper ();
4896 : : }
4897 : :
4898 : : /* Implement the __typeof keyword: Return the type of EXPR, suitable for
4899 : : use as a type-specifier. */
4900 : :
4901 : : tree
4902 : 18620703 : finish_typeof (tree expr)
4903 : : {
4904 : 18620703 : tree type;
4905 : :
4906 : 18620703 : if (type_dependent_expression_p (expr))
4907 : : {
4908 : 18529690 : type = cxx_make_type (TYPEOF_TYPE);
4909 : 18529690 : TYPEOF_TYPE_EXPR (type) = expr;
4910 : 18529690 : SET_TYPE_STRUCTURAL_EQUALITY (type);
4911 : :
4912 : 18529690 : return type;
4913 : : }
4914 : :
4915 : 91013 : expr = mark_type_use (expr);
4916 : :
4917 : 91013 : type = unlowered_expr_type (expr);
4918 : :
4919 : 91013 : if (!type || type == unknown_type_node)
4920 : : {
4921 : 3 : error ("type of %qE is unknown", expr);
4922 : 3 : return error_mark_node;
4923 : : }
4924 : :
4925 : : return type;
4926 : : }
4927 : :
4928 : : /* Implement the __underlying_type keyword: Return the underlying
4929 : : type of TYPE, suitable for use as a type-specifier. */
4930 : :
4931 : : tree
4932 : 39173 : finish_underlying_type (tree type)
4933 : : {
4934 : 39173 : if (!complete_type_or_else (type, NULL_TREE))
4935 : 3 : return error_mark_node;
4936 : :
4937 : 39170 : if (TREE_CODE (type) != ENUMERAL_TYPE)
4938 : : {
4939 : 24 : error ("%qT is not an enumeration type", type);
4940 : 24 : return error_mark_node;
4941 : : }
4942 : :
4943 : 39146 : tree underlying_type = ENUM_UNDERLYING_TYPE (type);
4944 : :
4945 : : /* Fixup necessary in this case because ENUM_UNDERLYING_TYPE
4946 : : includes TYPE_MIN_VALUE and TYPE_MAX_VALUE information.
4947 : : See finish_enum_value_list for details. */
4948 : 39146 : if (!ENUM_FIXED_UNDERLYING_TYPE_P (type))
4949 : 52 : underlying_type
4950 : 52 : = c_common_type_for_mode (TYPE_MODE (underlying_type),
4951 : 52 : TYPE_UNSIGNED (underlying_type));
4952 : :
4953 : : return underlying_type;
4954 : : }
4955 : :
4956 : : /* Implement the __type_pack_element keyword: Return the type
4957 : : at index IDX within TYPES. */
4958 : :
4959 : : static tree
4960 : 82070 : finish_type_pack_element (tree idx, tree types, tsubst_flags_t complain)
4961 : : {
4962 : 82070 : idx = maybe_constant_value (idx);
4963 : 82070 : if (TREE_CODE (idx) != INTEGER_CST || !INTEGRAL_TYPE_P (TREE_TYPE (idx)))
4964 : : {
4965 : 7 : if (complain & tf_error)
4966 : 4 : error ("pack index is not an integral constant");
4967 : 7 : return error_mark_node;
4968 : : }
4969 : 82063 : if (tree_int_cst_sgn (idx) < 0)
4970 : : {
4971 : 5 : if (complain & tf_error)
4972 : 5 : error ("pack index is negative");
4973 : 5 : return error_mark_node;
4974 : : }
4975 : 82058 : if (wi::to_widest (idx) >= TREE_VEC_LENGTH (types))
4976 : : {
4977 : 25 : if (complain & tf_error)
4978 : 19 : error ("pack index is out of range");
4979 : 25 : return error_mark_node;
4980 : : }
4981 : 82033 : return TREE_VEC_ELT (types, tree_to_shwi (idx));
4982 : : }
4983 : :
4984 : : /* In a pack-index T...[N], return the element at index IDX within TYPES.
4985 : : PARENTHESIZED_P is true iff the pack index was wrapped in (). */
4986 : :
4987 : : tree
4988 : 122 : pack_index_element (tree idx, tree types, bool parenthesized_p,
4989 : : tsubst_flags_t complain)
4990 : : {
4991 : 122 : tree r = finish_type_pack_element (idx, types, complain);
4992 : 122 : if (parenthesized_p)
4993 : : /* For the benefit of decltype(auto). */
4994 : 22 : r = force_paren_expr (r);
4995 : 122 : return r;
4996 : : }
4997 : :
4998 : : /* Implement the __direct_bases keyword: Return the direct base classes
4999 : : of type. */
5000 : :
5001 : : tree
5002 : 15 : calculate_direct_bases (tree type, tsubst_flags_t complain)
5003 : : {
5004 : 15 : if (!complete_type_or_maybe_complain (type, NULL_TREE, complain)
5005 : 15 : || !NON_UNION_CLASS_TYPE_P (type))
5006 : 8 : return make_tree_vec (0);
5007 : :
5008 : 7 : releasing_vec vector;
5009 : 7 : vec<tree, va_gc> *base_binfos = BINFO_BASE_BINFOS (TYPE_BINFO (type));
5010 : 7 : tree binfo;
5011 : 7 : unsigned i;
5012 : :
5013 : : /* Virtual bases are initialized first */
5014 : 20 : for (i = 0; base_binfos->iterate (i, &binfo); i++)
5015 : 13 : if (BINFO_VIRTUAL_P (binfo))
5016 : 2 : vec_safe_push (vector, binfo);
5017 : :
5018 : : /* Now non-virtuals */
5019 : 20 : for (i = 0; base_binfos->iterate (i, &binfo); i++)
5020 : 13 : if (!BINFO_VIRTUAL_P (binfo))
5021 : 11 : vec_safe_push (vector, binfo);
5022 : :
5023 : 7 : tree bases_vec = make_tree_vec (vector->length ());
5024 : :
5025 : 27 : for (i = 0; i < vector->length (); ++i)
5026 : 13 : TREE_VEC_ELT (bases_vec, i) = BINFO_TYPE ((*vector)[i]);
5027 : :
5028 : 7 : return bases_vec;
5029 : 7 : }
5030 : :
5031 : : /* Implement the __bases keyword: Return the base classes
5032 : : of type */
5033 : :
5034 : : /* Find morally non-virtual base classes by walking binfo hierarchy */
5035 : : /* Virtual base classes are handled separately in finish_bases */
5036 : :
5037 : : static tree
5038 : 73 : dfs_calculate_bases_pre (tree binfo, void * /*data_*/)
5039 : : {
5040 : : /* Don't walk bases of virtual bases */
5041 : 73 : return BINFO_VIRTUAL_P (binfo) ? dfs_skip_bases : NULL_TREE;
5042 : : }
5043 : :
5044 : : static tree
5045 : 73 : dfs_calculate_bases_post (tree binfo, void *data_)
5046 : : {
5047 : 73 : vec<tree, va_gc> **data = ((vec<tree, va_gc> **) data_);
5048 : 73 : if (!BINFO_VIRTUAL_P (binfo))
5049 : 48 : vec_safe_push (*data, BINFO_TYPE (binfo));
5050 : 73 : return NULL_TREE;
5051 : : }
5052 : :
5053 : : /* Calculates the morally non-virtual base classes of a class */
5054 : : static vec<tree, va_gc> *
5055 : 16 : calculate_bases_helper (tree type)
5056 : : {
5057 : 16 : vec<tree, va_gc> *vector = make_tree_vector ();
5058 : :
5059 : : /* Now add non-virtual base classes in order of construction */
5060 : 16 : if (TYPE_BINFO (type))
5061 : 16 : dfs_walk_all (TYPE_BINFO (type),
5062 : : dfs_calculate_bases_pre, dfs_calculate_bases_post, &vector);
5063 : 16 : return vector;
5064 : : }
5065 : :
5066 : : tree
5067 : 12 : calculate_bases (tree type, tsubst_flags_t complain)
5068 : : {
5069 : 12 : if (!complete_type_or_maybe_complain (type, NULL_TREE, complain)
5070 : 12 : || !NON_UNION_CLASS_TYPE_P (type))
5071 : 5 : return make_tree_vec (0);
5072 : :
5073 : 7 : releasing_vec vector;
5074 : 7 : tree bases_vec = NULL_TREE;
5075 : 7 : unsigned i;
5076 : 7 : vec<tree, va_gc> *vbases;
5077 : 7 : tree binfo;
5078 : :
5079 : : /* First go through virtual base classes */
5080 : 7 : for (vbases = CLASSTYPE_VBASECLASSES (type), i = 0;
5081 : 16 : vec_safe_iterate (vbases, i, &binfo); i++)
5082 : : {
5083 : 9 : releasing_vec vbase_bases
5084 : 9 : = calculate_bases_helper (BINFO_TYPE (binfo));
5085 : 9 : vec_safe_splice (vector, vbase_bases);
5086 : 9 : }
5087 : :
5088 : : /* Now for the non-virtual bases */
5089 : 7 : releasing_vec nonvbases = calculate_bases_helper (type);
5090 : 7 : vec_safe_splice (vector, nonvbases);
5091 : :
5092 : : /* Note that during error recovery vector->length can even be zero. */
5093 : 7 : if (vector->length () > 1)
5094 : : {
5095 : : /* Last element is entire class, so don't copy */
5096 : 6 : bases_vec = make_tree_vec (vector->length () - 1);
5097 : :
5098 : 53 : for (i = 0; i < vector->length () - 1; ++i)
5099 : 41 : TREE_VEC_ELT (bases_vec, i) = (*vector)[i];
5100 : : }
5101 : : else
5102 : 1 : bases_vec = make_tree_vec (0);
5103 : :
5104 : 7 : return bases_vec;
5105 : 7 : }
5106 : :
5107 : : tree
5108 : 28 : finish_bases (tree type, bool direct)
5109 : : {
5110 : 28 : tree bases = NULL_TREE;
5111 : :
5112 : 28 : if (!processing_template_decl)
5113 : : {
5114 : : /* Parameter packs can only be used in templates */
5115 : 0 : error ("parameter pack %<__bases%> only valid in template declaration");
5116 : 0 : return error_mark_node;
5117 : : }
5118 : :
5119 : 28 : bases = cxx_make_type (BASES);
5120 : 28 : BASES_TYPE (bases) = type;
5121 : 28 : BASES_DIRECT (bases) = direct;
5122 : 28 : SET_TYPE_STRUCTURAL_EQUALITY (bases);
5123 : :
5124 : 28 : return bases;
5125 : : }
5126 : :
5127 : : /* Perform C++-specific checks for __builtin_offsetof before calling
5128 : : fold_offsetof. */
5129 : :
5130 : : tree
5131 : 2381 : finish_offsetof (tree object_ptr, tree expr, location_t loc)
5132 : : {
5133 : : /* If we're processing a template, we can't finish the semantics yet.
5134 : : Otherwise we can fold the entire expression now. */
5135 : 2381 : if (processing_template_decl)
5136 : : {
5137 : 60 : expr = build2 (OFFSETOF_EXPR, size_type_node, expr, object_ptr);
5138 : 60 : SET_EXPR_LOCATION (expr, loc);
5139 : 60 : return expr;
5140 : : }
5141 : :
5142 : 2321 : if (expr == error_mark_node)
5143 : : return error_mark_node;
5144 : :
5145 : 2304 : if (TREE_CODE (expr) == PSEUDO_DTOR_EXPR)
5146 : : {
5147 : 6 : error ("cannot apply %<offsetof%> to destructor %<~%T%>",
5148 : 6 : TREE_OPERAND (expr, 2));
5149 : 6 : return error_mark_node;
5150 : : }
5151 : 4581 : if (FUNC_OR_METHOD_TYPE_P (TREE_TYPE (expr))
5152 : 4581 : || TREE_TYPE (expr) == unknown_type_node)
5153 : : {
5154 : 30 : while (TREE_CODE (expr) == COMPONENT_REF
5155 : 30 : || TREE_CODE (expr) == COMPOUND_EXPR)
5156 : 12 : expr = TREE_OPERAND (expr, 1);
5157 : :
5158 : 18 : if (DECL_P (expr))
5159 : : {
5160 : 0 : auto_diagnostic_group d;
5161 : 0 : error ("cannot apply %<offsetof%> to member function %qD", expr);
5162 : 0 : inform (DECL_SOURCE_LOCATION (expr), "declared here");
5163 : 0 : }
5164 : : else
5165 : 18 : error ("cannot apply %<offsetof%> to member function");
5166 : 18 : return error_mark_node;
5167 : : }
5168 : 2280 : if (TREE_CODE (expr) == CONST_DECL)
5169 : : {
5170 : 3 : error ("cannot apply %<offsetof%> to an enumerator %qD", expr);
5171 : 3 : return error_mark_node;
5172 : : }
5173 : 2277 : if (REFERENCE_REF_P (expr))
5174 : 9 : expr = TREE_OPERAND (expr, 0);
5175 : 2277 : if (!complete_type_or_else (TREE_TYPE (TREE_TYPE (object_ptr)), object_ptr))
5176 : 3 : return error_mark_node;
5177 : 2274 : if (warn_invalid_offsetof
5178 : 2274 : && CLASS_TYPE_P (TREE_TYPE (TREE_TYPE (object_ptr)))
5179 : 2274 : && CLASSTYPE_NON_STD_LAYOUT (TREE_TYPE (TREE_TYPE (object_ptr)))
5180 : 2319 : && cp_unevaluated_operand == 0)
5181 : 45 : warning_at (loc, OPT_Winvalid_offsetof, "%<offsetof%> within "
5182 : : "non-standard-layout type %qT is conditionally-supported",
5183 : 45 : TREE_TYPE (TREE_TYPE (object_ptr)));
5184 : 2274 : return fold_offsetof (expr);
5185 : : }
5186 : :
5187 : : /* Replace the AGGR_INIT_EXPR at *TP with an equivalent CALL_EXPR. This
5188 : : function is broken out from the above for the benefit of the tree-ssa
5189 : : project. */
5190 : :
5191 : : void
5192 : 313474 : simplify_aggr_init_expr (tree *tp)
5193 : : {
5194 : 313474 : tree aggr_init_expr = *tp;
5195 : :
5196 : : /* Form an appropriate CALL_EXPR. */
5197 : 313474 : tree fn = AGGR_INIT_EXPR_FN (aggr_init_expr);
5198 : 313474 : tree slot = AGGR_INIT_EXPR_SLOT (aggr_init_expr);
5199 : 313474 : tree type = TREE_TYPE (slot);
5200 : :
5201 : 313474 : tree call_expr;
5202 : 313474 : enum style_t { ctor, arg, pcc } style;
5203 : :
5204 : 313474 : if (AGGR_INIT_VIA_CTOR_P (aggr_init_expr))
5205 : : style = ctor;
5206 : : #ifdef PCC_STATIC_STRUCT_RETURN
5207 : : else if (1)
5208 : : style = pcc;
5209 : : #endif
5210 : : else
5211 : : {
5212 : 76684 : gcc_assert (TREE_ADDRESSABLE (type));
5213 : : style = arg;
5214 : : }
5215 : :
5216 : 313474 : call_expr = build_call_array_loc (input_location,
5217 : 313474 : TREE_TYPE (TREE_TYPE (TREE_TYPE (fn))),
5218 : : fn,
5219 : 313474 : aggr_init_expr_nargs (aggr_init_expr),
5220 : 313474 : AGGR_INIT_EXPR_ARGP (aggr_init_expr));
5221 : 313474 : TREE_NOTHROW (call_expr) = TREE_NOTHROW (aggr_init_expr);
5222 : 313474 : CALL_FROM_THUNK_P (call_expr) = AGGR_INIT_FROM_THUNK_P (aggr_init_expr);
5223 : 313474 : CALL_EXPR_OPERATOR_SYNTAX (call_expr)
5224 : 313474 : = CALL_EXPR_OPERATOR_SYNTAX (aggr_init_expr);
5225 : 313474 : CALL_EXPR_ORDERED_ARGS (call_expr) = CALL_EXPR_ORDERED_ARGS (aggr_init_expr);
5226 : 313474 : CALL_EXPR_REVERSE_ARGS (call_expr) = CALL_EXPR_REVERSE_ARGS (aggr_init_expr);
5227 : 313474 : CALL_EXPR_MUST_TAIL_CALL (call_expr) = AGGR_INIT_EXPR_MUST_TAIL (aggr_init_expr);
5228 : :
5229 : 313474 : if (style == ctor)
5230 : : {
5231 : : /* Replace the first argument to the ctor with the address of the
5232 : : slot. */
5233 : 236790 : cxx_mark_addressable (slot);
5234 : 236790 : CALL_EXPR_ARG (call_expr, 0) =
5235 : 236790 : build1 (ADDR_EXPR, build_pointer_type (type), slot);
5236 : : }
5237 : 76684 : else if (style == arg)
5238 : : {
5239 : : /* Just mark it addressable here, and leave the rest to
5240 : : expand_call{,_inline}. */
5241 : 76684 : cxx_mark_addressable (slot);
5242 : 76684 : CALL_EXPR_RETURN_SLOT_OPT (call_expr) = true;
5243 : 76684 : call_expr = cp_build_init_expr (slot, call_expr);
5244 : : }
5245 : : else if (style == pcc)
5246 : : {
5247 : : /* If we're using the non-reentrant PCC calling convention, then we
5248 : : need to copy the returned value out of the static buffer into the
5249 : : SLOT. */
5250 : : push_deferring_access_checks (dk_no_check);
5251 : : call_expr = build_aggr_init (slot, call_expr,
5252 : : DIRECT_BIND | LOOKUP_ONLYCONVERTING,
5253 : : tf_warning_or_error);
5254 : : pop_deferring_access_checks ();
5255 : : call_expr = build2 (COMPOUND_EXPR, TREE_TYPE (slot), call_expr, slot);
5256 : : }
5257 : :
5258 : 313474 : if (AGGR_INIT_ZERO_FIRST (aggr_init_expr))
5259 : : {
5260 : 2771 : tree init = build_zero_init (type, NULL_TREE,
5261 : : /*static_storage_p=*/false);
5262 : 2771 : init = cp_build_init_expr (slot, init);
5263 : 2771 : call_expr = build2 (COMPOUND_EXPR, TREE_TYPE (call_expr),
5264 : : init, call_expr);
5265 : : }
5266 : :
5267 : 313474 : *tp = call_expr;
5268 : 313474 : }
5269 : :
5270 : : /* Emit all thunks to FN that should be emitted when FN is emitted. */
5271 : :
5272 : : void
5273 : 45733807 : emit_associated_thunks (tree fn)
5274 : : {
5275 : : /* When we use vcall offsets, we emit thunks with the virtual
5276 : : functions to which they thunk. The whole point of vcall offsets
5277 : : is so that you can know statically the entire set of thunks that
5278 : : will ever be needed for a given virtual function, thereby
5279 : : enabling you to output all the thunks with the function itself. */
5280 : 45733807 : if (DECL_VIRTUAL_P (fn)
5281 : : /* Do not emit thunks for extern template instantiations. */
5282 : 909362 : && ! DECL_REALLY_EXTERN (fn)
5283 : : /* Do not emit thunks for tentative decls, those will be processed
5284 : : again at_eof if really needed. */
5285 : 46590023 : && (DECL_INTERFACE_KNOWN (fn) || !DECL_DEFER_OUTPUT (fn)))
5286 : : {
5287 : 855621 : tree thunk;
5288 : :
5289 : 1715441 : for (thunk = DECL_THUNKS (fn); thunk; thunk = DECL_CHAIN (thunk))
5290 : : {
5291 : 4199 : if (!THUNK_ALIAS (thunk))
5292 : : {
5293 : 4199 : use_thunk (thunk, /*emit_p=*/1);
5294 : 4199 : if (DECL_RESULT_THUNK_P (thunk))
5295 : : {
5296 : 178 : tree probe;
5297 : :
5298 : 178 : for (probe = DECL_THUNKS (thunk);
5299 : 327 : probe; probe = DECL_CHAIN (probe))
5300 : 149 : use_thunk (probe, /*emit_p=*/1);
5301 : : }
5302 : : }
5303 : : else
5304 : 0 : gcc_assert (!DECL_THUNKS (thunk));
5305 : : }
5306 : : }
5307 : 45733807 : }
5308 : :
5309 : : /* Generate RTL for FN. */
5310 : :
5311 : : bool
5312 : 132010512 : expand_or_defer_fn_1 (tree fn)
5313 : : {
5314 : : /* When the parser calls us after finishing the body of a template
5315 : : function, we don't really want to expand the body. */
5316 : 132010512 : if (processing_template_decl)
5317 : : {
5318 : : /* Normally, collection only occurs in rest_of_compilation. So,
5319 : : if we don't collect here, we never collect junk generated
5320 : : during the processing of templates until we hit a
5321 : : non-template function. It's not safe to do this inside a
5322 : : nested class, though, as the parser may have local state that
5323 : : is not a GC root. */
5324 : 79920964 : if (!function_depth)
5325 : 79599130 : ggc_collect ();
5326 : 79920964 : return false;
5327 : : }
5328 : :
5329 : 52089548 : gcc_assert (DECL_SAVED_TREE (fn));
5330 : :
5331 : : /* We make a decision about linkage for these functions at the end
5332 : : of the compilation. Until that point, we do not want the back
5333 : : end to output them -- but we do want it to see the bodies of
5334 : : these functions so that it can inline them as appropriate. */
5335 : 52089548 : if (DECL_DECLARED_INLINE_P (fn) || DECL_IMPLICIT_INSTANTIATION (fn))
5336 : : {
5337 : 51842821 : if (DECL_INTERFACE_KNOWN (fn))
5338 : : /* We've already made a decision as to how this function will
5339 : : be handled. */;
5340 : 35452814 : else if (!at_eof
5341 : 12749950 : || DECL_IMMEDIATE_FUNCTION_P (fn)
5342 : 48142877 : || DECL_OMP_DECLARE_REDUCTION_P (fn))
5343 : 22762751 : tentative_decl_linkage (fn);
5344 : : else
5345 : 12690063 : import_export_decl (fn);
5346 : :
5347 : : /* If the user wants us to keep all inline functions, then mark
5348 : : this function as needed so that finish_file will make sure to
5349 : : output it later. Similarly, all dllexport'd functions must
5350 : : be emitted; there may be callers in other DLLs. */
5351 : 51842821 : if (DECL_DECLARED_INLINE_P (fn)
5352 : 50105248 : && !DECL_REALLY_EXTERN (fn)
5353 : 47130622 : && !DECL_IMMEDIATE_FUNCTION_P (fn)
5354 : 46988003 : && !DECL_OMP_DECLARE_REDUCTION_P (fn)
5355 : 98830824 : && (flag_keep_inline_functions
5356 : 46985719 : || (flag_keep_inline_dllexport
5357 : 46985719 : && lookup_attribute ("dllexport", DECL_ATTRIBUTES (fn)))))
5358 : : {
5359 : 2284 : mark_needed (fn);
5360 : 2284 : DECL_EXTERNAL (fn) = 0;
5361 : : }
5362 : : }
5363 : :
5364 : : /* If this is a constructor or destructor body, we have to clone
5365 : : it. */
5366 : 52089548 : if (maybe_clone_body (fn))
5367 : : {
5368 : : /* We don't want to process FN again, so pretend we've written
5369 : : it out, even though we haven't. */
5370 : 6348221 : TREE_ASM_WRITTEN (fn) = 1;
5371 : : /* If this is a constexpr function we still need the body to be
5372 : : able to evaluate it. Similarly, with modules we only stream
5373 : : the maybe-in-charge cdtor and regenerate the clones from it on
5374 : : demand, so we also need to keep the body. Otherwise we don't
5375 : : need it anymore. */
5376 : 6348221 : if (!DECL_DECLARED_CONSTEXPR_P (fn)
5377 : 6348221 : && !(module_maybe_has_cmi_p () && vague_linkage_p (fn)))
5378 : 4389123 : DECL_SAVED_TREE (fn) = NULL_TREE;
5379 : 6348221 : return false;
5380 : : }
5381 : :
5382 : : /* There's no reason to do any of the work here if we're only doing
5383 : : semantic analysis; this code just generates RTL. */
5384 : 45741327 : if (flag_syntax_only)
5385 : : {
5386 : : /* Pretend that this function has been written out so that we don't try
5387 : : to expand it again. */
5388 : 7504 : TREE_ASM_WRITTEN (fn) = 1;
5389 : 7504 : return false;
5390 : : }
5391 : :
5392 : 45733823 : if (DECL_OMP_DECLARE_REDUCTION_P (fn))
5393 : : return false;
5394 : :
5395 : : return true;
5396 : : }
5397 : :
5398 : : void
5399 : 125669697 : expand_or_defer_fn (tree fn)
5400 : : {
5401 : 125669697 : if (expand_or_defer_fn_1 (fn))
5402 : : {
5403 : 39393787 : function_depth++;
5404 : :
5405 : : /* Expand or defer, at the whim of the compilation unit manager. */
5406 : 39393787 : cgraph_node::finalize_function (fn, function_depth > 1);
5407 : 39393787 : emit_associated_thunks (fn);
5408 : :
5409 : 39393787 : function_depth--;
5410 : :
5411 : 78787574 : if (DECL_IMMEDIATE_FUNCTION_P (fn))
5412 : : {
5413 : 132714 : if (cgraph_node *node = cgraph_node::get (fn))
5414 : : {
5415 : 132714 : node->body_removed = true;
5416 : 132714 : node->analyzed = false;
5417 : 132714 : node->definition = false;
5418 : 132714 : node->force_output = false;
5419 : : }
5420 : : }
5421 : : }
5422 : 125669697 : }
5423 : :
5424 : 330590 : class nrv_data
5425 : : {
5426 : : public:
5427 : 165295 : nrv_data () : visited (37) {}
5428 : :
5429 : : tree var;
5430 : : tree result;
5431 : : hash_set<tree> visited;
5432 : : bool simple;
5433 : : bool in_nrv_cleanup;
5434 : : };
5435 : :
5436 : : /* Helper function for walk_tree, used by finalize_nrv below. */
5437 : :
5438 : : static tree
5439 : 18064434 : finalize_nrv_r (tree* tp, int* walk_subtrees, void* data)
5440 : : {
5441 : 18064434 : class nrv_data *dp = (class nrv_data *)data;
5442 : :
5443 : : /* No need to walk into types. There wouldn't be any need to walk into
5444 : : non-statements, except that we have to consider STMT_EXPRs. */
5445 : 18064434 : if (TYPE_P (*tp))
5446 : 2312 : *walk_subtrees = 0;
5447 : :
5448 : : /* Replace all uses of the NRV with the RESULT_DECL. */
5449 : 18062122 : else if (*tp == dp->var)
5450 : 445026 : *tp = dp->result;
5451 : :
5452 : : /* Avoid walking into the same tree more than once. Unfortunately, we
5453 : : can't just use walk_tree_without duplicates because it would only call
5454 : : us for the first occurrence of dp->var in the function body. */
5455 : 17617096 : else if (dp->visited.add (*tp))
5456 : 3916036 : *walk_subtrees = 0;
5457 : :
5458 : : /* If there's a label, we might need to destroy the NRV on goto (92407). */
5459 : 13701060 : else if (TREE_CODE (*tp) == LABEL_EXPR && !dp->in_nrv_cleanup)
5460 : 3 : dp->simple = false;
5461 : : /* Change NRV returns to just refer to the RESULT_DECL; this is a nop,
5462 : : but differs from using NULL_TREE in that it indicates that we care
5463 : : about the value of the RESULT_DECL. But preserve anything appended
5464 : : by check_return_expr. */
5465 : 13701057 : else if (TREE_CODE (*tp) == RETURN_EXPR)
5466 : : {
5467 : 175097 : tree *p = &TREE_OPERAND (*tp, 0);
5468 : 479087 : while (TREE_CODE (*p) == COMPOUND_EXPR)
5469 : 128893 : p = &TREE_OPERAND (*p, 0);
5470 : 175097 : if (TREE_CODE (*p) == INIT_EXPR
5471 : 175097 : && INIT_EXPR_NRV_P (*p))
5472 : 175036 : *p = dp->result;
5473 : : }
5474 : : /* Change all cleanups for the NRV to only run when not returning. */
5475 : 13525960 : else if (TREE_CODE (*tp) == CLEANUP_STMT
5476 : 13525960 : && CLEANUP_DECL (*tp) == dp->var)
5477 : : {
5478 : 119816 : dp->in_nrv_cleanup = true;
5479 : 119816 : cp_walk_tree (&CLEANUP_BODY (*tp), finalize_nrv_r, data, 0);
5480 : 119816 : dp->in_nrv_cleanup = false;
5481 : 119816 : cp_walk_tree (&CLEANUP_EXPR (*tp), finalize_nrv_r, data, 0);
5482 : 119816 : *walk_subtrees = 0;
5483 : :
5484 : 119816 : if (dp->simple)
5485 : : /* For a simple NRV, just run it on the EH path. */
5486 : 119393 : CLEANUP_EH_ONLY (*tp) = true;
5487 : : else
5488 : : {
5489 : : /* Not simple, we need to check current_retval_sentinel to decide
5490 : : whether to run it. If it's set, we're returning normally and
5491 : : don't want to destroy the NRV. If the sentinel is not set, we're
5492 : : leaving scope some other way, either by flowing off the end of its
5493 : : scope or throwing an exception. */
5494 : 1269 : tree cond = build3 (COND_EXPR, void_type_node,
5495 : 423 : current_retval_sentinel,
5496 : 423 : void_node, CLEANUP_EXPR (*tp));
5497 : 423 : CLEANUP_EXPR (*tp) = cond;
5498 : : }
5499 : :
5500 : : /* If a cleanup might throw, we need to clear current_retval_sentinel on
5501 : : the exception path, both so the check above succeeds and so an outer
5502 : : cleanup added by maybe_splice_retval_cleanup doesn't run. */
5503 : 119816 : if (cp_function_chain->throwing_cleanup)
5504 : : {
5505 : 152 : tree clear = build2 (MODIFY_EXPR, boolean_type_node,
5506 : : current_retval_sentinel,
5507 : : boolean_false_node);
5508 : 152 : if (dp->simple)
5509 : : {
5510 : : /* We're already only on the EH path, just prepend it. */
5511 : 142 : tree &exp = CLEANUP_EXPR (*tp);
5512 : 142 : exp = build2 (COMPOUND_EXPR, void_type_node, clear, exp);
5513 : : }
5514 : : else
5515 : : {
5516 : : /* The cleanup runs on both normal and EH paths, we need another
5517 : : CLEANUP_STMT to clear the flag only on the EH path. */
5518 : 10 : tree &bod = CLEANUP_BODY (*tp);
5519 : 10 : bod = build_stmt (EXPR_LOCATION (*tp), CLEANUP_STMT,
5520 : 10 : bod, clear, current_retval_sentinel);
5521 : 10 : CLEANUP_EH_ONLY (bod) = true;
5522 : : }
5523 : : }
5524 : : }
5525 : : /* Disable maybe_splice_retval_cleanup within the NRV cleanup scope, we don't
5526 : : want to destroy the retval before the variable goes out of scope. */
5527 : 13406144 : else if (TREE_CODE (*tp) == CLEANUP_STMT
5528 : 5580 : && dp->in_nrv_cleanup
5529 : 13411157 : && CLEANUP_DECL (*tp) == dp->result)
5530 : 6 : CLEANUP_EXPR (*tp) = void_node;
5531 : : /* Replace the DECL_EXPR for the NRV with an initialization of the
5532 : : RESULT_DECL, if needed. */
5533 : 13406138 : else if (TREE_CODE (*tp) == DECL_EXPR
5534 : 13406138 : && DECL_EXPR_DECL (*tp) == dp->var)
5535 : : {
5536 : 165297 : tree init;
5537 : 165297 : if (DECL_INITIAL (dp->var)
5538 : 165297 : && DECL_INITIAL (dp->var) != error_mark_node)
5539 : 35467 : init = cp_build_init_expr (dp->result,
5540 : 35467 : DECL_INITIAL (dp->var));
5541 : : else
5542 : 129830 : init = build_empty_stmt (EXPR_LOCATION (*tp));
5543 : 165297 : DECL_INITIAL (dp->var) = NULL_TREE;
5544 : 165297 : SET_EXPR_LOCATION (init, EXPR_LOCATION (*tp));
5545 : 165297 : *tp = init;
5546 : : }
5547 : :
5548 : : /* Keep iterating. */
5549 : 18064434 : return NULL_TREE;
5550 : : }
5551 : :
5552 : : /* Called from finish_function to implement the named return value
5553 : : optimization by overriding all the RETURN_EXPRs and pertinent
5554 : : CLEANUP_STMTs and replacing all occurrences of VAR with RESULT, the
5555 : : RESULT_DECL for the function. */
5556 : :
5557 : : void
5558 : 165295 : finalize_nrv (tree fndecl, tree var)
5559 : : {
5560 : 165295 : class nrv_data data;
5561 : 165295 : tree result = DECL_RESULT (fndecl);
5562 : :
5563 : : /* Copy name from VAR to RESULT. */
5564 : 165295 : DECL_NAME (result) = DECL_NAME (var);
5565 : : /* Don't forget that we take its address. */
5566 : 165295 : TREE_ADDRESSABLE (result) = TREE_ADDRESSABLE (var);
5567 : : /* Finally set DECL_VALUE_EXPR to avoid assigning
5568 : : a stack slot at -O0 for the original var and debug info
5569 : : uses RESULT location for VAR. */
5570 : 165295 : SET_DECL_VALUE_EXPR (var, result);
5571 : 165295 : DECL_HAS_VALUE_EXPR_P (var) = 1;
5572 : :
5573 : 165295 : data.var = var;
5574 : 165295 : data.result = result;
5575 : 165295 : data.in_nrv_cleanup = false;
5576 : :
5577 : : /* This is simpler for variables declared in the outer scope of
5578 : : the function so we know that their lifetime always ends with a
5579 : : return; see g++.dg/opt/nrv6.C. */
5580 : 165295 : tree outer = outer_curly_brace_block (fndecl);
5581 : 165295 : data.simple = chain_member (var, BLOCK_VARS (outer));
5582 : :
5583 : 165295 : cp_walk_tree (&DECL_SAVED_TREE (fndecl), finalize_nrv_r, &data, 0);
5584 : 165295 : }
5585 : :
5586 : : /* Create CP_OMP_CLAUSE_INFO for clause C. Returns true if it is invalid. */
5587 : :
5588 : : bool
5589 : 2234 : cxx_omp_create_clause_info (tree c, tree type, bool need_default_ctor,
5590 : : bool need_copy_ctor, bool need_copy_assignment,
5591 : : bool need_dtor)
5592 : : {
5593 : 2234 : int save_errorcount = errorcount;
5594 : 2234 : tree info, t;
5595 : :
5596 : : /* Always allocate 3 elements for simplicity. These are the
5597 : : function decls for the ctor, dtor, and assignment op.
5598 : : This layout is known to the three lang hooks,
5599 : : cxx_omp_clause_default_init, cxx_omp_clause_copy_init,
5600 : : and cxx_omp_clause_assign_op. */
5601 : 2234 : info = make_tree_vec (3);
5602 : 2234 : CP_OMP_CLAUSE_INFO (c) = info;
5603 : :
5604 : 2234 : if (need_default_ctor || need_copy_ctor)
5605 : : {
5606 : 1653 : if (need_default_ctor)
5607 : 1254 : t = get_default_ctor (type);
5608 : : else
5609 : 399 : t = get_copy_ctor (type, tf_warning_or_error);
5610 : :
5611 : 1653 : if (t && !trivial_fn_p (t))
5612 : 1400 : TREE_VEC_ELT (info, 0) = t;
5613 : : }
5614 : :
5615 : 2234 : if (need_dtor && TYPE_HAS_NONTRIVIAL_DESTRUCTOR (type))
5616 : 1635 : TREE_VEC_ELT (info, 1) = get_dtor (type, tf_warning_or_error);
5617 : :
5618 : 2234 : if (need_copy_assignment)
5619 : : {
5620 : 397 : t = get_copy_assign (type);
5621 : :
5622 : 397 : if (t && !trivial_fn_p (t))
5623 : 344 : TREE_VEC_ELT (info, 2) = t;
5624 : : }
5625 : :
5626 : 2234 : return errorcount != save_errorcount;
5627 : : }
5628 : :
5629 : : /* If DECL is DECL_OMP_PRIVATIZED_MEMBER, return corresponding
5630 : : FIELD_DECL, otherwise return DECL itself. */
5631 : :
5632 : : static tree
5633 : 25599 : omp_clause_decl_field (tree decl)
5634 : : {
5635 : 25599 : if (VAR_P (decl)
5636 : 17611 : && DECL_HAS_VALUE_EXPR_P (decl)
5637 : 359 : && DECL_ARTIFICIAL (decl)
5638 : 359 : && DECL_LANG_SPECIFIC (decl)
5639 : 25934 : && DECL_OMP_PRIVATIZED_MEMBER (decl))
5640 : : {
5641 : 328 : tree f = DECL_VALUE_EXPR (decl);
5642 : 328 : if (INDIRECT_REF_P (f))
5643 : 0 : f = TREE_OPERAND (f, 0);
5644 : 328 : if (TREE_CODE (f) == COMPONENT_REF)
5645 : : {
5646 : 328 : f = TREE_OPERAND (f, 1);
5647 : 328 : gcc_assert (TREE_CODE (f) == FIELD_DECL);
5648 : : return f;
5649 : : }
5650 : : }
5651 : : return NULL_TREE;
5652 : : }
5653 : :
5654 : : /* Adjust DECL if needed for printing using %qE. */
5655 : :
5656 : : static tree
5657 : 187 : omp_clause_printable_decl (tree decl)
5658 : : {
5659 : 0 : tree t = omp_clause_decl_field (decl);
5660 : 187 : if (t)
5661 : 45 : return t;
5662 : : return decl;
5663 : : }
5664 : :
5665 : : /* For a FIELD_DECL F and corresponding DECL_OMP_PRIVATIZED_MEMBER
5666 : : VAR_DECL T that doesn't need a DECL_EXPR added, record it for
5667 : : privatization. */
5668 : :
5669 : : static void
5670 : 219 : omp_note_field_privatization (tree f, tree t)
5671 : : {
5672 : 219 : if (!omp_private_member_map)
5673 : 71 : omp_private_member_map = new hash_map<tree, tree>;
5674 : 219 : tree &v = omp_private_member_map->get_or_insert (f);
5675 : 219 : if (v == NULL_TREE)
5676 : : {
5677 : 146 : v = t;
5678 : 146 : omp_private_member_vec.safe_push (f);
5679 : : /* Signal that we don't want to create DECL_EXPR for this dummy var. */
5680 : 146 : omp_private_member_vec.safe_push (integer_zero_node);
5681 : : }
5682 : 219 : }
5683 : :
5684 : : /* Privatize FIELD_DECL T, return corresponding DECL_OMP_PRIVATIZED_MEMBER
5685 : : dummy VAR_DECL. */
5686 : :
5687 : : tree
5688 : 852 : omp_privatize_field (tree t, bool shared)
5689 : : {
5690 : 852 : tree m = finish_non_static_data_member (t, NULL_TREE, NULL_TREE);
5691 : 852 : if (m == error_mark_node)
5692 : : return error_mark_node;
5693 : 852 : if (!omp_private_member_map && !shared)
5694 : 362 : omp_private_member_map = new hash_map<tree, tree>;
5695 : 852 : if (TYPE_REF_P (TREE_TYPE (t)))
5696 : : {
5697 : 123 : gcc_assert (INDIRECT_REF_P (m));
5698 : 123 : m = TREE_OPERAND (m, 0);
5699 : : }
5700 : 852 : tree vb = NULL_TREE;
5701 : 852 : tree &v = shared ? vb : omp_private_member_map->get_or_insert (t);
5702 : 852 : if (v == NULL_TREE)
5703 : : {
5704 : 764 : v = create_temporary_var (TREE_TYPE (m));
5705 : 764 : retrofit_lang_decl (v);
5706 : 764 : DECL_OMP_PRIVATIZED_MEMBER (v) = 1;
5707 : 764 : SET_DECL_VALUE_EXPR (v, m);
5708 : 764 : DECL_HAS_VALUE_EXPR_P (v) = 1;
5709 : 764 : if (!shared)
5710 : 684 : omp_private_member_vec.safe_push (t);
5711 : : }
5712 : 852 : return v;
5713 : : }
5714 : :
5715 : : /* C++ specialisation of the c_omp_address_inspector class. */
5716 : :
5717 : : class cp_omp_address_inspector : public c_omp_address_inspector
5718 : : {
5719 : : public:
5720 : 29203 : cp_omp_address_inspector (location_t loc, tree t)
5721 : 29203 : : c_omp_address_inspector (loc, t)
5722 : : {
5723 : : }
5724 : :
5725 : 29203 : ~cp_omp_address_inspector ()
5726 : : {
5727 : 21401 : }
5728 : :
5729 : 125332 : bool processing_template_decl_p ()
5730 : : {
5731 : 125332 : return processing_template_decl;
5732 : : }
5733 : :
5734 : 0 : void emit_unmappable_type_notes (tree t)
5735 : : {
5736 : 0 : if (TREE_TYPE (t) != error_mark_node
5737 : 0 : && !COMPLETE_TYPE_P (TREE_TYPE (t)))
5738 : 0 : cxx_incomplete_type_inform (TREE_TYPE (t));
5739 : 0 : }
5740 : :
5741 : 1034 : tree convert_from_reference (tree x)
5742 : : {
5743 : 1034 : return ::convert_from_reference (x);
5744 : : }
5745 : :
5746 : 143 : tree build_array_ref (location_t loc, tree arr, tree idx)
5747 : : {
5748 : 143 : return ::build_array_ref (loc, arr, idx);
5749 : : }
5750 : :
5751 : 21345 : bool check_clause (tree clause)
5752 : : {
5753 : 21345 : if (TREE_CODE (orig) == COMPONENT_REF
5754 : 21345 : && invalid_nonstatic_memfn_p (EXPR_LOCATION (orig), orig,
5755 : : tf_warning_or_error))
5756 : : return false;
5757 : 21342 : if (!c_omp_address_inspector::check_clause (clause))
5758 : : return false;
5759 : : return true;
5760 : : }
5761 : : };
5762 : :
5763 : : /* Helper function for handle_omp_array_sections. Called recursively
5764 : : to handle multiple array-section-subscripts. C is the clause,
5765 : : T current expression (initially OMP_CLAUSE_DECL), which is either
5766 : : a TREE_LIST for array-section-subscript (TREE_PURPOSE is low-bound
5767 : : expression if specified, TREE_VALUE length expression if specified,
5768 : : TREE_CHAIN is what it has been specified after, or some decl.
5769 : : TYPES vector is populated with array section types, MAYBE_ZERO_LEN
5770 : : set to true if any of the array-section-subscript could have length
5771 : : of zero (explicit or implicit), FIRST_NON_ONE is the index of the
5772 : : first array-section-subscript which is known not to have length
5773 : : of one. Given say:
5774 : : map(a[:b][2:1][:c][:2][:d][e:f][2:5])
5775 : : FIRST_NON_ONE will be 3, array-section-subscript [:b], [2:1] and [:c]
5776 : : all are or may have length of 1, array-section-subscript [:2] is the
5777 : : first one known not to have length 1. For array-section-subscript
5778 : : <= FIRST_NON_ONE we diagnose non-contiguous arrays if low bound isn't
5779 : : 0 or length isn't the array domain max + 1, for > FIRST_NON_ONE we
5780 : : can if MAYBE_ZERO_LEN is false. MAYBE_ZERO_LEN will be true in the above
5781 : : case though, as some lengths could be zero. */
5782 : :
5783 : : static tree
5784 : 20497 : handle_omp_array_sections_1 (tree c, tree t, vec<tree> &types,
5785 : : bool &maybe_zero_len, unsigned int &first_non_one,
5786 : : enum c_omp_region_type ort)
5787 : : {
5788 : 20497 : tree ret, low_bound, length, type;
5789 : 20497 : bool openacc = (ort & C_ORT_ACC) != 0;
5790 : 20497 : if (TREE_CODE (t) != OMP_ARRAY_SECTION)
5791 : : {
5792 : 9238 : if (error_operand_p (t))
5793 : 6 : return error_mark_node;
5794 : :
5795 : 9232 : cp_omp_address_inspector ai (OMP_CLAUSE_LOCATION (c), t);
5796 : 9232 : tree t_refto = ai.maybe_unconvert_ref (t);
5797 : :
5798 : 9232 : if (!ai.check_clause (c))
5799 : 0 : return error_mark_node;
5800 : 9232 : else if (ai.component_access_p ()
5801 : 10556 : && (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
5802 : 64 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TO
5803 : 40 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_FROM))
5804 : 1324 : t = ai.get_root_term (true);
5805 : : else
5806 : 7908 : t = ai.unconverted_ref_origin ();
5807 : 9232 : if (t == error_mark_node)
5808 : : return error_mark_node;
5809 : 9232 : ret = t_refto;
5810 : 9232 : if (TREE_CODE (t) == FIELD_DECL)
5811 : 33 : ret = finish_non_static_data_member (t, NULL_TREE, NULL_TREE);
5812 : 9199 : else if (!VAR_P (t)
5813 : 2690 : && (openacc || !EXPR_P (t))
5814 : 2507 : && TREE_CODE (t) != PARM_DECL)
5815 : : {
5816 : 51 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
5817 : : return NULL_TREE;
5818 : 33 : if (DECL_P (t))
5819 : 33 : error_at (OMP_CLAUSE_LOCATION (c),
5820 : : "%qD is not a variable in %qs clause", t,
5821 : 33 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
5822 : : else
5823 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
5824 : : "%qE is not a variable in %qs clause", t,
5825 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
5826 : 33 : return error_mark_node;
5827 : : }
5828 : 9148 : else if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_AFFINITY
5829 : 8818 : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_DEPEND
5830 : 17045 : && VAR_P (t) && CP_DECL_THREAD_LOCAL_P (t))
5831 : : {
5832 : 18 : error_at (OMP_CLAUSE_LOCATION (c),
5833 : : "%qD is threadprivate variable in %qs clause", t,
5834 : 18 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
5835 : 18 : return error_mark_node;
5836 : : }
5837 : 9163 : if (type_dependent_expression_p (ret))
5838 : : return NULL_TREE;
5839 : 8509 : ret = convert_from_reference (ret);
5840 : 8509 : return ret;
5841 : 9232 : }
5842 : :
5843 : 11259 : if ((ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP
5844 : 7362 : && (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
5845 : 6060 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
5846 : 4776 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TASK_REDUCTION)
5847 : 13973 : && TREE_CODE (TREE_OPERAND (t, 0)) == FIELD_DECL)
5848 : 43 : TREE_OPERAND (t, 0) = omp_privatize_field (TREE_OPERAND (t, 0), false);
5849 : 11259 : ret = handle_omp_array_sections_1 (c, TREE_OPERAND (t, 0), types,
5850 : : maybe_zero_len, first_non_one, ort);
5851 : 11259 : if (ret == error_mark_node || ret == NULL_TREE)
5852 : : return ret;
5853 : :
5854 : 10255 : type = TREE_TYPE (ret);
5855 : 10255 : low_bound = TREE_OPERAND (t, 1);
5856 : 10255 : length = TREE_OPERAND (t, 2);
5857 : 8337 : if ((low_bound && type_dependent_expression_p (low_bound))
5858 : 18509 : || (length && type_dependent_expression_p (length)))
5859 : 88 : return NULL_TREE;
5860 : :
5861 : 10167 : if (low_bound == error_mark_node || length == error_mark_node)
5862 : : return error_mark_node;
5863 : :
5864 : 10167 : if (low_bound && !INTEGRAL_TYPE_P (TREE_TYPE (low_bound)))
5865 : : {
5866 : 75 : error_at (OMP_CLAUSE_LOCATION (c),
5867 : : "low bound %qE of array section does not have integral type",
5868 : : low_bound);
5869 : 75 : return error_mark_node;
5870 : : }
5871 : 10092 : if (length && !INTEGRAL_TYPE_P (TREE_TYPE (length)))
5872 : : {
5873 : 69 : error_at (OMP_CLAUSE_LOCATION (c),
5874 : : "length %qE of array section does not have integral type",
5875 : : length);
5876 : 69 : return error_mark_node;
5877 : : }
5878 : 10023 : if (low_bound)
5879 : 8165 : low_bound = mark_rvalue_use (low_bound);
5880 : 10023 : if (length)
5881 : 9006 : length = mark_rvalue_use (length);
5882 : : /* We need to reduce to real constant-values for checks below. */
5883 : 9006 : if (length)
5884 : 9006 : length = fold_simple (length);
5885 : 10023 : if (low_bound)
5886 : 8165 : low_bound = fold_simple (low_bound);
5887 : 8165 : if (low_bound
5888 : 8165 : && TREE_CODE (low_bound) == INTEGER_CST
5889 : 15401 : && TYPE_PRECISION (TREE_TYPE (low_bound))
5890 : 7236 : > TYPE_PRECISION (sizetype))
5891 : 0 : low_bound = fold_convert (sizetype, low_bound);
5892 : 10023 : if (length
5893 : 9006 : && TREE_CODE (length) == INTEGER_CST
5894 : 17068 : && TYPE_PRECISION (TREE_TYPE (length))
5895 : 7045 : > TYPE_PRECISION (sizetype))
5896 : 0 : length = fold_convert (sizetype, length);
5897 : 10023 : if (low_bound == NULL_TREE)
5898 : 1858 : low_bound = integer_zero_node;
5899 : :
5900 : 10023 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
5901 : 10023 : && (OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_ATTACH
5902 : 4837 : || OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_DETACH))
5903 : : {
5904 : 60 : if (length != integer_one_node)
5905 : : {
5906 : 36 : error_at (OMP_CLAUSE_LOCATION (c),
5907 : : "expected single pointer in %qs clause",
5908 : : user_omp_clause_code_name (c, openacc));
5909 : 36 : return error_mark_node;
5910 : : }
5911 : : }
5912 : 9987 : if (length != NULL_TREE)
5913 : : {
5914 : 8994 : if (!integer_nonzerop (length))
5915 : : {
5916 : 2010 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_AFFINITY
5917 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEPEND
5918 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
5919 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
5920 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TASK_REDUCTION)
5921 : : {
5922 : 469 : if (integer_zerop (length))
5923 : : {
5924 : 36 : error_at (OMP_CLAUSE_LOCATION (c),
5925 : : "zero length array section in %qs clause",
5926 : 36 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
5927 : 36 : return error_mark_node;
5928 : : }
5929 : : }
5930 : : else
5931 : 1541 : maybe_zero_len = true;
5932 : : }
5933 : 8958 : if (first_non_one == types.length ()
5934 : 8958 : && (TREE_CODE (length) != INTEGER_CST || integer_onep (length)))
5935 : 3831 : first_non_one++;
5936 : : }
5937 : 9951 : if (TREE_CODE (type) == ARRAY_TYPE)
5938 : : {
5939 : 5588 : if (length == NULL_TREE
5940 : 5588 : && (TYPE_DOMAIN (type) == NULL_TREE
5941 : 915 : || TYPE_MAX_VALUE (TYPE_DOMAIN (type)) == NULL_TREE))
5942 : : {
5943 : 33 : error_at (OMP_CLAUSE_LOCATION (c),
5944 : : "for unknown bound array type length expression must "
5945 : : "be specified");
5946 : 33 : return error_mark_node;
5947 : : }
5948 : 5555 : if (TREE_CODE (low_bound) == INTEGER_CST
5949 : 5555 : && tree_int_cst_sgn (low_bound) == -1)
5950 : : {
5951 : 174 : error_at (OMP_CLAUSE_LOCATION (c),
5952 : : "negative low bound in array section in %qs clause",
5953 : 174 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
5954 : 174 : return error_mark_node;
5955 : : }
5956 : 5381 : if (length != NULL_TREE
5957 : 4520 : && TREE_CODE (length) == INTEGER_CST
5958 : 8986 : && tree_int_cst_sgn (length) == -1)
5959 : : {
5960 : 174 : error_at (OMP_CLAUSE_LOCATION (c),
5961 : : "negative length in array section in %qs clause",
5962 : 174 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
5963 : 174 : return error_mark_node;
5964 : : }
5965 : 5207 : if (TYPE_DOMAIN (type)
5966 : 5108 : && TYPE_MAX_VALUE (TYPE_DOMAIN (type))
5967 : 10315 : && TREE_CODE (TYPE_MAX_VALUE (TYPE_DOMAIN (type)))
5968 : : == INTEGER_CST)
5969 : : {
5970 : 4712 : tree size
5971 : 4712 : = fold_convert (sizetype, TYPE_MAX_VALUE (TYPE_DOMAIN (type)));
5972 : 4712 : size = size_binop (PLUS_EXPR, size, size_one_node);
5973 : 4712 : if (TREE_CODE (low_bound) == INTEGER_CST)
5974 : : {
5975 : 3943 : if (tree_int_cst_lt (size, low_bound))
5976 : : {
5977 : 60 : error_at (OMP_CLAUSE_LOCATION (c),
5978 : : "low bound %qE above array section size "
5979 : : "in %qs clause", low_bound,
5980 : 60 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
5981 : 60 : return error_mark_node;
5982 : : }
5983 : 3883 : if (tree_int_cst_equal (size, low_bound))
5984 : : {
5985 : 21 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_AFFINITY
5986 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEPEND
5987 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
5988 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
5989 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TASK_REDUCTION)
5990 : : {
5991 : 21 : error_at (OMP_CLAUSE_LOCATION (c),
5992 : : "zero length array section in %qs clause",
5993 : 21 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
5994 : 21 : return error_mark_node;
5995 : : }
5996 : 0 : maybe_zero_len = true;
5997 : : }
5998 : 3862 : else if (length == NULL_TREE
5999 : 1514 : && first_non_one == types.length ()
6000 : 4183 : && tree_int_cst_equal
6001 : 321 : (TYPE_MAX_VALUE (TYPE_DOMAIN (type)),
6002 : : low_bound))
6003 : 207 : first_non_one++;
6004 : : }
6005 : 769 : else if (length == NULL_TREE)
6006 : : {
6007 : 22 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_AFFINITY
6008 : : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_DEPEND
6009 : : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_REDUCTION
6010 : : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_IN_REDUCTION
6011 : : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_TASK_REDUCTION)
6012 : 13 : maybe_zero_len = true;
6013 : 44 : if (first_non_one == types.length ())
6014 : 19 : first_non_one++;
6015 : : }
6016 : 4631 : if (length && TREE_CODE (length) == INTEGER_CST)
6017 : : {
6018 : 3311 : if (tree_int_cst_lt (size, length))
6019 : : {
6020 : 63 : error_at (OMP_CLAUSE_LOCATION (c),
6021 : : "length %qE above array section size "
6022 : : "in %qs clause", length,
6023 : 63 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
6024 : 63 : return error_mark_node;
6025 : : }
6026 : 3248 : if (TREE_CODE (low_bound) == INTEGER_CST)
6027 : : {
6028 : 2916 : tree lbpluslen
6029 : 2916 : = size_binop (PLUS_EXPR,
6030 : : fold_convert (sizetype, low_bound),
6031 : : fold_convert (sizetype, length));
6032 : 2916 : if (TREE_CODE (lbpluslen) == INTEGER_CST
6033 : 2916 : && tree_int_cst_lt (size, lbpluslen))
6034 : : {
6035 : 60 : error_at (OMP_CLAUSE_LOCATION (c),
6036 : : "high bound %qE above array section size "
6037 : : "in %qs clause", lbpluslen,
6038 : 60 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
6039 : 60 : return error_mark_node;
6040 : : }
6041 : : }
6042 : : }
6043 : : }
6044 : 495 : else if (length == NULL_TREE)
6045 : : {
6046 : 1 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_AFFINITY
6047 : : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_DEPEND
6048 : : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_REDUCTION
6049 : : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_IN_REDUCTION
6050 : : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_TASK_REDUCTION)
6051 : 0 : maybe_zero_len = true;
6052 : 2 : if (first_non_one == types.length ())
6053 : 1 : first_non_one++;
6054 : : }
6055 : :
6056 : : /* For [lb:] we will need to evaluate lb more than once. */
6057 : 3969 : if (length == NULL_TREE && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_DEPEND)
6058 : : {
6059 : 699 : tree lb = cp_save_expr (low_bound);
6060 : 699 : if (lb != low_bound)
6061 : : {
6062 : 11 : TREE_OPERAND (t, 1) = lb;
6063 : 11 : low_bound = lb;
6064 : : }
6065 : : }
6066 : : }
6067 : 4363 : else if (TYPE_PTR_P (type))
6068 : : {
6069 : 4306 : if (length == NULL_TREE)
6070 : : {
6071 : 45 : if (TREE_CODE (ret) == PARM_DECL && DECL_ARRAY_PARAMETER_P (ret))
6072 : 39 : error_at (OMP_CLAUSE_LOCATION (c),
6073 : : "for array function parameter length expression "
6074 : : "must be specified");
6075 : : else
6076 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
6077 : : "for pointer type length expression must be specified");
6078 : 45 : return error_mark_node;
6079 : : }
6080 : 4261 : if (length != NULL_TREE
6081 : 4261 : && TREE_CODE (length) == INTEGER_CST
6082 : 3215 : && tree_int_cst_sgn (length) == -1)
6083 : : {
6084 : 96 : error_at (OMP_CLAUSE_LOCATION (c),
6085 : : "negative length in array section in %qs clause",
6086 : 96 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
6087 : 96 : return error_mark_node;
6088 : : }
6089 : : /* If there is a pointer type anywhere but in the very first
6090 : : array-section-subscript, the array section could be non-contiguous. */
6091 : 4165 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_AFFINITY
6092 : 4063 : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_DEPEND
6093 : 7745 : && TREE_CODE (TREE_OPERAND (t, 0)) == OMP_ARRAY_SECTION)
6094 : : {
6095 : : /* If any prior dimension has a non-one length, then deem this
6096 : : array section as non-contiguous. */
6097 : 77 : for (tree d = TREE_OPERAND (t, 0); TREE_CODE (d) == OMP_ARRAY_SECTION;
6098 : 28 : d = TREE_OPERAND (d, 0))
6099 : : {
6100 : 49 : tree d_length = TREE_OPERAND (d, 2);
6101 : 49 : if (d_length == NULL_TREE || !integer_onep (d_length))
6102 : : {
6103 : 21 : error_at (OMP_CLAUSE_LOCATION (c),
6104 : : "array section is not contiguous in %qs clause",
6105 : 21 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
6106 : 21 : return error_mark_node;
6107 : : }
6108 : : }
6109 : : }
6110 : : }
6111 : : else
6112 : : {
6113 : 57 : error_at (OMP_CLAUSE_LOCATION (c),
6114 : : "%qE does not have pointer or array type", ret);
6115 : 57 : return error_mark_node;
6116 : : }
6117 : 9147 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_DEPEND)
6118 : 8250 : types.safe_push (TREE_TYPE (ret));
6119 : : /* We will need to evaluate lb more than once. */
6120 : 9147 : tree lb = cp_save_expr (low_bound);
6121 : 9147 : if (lb != low_bound)
6122 : : {
6123 : 718 : TREE_OPERAND (t, 1) = lb;
6124 : 718 : low_bound = lb;
6125 : : }
6126 : : /* Temporarily disable -fstrong-eval-order for array reductions.
6127 : : The SAVE_EXPR and COMPOUND_EXPR added if low_bound has side-effects
6128 : : is something the middle-end can't cope with and more importantly,
6129 : : it needs to be the actual base variable that is privatized, not some
6130 : : temporary assigned previous value of it. That, together with OpenMP
6131 : : saying how many times the side-effects are evaluated is unspecified,
6132 : : makes int *a, *b; ... reduction(+:a[a = b, 3:10]) really unspecified. */
6133 : 9147 : warning_sentinel s (flag_strong_eval_order,
6134 : 9147 : OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
6135 : 8050 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
6136 : 18413 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TASK_REDUCTION);
6137 : 9147 : ret = grok_array_decl (OMP_CLAUSE_LOCATION (c), ret, low_bound, NULL,
6138 : : tf_warning_or_error);
6139 : 9147 : return ret;
6140 : 9147 : }
6141 : :
6142 : : /* Handle array sections for clause C. */
6143 : :
6144 : : static bool
6145 : 9238 : handle_omp_array_sections (tree &c, enum c_omp_region_type ort)
6146 : : {
6147 : 9238 : bool maybe_zero_len = false;
6148 : 9238 : unsigned int first_non_one = 0;
6149 : 9238 : auto_vec<tree, 10> types;
6150 : 9238 : tree *tp = &OMP_CLAUSE_DECL (c);
6151 : 9238 : if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEPEND
6152 : 8287 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_AFFINITY)
6153 : 1299 : && TREE_CODE (*tp) == TREE_LIST
6154 : 258 : && TREE_PURPOSE (*tp)
6155 : 9496 : && TREE_CODE (TREE_PURPOSE (*tp)) == TREE_VEC)
6156 : 258 : tp = &TREE_VALUE (*tp);
6157 : 9238 : tree first = handle_omp_array_sections_1 (c, *tp, types,
6158 : : maybe_zero_len, first_non_one,
6159 : : ort);
6160 : 9238 : if (first == error_mark_node)
6161 : : return true;
6162 : 8161 : if (first == NULL_TREE)
6163 : : return false;
6164 : 7401 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEPEND
6165 : 7401 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_AFFINITY)
6166 : : {
6167 : 909 : tree t = *tp;
6168 : 909 : tree tem = NULL_TREE;
6169 : 909 : if (processing_template_decl)
6170 : : return false;
6171 : : /* Need to evaluate side effects in the length expressions
6172 : : if any. */
6173 : 810 : while (TREE_CODE (t) == TREE_LIST)
6174 : : {
6175 : 0 : if (TREE_VALUE (t) && TREE_SIDE_EFFECTS (TREE_VALUE (t)))
6176 : : {
6177 : 0 : if (tem == NULL_TREE)
6178 : : tem = TREE_VALUE (t);
6179 : : else
6180 : 0 : tem = build2 (COMPOUND_EXPR, TREE_TYPE (tem),
6181 : 0 : TREE_VALUE (t), tem);
6182 : : }
6183 : 0 : t = TREE_CHAIN (t);
6184 : : }
6185 : 810 : if (tem)
6186 : 0 : first = build2 (COMPOUND_EXPR, TREE_TYPE (first), tem, first);
6187 : 810 : *tp = first;
6188 : : }
6189 : : else
6190 : : {
6191 : 6492 : unsigned int num = types.length (), i;
6192 : 6492 : tree t, side_effects = NULL_TREE, size = NULL_TREE;
6193 : 6492 : tree condition = NULL_TREE;
6194 : :
6195 : 6492 : if (int_size_in_bytes (TREE_TYPE (first)) <= 0)
6196 : 3 : maybe_zero_len = true;
6197 : 6492 : if (processing_template_decl && maybe_zero_len)
6198 : : return false;
6199 : :
6200 : 13644 : for (i = num, t = OMP_CLAUSE_DECL (c); i > 0;
6201 : 7230 : t = TREE_OPERAND (t, 0))
6202 : : {
6203 : 7305 : gcc_assert (TREE_CODE (t) == OMP_ARRAY_SECTION);
6204 : :
6205 : 7305 : tree low_bound = TREE_OPERAND (t, 1);
6206 : 7305 : tree length = TREE_OPERAND (t, 2);
6207 : :
6208 : 7305 : i--;
6209 : 7305 : if (low_bound
6210 : 6022 : && TREE_CODE (low_bound) == INTEGER_CST
6211 : 12718 : && TYPE_PRECISION (TREE_TYPE (low_bound))
6212 : 5413 : > TYPE_PRECISION (sizetype))
6213 : 0 : low_bound = fold_convert (sizetype, low_bound);
6214 : 7305 : if (length
6215 : 6773 : && TREE_CODE (length) == INTEGER_CST
6216 : 12238 : && TYPE_PRECISION (TREE_TYPE (length))
6217 : 4933 : > TYPE_PRECISION (sizetype))
6218 : 0 : length = fold_convert (sizetype, length);
6219 : 7305 : if (low_bound == NULL_TREE)
6220 : 1283 : low_bound = integer_zero_node;
6221 : 7305 : if (!maybe_zero_len && i > first_non_one)
6222 : : {
6223 : 639 : if (integer_nonzerop (low_bound))
6224 : 36 : goto do_warn_noncontiguous;
6225 : 603 : if (length != NULL_TREE
6226 : 275 : && TREE_CODE (length) == INTEGER_CST
6227 : 275 : && TYPE_DOMAIN (types[i])
6228 : 275 : && TYPE_MAX_VALUE (TYPE_DOMAIN (types[i]))
6229 : 878 : && TREE_CODE (TYPE_MAX_VALUE (TYPE_DOMAIN (types[i])))
6230 : : == INTEGER_CST)
6231 : : {
6232 : 275 : tree size;
6233 : 275 : size = size_binop (PLUS_EXPR,
6234 : : TYPE_MAX_VALUE (TYPE_DOMAIN (types[i])),
6235 : : size_one_node);
6236 : 275 : if (!tree_int_cst_equal (length, size))
6237 : : {
6238 : 39 : do_warn_noncontiguous:
6239 : 150 : error_at (OMP_CLAUSE_LOCATION (c),
6240 : : "array section is not contiguous in %qs "
6241 : : "clause",
6242 : 75 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
6243 : 75 : return true;
6244 : : }
6245 : : }
6246 : 564 : if (!processing_template_decl
6247 : 394 : && length != NULL_TREE
6248 : 728 : && TREE_SIDE_EFFECTS (length))
6249 : : {
6250 : 0 : if (side_effects == NULL_TREE)
6251 : : side_effects = length;
6252 : : else
6253 : 0 : side_effects = build2 (COMPOUND_EXPR,
6254 : 0 : TREE_TYPE (side_effects),
6255 : : length, side_effects);
6256 : : }
6257 : : }
6258 : 6666 : else if (processing_template_decl)
6259 : 726 : continue;
6260 : : else
6261 : : {
6262 : 5940 : tree l;
6263 : :
6264 : 5940 : if (i > first_non_one
6265 : 5940 : && ((length && integer_nonzerop (length))
6266 : 0 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
6267 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
6268 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TASK_REDUCTION))
6269 : 0 : continue;
6270 : 5940 : if (length)
6271 : 5818 : l = fold_convert (sizetype, length);
6272 : : else
6273 : : {
6274 : 122 : l = size_binop (PLUS_EXPR,
6275 : : TYPE_MAX_VALUE (TYPE_DOMAIN (types[i])),
6276 : : size_one_node);
6277 : 122 : l = size_binop (MINUS_EXPR, l,
6278 : : fold_convert (sizetype, low_bound));
6279 : : }
6280 : 5940 : if (i > first_non_one)
6281 : : {
6282 : 0 : l = fold_build2 (NE_EXPR, boolean_type_node, l,
6283 : : size_zero_node);
6284 : 0 : if (condition == NULL_TREE)
6285 : : condition = l;
6286 : : else
6287 : 0 : condition = fold_build2 (BIT_AND_EXPR, boolean_type_node,
6288 : : l, condition);
6289 : : }
6290 : 5940 : else if (size == NULL_TREE)
6291 : : {
6292 : 5694 : size = size_in_bytes (TREE_TYPE (types[i]));
6293 : 5694 : tree eltype = TREE_TYPE (types[num - 1]);
6294 : 5765 : while (TREE_CODE (eltype) == ARRAY_TYPE)
6295 : 71 : eltype = TREE_TYPE (eltype);
6296 : 5694 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
6297 : 4884 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
6298 : 9825 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TASK_REDUCTION)
6299 : 1659 : size = size_binop (EXACT_DIV_EXPR, size,
6300 : : size_in_bytes (eltype));
6301 : 5694 : size = size_binop (MULT_EXPR, size, l);
6302 : 5694 : if (condition)
6303 : 0 : size = fold_build3 (COND_EXPR, sizetype, condition,
6304 : : size, size_zero_node);
6305 : : }
6306 : : else
6307 : 246 : size = size_binop (MULT_EXPR, size, l);
6308 : : }
6309 : : }
6310 : 6339 : if (!processing_template_decl)
6311 : : {
6312 : 5694 : if (side_effects)
6313 : 0 : size = build2 (COMPOUND_EXPR, sizetype, side_effects, size);
6314 : 5694 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
6315 : 4884 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
6316 : 9825 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TASK_REDUCTION)
6317 : : {
6318 : 1659 : size = size_binop (MINUS_EXPR, size, size_one_node);
6319 : 1659 : size = save_expr (size);
6320 : 1659 : tree index_type = build_index_type (size);
6321 : 1659 : tree eltype = TREE_TYPE (first);
6322 : 1688 : while (TREE_CODE (eltype) == ARRAY_TYPE)
6323 : 29 : eltype = TREE_TYPE (eltype);
6324 : 1659 : tree type = build_array_type (eltype, index_type);
6325 : 1659 : tree ptype = build_pointer_type (eltype);
6326 : 1659 : if (TYPE_REF_P (TREE_TYPE (t))
6327 : 1659 : && INDIRECT_TYPE_P (TREE_TYPE (TREE_TYPE (t))))
6328 : 170 : t = convert_from_reference (t);
6329 : 1489 : else if (TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE)
6330 : 641 : t = build_fold_addr_expr (t);
6331 : 1659 : tree t2 = build_fold_addr_expr (first);
6332 : 1659 : t2 = fold_convert_loc (OMP_CLAUSE_LOCATION (c),
6333 : : ptrdiff_type_node, t2);
6334 : 1659 : t2 = fold_build2_loc (OMP_CLAUSE_LOCATION (c), MINUS_EXPR,
6335 : : ptrdiff_type_node, t2,
6336 : 1659 : fold_convert_loc (OMP_CLAUSE_LOCATION (c),
6337 : : ptrdiff_type_node, t));
6338 : 1659 : if (tree_fits_shwi_p (t2))
6339 : 1321 : t = build2 (MEM_REF, type, t,
6340 : 1321 : build_int_cst (ptype, tree_to_shwi (t2)));
6341 : : else
6342 : : {
6343 : 338 : t2 = fold_convert_loc (OMP_CLAUSE_LOCATION (c),
6344 : : sizetype, t2);
6345 : 338 : t = build2_loc (OMP_CLAUSE_LOCATION (c), POINTER_PLUS_EXPR,
6346 : 338 : TREE_TYPE (t), t, t2);
6347 : 338 : t = build2 (MEM_REF, type, t, build_int_cst (ptype, 0));
6348 : : }
6349 : 1659 : OMP_CLAUSE_DECL (c) = t;
6350 : 7353 : return false;
6351 : : }
6352 : 4035 : OMP_CLAUSE_DECL (c) = first;
6353 : 4035 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_HAS_DEVICE_ADDR)
6354 : : return false;
6355 : 4009 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP
6356 : 4009 : || (OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_ATTACH
6357 : 3486 : && OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_DETACH
6358 : 3474 : && OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_FORCE_DETACH))
6359 : 3985 : OMP_CLAUSE_SIZE (c) = size;
6360 : 4009 : if (TREE_CODE (t) == FIELD_DECL)
6361 : 3 : t = finish_non_static_data_member (t, NULL_TREE, NULL_TREE);
6362 : :
6363 : 4009 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP)
6364 : : return false;
6365 : :
6366 : 3498 : if (TREE_CODE (first) == INDIRECT_REF)
6367 : : {
6368 : : /* Detect and skip adding extra nodes for pointer-to-member
6369 : : mappings. These are unsupported for now. */
6370 : 2262 : tree tmp = TREE_OPERAND (first, 0);
6371 : :
6372 : 2262 : if (TREE_CODE (tmp) == NON_LVALUE_EXPR)
6373 : 1800 : tmp = TREE_OPERAND (tmp, 0);
6374 : :
6375 : 2262 : if (TREE_CODE (tmp) == INDIRECT_REF)
6376 : 140 : tmp = TREE_OPERAND (tmp, 0);
6377 : :
6378 : 2262 : if (TREE_CODE (tmp) == POINTER_PLUS_EXPR)
6379 : : {
6380 : 423 : tree offset = TREE_OPERAND (tmp, 1);
6381 : 423 : STRIP_NOPS (offset);
6382 : 423 : if (TYPE_PTRMEM_P (TREE_TYPE (offset)))
6383 : : {
6384 : 36 : sorry_at (OMP_CLAUSE_LOCATION (c),
6385 : : "pointer-to-member mapping %qE not supported",
6386 : 18 : OMP_CLAUSE_DECL (c));
6387 : 18 : return true;
6388 : : }
6389 : : }
6390 : : }
6391 : :
6392 : : /* FIRST represents the first item of data that we are mapping.
6393 : : E.g. if we're mapping an array, FIRST might resemble
6394 : : "foo.bar.myarray[0]". */
6395 : :
6396 : 3480 : auto_vec<omp_addr_token *, 10> addr_tokens;
6397 : :
6398 : 3480 : if (!omp_parse_expr (addr_tokens, first))
6399 : : return true;
6400 : :
6401 : 3480 : cp_omp_address_inspector ai (OMP_CLAUSE_LOCATION (c), t);
6402 : :
6403 : 3480 : tree nc = ai.expand_map_clause (c, first, addr_tokens, ort);
6404 : 3480 : if (nc != error_mark_node)
6405 : : {
6406 : 3480 : using namespace omp_addr_tokenizer;
6407 : :
6408 : 3480 : if (ai.maybe_zero_length_array_section (c))
6409 : 3456 : OMP_CLAUSE_MAP_MAYBE_ZERO_LENGTH_ARRAY_SECTION (c) = 1;
6410 : :
6411 : : /* !!! If we're accessing a base decl via chained access
6412 : : methods (e.g. multiple indirections), duplicate clause
6413 : : detection won't work properly. Skip it in that case. */
6414 : 3480 : if ((addr_tokens[0]->type == STRUCTURE_BASE
6415 : 2524 : || addr_tokens[0]->type == ARRAY_BASE)
6416 : 3480 : && addr_tokens[0]->u.structure_base_kind == BASE_DECL
6417 : 3469 : && addr_tokens[1]->type == ACCESS_METHOD
6418 : 6949 : && omp_access_chain_p (addr_tokens, 1))
6419 : 199 : c = nc;
6420 : :
6421 : 3480 : return false;
6422 : : }
6423 : 6960 : }
6424 : : }
6425 : : return false;
6426 : 9238 : }
6427 : :
6428 : : /* Return identifier to look up for omp declare reduction. */
6429 : :
6430 : : tree
6431 : 7045 : omp_reduction_id (enum tree_code reduction_code, tree reduction_id, tree type)
6432 : : {
6433 : 7045 : const char *p = NULL;
6434 : 7045 : const char *m = NULL;
6435 : 7045 : switch (reduction_code)
6436 : : {
6437 : 4188 : case PLUS_EXPR:
6438 : 4188 : case MULT_EXPR:
6439 : 4188 : case MINUS_EXPR:
6440 : 4188 : case BIT_AND_EXPR:
6441 : 4188 : case BIT_XOR_EXPR:
6442 : 4188 : case BIT_IOR_EXPR:
6443 : 4188 : case TRUTH_ANDIF_EXPR:
6444 : 4188 : case TRUTH_ORIF_EXPR:
6445 : 4188 : reduction_id = ovl_op_identifier (false, reduction_code);
6446 : 4188 : break;
6447 : : case MIN_EXPR:
6448 : : p = "min";
6449 : : break;
6450 : : case MAX_EXPR:
6451 : : p = "max";
6452 : : break;
6453 : : default:
6454 : : break;
6455 : : }
6456 : :
6457 : 4188 : if (p == NULL)
6458 : : {
6459 : 6905 : if (TREE_CODE (reduction_id) != IDENTIFIER_NODE)
6460 : 0 : return error_mark_node;
6461 : 6905 : p = IDENTIFIER_POINTER (reduction_id);
6462 : : }
6463 : :
6464 : 7045 : if (type != NULL_TREE)
6465 : 2025 : m = mangle_type_string (TYPE_MAIN_VARIANT (type));
6466 : :
6467 : 7045 : const char prefix[] = "omp declare reduction ";
6468 : 7045 : size_t lenp = sizeof (prefix);
6469 : 7045 : if (strncmp (p, prefix, lenp - 1) == 0)
6470 : 2025 : lenp = 1;
6471 : 7045 : size_t len = strlen (p);
6472 : 7045 : size_t lenm = m ? strlen (m) + 1 : 0;
6473 : 7045 : char *name = XALLOCAVEC (char, lenp + len + lenm);
6474 : 7045 : if (lenp > 1)
6475 : 5020 : memcpy (name, prefix, lenp - 1);
6476 : 7045 : memcpy (name + lenp - 1, p, len + 1);
6477 : 7045 : if (m)
6478 : : {
6479 : 2025 : name[lenp + len - 1] = '~';
6480 : 2025 : memcpy (name + lenp + len, m, lenm);
6481 : : }
6482 : 7045 : return get_identifier (name);
6483 : : }
6484 : :
6485 : : /* Lookup OpenMP UDR ID for TYPE, return the corresponding artificial
6486 : : FUNCTION_DECL or NULL_TREE if not found. */
6487 : :
6488 : : static tree
6489 : 1284 : omp_reduction_lookup (location_t loc, tree id, tree type, tree *baselinkp,
6490 : : vec<tree> *ambiguousp)
6491 : : {
6492 : 1284 : tree orig_id = id;
6493 : 1284 : tree baselink = NULL_TREE;
6494 : 1284 : if (identifier_p (id))
6495 : : {
6496 : 1256 : cp_id_kind idk;
6497 : 1256 : bool nonint_cst_expression_p;
6498 : 1256 : const char *error_msg;
6499 : 1256 : id = omp_reduction_id (ERROR_MARK, id, type);
6500 : 1256 : tree decl = lookup_name (id);
6501 : 1256 : if (decl == NULL_TREE)
6502 : 80 : decl = error_mark_node;
6503 : 1256 : id = finish_id_expression (id, decl, NULL_TREE, &idk, false, true,
6504 : : &nonint_cst_expression_p, false, true, false,
6505 : : false, &error_msg, loc);
6506 : 1256 : if (idk == CP_ID_KIND_UNQUALIFIED
6507 : 1336 : && identifier_p (id))
6508 : : {
6509 : 80 : vec<tree, va_gc> *args = NULL;
6510 : 80 : vec_safe_push (args, build_reference_type (type));
6511 : 80 : id = perform_koenig_lookup (id, args, tf_none);
6512 : : }
6513 : : }
6514 : 28 : else if (TREE_CODE (id) == SCOPE_REF)
6515 : 28 : id = lookup_qualified_name (TREE_OPERAND (id, 0),
6516 : : omp_reduction_id (ERROR_MARK,
6517 : 28 : TREE_OPERAND (id, 1),
6518 : : type),
6519 : : LOOK_want::NORMAL, false);
6520 : 1284 : tree fns = id;
6521 : 1284 : id = NULL_TREE;
6522 : 1284 : if (fns && is_overloaded_fn (fns))
6523 : : {
6524 : 1210 : for (lkp_iterator iter (get_fns (fns)); iter; ++iter)
6525 : : {
6526 : 1210 : tree fndecl = *iter;
6527 : 1210 : if (TREE_CODE (fndecl) == FUNCTION_DECL)
6528 : : {
6529 : 1210 : tree argtype = TREE_VALUE (TYPE_ARG_TYPES (TREE_TYPE (fndecl)));
6530 : 1210 : if (same_type_p (TREE_TYPE (argtype), type))
6531 : : {
6532 : 1210 : id = fndecl;
6533 : 1210 : break;
6534 : : }
6535 : : }
6536 : : }
6537 : :
6538 : 1210 : if (id && BASELINK_P (fns))
6539 : : {
6540 : 74 : if (baselinkp)
6541 : 0 : *baselinkp = fns;
6542 : : else
6543 : 74 : baselink = fns;
6544 : : }
6545 : : }
6546 : :
6547 : 1284 : if (!id && CLASS_TYPE_P (type) && TYPE_BINFO (type))
6548 : : {
6549 : 35 : auto_vec<tree> ambiguous;
6550 : 35 : tree binfo = TYPE_BINFO (type), base_binfo, ret = NULL_TREE;
6551 : 35 : unsigned int ix;
6552 : 35 : if (ambiguousp == NULL)
6553 : 19 : ambiguousp = &ambiguous;
6554 : 73 : for (ix = 0; BINFO_BASE_ITERATE (binfo, ix, base_binfo); ix++)
6555 : : {
6556 : 52 : id = omp_reduction_lookup (loc, orig_id, BINFO_TYPE (base_binfo),
6557 : : baselinkp ? baselinkp : &baselink,
6558 : : ambiguousp);
6559 : 38 : if (id == NULL_TREE)
6560 : 14 : continue;
6561 : 24 : if (!ambiguousp->is_empty ())
6562 : 3 : ambiguousp->safe_push (id);
6563 : 21 : else if (ret != NULL_TREE)
6564 : : {
6565 : 6 : ambiguousp->safe_push (ret);
6566 : 6 : ambiguousp->safe_push (id);
6567 : 6 : ret = NULL_TREE;
6568 : : }
6569 : : else
6570 : 15 : ret = id;
6571 : : }
6572 : 35 : if (ambiguousp != &ambiguous)
6573 : 16 : return ret;
6574 : 19 : if (!ambiguous.is_empty ())
6575 : : {
6576 : 6 : auto_diagnostic_group d;
6577 : 6 : const char *str = _("candidates are:");
6578 : 6 : unsigned int idx;
6579 : 6 : tree udr;
6580 : 6 : error_at (loc, "user defined reduction lookup is ambiguous");
6581 : 27 : FOR_EACH_VEC_ELT (ambiguous, idx, udr)
6582 : : {
6583 : 15 : inform (DECL_SOURCE_LOCATION (udr), "%s %#qD", str, udr);
6584 : 15 : if (idx == 0)
6585 : 6 : str = get_spaces (str);
6586 : : }
6587 : 6 : ret = error_mark_node;
6588 : 6 : baselink = NULL_TREE;
6589 : 6 : }
6590 : 19 : id = ret;
6591 : 35 : }
6592 : 1268 : if (id && baselink)
6593 : 74 : perform_or_defer_access_check (BASELINK_BINFO (baselink),
6594 : : id, id, tf_warning_or_error);
6595 : : return id;
6596 : : }
6597 : :
6598 : : /* Helper function for cp_parser_omp_declare_reduction_exprs
6599 : : and tsubst_omp_udr.
6600 : : Remove CLEANUP_STMT for data (omp_priv variable).
6601 : : Also append INIT_EXPR for DECL_INITIAL of omp_priv after its
6602 : : DECL_EXPR. */
6603 : :
6604 : : tree
6605 : 4134 : cp_remove_omp_priv_cleanup_stmt (tree *tp, int *walk_subtrees, void *data)
6606 : : {
6607 : 4134 : if (TYPE_P (*tp))
6608 : 14 : *walk_subtrees = 0;
6609 : 4120 : else if (TREE_CODE (*tp) == CLEANUP_STMT && CLEANUP_DECL (*tp) == (tree) data)
6610 : 52 : *tp = CLEANUP_BODY (*tp);
6611 : 4068 : else if (TREE_CODE (*tp) == DECL_EXPR)
6612 : : {
6613 : 298 : tree decl = DECL_EXPR_DECL (*tp);
6614 : 298 : if (!processing_template_decl
6615 : 252 : && decl == (tree) data
6616 : 252 : && DECL_INITIAL (decl)
6617 : 387 : && DECL_INITIAL (decl) != error_mark_node)
6618 : : {
6619 : 89 : tree list = NULL_TREE;
6620 : 89 : append_to_statement_list_force (*tp, &list);
6621 : 89 : tree init_expr = build2 (INIT_EXPR, void_type_node,
6622 : 89 : decl, DECL_INITIAL (decl));
6623 : 89 : DECL_INITIAL (decl) = NULL_TREE;
6624 : 89 : append_to_statement_list_force (init_expr, &list);
6625 : 89 : *tp = list;
6626 : : }
6627 : : }
6628 : 4134 : return NULL_TREE;
6629 : : }
6630 : :
6631 : : /* Data passed from cp_check_omp_declare_reduction to
6632 : : cp_check_omp_declare_reduction_r. */
6633 : :
6634 : : struct cp_check_omp_declare_reduction_data
6635 : : {
6636 : : location_t loc;
6637 : : tree stmts[7];
6638 : : bool combiner_p;
6639 : : };
6640 : :
6641 : : /* Helper function for cp_check_omp_declare_reduction, called via
6642 : : cp_walk_tree. */
6643 : :
6644 : : static tree
6645 : 14389 : cp_check_omp_declare_reduction_r (tree *tp, int *, void *data)
6646 : : {
6647 : 14389 : struct cp_check_omp_declare_reduction_data *udr_data
6648 : : = (struct cp_check_omp_declare_reduction_data *) data;
6649 : 14389 : if (SSA_VAR_P (*tp)
6650 : 2666 : && !DECL_ARTIFICIAL (*tp)
6651 : 225 : && *tp != DECL_EXPR_DECL (udr_data->stmts[udr_data->combiner_p ? 0 : 3])
6652 : 225 : && *tp != DECL_EXPR_DECL (udr_data->stmts[udr_data->combiner_p ? 1 : 4]))
6653 : : {
6654 : 135 : location_t loc = udr_data->loc;
6655 : 135 : if (udr_data->combiner_p)
6656 : 45 : error_at (loc, "%<#pragma omp declare reduction%> combiner refers to "
6657 : : "variable %qD which is not %<omp_out%> nor %<omp_in%>",
6658 : : *tp);
6659 : : else
6660 : 90 : error_at (loc, "%<#pragma omp declare reduction%> initializer refers "
6661 : : "to variable %qD which is not %<omp_priv%> nor "
6662 : : "%<omp_orig%>",
6663 : : *tp);
6664 : 135 : return *tp;
6665 : : }
6666 : : return NULL_TREE;
6667 : : }
6668 : :
6669 : : /* Diagnose violation of OpenMP #pragma omp declare reduction restrictions. */
6670 : :
6671 : : bool
6672 : 1090 : cp_check_omp_declare_reduction (tree udr)
6673 : : {
6674 : 1090 : tree type = TREE_VALUE (TYPE_ARG_TYPES (TREE_TYPE (udr)));
6675 : 1090 : gcc_assert (TYPE_REF_P (type));
6676 : 1090 : type = TREE_TYPE (type);
6677 : 1090 : int i;
6678 : 1090 : location_t loc = DECL_SOURCE_LOCATION (udr);
6679 : :
6680 : 1090 : if (type == error_mark_node)
6681 : : return false;
6682 : 1090 : if (ARITHMETIC_TYPE_P (type))
6683 : : {
6684 : : static enum tree_code predef_codes[]
6685 : : = { PLUS_EXPR, MULT_EXPR, MINUS_EXPR, BIT_AND_EXPR, BIT_XOR_EXPR,
6686 : : BIT_IOR_EXPR, TRUTH_ANDIF_EXPR, TRUTH_ORIF_EXPR };
6687 : 3276 : for (i = 0; i < 8; i++)
6688 : : {
6689 : 2918 : tree id = omp_reduction_id (predef_codes[i], NULL_TREE, NULL_TREE);
6690 : 2918 : const char *n1 = IDENTIFIER_POINTER (DECL_NAME (udr));
6691 : 2918 : const char *n2 = IDENTIFIER_POINTER (id);
6692 : 2918 : if (strncmp (n1, n2, IDENTIFIER_LENGTH (id)) == 0
6693 : 2918 : && (n1[IDENTIFIER_LENGTH (id)] == '~'
6694 : 0 : || n1[IDENTIFIER_LENGTH (id)] == '\0'))
6695 : : break;
6696 : : }
6697 : :
6698 : 376 : if (i == 8
6699 : 358 : && TREE_CODE (type) != COMPLEX_EXPR)
6700 : : {
6701 : 358 : const char prefix_minmax[] = "omp declare reduction m";
6702 : 358 : size_t prefix_size = sizeof (prefix_minmax) - 1;
6703 : 358 : const char *n = IDENTIFIER_POINTER (DECL_NAME (udr));
6704 : 358 : if (strncmp (IDENTIFIER_POINTER (DECL_NAME (udr)),
6705 : : prefix_minmax, prefix_size) == 0
6706 : 10 : && ((n[prefix_size] == 'i' && n[prefix_size + 1] == 'n')
6707 : 4 : || (n[prefix_size] == 'a' && n[prefix_size + 1] == 'x'))
6708 : 368 : && (n[prefix_size + 2] == '~' || n[prefix_size + 2] == '\0'))
6709 : 6 : i = 0;
6710 : : }
6711 : 376 : if (i < 8)
6712 : : {
6713 : 24 : error_at (loc, "predeclared arithmetic type %qT in "
6714 : : "%<#pragma omp declare reduction%>", type);
6715 : 24 : return false;
6716 : : }
6717 : : }
6718 : : else if (FUNC_OR_METHOD_TYPE_P (type)
6719 : : || TREE_CODE (type) == ARRAY_TYPE)
6720 : : {
6721 : 24 : error_at (loc, "function or array type %qT in "
6722 : : "%<#pragma omp declare reduction%>", type);
6723 : 24 : return false;
6724 : : }
6725 : : else if (TYPE_REF_P (type))
6726 : : {
6727 : 0 : error_at (loc, "reference type %qT in %<#pragma omp declare reduction%>",
6728 : : type);
6729 : 0 : return false;
6730 : : }
6731 : 690 : else if (TYPE_QUALS_NO_ADDR_SPACE (type))
6732 : : {
6733 : 24 : error_at (loc, "%<const%>, %<volatile%> or %<__restrict%>-qualified "
6734 : : "type %qT in %<#pragma omp declare reduction%>", type);
6735 : 24 : return false;
6736 : : }
6737 : :
6738 : 1018 : tree body = DECL_SAVED_TREE (udr);
6739 : 1018 : if (body == NULL_TREE || TREE_CODE (body) != STATEMENT_LIST)
6740 : : return true;
6741 : :
6742 : 835 : tree_stmt_iterator tsi;
6743 : 835 : struct cp_check_omp_declare_reduction_data data;
6744 : 835 : memset (data.stmts, 0, sizeof data.stmts);
6745 : 835 : for (i = 0, tsi = tsi_start (body);
6746 : 4627 : i < 7 && !tsi_end_p (tsi);
6747 : 3792 : i++, tsi_next (&tsi))
6748 : 3792 : data.stmts[i] = tsi_stmt (tsi);
6749 : 835 : data.loc = loc;
6750 : 835 : gcc_assert (tsi_end_p (tsi));
6751 : 835 : if (i >= 3)
6752 : : {
6753 : 835 : gcc_assert (TREE_CODE (data.stmts[0]) == DECL_EXPR
6754 : : && TREE_CODE (data.stmts[1]) == DECL_EXPR);
6755 : 835 : if (warning_suppressed_p (DECL_EXPR_DECL (data.stmts[0]) /* What warning? */))
6756 : : return true;
6757 : 790 : data.combiner_p = true;
6758 : 790 : if (cp_walk_tree (&data.stmts[2], cp_check_omp_declare_reduction_r,
6759 : : &data, NULL))
6760 : 45 : suppress_warning (DECL_EXPR_DECL (data.stmts[0]) /* What warning? */);
6761 : : }
6762 : 790 : if (i >= 6)
6763 : : {
6764 : 330 : gcc_assert (TREE_CODE (data.stmts[3]) == DECL_EXPR
6765 : : && TREE_CODE (data.stmts[4]) == DECL_EXPR);
6766 : 330 : data.combiner_p = false;
6767 : 330 : if (cp_walk_tree (&data.stmts[5], cp_check_omp_declare_reduction_r,
6768 : : &data, NULL)
6769 : 330 : || cp_walk_tree (&DECL_INITIAL (DECL_EXPR_DECL (data.stmts[3])),
6770 : : cp_check_omp_declare_reduction_r, &data, NULL))
6771 : 90 : suppress_warning (DECL_EXPR_DECL (data.stmts[0]) /* Wat warning? */);
6772 : 330 : if (i == 7)
6773 : 192 : gcc_assert (TREE_CODE (data.stmts[6]) == DECL_EXPR);
6774 : : }
6775 : : return true;
6776 : : }
6777 : :
6778 : : /* Helper function of finish_omp_clauses. Clone STMT as if we were making
6779 : : an inline call. But, remap
6780 : : the OMP_DECL1 VAR_DECL (omp_out resp. omp_orig) to PLACEHOLDER
6781 : : and OMP_DECL2 VAR_DECL (omp_in resp. omp_priv) to DECL. */
6782 : :
6783 : : static tree
6784 : 2191 : clone_omp_udr (tree stmt, tree omp_decl1, tree omp_decl2,
6785 : : tree decl, tree placeholder)
6786 : : {
6787 : 2191 : copy_body_data id;
6788 : 2191 : hash_map<tree, tree> decl_map;
6789 : :
6790 : 2191 : decl_map.put (omp_decl1, placeholder);
6791 : 2191 : decl_map.put (omp_decl2, decl);
6792 : 2191 : memset (&id, 0, sizeof (id));
6793 : 2191 : id.src_fn = DECL_CONTEXT (omp_decl1);
6794 : 2191 : id.dst_fn = current_function_decl;
6795 : 2191 : id.src_cfun = DECL_STRUCT_FUNCTION (id.src_fn);
6796 : 2191 : id.decl_map = &decl_map;
6797 : :
6798 : 2191 : id.copy_decl = copy_decl_no_change;
6799 : 2191 : id.transform_call_graph_edges = CB_CGE_DUPLICATE;
6800 : 2191 : id.transform_new_cfg = true;
6801 : 2191 : id.transform_return_to_modify = false;
6802 : 2191 : id.eh_lp_nr = 0;
6803 : 2191 : walk_tree (&stmt, copy_tree_body_r, &id, NULL);
6804 : 2191 : return stmt;
6805 : 2191 : }
6806 : :
6807 : : /* Helper function of finish_omp_clauses, called via cp_walk_tree.
6808 : : Find OMP_CLAUSE_PLACEHOLDER (passed in DATA) in *TP. */
6809 : :
6810 : : static tree
6811 : 14739 : find_omp_placeholder_r (tree *tp, int *, void *data)
6812 : : {
6813 : 14739 : if (*tp == (tree) data)
6814 : 265 : return *tp;
6815 : : return NULL_TREE;
6816 : : }
6817 : :
6818 : : /* Helper function of finish_omp_clauses. Handle OMP_CLAUSE_REDUCTION C.
6819 : : Return true if there is some error and the clause should be removed. */
6820 : :
6821 : : static bool
6822 : 8214 : finish_omp_reduction_clause (tree c, bool *need_default_ctor, bool *need_dtor)
6823 : : {
6824 : 8214 : tree t = OMP_CLAUSE_DECL (c);
6825 : 8214 : bool predefined = false;
6826 : 8214 : if (TREE_CODE (t) == TREE_LIST)
6827 : : {
6828 : 0 : gcc_assert (processing_template_decl);
6829 : : return false;
6830 : : }
6831 : 8214 : tree type = TREE_TYPE (t);
6832 : 8214 : if (TREE_CODE (t) == MEM_REF)
6833 : 1656 : type = TREE_TYPE (type);
6834 : 8214 : if (TYPE_REF_P (type))
6835 : 557 : type = TREE_TYPE (type);
6836 : 8214 : if (TREE_CODE (type) == ARRAY_TYPE)
6837 : : {
6838 : 377 : tree oatype = type;
6839 : 377 : gcc_assert (TREE_CODE (t) != MEM_REF);
6840 : 757 : while (TREE_CODE (type) == ARRAY_TYPE)
6841 : 380 : type = TREE_TYPE (type);
6842 : 377 : if (!processing_template_decl)
6843 : : {
6844 : 270 : t = require_complete_type (t);
6845 : 270 : if (t == error_mark_node
6846 : 270 : || !complete_type_or_else (oatype, NULL_TREE))
6847 : 9 : return true;
6848 : 261 : tree size = size_binop (EXACT_DIV_EXPR, TYPE_SIZE_UNIT (oatype),
6849 : : TYPE_SIZE_UNIT (type));
6850 : 261 : if (integer_zerop (size))
6851 : : {
6852 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
6853 : : "%qE in %<reduction%> clause is a zero size array",
6854 : : omp_clause_printable_decl (t));
6855 : 3 : return true;
6856 : : }
6857 : 258 : size = size_binop (MINUS_EXPR, size, size_one_node);
6858 : 258 : size = save_expr (size);
6859 : 258 : tree index_type = build_index_type (size);
6860 : 258 : tree atype = build_array_type (type, index_type);
6861 : 258 : tree ptype = build_pointer_type (type);
6862 : 258 : if (TREE_CODE (TREE_TYPE (t)) == ARRAY_TYPE)
6863 : 152 : t = build_fold_addr_expr (t);
6864 : 258 : t = build2 (MEM_REF, atype, t, build_int_cst (ptype, 0));
6865 : 258 : OMP_CLAUSE_DECL (c) = t;
6866 : : }
6867 : : }
6868 : 8202 : if (type == error_mark_node)
6869 : : return true;
6870 : 8199 : else if (ARITHMETIC_TYPE_P (type))
6871 : 6951 : switch (OMP_CLAUSE_REDUCTION_CODE (c))
6872 : : {
6873 : : case PLUS_EXPR:
6874 : : case MULT_EXPR:
6875 : : case MINUS_EXPR:
6876 : : case TRUTH_ANDIF_EXPR:
6877 : : case TRUTH_ORIF_EXPR:
6878 : : predefined = true;
6879 : : break;
6880 : 222 : case MIN_EXPR:
6881 : 222 : case MAX_EXPR:
6882 : 222 : if (TREE_CODE (type) == COMPLEX_TYPE)
6883 : : break;
6884 : : predefined = true;
6885 : : break;
6886 : 93 : case BIT_AND_EXPR:
6887 : 93 : case BIT_IOR_EXPR:
6888 : 93 : case BIT_XOR_EXPR:
6889 : 93 : if (FLOAT_TYPE_P (type) || TREE_CODE (type) == COMPLEX_TYPE)
6890 : : break;
6891 : : predefined = true;
6892 : : break;
6893 : : default:
6894 : : break;
6895 : : }
6896 : 1248 : else if (TYPE_READONLY (type))
6897 : : {
6898 : 18 : error_at (OMP_CLAUSE_LOCATION (c),
6899 : : "%qE has const type for %<reduction%>",
6900 : : omp_clause_printable_decl (t));
6901 : 9 : return true;
6902 : : }
6903 : 1239 : else if (!processing_template_decl)
6904 : : {
6905 : 1033 : t = require_complete_type (t);
6906 : 1033 : if (t == error_mark_node)
6907 : : return true;
6908 : 1033 : OMP_CLAUSE_DECL (c) = t;
6909 : : }
6910 : :
6911 : 1033 : if (predefined)
6912 : : {
6913 : 6729 : OMP_CLAUSE_REDUCTION_PLACEHOLDER (c) = NULL_TREE;
6914 : 6729 : return false;
6915 : : }
6916 : 1461 : else if (processing_template_decl)
6917 : : {
6918 : 215 : if (OMP_CLAUSE_REDUCTION_PLACEHOLDER (c) == error_mark_node)
6919 : : return true;
6920 : : return false;
6921 : : }
6922 : :
6923 : 1246 : tree id = OMP_CLAUSE_REDUCTION_PLACEHOLDER (c);
6924 : :
6925 : 1246 : type = TYPE_MAIN_VARIANT (type);
6926 : 1246 : OMP_CLAUSE_REDUCTION_PLACEHOLDER (c) = NULL_TREE;
6927 : 1246 : if (id == NULL_TREE)
6928 : 924 : id = omp_reduction_id (OMP_CLAUSE_REDUCTION_CODE (c),
6929 : : NULL_TREE, NULL_TREE);
6930 : 1246 : id = omp_reduction_lookup (OMP_CLAUSE_LOCATION (c), id, type, NULL, NULL);
6931 : 1246 : if (id)
6932 : : {
6933 : 1201 : if (id == error_mark_node)
6934 : : return true;
6935 : 1195 : mark_used (id);
6936 : 1195 : tree body = DECL_SAVED_TREE (id);
6937 : 1195 : if (!body)
6938 : : return true;
6939 : 1192 : if (TREE_CODE (body) == STATEMENT_LIST)
6940 : : {
6941 : 1192 : tree_stmt_iterator tsi;
6942 : 1192 : tree placeholder = NULL_TREE, decl_placeholder = NULL_TREE;
6943 : 1192 : int i;
6944 : 1192 : tree stmts[7];
6945 : 1192 : tree atype = TREE_VALUE (TYPE_ARG_TYPES (TREE_TYPE (id)));
6946 : 1192 : atype = TREE_TYPE (atype);
6947 : 1192 : bool need_static_cast = !same_type_p (type, atype);
6948 : 1192 : memset (stmts, 0, sizeof stmts);
6949 : 1192 : for (i = 0, tsi = tsi_start (body);
6950 : 8490 : i < 7 && !tsi_end_p (tsi);
6951 : 7298 : i++, tsi_next (&tsi))
6952 : 7298 : stmts[i] = tsi_stmt (tsi);
6953 : 1192 : gcc_assert (tsi_end_p (tsi));
6954 : :
6955 : 1192 : if (i >= 3)
6956 : : {
6957 : 1192 : gcc_assert (TREE_CODE (stmts[0]) == DECL_EXPR
6958 : : && TREE_CODE (stmts[1]) == DECL_EXPR);
6959 : 1192 : placeholder = build_lang_decl (VAR_DECL, NULL_TREE, type);
6960 : 1192 : DECL_ARTIFICIAL (placeholder) = 1;
6961 : 1192 : DECL_IGNORED_P (placeholder) = 1;
6962 : 1192 : OMP_CLAUSE_REDUCTION_PLACEHOLDER (c) = placeholder;
6963 : 1192 : if (TREE_CODE (t) == MEM_REF)
6964 : : {
6965 : 600 : decl_placeholder = build_lang_decl (VAR_DECL, NULL_TREE,
6966 : : type);
6967 : 600 : DECL_ARTIFICIAL (decl_placeholder) = 1;
6968 : 600 : DECL_IGNORED_P (decl_placeholder) = 1;
6969 : 600 : OMP_CLAUSE_REDUCTION_DECL_PLACEHOLDER (c) = decl_placeholder;
6970 : : }
6971 : 1192 : if (TREE_ADDRESSABLE (DECL_EXPR_DECL (stmts[0])))
6972 : 282 : cxx_mark_addressable (placeholder);
6973 : 1192 : if (TREE_ADDRESSABLE (DECL_EXPR_DECL (stmts[1]))
6974 : 1192 : && (decl_placeholder
6975 : 146 : || !TYPE_REF_P (TREE_TYPE (OMP_CLAUSE_DECL (c)))))
6976 : 366 : cxx_mark_addressable (decl_placeholder ? decl_placeholder
6977 : 115 : : OMP_CLAUSE_DECL (c));
6978 : 1192 : tree omp_out = placeholder;
6979 : 1192 : tree omp_in = decl_placeholder ? decl_placeholder
6980 : 592 : : convert_from_reference (OMP_CLAUSE_DECL (c));
6981 : 1192 : if (need_static_cast)
6982 : : {
6983 : 7 : tree rtype = build_reference_type (atype);
6984 : 7 : omp_out = build_static_cast (input_location,
6985 : : rtype, omp_out,
6986 : : tf_warning_or_error);
6987 : 7 : omp_in = build_static_cast (input_location,
6988 : : rtype, omp_in,
6989 : : tf_warning_or_error);
6990 : 7 : if (omp_out == error_mark_node || omp_in == error_mark_node)
6991 : 3 : return true;
6992 : 7 : omp_out = convert_from_reference (omp_out);
6993 : 7 : omp_in = convert_from_reference (omp_in);
6994 : : }
6995 : 1192 : OMP_CLAUSE_REDUCTION_MERGE (c)
6996 : 1192 : = clone_omp_udr (stmts[2], DECL_EXPR_DECL (stmts[0]),
6997 : 1192 : DECL_EXPR_DECL (stmts[1]), omp_in, omp_out);
6998 : : }
6999 : 1192 : if (i >= 6)
7000 : : {
7001 : 1002 : gcc_assert (TREE_CODE (stmts[3]) == DECL_EXPR
7002 : : && TREE_CODE (stmts[4]) == DECL_EXPR);
7003 : 1002 : if (TREE_ADDRESSABLE (DECL_EXPR_DECL (stmts[3]))
7004 : 1002 : && (decl_placeholder
7005 : 232 : || !TYPE_REF_P (TREE_TYPE (OMP_CLAUSE_DECL (c)))))
7006 : 844 : cxx_mark_addressable (decl_placeholder ? decl_placeholder
7007 : 170 : : OMP_CLAUSE_DECL (c));
7008 : 1002 : if (TREE_ADDRESSABLE (DECL_EXPR_DECL (stmts[4])))
7009 : 216 : cxx_mark_addressable (placeholder);
7010 : 1002 : tree omp_priv = decl_placeholder ? decl_placeholder
7011 : 426 : : convert_from_reference (OMP_CLAUSE_DECL (c));
7012 : 1002 : tree omp_orig = placeholder;
7013 : 1002 : if (need_static_cast)
7014 : : {
7015 : 5 : if (i == 7)
7016 : : {
7017 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
7018 : : "user defined reduction with constructor "
7019 : : "initializer for base class %qT", atype);
7020 : 3 : return true;
7021 : : }
7022 : 2 : tree rtype = build_reference_type (atype);
7023 : 2 : omp_priv = build_static_cast (input_location,
7024 : : rtype, omp_priv,
7025 : : tf_warning_or_error);
7026 : 2 : omp_orig = build_static_cast (input_location,
7027 : : rtype, omp_orig,
7028 : : tf_warning_or_error);
7029 : 2 : if (omp_priv == error_mark_node
7030 : 2 : || omp_orig == error_mark_node)
7031 : : return true;
7032 : 2 : omp_priv = convert_from_reference (omp_priv);
7033 : 2 : omp_orig = convert_from_reference (omp_orig);
7034 : : }
7035 : 999 : if (i == 6)
7036 : 286 : *need_default_ctor = true;
7037 : 999 : OMP_CLAUSE_REDUCTION_INIT (c)
7038 : 999 : = clone_omp_udr (stmts[5], DECL_EXPR_DECL (stmts[4]),
7039 : 999 : DECL_EXPR_DECL (stmts[3]),
7040 : : omp_priv, omp_orig);
7041 : 999 : if (cp_walk_tree (&OMP_CLAUSE_REDUCTION_INIT (c),
7042 : : find_omp_placeholder_r, placeholder, NULL))
7043 : 238 : OMP_CLAUSE_REDUCTION_OMP_ORIG_REF (c) = 1;
7044 : : }
7045 : 190 : else if (i >= 3)
7046 : : {
7047 : 190 : if (CLASS_TYPE_P (type) && !pod_type_p (type))
7048 : 175 : *need_default_ctor = true;
7049 : : else
7050 : : {
7051 : 15 : tree init;
7052 : 15 : tree v = decl_placeholder ? decl_placeholder
7053 : 15 : : convert_from_reference (t);
7054 : 15 : if (AGGREGATE_TYPE_P (TREE_TYPE (v)))
7055 : 6 : init = build_constructor (TREE_TYPE (v), NULL);
7056 : : else
7057 : 9 : init = fold_convert (TREE_TYPE (v), integer_zero_node);
7058 : 30 : OMP_CLAUSE_REDUCTION_INIT (c)
7059 : 30 : = cp_build_init_expr (v, init);
7060 : : }
7061 : : }
7062 : : }
7063 : : }
7064 : 1234 : if (OMP_CLAUSE_REDUCTION_PLACEHOLDER (c))
7065 : 1189 : *need_dtor = true;
7066 : : else
7067 : : {
7068 : 90 : error_at (OMP_CLAUSE_LOCATION (c),
7069 : : "user defined reduction not found for %qE",
7070 : : omp_clause_printable_decl (t));
7071 : 45 : return true;
7072 : : }
7073 : 1189 : if (TREE_CODE (OMP_CLAUSE_DECL (c)) == MEM_REF)
7074 : 600 : gcc_assert (TYPE_SIZE_UNIT (type)
7075 : : && TREE_CODE (TYPE_SIZE_UNIT (type)) == INTEGER_CST);
7076 : : return false;
7077 : : }
7078 : :
7079 : : /* Called from finish_struct_1. linear(this) or linear(this:step)
7080 : : clauses might not be finalized yet because the class has been incomplete
7081 : : when parsing #pragma omp declare simd methods. Fix those up now. */
7082 : :
7083 : : void
7084 : 36355 : finish_omp_declare_simd_methods (tree t)
7085 : : {
7086 : 36355 : if (processing_template_decl)
7087 : : return;
7088 : :
7089 : 241266 : for (tree x = TYPE_FIELDS (t); x; x = DECL_CHAIN (x))
7090 : : {
7091 : 344825 : if (TREE_CODE (x) == USING_DECL
7092 : 204911 : || !DECL_IOBJ_MEMBER_FUNCTION_P (x))
7093 : 139914 : continue;
7094 : 64997 : tree ods = lookup_attribute ("omp declare simd", DECL_ATTRIBUTES (x));
7095 : 65105 : if (!ods || !TREE_VALUE (ods))
7096 : 64889 : continue;
7097 : 366 : for (tree c = TREE_VALUE (TREE_VALUE (ods)); c; c = OMP_CLAUSE_CHAIN (c))
7098 : 258 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_LINEAR
7099 : 66 : && integer_zerop (OMP_CLAUSE_DECL (c))
7100 : 18 : && OMP_CLAUSE_LINEAR_STEP (c)
7101 : 276 : && TYPE_PTR_P (TREE_TYPE (OMP_CLAUSE_LINEAR_STEP (c))))
7102 : : {
7103 : 18 : tree s = OMP_CLAUSE_LINEAR_STEP (c);
7104 : 18 : s = fold_convert_loc (OMP_CLAUSE_LOCATION (c), sizetype, s);
7105 : 18 : s = fold_build2_loc (OMP_CLAUSE_LOCATION (c), MULT_EXPR,
7106 : 18 : sizetype, s, TYPE_SIZE_UNIT (t));
7107 : 18 : OMP_CLAUSE_LINEAR_STEP (c) = s;
7108 : : }
7109 : : }
7110 : : }
7111 : :
7112 : : /* Adjust sink depend/doacross clause to take into account pointer offsets.
7113 : :
7114 : : Return TRUE if there was a problem processing the offset, and the
7115 : : whole clause should be removed. */
7116 : :
7117 : : static bool
7118 : 295 : cp_finish_omp_clause_doacross_sink (tree sink_clause)
7119 : : {
7120 : 295 : tree t = OMP_CLAUSE_DECL (sink_clause);
7121 : 295 : gcc_assert (TREE_CODE (t) == TREE_LIST);
7122 : :
7123 : : /* Make sure we don't adjust things twice for templates. */
7124 : 295 : if (processing_template_decl)
7125 : : return false;
7126 : :
7127 : 665 : for (; t; t = TREE_CHAIN (t))
7128 : : {
7129 : 388 : tree decl = TREE_VALUE (t);
7130 : 388 : if (TYPE_PTR_P (TREE_TYPE (decl)))
7131 : : {
7132 : 6 : tree offset = TREE_PURPOSE (t);
7133 : 6 : bool neg = wi::neg_p (wi::to_wide (offset));
7134 : 6 : offset = fold_unary (ABS_EXPR, TREE_TYPE (offset), offset);
7135 : 6 : decl = mark_rvalue_use (decl);
7136 : 6 : decl = convert_from_reference (decl);
7137 : 12 : tree t2 = pointer_int_sum (OMP_CLAUSE_LOCATION (sink_clause),
7138 : : neg ? MINUS_EXPR : PLUS_EXPR,
7139 : : decl, offset);
7140 : 6 : t2 = fold_build2_loc (OMP_CLAUSE_LOCATION (sink_clause),
7141 : : MINUS_EXPR, sizetype,
7142 : : fold_convert (sizetype, t2),
7143 : : fold_convert (sizetype, decl));
7144 : 6 : if (t2 == error_mark_node)
7145 : : return true;
7146 : 6 : TREE_PURPOSE (t) = t2;
7147 : : }
7148 : : }
7149 : : return false;
7150 : : }
7151 : :
7152 : : /* Finish OpenMP iterators ITER. Return true if they are errorneous
7153 : : and clauses containing them should be removed. */
7154 : :
7155 : : static bool
7156 : 523 : cp_omp_finish_iterators (tree iter)
7157 : : {
7158 : 523 : bool ret = false;
7159 : 1157 : for (tree it = iter; it; it = TREE_CHAIN (it))
7160 : : {
7161 : 634 : tree var = TREE_VEC_ELT (it, 0);
7162 : 634 : tree begin = TREE_VEC_ELT (it, 1);
7163 : 634 : tree end = TREE_VEC_ELT (it, 2);
7164 : 634 : tree step = TREE_VEC_ELT (it, 3);
7165 : 634 : tree orig_step;
7166 : 634 : tree type = TREE_TYPE (var);
7167 : 634 : location_t loc = DECL_SOURCE_LOCATION (var);
7168 : 634 : if (type == error_mark_node)
7169 : : {
7170 : 0 : ret = true;
7171 : 218 : continue;
7172 : : }
7173 : 634 : if (type_dependent_expression_p (var))
7174 : 59 : continue;
7175 : 575 : if (!INTEGRAL_TYPE_P (type) && !POINTER_TYPE_P (type))
7176 : : {
7177 : 27 : error_at (loc, "iterator %qD has neither integral nor pointer type",
7178 : : var);
7179 : 27 : ret = true;
7180 : 27 : continue;
7181 : : }
7182 : 548 : else if (TYPE_READONLY (type))
7183 : : {
7184 : 24 : error_at (loc, "iterator %qD has const qualified type", var);
7185 : 24 : ret = true;
7186 : 24 : continue;
7187 : : }
7188 : 524 : if (type_dependent_expression_p (begin)
7189 : 515 : || type_dependent_expression_p (end)
7190 : 1039 : || type_dependent_expression_p (step))
7191 : 15 : continue;
7192 : 509 : else if (error_operand_p (step))
7193 : : {
7194 : 0 : ret = true;
7195 : 0 : continue;
7196 : : }
7197 : 509 : else if (!INTEGRAL_TYPE_P (TREE_TYPE (step)))
7198 : : {
7199 : 33 : error_at (EXPR_LOC_OR_LOC (step, loc),
7200 : : "iterator step with non-integral type");
7201 : 21 : ret = true;
7202 : 21 : continue;
7203 : : }
7204 : :
7205 : 488 : begin = mark_rvalue_use (begin);
7206 : 488 : end = mark_rvalue_use (end);
7207 : 488 : step = mark_rvalue_use (step);
7208 : 488 : begin = cp_build_c_cast (input_location, type, begin,
7209 : : tf_warning_or_error);
7210 : 488 : end = cp_build_c_cast (input_location, type, end,
7211 : : tf_warning_or_error);
7212 : 488 : orig_step = step;
7213 : 488 : if (!processing_template_decl)
7214 : 411 : step = orig_step = save_expr (step);
7215 : 488 : tree stype = POINTER_TYPE_P (type) ? sizetype : type;
7216 : 488 : step = cp_build_c_cast (input_location, stype, step,
7217 : : tf_warning_or_error);
7218 : 488 : if (POINTER_TYPE_P (type) && !processing_template_decl)
7219 : : {
7220 : 66 : begin = save_expr (begin);
7221 : 66 : step = pointer_int_sum (loc, PLUS_EXPR, begin, step);
7222 : 66 : step = fold_build2_loc (loc, MINUS_EXPR, sizetype,
7223 : : fold_convert (sizetype, step),
7224 : : fold_convert (sizetype, begin));
7225 : 66 : step = fold_convert (ssizetype, step);
7226 : : }
7227 : 488 : if (!processing_template_decl)
7228 : : {
7229 : 411 : begin = maybe_constant_value (begin);
7230 : 411 : end = maybe_constant_value (end);
7231 : 411 : step = maybe_constant_value (step);
7232 : 411 : orig_step = maybe_constant_value (orig_step);
7233 : : }
7234 : 488 : if (integer_zerop (step))
7235 : : {
7236 : 27 : error_at (loc, "iterator %qD has zero step", var);
7237 : 27 : ret = true;
7238 : 27 : continue;
7239 : : }
7240 : :
7241 : 461 : if (begin == error_mark_node
7242 : 452 : || end == error_mark_node
7243 : 443 : || step == error_mark_node
7244 : 443 : || orig_step == error_mark_node)
7245 : : {
7246 : 18 : ret = true;
7247 : 18 : continue;
7248 : : }
7249 : :
7250 : 443 : if (!processing_template_decl)
7251 : : {
7252 : 366 : begin = fold_build_cleanup_point_expr (TREE_TYPE (begin), begin);
7253 : 366 : end = fold_build_cleanup_point_expr (TREE_TYPE (end), end);
7254 : 366 : step = fold_build_cleanup_point_expr (TREE_TYPE (step), step);
7255 : 366 : orig_step = fold_build_cleanup_point_expr (TREE_TYPE (orig_step),
7256 : : orig_step);
7257 : : }
7258 : 443 : hash_set<tree> pset;
7259 : 443 : tree it2;
7260 : 527 : for (it2 = TREE_CHAIN (it); it2; it2 = TREE_CHAIN (it2))
7261 : : {
7262 : 111 : tree var2 = TREE_VEC_ELT (it2, 0);
7263 : 111 : tree begin2 = TREE_VEC_ELT (it2, 1);
7264 : 111 : tree end2 = TREE_VEC_ELT (it2, 2);
7265 : 111 : tree step2 = TREE_VEC_ELT (it2, 3);
7266 : 111 : location_t loc2 = DECL_SOURCE_LOCATION (var2);
7267 : 111 : if (cp_walk_tree (&begin2, find_omp_placeholder_r, var, &pset))
7268 : : {
7269 : 9 : error_at (EXPR_LOC_OR_LOC (begin2, loc2),
7270 : : "begin expression refers to outer iterator %qD", var);
7271 : 36 : break;
7272 : : }
7273 : 102 : else if (cp_walk_tree (&end2, find_omp_placeholder_r, var, &pset))
7274 : : {
7275 : 9 : error_at (EXPR_LOC_OR_LOC (end2, loc2),
7276 : : "end expression refers to outer iterator %qD", var);
7277 : 9 : break;
7278 : : }
7279 : 93 : else if (cp_walk_tree (&step2, find_omp_placeholder_r, var, &pset))
7280 : : {
7281 : 9 : error_at (EXPR_LOC_OR_LOC (step2, loc2),
7282 : : "step expression refers to outer iterator %qD", var);
7283 : 9 : break;
7284 : : }
7285 : : }
7286 : 443 : if (it2)
7287 : : {
7288 : 27 : ret = true;
7289 : 27 : continue;
7290 : : }
7291 : 416 : TREE_VEC_ELT (it, 1) = begin;
7292 : 416 : TREE_VEC_ELT (it, 2) = end;
7293 : 416 : if (processing_template_decl)
7294 : 71 : TREE_VEC_ELT (it, 3) = orig_step;
7295 : : else
7296 : : {
7297 : 345 : TREE_VEC_ELT (it, 3) = step;
7298 : 345 : TREE_VEC_ELT (it, 4) = orig_step;
7299 : : }
7300 : 443 : }
7301 : 523 : return ret;
7302 : : }
7303 : :
7304 : : /* Ensure that pointers are used in OpenACC attach and detach clauses.
7305 : : Return true if an error has been detected. */
7306 : :
7307 : : static bool
7308 : 17260 : cp_oacc_check_attachments (tree c)
7309 : : {
7310 : 17260 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP)
7311 : : return false;
7312 : :
7313 : : /* OpenACC attach / detach clauses must be pointers. */
7314 : 13365 : if (OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_ATTACH
7315 : 13365 : || OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_DETACH)
7316 : : {
7317 : 185 : tree t = OMP_CLAUSE_DECL (c);
7318 : 185 : tree type;
7319 : :
7320 : 221 : while (TREE_CODE (t) == OMP_ARRAY_SECTION)
7321 : 36 : t = TREE_OPERAND (t, 0);
7322 : :
7323 : 185 : type = TREE_TYPE (t);
7324 : :
7325 : 185 : if (TREE_CODE (type) == REFERENCE_TYPE)
7326 : 36 : type = TREE_TYPE (type);
7327 : :
7328 : 185 : if (TREE_CODE (type) != POINTER_TYPE)
7329 : : {
7330 : 36 : error_at (OMP_CLAUSE_LOCATION (c), "expected pointer in %qs clause",
7331 : : user_omp_clause_code_name (c, true));
7332 : 36 : return true;
7333 : : }
7334 : : }
7335 : :
7336 : : return false;
7337 : : }
7338 : :
7339 : : /* Update OMP_CLAUSE_INIT_PREFER_TYPE in case template substitution
7340 : : happened. */
7341 : :
7342 : : static void
7343 : 537 : cp_omp_init_prefer_type_update (tree c)
7344 : : {
7345 : 537 : if (processing_template_decl
7346 : 468 : || OMP_CLAUSE_INIT_PREFER_TYPE (c) == NULL_TREE
7347 : 714 : || TREE_CODE (OMP_CLAUSE_INIT_PREFER_TYPE (c)) != TREE_LIST)
7348 : : return;
7349 : :
7350 : 54 : tree t = TREE_PURPOSE (OMP_CLAUSE_INIT_PREFER_TYPE (c));
7351 : 54 : char *str = const_cast<char *> (TREE_STRING_POINTER (t));
7352 : 54 : tree fr_list = TREE_VALUE (OMP_CLAUSE_INIT_PREFER_TYPE (c));
7353 : 54 : int len = TREE_VEC_LENGTH (fr_list);
7354 : 54 : int cnt = 0;
7355 : :
7356 : 216 : while (str[0] == (char) GOMP_INTEROP_IFR_SEPARATOR)
7357 : : {
7358 : 216 : str++;
7359 : 216 : if (str[0] == (char) GOMP_INTEROP_IFR_UNKNOWN)
7360 : : {
7361 : : /* Assume a no or a single 'fr'. */
7362 : 96 : gcc_checking_assert (str[1] == (char) GOMP_INTEROP_IFR_SEPARATOR);
7363 : 96 : location_t loc = UNKNOWN_LOCATION;
7364 : 96 : tree value = TREE_VEC_ELT (fr_list, cnt);
7365 : 96 : if (value != NULL_TREE && value != error_mark_node)
7366 : : {
7367 : 72 : loc = EXPR_LOCATION (value);
7368 : 72 : if (value && TREE_CODE (value) == NOP_EXPR)
7369 : 39 : value = TREE_OPERAND (value, 0);
7370 : 72 : value = cp_fully_fold (value);
7371 : : }
7372 : 72 : if (value != NULL_TREE && value != error_mark_node)
7373 : : {
7374 : 72 : if (TREE_CODE (value) != INTEGER_CST
7375 : 72 : || !tree_fits_shwi_p (value))
7376 : 0 : error_at (loc,
7377 : : "expected string literal or "
7378 : : "constant integer expression instead of %qE", value); // FIXME of 'qE' and no 'loc'?
7379 : : else
7380 : : {
7381 : 72 : HOST_WIDE_INT n = tree_to_shwi (value);
7382 : 72 : if (n < 1 || n > GOMP_INTEROP_IFR_LAST)
7383 : : {
7384 : 48 : warning_at (loc, OPT_Wopenmp,
7385 : : "unknown foreign runtime identifier %qwd", n);
7386 : 48 : n = GOMP_INTEROP_IFR_UNKNOWN;
7387 : : }
7388 : 72 : str[0] = (char) n;
7389 : : }
7390 : : }
7391 : 96 : str++;
7392 : : }
7393 : 120 : else if (str[0] != (char) GOMP_INTEROP_IFR_SEPARATOR)
7394 : : {
7395 : : /* Assume a no or a single 'fr'. */
7396 : 120 : gcc_checking_assert (str[1] == (char) GOMP_INTEROP_IFR_SEPARATOR);
7397 : 120 : str++;
7398 : : }
7399 : 216 : str++;
7400 : 228 : while (str[0] != '\0')
7401 : 12 : str += strlen (str) + 1;
7402 : 216 : str++;
7403 : 216 : cnt++;
7404 : 216 : if (cnt >= len)
7405 : : break;
7406 : : }
7407 : 54 : OMP_CLAUSE_INIT_PREFER_TYPE (c) = t;
7408 : : }
7409 : :
7410 : : /* For all elements of CLAUSES, validate them vs OpenMP constraints.
7411 : : Remove any elements from the list that are invalid. */
7412 : :
7413 : : tree
7414 : 59911 : finish_omp_clauses (tree clauses, enum c_omp_region_type ort)
7415 : : {
7416 : 59911 : bitmap_head generic_head, firstprivate_head, lastprivate_head;
7417 : 59911 : bitmap_head aligned_head, map_head, map_field_head, map_firstprivate_head;
7418 : 59911 : bitmap_head oacc_reduction_head, is_on_device_head;
7419 : 59911 : tree c, t, *pc;
7420 : 59911 : tree safelen = NULL_TREE;
7421 : 59911 : bool openacc = (ort & C_ORT_ACC) != 0;
7422 : 59911 : bool branch_seen = false;
7423 : 59911 : bool copyprivate_seen = false;
7424 : 59911 : bool ordered_seen = false;
7425 : 59911 : bool order_seen = false;
7426 : 59911 : bool schedule_seen = false;
7427 : 59911 : bool oacc_async = false;
7428 : 59911 : bool indir_component_ref_p = false;
7429 : 59911 : tree last_iterators = NULL_TREE;
7430 : 59911 : bool last_iterators_remove = false;
7431 : : /* 1 if normal/task reduction has been seen, -1 if inscan reduction
7432 : : has been seen, -2 if mixed inscan/normal reduction diagnosed. */
7433 : 59911 : int reduction_seen = 0;
7434 : 59911 : bool allocate_seen = false;
7435 : 59911 : tree detach_seen = NULL_TREE;
7436 : 59911 : bool mergeable_seen = false;
7437 : 59911 : bool implicit_moved = false;
7438 : 59911 : bool target_in_reduction_seen = false;
7439 : 59911 : bool num_tasks_seen = false;
7440 : 59911 : bool partial_seen = false;
7441 : 59911 : bool init_seen = false;
7442 : 59911 : bool init_use_destroy_seen = false;
7443 : 59911 : tree init_no_targetsync_clause = NULL_TREE;
7444 : 59911 : tree depend_clause = NULL_TREE;
7445 : :
7446 : 59911 : bitmap_obstack_initialize (NULL);
7447 : 59911 : bitmap_initialize (&generic_head, &bitmap_default_obstack);
7448 : 59911 : bitmap_initialize (&firstprivate_head, &bitmap_default_obstack);
7449 : 59911 : bitmap_initialize (&lastprivate_head, &bitmap_default_obstack);
7450 : 59911 : bitmap_initialize (&aligned_head, &bitmap_default_obstack);
7451 : : /* If ort == C_ORT_OMP_DECLARE_SIMD used as uniform_head instead. */
7452 : 59911 : bitmap_initialize (&map_head, &bitmap_default_obstack);
7453 : 59911 : bitmap_initialize (&map_field_head, &bitmap_default_obstack);
7454 : 59911 : bitmap_initialize (&map_firstprivate_head, &bitmap_default_obstack);
7455 : : /* If ort == C_ORT_OMP used as nontemporal_head or use_device_xxx_head
7456 : : instead and for ort == C_ORT_OMP_TARGET used as in_reduction_head. */
7457 : 59911 : bitmap_initialize (&oacc_reduction_head, &bitmap_default_obstack);
7458 : 59911 : bitmap_initialize (&is_on_device_head, &bitmap_default_obstack);
7459 : :
7460 : 59911 : if (openacc)
7461 : 25536 : for (c = clauses; c; c = OMP_CLAUSE_CHAIN (c))
7462 : 14547 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ASYNC)
7463 : : {
7464 : : oacc_async = true;
7465 : : break;
7466 : : }
7467 : :
7468 : 59911 : tree *grp_start_p = NULL, grp_sentinel = NULL_TREE;
7469 : :
7470 : 154386 : for (pc = &clauses, c = clauses; c ; c = *pc)
7471 : : {
7472 : 94475 : bool remove = false;
7473 : 94475 : bool field_ok = false;
7474 : :
7475 : : /* We've reached the end of a list of expanded nodes. Reset the group
7476 : : start pointer. */
7477 : 94475 : if (c == grp_sentinel)
7478 : 5018 : grp_start_p = NULL;
7479 : :
7480 : 94475 : switch (OMP_CLAUSE_CODE (c))
7481 : : {
7482 : 2082 : case OMP_CLAUSE_SHARED:
7483 : 2082 : field_ok = ((ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP);
7484 : 2082 : goto check_dup_generic;
7485 : 2516 : case OMP_CLAUSE_PRIVATE:
7486 : 2516 : field_ok = ((ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP);
7487 : 2516 : goto check_dup_generic;
7488 : 6747 : case OMP_CLAUSE_REDUCTION:
7489 : 6747 : if (reduction_seen == 0)
7490 : 5730 : reduction_seen = OMP_CLAUSE_REDUCTION_INSCAN (c) ? -1 : 1;
7491 : 1017 : else if (reduction_seen != -2
7492 : 2034 : && reduction_seen != (OMP_CLAUSE_REDUCTION_INSCAN (c)
7493 : 1017 : ? -1 : 1))
7494 : : {
7495 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7496 : : "%<inscan%> and non-%<inscan%> %<reduction%> clauses "
7497 : : "on the same construct");
7498 : 6 : reduction_seen = -2;
7499 : : }
7500 : : /* FALLTHRU */
7501 : 8889 : case OMP_CLAUSE_IN_REDUCTION:
7502 : 8889 : case OMP_CLAUSE_TASK_REDUCTION:
7503 : 8889 : field_ok = ((ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP);
7504 : 8889 : t = OMP_CLAUSE_DECL (c);
7505 : 8889 : if (TREE_CODE (t) == OMP_ARRAY_SECTION)
7506 : : {
7507 : 2315 : if (handle_omp_array_sections (c, ort))
7508 : : {
7509 : : remove = true;
7510 : : break;
7511 : : }
7512 : 2273 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
7513 : 2273 : && OMP_CLAUSE_REDUCTION_INSCAN (c))
7514 : : {
7515 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
7516 : : "%<inscan%> %<reduction%> clause with array "
7517 : : "section");
7518 : 3 : remove = true;
7519 : 3 : break;
7520 : : }
7521 : 2270 : if (TREE_CODE (t) == OMP_ARRAY_SECTION)
7522 : : {
7523 : 4888 : while (TREE_CODE (t) == OMP_ARRAY_SECTION)
7524 : 2618 : t = TREE_OPERAND (t, 0);
7525 : : }
7526 : : else
7527 : : {
7528 : 0 : gcc_assert (TREE_CODE (t) == MEM_REF);
7529 : 0 : t = TREE_OPERAND (t, 0);
7530 : 0 : if (TREE_CODE (t) == POINTER_PLUS_EXPR)
7531 : 0 : t = TREE_OPERAND (t, 0);
7532 : 0 : if (TREE_CODE (t) == ADDR_EXPR
7533 : 0 : || INDIRECT_REF_P (t))
7534 : 0 : t = TREE_OPERAND (t, 0);
7535 : : }
7536 : 2270 : tree n = omp_clause_decl_field (t);
7537 : 2270 : if (n)
7538 : 59 : t = n;
7539 : 2270 : goto check_dup_generic_t;
7540 : : }
7541 : 6574 : if (oacc_async)
7542 : 7 : cxx_mark_addressable (t);
7543 : 6574 : goto check_dup_generic;
7544 : 98 : case OMP_CLAUSE_COPYPRIVATE:
7545 : 98 : copyprivate_seen = true;
7546 : 98 : field_ok = ((ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP);
7547 : 98 : goto check_dup_generic;
7548 : 277 : case OMP_CLAUSE_COPYIN:
7549 : 277 : goto check_dup_generic;
7550 : 1613 : case OMP_CLAUSE_LINEAR:
7551 : 1613 : field_ok = ((ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP);
7552 : 1613 : t = OMP_CLAUSE_DECL (c);
7553 : 1613 : if (ort != C_ORT_OMP_DECLARE_SIMD
7554 : 1613 : && OMP_CLAUSE_LINEAR_KIND (c) != OMP_CLAUSE_LINEAR_DEFAULT)
7555 : : {
7556 : 84 : if (OMP_CLAUSE_LINEAR_OLD_LINEAR_MODIFIER (c))
7557 : : {
7558 : 42 : error_at (OMP_CLAUSE_LOCATION (c),
7559 : : "modifier should not be specified in %<linear%> "
7560 : : "clause on %<simd%> or %<for%> constructs when "
7561 : : "not using OpenMP 5.2 modifiers");
7562 : 42 : OMP_CLAUSE_LINEAR_KIND (c) = OMP_CLAUSE_LINEAR_DEFAULT;
7563 : : }
7564 : 42 : else if (OMP_CLAUSE_LINEAR_KIND (c) != OMP_CLAUSE_LINEAR_VAL)
7565 : : {
7566 : 18 : error_at (OMP_CLAUSE_LOCATION (c),
7567 : : "modifier other than %<val%> specified in "
7568 : : "%<linear%> clause on %<simd%> or %<for%> "
7569 : : "constructs when using OpenMP 5.2 modifiers");
7570 : 18 : OMP_CLAUSE_LINEAR_KIND (c) = OMP_CLAUSE_LINEAR_DEFAULT;
7571 : : }
7572 : : }
7573 : 993 : if ((VAR_P (t) || TREE_CODE (t) == PARM_DECL)
7574 : 2535 : && !type_dependent_expression_p (t))
7575 : : {
7576 : 1511 : tree type = TREE_TYPE (t);
7577 : 1511 : if ((OMP_CLAUSE_LINEAR_KIND (c) == OMP_CLAUSE_LINEAR_REF
7578 : 1436 : || OMP_CLAUSE_LINEAR_KIND (c) == OMP_CLAUSE_LINEAR_UVAL)
7579 : 1574 : && !TYPE_REF_P (type))
7580 : : {
7581 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
7582 : : "linear clause with %qs modifier applied to "
7583 : : "non-reference variable with %qT type",
7584 : 12 : OMP_CLAUSE_LINEAR_KIND (c) == OMP_CLAUSE_LINEAR_REF
7585 : 12 : ? "ref" : "uval", TREE_TYPE (t));
7586 : 12 : remove = true;
7587 : 12 : break;
7588 : : }
7589 : 1499 : if (TYPE_REF_P (type))
7590 : 269 : type = TREE_TYPE (type);
7591 : 1499 : if (OMP_CLAUSE_LINEAR_KIND (c) != OMP_CLAUSE_LINEAR_REF)
7592 : : {
7593 : 1430 : if (!INTEGRAL_TYPE_P (type)
7594 : 85 : && !TYPE_PTR_P (type))
7595 : : {
7596 : 18 : error_at (OMP_CLAUSE_LOCATION (c),
7597 : : "linear clause applied to non-integral "
7598 : : "non-pointer variable with %qT type",
7599 : 18 : TREE_TYPE (t));
7600 : 18 : remove = true;
7601 : 18 : break;
7602 : : }
7603 : : }
7604 : : }
7605 : 1583 : t = OMP_CLAUSE_LINEAR_STEP (c);
7606 : 1583 : if (t == NULL_TREE)
7607 : 6 : t = integer_one_node;
7608 : 1583 : if (t == error_mark_node)
7609 : : {
7610 : : remove = true;
7611 : : break;
7612 : : }
7613 : 1583 : else if (!type_dependent_expression_p (t)
7614 : 1581 : && !INTEGRAL_TYPE_P (TREE_TYPE (t))
7615 : 1595 : && (ort != C_ORT_OMP_DECLARE_SIMD
7616 : 9 : || TREE_CODE (t) != PARM_DECL
7617 : 6 : || !TYPE_REF_P (TREE_TYPE (t))
7618 : 6 : || !INTEGRAL_TYPE_P (TREE_TYPE (TREE_TYPE (t)))))
7619 : : {
7620 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7621 : : "linear step expression must be integral");
7622 : 6 : remove = true;
7623 : 6 : break;
7624 : : }
7625 : : else
7626 : : {
7627 : 1577 : t = mark_rvalue_use (t);
7628 : 1577 : if (ort == C_ORT_OMP_DECLARE_SIMD && TREE_CODE (t) == PARM_DECL)
7629 : : {
7630 : 42 : OMP_CLAUSE_LINEAR_VARIABLE_STRIDE (c) = 1;
7631 : 42 : goto check_dup_generic;
7632 : : }
7633 : 1535 : if (!processing_template_decl
7634 : 1535 : && (VAR_P (OMP_CLAUSE_DECL (c))
7635 : 817 : || TREE_CODE (OMP_CLAUSE_DECL (c)) == PARM_DECL))
7636 : : {
7637 : 1354 : if (ort == C_ORT_OMP_DECLARE_SIMD)
7638 : : {
7639 : 571 : t = maybe_constant_value (t);
7640 : 571 : if (TREE_CODE (t) != INTEGER_CST)
7641 : : {
7642 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7643 : : "%<linear%> clause step %qE is neither "
7644 : : "constant nor a parameter", t);
7645 : 6 : remove = true;
7646 : 6 : break;
7647 : : }
7648 : : }
7649 : 1348 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
7650 : 1348 : tree type = TREE_TYPE (OMP_CLAUSE_DECL (c));
7651 : 1348 : if (TYPE_REF_P (type))
7652 : 245 : type = TREE_TYPE (type);
7653 : 1348 : if (OMP_CLAUSE_LINEAR_KIND (c) == OMP_CLAUSE_LINEAR_REF)
7654 : : {
7655 : 60 : type = build_pointer_type (type);
7656 : 60 : tree d = fold_convert (type, OMP_CLAUSE_DECL (c));
7657 : 60 : t = pointer_int_sum (OMP_CLAUSE_LOCATION (c), PLUS_EXPR,
7658 : : d, t);
7659 : 60 : t = fold_build2_loc (OMP_CLAUSE_LOCATION (c),
7660 : : MINUS_EXPR, sizetype,
7661 : : fold_convert (sizetype, t),
7662 : : fold_convert (sizetype, d));
7663 : 60 : if (t == error_mark_node)
7664 : : {
7665 : : remove = true;
7666 : : break;
7667 : : }
7668 : : }
7669 : 1288 : else if (TYPE_PTR_P (type)
7670 : : /* Can't multiply the step yet if *this
7671 : : is still incomplete type. */
7672 : 1288 : && (ort != C_ORT_OMP_DECLARE_SIMD
7673 : 45 : || TREE_CODE (OMP_CLAUSE_DECL (c)) != PARM_DECL
7674 : 45 : || !DECL_ARTIFICIAL (OMP_CLAUSE_DECL (c))
7675 : 30 : || DECL_NAME (OMP_CLAUSE_DECL (c))
7676 : 30 : != this_identifier
7677 : 30 : || !TYPE_BEING_DEFINED (TREE_TYPE (type))))
7678 : : {
7679 : 37 : tree d = convert_from_reference (OMP_CLAUSE_DECL (c));
7680 : 37 : t = pointer_int_sum (OMP_CLAUSE_LOCATION (c), PLUS_EXPR,
7681 : : d, t);
7682 : 37 : t = fold_build2_loc (OMP_CLAUSE_LOCATION (c),
7683 : : MINUS_EXPR, sizetype,
7684 : : fold_convert (sizetype, t),
7685 : : fold_convert (sizetype, d));
7686 : 37 : if (t == error_mark_node)
7687 : : {
7688 : : remove = true;
7689 : : break;
7690 : : }
7691 : : }
7692 : : else
7693 : 1251 : t = fold_convert (type, t);
7694 : : }
7695 : 1529 : OMP_CLAUSE_LINEAR_STEP (c) = t;
7696 : : }
7697 : 1529 : goto check_dup_generic;
7698 : 14045 : check_dup_generic:
7699 : 14045 : t = omp_clause_decl_field (OMP_CLAUSE_DECL (c));
7700 : 14045 : if (t)
7701 : : {
7702 : 101 : if (!remove && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_SHARED)
7703 : 101 : omp_note_field_privatization (t, OMP_CLAUSE_DECL (c));
7704 : : }
7705 : : else
7706 : 13944 : t = OMP_CLAUSE_DECL (c);
7707 : 16581 : check_dup_generic_t:
7708 : 16581 : if (t == current_class_ptr
7709 : 16581 : && ((ort != C_ORT_OMP_DECLARE_SIMD && !openacc)
7710 : 102 : || (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_LINEAR
7711 : 72 : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_UNIFORM)))
7712 : : {
7713 : 24 : error_at (OMP_CLAUSE_LOCATION (c),
7714 : : "%<this%> allowed in OpenMP only in %<declare simd%>"
7715 : : " clauses");
7716 : 24 : remove = true;
7717 : 24 : break;
7718 : : }
7719 : 16557 : if (!VAR_P (t) && TREE_CODE (t) != PARM_DECL
7720 : 586 : && (!field_ok || TREE_CODE (t) != FIELD_DECL))
7721 : : {
7722 : 59 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
7723 : : break;
7724 : 39 : if (DECL_P (t))
7725 : 30 : error_at (OMP_CLAUSE_LOCATION (c),
7726 : : "%qD is not a variable in clause %qs", t,
7727 : 15 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
7728 : : else
7729 : 48 : error_at (OMP_CLAUSE_LOCATION (c),
7730 : : "%qE is not a variable in clause %qs", t,
7731 : 24 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
7732 : : remove = true;
7733 : : }
7734 : 16498 : else if ((openacc
7735 : 2000 : && OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION)
7736 : 14724 : || (ort == C_ORT_OMP
7737 : 12465 : && (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_USE_DEVICE_PTR
7738 : 12434 : || (OMP_CLAUSE_CODE (c)
7739 : : == OMP_CLAUSE_USE_DEVICE_ADDR)))
7740 : 31115 : || (ort == C_ORT_OMP_TARGET
7741 : 894 : && OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION))
7742 : : {
7743 : 2159 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
7744 : 2159 : && (bitmap_bit_p (&generic_head, DECL_UID (t))
7745 : 275 : || bitmap_bit_p (&firstprivate_head, DECL_UID (t))))
7746 : : {
7747 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7748 : : "%qD appears more than once in data-sharing "
7749 : : "clauses", t);
7750 : 6 : remove = true;
7751 : 6 : break;
7752 : : }
7753 : 2153 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION)
7754 : 272 : target_in_reduction_seen = true;
7755 : 2153 : if (bitmap_bit_p (&oacc_reduction_head, DECL_UID (t)))
7756 : : {
7757 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
7758 : : openacc
7759 : : ? "%qD appears more than once in reduction clauses"
7760 : : : "%qD appears more than once in data clauses",
7761 : : t);
7762 : 6 : remove = true;
7763 : : }
7764 : : else
7765 : 2147 : bitmap_set_bit (&oacc_reduction_head, DECL_UID (t));
7766 : : }
7767 : 14339 : else if (bitmap_bit_p (&generic_head, DECL_UID (t))
7768 : 14267 : || bitmap_bit_p (&firstprivate_head, DECL_UID (t))
7769 : 14264 : || bitmap_bit_p (&lastprivate_head, DECL_UID (t))
7770 : 28603 : || bitmap_bit_p (&map_firstprivate_head, DECL_UID (t)))
7771 : : {
7772 : 75 : error_at (OMP_CLAUSE_LOCATION (c),
7773 : : "%qD appears more than once in data clauses", t);
7774 : 75 : remove = true;
7775 : : }
7776 : 14264 : else if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_PRIVATE
7777 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_HAS_DEVICE_ADDR
7778 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IS_DEVICE_PTR)
7779 : 3018 : && bitmap_bit_p (&map_head, DECL_UID (t)))
7780 : : {
7781 : 9 : if (openacc)
7782 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
7783 : : "%qD appears more than once in data clauses", t);
7784 : : else
7785 : 9 : error_at (OMP_CLAUSE_LOCATION (c),
7786 : : "%qD appears both in data and map clauses", t);
7787 : : remove = true;
7788 : : }
7789 : : else
7790 : 14255 : bitmap_set_bit (&generic_head, DECL_UID (t));
7791 : 16531 : if (!field_ok)
7792 : : break;
7793 : 12849 : handle_field_decl:
7794 : 21453 : if (!remove
7795 : 21259 : && TREE_CODE (t) == FIELD_DECL
7796 : 16636 : && t == OMP_CLAUSE_DECL (c))
7797 : : {
7798 : 786 : OMP_CLAUSE_DECL (c)
7799 : 786 : = omp_privatize_field (t, (OMP_CLAUSE_CODE (c)
7800 : : == OMP_CLAUSE_SHARED));
7801 : 786 : if (OMP_CLAUSE_DECL (c) == error_mark_node)
7802 : 94041 : remove = true;
7803 : : }
7804 : : break;
7805 : :
7806 : 3415 : case OMP_CLAUSE_FIRSTPRIVATE:
7807 : 3415 : if (OMP_CLAUSE_FIRSTPRIVATE_IMPLICIT (c) && !implicit_moved)
7808 : : {
7809 : 434 : move_implicit:
7810 : 434 : implicit_moved = true;
7811 : : /* Move firstprivate and map clauses with
7812 : : OMP_CLAUSE_{FIRSTPRIVATE,MAP}_IMPLICIT set to the end of
7813 : : clauses chain. */
7814 : 434 : tree cl1 = NULL_TREE, cl2 = NULL_TREE;
7815 : 434 : tree *pc1 = pc, *pc2 = &cl1, *pc3 = &cl2;
7816 : 2778 : while (*pc1)
7817 : 2344 : if (OMP_CLAUSE_CODE (*pc1) == OMP_CLAUSE_FIRSTPRIVATE
7818 : 2344 : && OMP_CLAUSE_FIRSTPRIVATE_IMPLICIT (*pc1))
7819 : : {
7820 : 275 : *pc3 = *pc1;
7821 : 275 : pc3 = &OMP_CLAUSE_CHAIN (*pc3);
7822 : 275 : *pc1 = OMP_CLAUSE_CHAIN (*pc1);
7823 : : }
7824 : 2069 : else if (OMP_CLAUSE_CODE (*pc1) == OMP_CLAUSE_MAP
7825 : 2069 : && OMP_CLAUSE_MAP_IMPLICIT (*pc1))
7826 : : {
7827 : 390 : *pc2 = *pc1;
7828 : 390 : pc2 = &OMP_CLAUSE_CHAIN (*pc2);
7829 : 390 : *pc1 = OMP_CLAUSE_CHAIN (*pc1);
7830 : : }
7831 : : else
7832 : 1679 : pc1 = &OMP_CLAUSE_CHAIN (*pc1);
7833 : 434 : *pc3 = NULL;
7834 : 434 : *pc2 = cl2;
7835 : 434 : *pc1 = cl1;
7836 : 434 : continue;
7837 : 434 : }
7838 : 3158 : t = omp_clause_decl_field (OMP_CLAUSE_DECL (c));
7839 : 3158 : if (t)
7840 : 69 : omp_note_field_privatization (t, OMP_CLAUSE_DECL (c));
7841 : : else
7842 : 3089 : t = OMP_CLAUSE_DECL (c);
7843 : 3158 : if (!openacc && t == current_class_ptr)
7844 : : {
7845 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7846 : : "%<this%> allowed in OpenMP only in %<declare simd%>"
7847 : : " clauses");
7848 : 6 : remove = true;
7849 : 6 : break;
7850 : : }
7851 : 3152 : if (!VAR_P (t) && TREE_CODE (t) != PARM_DECL
7852 : 327 : && ((ort & C_ORT_OMP_DECLARE_SIMD) != C_ORT_OMP
7853 : 327 : || TREE_CODE (t) != FIELD_DECL))
7854 : : {
7855 : 41 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
7856 : : break;
7857 : 18 : if (DECL_P (t))
7858 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
7859 : : "%qD is not a variable in clause %<firstprivate%>",
7860 : : t);
7861 : : else
7862 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7863 : : "%qE is not a variable in clause %<firstprivate%>",
7864 : : t);
7865 : 18 : remove = true;
7866 : : }
7867 : 3111 : else if (OMP_CLAUSE_FIRSTPRIVATE_IMPLICIT (c)
7868 : 275 : && !OMP_CLAUSE_FIRSTPRIVATE_IMPLICIT_TARGET (c)
7869 : 3365 : && bitmap_bit_p (&map_firstprivate_head, DECL_UID (t)))
7870 : : remove = true;
7871 : 3111 : else if (bitmap_bit_p (&generic_head, DECL_UID (t))
7872 : 3102 : || bitmap_bit_p (&firstprivate_head, DECL_UID (t))
7873 : 6210 : || bitmap_bit_p (&map_firstprivate_head, DECL_UID (t)))
7874 : : {
7875 : 15 : error_at (OMP_CLAUSE_LOCATION (c),
7876 : : "%qD appears more than once in data clauses", t);
7877 : 15 : remove = true;
7878 : : }
7879 : 3096 : else if (bitmap_bit_p (&map_head, DECL_UID (t))
7880 : 3096 : || bitmap_bit_p (&map_field_head, DECL_UID (t)))
7881 : : {
7882 : 21 : if (openacc)
7883 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
7884 : : "%qD appears more than once in data clauses", t);
7885 : 21 : else if (OMP_CLAUSE_FIRSTPRIVATE_IMPLICIT (c)
7886 : 21 : && !OMP_CLAUSE_FIRSTPRIVATE_IMPLICIT_TARGET (c))
7887 : : /* Silently drop the clause. */;
7888 : : else
7889 : 18 : error_at (OMP_CLAUSE_LOCATION (c),
7890 : : "%qD appears both in data and map clauses", t);
7891 : 21 : remove = true;
7892 : : }
7893 : : else
7894 : 3075 : bitmap_set_bit (&firstprivate_head, DECL_UID (t));
7895 : 3129 : goto handle_field_decl;
7896 : :
7897 : 2784 : case OMP_CLAUSE_LASTPRIVATE:
7898 : 2784 : t = omp_clause_decl_field (OMP_CLAUSE_DECL (c));
7899 : 2784 : if (t)
7900 : 35 : omp_note_field_privatization (t, OMP_CLAUSE_DECL (c));
7901 : : else
7902 : 2749 : t = OMP_CLAUSE_DECL (c);
7903 : 2784 : if (!openacc && t == current_class_ptr)
7904 : : {
7905 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7906 : : "%<this%> allowed in OpenMP only in %<declare simd%>"
7907 : : " clauses");
7908 : 6 : remove = true;
7909 : 6 : break;
7910 : : }
7911 : 2778 : if (!VAR_P (t) && TREE_CODE (t) != PARM_DECL
7912 : 256 : && ((ort & C_ORT_OMP_DECLARE_SIMD) != C_ORT_OMP
7913 : 256 : || TREE_CODE (t) != FIELD_DECL))
7914 : : {
7915 : 35 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
7916 : : break;
7917 : 9 : if (DECL_P (t))
7918 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
7919 : : "%qD is not a variable in clause %<lastprivate%>",
7920 : : t);
7921 : : else
7922 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7923 : : "%qE is not a variable in clause %<lastprivate%>",
7924 : : t);
7925 : 9 : remove = true;
7926 : : }
7927 : 2743 : else if (bitmap_bit_p (&generic_head, DECL_UID (t))
7928 : 2743 : || bitmap_bit_p (&lastprivate_head, DECL_UID (t)))
7929 : : {
7930 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
7931 : : "%qD appears more than once in data clauses", t);
7932 : 12 : remove = true;
7933 : : }
7934 : : else
7935 : 2731 : bitmap_set_bit (&lastprivate_head, DECL_UID (t));
7936 : 2752 : goto handle_field_decl;
7937 : :
7938 : 2173 : case OMP_CLAUSE_IF:
7939 : 2173 : case OMP_CLAUSE_SELF:
7940 : 2173 : t = OMP_CLAUSE_OPERAND (c, 0);
7941 : 2173 : t = maybe_convert_cond (t);
7942 : 2173 : if (t == error_mark_node)
7943 : : remove = true;
7944 : 2158 : else if (!processing_template_decl)
7945 : 2103 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
7946 : 2173 : OMP_CLAUSE_OPERAND (c, 0) = t;
7947 : 2173 : break;
7948 : :
7949 : 286 : case OMP_CLAUSE_FINAL:
7950 : 286 : t = OMP_CLAUSE_FINAL_EXPR (c);
7951 : 286 : t = maybe_convert_cond (t);
7952 : 286 : if (t == error_mark_node)
7953 : : remove = true;
7954 : 286 : else if (!processing_template_decl)
7955 : 280 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
7956 : 286 : OMP_CLAUSE_FINAL_EXPR (c) = t;
7957 : 286 : break;
7958 : :
7959 : 74 : case OMP_CLAUSE_NOCONTEXT:
7960 : 74 : t = OMP_CLAUSE_NOCONTEXT_EXPR (c);
7961 : 74 : t = maybe_convert_cond (t);
7962 : 74 : if (t == error_mark_node)
7963 : : remove = true;
7964 : 71 : else if (!processing_template_decl)
7965 : 65 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
7966 : 74 : OMP_CLAUSE_NOCONTEXT_EXPR (c) = t;
7967 : 74 : break;
7968 : :
7969 : 65 : case OMP_CLAUSE_NOVARIANTS:
7970 : 65 : t = OMP_CLAUSE_NOVARIANTS_EXPR (c);
7971 : 65 : t = maybe_convert_cond (t);
7972 : 65 : if (t == error_mark_node)
7973 : : remove = true;
7974 : 62 : else if (!processing_template_decl)
7975 : 56 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
7976 : 65 : OMP_CLAUSE_NOVARIANTS_EXPR (c) = t;
7977 : 65 : break;
7978 : :
7979 : 1157 : case OMP_CLAUSE_GANG:
7980 : : /* Operand 1 is the gang static: argument. */
7981 : 1157 : t = OMP_CLAUSE_OPERAND (c, 1);
7982 : 1157 : if (t != NULL_TREE)
7983 : : {
7984 : 111 : if (t == error_mark_node)
7985 : : remove = true;
7986 : 111 : else if (!type_dependent_expression_p (t)
7987 : 111 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
7988 : : {
7989 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
7990 : : "%<gang%> static expression must be integral");
7991 : 6 : remove = true;
7992 : : }
7993 : : else
7994 : : {
7995 : 105 : t = mark_rvalue_use (t);
7996 : 105 : if (!processing_template_decl)
7997 : : {
7998 : 105 : t = maybe_constant_value (t);
7999 : 105 : if (TREE_CODE (t) == INTEGER_CST
8000 : 91 : && tree_int_cst_sgn (t) != 1
8001 : 149 : && t != integer_minus_one_node)
8002 : : {
8003 : 0 : warning_at (OMP_CLAUSE_LOCATION (c), 0,
8004 : : "%<gang%> static value must be "
8005 : : "positive");
8006 : 0 : t = integer_one_node;
8007 : : }
8008 : 105 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8009 : : }
8010 : : }
8011 : 111 : OMP_CLAUSE_OPERAND (c, 1) = t;
8012 : : }
8013 : : /* Check operand 0, the num argument. */
8014 : : /* FALLTHRU */
8015 : :
8016 : 3232 : case OMP_CLAUSE_WORKER:
8017 : 3232 : case OMP_CLAUSE_VECTOR:
8018 : 3232 : if (OMP_CLAUSE_OPERAND (c, 0) == NULL_TREE)
8019 : : break;
8020 : : /* FALLTHRU */
8021 : :
8022 : 445 : case OMP_CLAUSE_NUM_TASKS:
8023 : 445 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_NUM_TASKS)
8024 : 133 : num_tasks_seen = true;
8025 : : /* FALLTHRU */
8026 : :
8027 : 2954 : case OMP_CLAUSE_NUM_TEAMS:
8028 : 2954 : case OMP_CLAUSE_NUM_THREADS:
8029 : 2954 : case OMP_CLAUSE_NUM_GANGS:
8030 : 2954 : case OMP_CLAUSE_NUM_WORKERS:
8031 : 2954 : case OMP_CLAUSE_VECTOR_LENGTH:
8032 : 2954 : t = OMP_CLAUSE_OPERAND (c, 0);
8033 : 2954 : if (t == error_mark_node)
8034 : : remove = true;
8035 : 2954 : else if (!type_dependent_expression_p (t)
8036 : 2954 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8037 : : {
8038 : 93 : switch (OMP_CLAUSE_CODE (c))
8039 : : {
8040 : 12 : case OMP_CLAUSE_GANG:
8041 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
8042 : 12 : "%<gang%> num expression must be integral"); break;
8043 : 12 : case OMP_CLAUSE_VECTOR:
8044 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
8045 : : "%<vector%> length expression must be integral");
8046 : 12 : break;
8047 : 12 : case OMP_CLAUSE_WORKER:
8048 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
8049 : : "%<worker%> num expression must be integral");
8050 : 12 : break;
8051 : 57 : default:
8052 : 57 : error_at (OMP_CLAUSE_LOCATION (c),
8053 : : "%qs expression must be integral",
8054 : 57 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8055 : : }
8056 : : remove = true;
8057 : : }
8058 : : else
8059 : : {
8060 : 2861 : t = mark_rvalue_use (t);
8061 : 2861 : if (!processing_template_decl)
8062 : : {
8063 : 2613 : t = maybe_constant_value (t);
8064 : 2613 : if (TREE_CODE (t) == INTEGER_CST
8065 : 2613 : && tree_int_cst_sgn (t) != 1)
8066 : : {
8067 : 85 : switch (OMP_CLAUSE_CODE (c))
8068 : : {
8069 : 3 : case OMP_CLAUSE_GANG:
8070 : 3 : warning_at (OMP_CLAUSE_LOCATION (c), 0,
8071 : : "%<gang%> num value must be positive");
8072 : 3 : break;
8073 : 0 : case OMP_CLAUSE_VECTOR:
8074 : 0 : warning_at (OMP_CLAUSE_LOCATION (c), 0,
8075 : : "%<vector%> length value must be "
8076 : : "positive");
8077 : 0 : break;
8078 : 0 : case OMP_CLAUSE_WORKER:
8079 : 0 : warning_at (OMP_CLAUSE_LOCATION (c), 0,
8080 : : "%<worker%> num value must be "
8081 : : "positive");
8082 : 0 : break;
8083 : 82 : default:
8084 : 82 : warning_at (OMP_CLAUSE_LOCATION (c),
8085 : 46 : (flag_openmp || flag_openmp_simd)
8086 : : ? OPT_Wopenmp : 0,
8087 : : "%qs value must be positive",
8088 : : omp_clause_code_name
8089 : 82 : [OMP_CLAUSE_CODE (c)]);
8090 : : }
8091 : 85 : t = integer_one_node;
8092 : : }
8093 : 2613 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8094 : : }
8095 : 2861 : OMP_CLAUSE_OPERAND (c, 0) = t;
8096 : : }
8097 : 2954 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_NUM_TEAMS
8098 : 752 : && OMP_CLAUSE_NUM_TEAMS_LOWER_EXPR (c)
8099 : 3233 : && !remove)
8100 : : {
8101 : 279 : t = OMP_CLAUSE_NUM_TEAMS_LOWER_EXPR (c);
8102 : 279 : if (t == error_mark_node)
8103 : : remove = true;
8104 : 279 : else if (!type_dependent_expression_p (t)
8105 : 279 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8106 : : {
8107 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8108 : : "%qs expression must be integral",
8109 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8110 : 0 : remove = true;
8111 : : }
8112 : : else
8113 : : {
8114 : 279 : t = mark_rvalue_use (t);
8115 : 279 : if (!processing_template_decl)
8116 : : {
8117 : 213 : t = maybe_constant_value (t);
8118 : 213 : if (TREE_CODE (t) == INTEGER_CST
8119 : 213 : && tree_int_cst_sgn (t) != 1)
8120 : : {
8121 : 18 : warning_at (OMP_CLAUSE_LOCATION (c), OPT_Wopenmp,
8122 : : "%qs value must be positive",
8123 : : omp_clause_code_name
8124 : 18 : [OMP_CLAUSE_CODE (c)]);
8125 : 18 : t = NULL_TREE;
8126 : : }
8127 : : else
8128 : 195 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8129 : 213 : tree upper = OMP_CLAUSE_NUM_TEAMS_UPPER_EXPR (c);
8130 : 213 : if (t
8131 : 195 : && TREE_CODE (t) == INTEGER_CST
8132 : 43 : && TREE_CODE (upper) == INTEGER_CST
8133 : 250 : && tree_int_cst_lt (upper, t))
8134 : : {
8135 : 18 : warning_at (OMP_CLAUSE_LOCATION (c), OPT_Wopenmp,
8136 : : "%<num_teams%> lower bound %qE bigger "
8137 : : "than upper bound %qE", t, upper);
8138 : 18 : t = NULL_TREE;
8139 : : }
8140 : : }
8141 : 279 : OMP_CLAUSE_NUM_TEAMS_LOWER_EXPR (c) = t;
8142 : : }
8143 : : }
8144 : : break;
8145 : :
8146 : 3828 : case OMP_CLAUSE_SCHEDULE:
8147 : 3828 : t = OMP_CLAUSE_SCHEDULE_CHUNK_EXPR (c);
8148 : 3828 : if (t == NULL)
8149 : : ;
8150 : 2072 : else if (t == error_mark_node)
8151 : : remove = true;
8152 : 2072 : else if (!type_dependent_expression_p (t)
8153 : 2072 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8154 : : {
8155 : 9 : error_at (OMP_CLAUSE_LOCATION (c),
8156 : : "schedule chunk size expression must be integral");
8157 : 9 : remove = true;
8158 : : }
8159 : : else
8160 : : {
8161 : 2063 : t = mark_rvalue_use (t);
8162 : 2063 : if (!processing_template_decl)
8163 : : {
8164 : 2023 : t = maybe_constant_value (t);
8165 : 2023 : if (TREE_CODE (t) == INTEGER_CST
8166 : 2023 : && tree_int_cst_sgn (t) != 1)
8167 : : {
8168 : 6 : warning_at (OMP_CLAUSE_LOCATION (c), OPT_Wopenmp,
8169 : : "chunk size value must be positive");
8170 : 6 : t = integer_one_node;
8171 : : }
8172 : 2023 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8173 : : }
8174 : 2063 : OMP_CLAUSE_SCHEDULE_CHUNK_EXPR (c) = t;
8175 : : }
8176 : 2072 : if (!remove)
8177 : : schedule_seen = true;
8178 : : break;
8179 : :
8180 : 1265 : case OMP_CLAUSE_SIMDLEN:
8181 : 1265 : case OMP_CLAUSE_SAFELEN:
8182 : 1265 : t = OMP_CLAUSE_OPERAND (c, 0);
8183 : 1265 : if (t == error_mark_node)
8184 : : remove = true;
8185 : 1265 : else if (!type_dependent_expression_p (t)
8186 : 1265 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8187 : : {
8188 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8189 : : "%qs length expression must be integral",
8190 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8191 : 0 : remove = true;
8192 : : }
8193 : : else
8194 : : {
8195 : 1265 : t = mark_rvalue_use (t);
8196 : 1265 : if (!processing_template_decl)
8197 : : {
8198 : 1216 : t = maybe_constant_value (t);
8199 : 1216 : if (TREE_CODE (t) != INTEGER_CST
8200 : 1216 : || tree_int_cst_sgn (t) != 1)
8201 : : {
8202 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8203 : : "%qs length expression must be positive "
8204 : : "constant integer expression",
8205 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8206 : 0 : remove = true;
8207 : : }
8208 : : }
8209 : 1265 : OMP_CLAUSE_OPERAND (c, 0) = t;
8210 : 1265 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_SAFELEN)
8211 : 467 : safelen = c;
8212 : : }
8213 : : break;
8214 : :
8215 : 378 : case OMP_CLAUSE_ASYNC:
8216 : 378 : t = OMP_CLAUSE_ASYNC_EXPR (c);
8217 : 378 : if (t == error_mark_node)
8218 : : remove = true;
8219 : 363 : else if (!type_dependent_expression_p (t)
8220 : 363 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8221 : : {
8222 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
8223 : : "%<async%> expression must be integral");
8224 : 12 : remove = true;
8225 : : }
8226 : : else
8227 : : {
8228 : 351 : t = mark_rvalue_use (t);
8229 : 351 : if (!processing_template_decl)
8230 : 342 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8231 : 351 : OMP_CLAUSE_ASYNC_EXPR (c) = t;
8232 : : }
8233 : : break;
8234 : :
8235 : 196 : case OMP_CLAUSE_WAIT:
8236 : 196 : t = OMP_CLAUSE_WAIT_EXPR (c);
8237 : 196 : if (t == error_mark_node)
8238 : : remove = true;
8239 : 196 : else if (!processing_template_decl)
8240 : 188 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8241 : 196 : OMP_CLAUSE_WAIT_EXPR (c) = t;
8242 : 196 : break;
8243 : :
8244 : 637 : case OMP_CLAUSE_THREAD_LIMIT:
8245 : 637 : t = OMP_CLAUSE_THREAD_LIMIT_EXPR (c);
8246 : 637 : if (t == error_mark_node)
8247 : : remove = true;
8248 : 637 : else if (!type_dependent_expression_p (t)
8249 : 637 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8250 : : {
8251 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8252 : : "%<thread_limit%> expression must be integral");
8253 : 0 : remove = true;
8254 : : }
8255 : : else
8256 : : {
8257 : 637 : t = mark_rvalue_use (t);
8258 : 637 : if (!processing_template_decl)
8259 : : {
8260 : 583 : t = maybe_constant_value (t);
8261 : 583 : if (TREE_CODE (t) == INTEGER_CST
8262 : 583 : && tree_int_cst_sgn (t) != 1)
8263 : : {
8264 : 0 : warning_at (OMP_CLAUSE_LOCATION (c), OPT_Wopenmp,
8265 : : "%<thread_limit%> value must be positive");
8266 : 0 : t = integer_one_node;
8267 : : }
8268 : 583 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8269 : : }
8270 : 637 : OMP_CLAUSE_THREAD_LIMIT_EXPR (c) = t;
8271 : : }
8272 : : break;
8273 : :
8274 : 668 : case OMP_CLAUSE_DEVICE:
8275 : 668 : t = OMP_CLAUSE_DEVICE_ID (c);
8276 : 668 : if (t == error_mark_node)
8277 : : remove = true;
8278 : 668 : else if (!type_dependent_expression_p (t)
8279 : 668 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8280 : : {
8281 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
8282 : : "%<device%> id must be integral");
8283 : 6 : remove = true;
8284 : : }
8285 : 662 : else if (OMP_CLAUSE_DEVICE_ANCESTOR (c)
8286 : 66 : && TREE_CODE (t) == INTEGER_CST
8287 : 722 : && !integer_onep (t))
8288 : : {
8289 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
8290 : : "the %<device%> clause expression must evaluate to "
8291 : : "%<1%>");
8292 : 3 : remove = true;
8293 : : }
8294 : : else
8295 : : {
8296 : 659 : t = mark_rvalue_use (t);
8297 : 659 : if (!processing_template_decl)
8298 : 648 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8299 : 659 : OMP_CLAUSE_DEVICE_ID (c) = t;
8300 : : }
8301 : : break;
8302 : :
8303 : 1836 : case OMP_CLAUSE_DIST_SCHEDULE:
8304 : 1836 : t = OMP_CLAUSE_DIST_SCHEDULE_CHUNK_EXPR (c);
8305 : 1836 : if (t == NULL)
8306 : : ;
8307 : 1815 : else if (t == error_mark_node)
8308 : : remove = true;
8309 : 1815 : else if (!type_dependent_expression_p (t)
8310 : 1815 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8311 : : {
8312 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8313 : : "%<dist_schedule%> chunk size expression must be "
8314 : : "integral");
8315 : 0 : remove = true;
8316 : : }
8317 : : else
8318 : : {
8319 : 1815 : t = mark_rvalue_use (t);
8320 : 1815 : if (!processing_template_decl)
8321 : 1815 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
8322 : 1815 : OMP_CLAUSE_DIST_SCHEDULE_CHUNK_EXPR (c) = t;
8323 : : }
8324 : : break;
8325 : :
8326 : 804 : case OMP_CLAUSE_ALIGNED:
8327 : 804 : t = OMP_CLAUSE_DECL (c);
8328 : 804 : if (t == current_class_ptr && ort != C_ORT_OMP_DECLARE_SIMD)
8329 : : {
8330 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8331 : : "%<this%> allowed in OpenMP only in %<declare simd%>"
8332 : : " clauses");
8333 : 0 : remove = true;
8334 : 0 : break;
8335 : : }
8336 : 804 : if (!VAR_P (t) && TREE_CODE (t) != PARM_DECL)
8337 : : {
8338 : 0 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
8339 : : break;
8340 : 0 : if (DECL_P (t))
8341 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8342 : : "%qD is not a variable in %<aligned%> clause", t);
8343 : : else
8344 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8345 : : "%qE is not a variable in %<aligned%> clause", t);
8346 : : remove = true;
8347 : : }
8348 : 804 : else if (!type_dependent_expression_p (t)
8349 : 786 : && !TYPE_PTR_P (TREE_TYPE (t))
8350 : 108 : && TREE_CODE (TREE_TYPE (t)) != ARRAY_TYPE
8351 : 858 : && (!TYPE_REF_P (TREE_TYPE (t))
8352 : 36 : || (!INDIRECT_TYPE_P (TREE_TYPE (TREE_TYPE (t)))
8353 : 27 : && (TREE_CODE (TREE_TYPE (TREE_TYPE (t)))
8354 : : != ARRAY_TYPE))))
8355 : : {
8356 : 33 : error_at (OMP_CLAUSE_LOCATION (c),
8357 : : "%qE in %<aligned%> clause is neither a pointer nor "
8358 : : "an array nor a reference to pointer or array", t);
8359 : 33 : remove = true;
8360 : : }
8361 : 771 : else if (bitmap_bit_p (&aligned_head, DECL_UID (t)))
8362 : : {
8363 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8364 : : "%qD appears more than once in %<aligned%> clauses",
8365 : : t);
8366 : 0 : remove = true;
8367 : : }
8368 : : else
8369 : 771 : bitmap_set_bit (&aligned_head, DECL_UID (t));
8370 : 804 : t = OMP_CLAUSE_ALIGNED_ALIGNMENT (c);
8371 : 804 : if (t == error_mark_node)
8372 : : remove = true;
8373 : 804 : else if (t == NULL_TREE)
8374 : : break;
8375 : 741 : else if (!type_dependent_expression_p (t)
8376 : 741 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
8377 : : {
8378 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8379 : : "%<aligned%> clause alignment expression must "
8380 : : "be integral");
8381 : 0 : remove = true;
8382 : : }
8383 : : else
8384 : : {
8385 : 741 : t = mark_rvalue_use (t);
8386 : 741 : if (!processing_template_decl)
8387 : : {
8388 : 687 : t = maybe_constant_value (t);
8389 : 687 : if (TREE_CODE (t) != INTEGER_CST
8390 : 687 : || tree_int_cst_sgn (t) != 1)
8391 : : {
8392 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8393 : : "%<aligned%> clause alignment expression must "
8394 : : "be positive constant integer expression");
8395 : 0 : remove = true;
8396 : : }
8397 : : }
8398 : 741 : OMP_CLAUSE_ALIGNED_ALIGNMENT (c) = t;
8399 : : }
8400 : : break;
8401 : :
8402 : 369 : case OMP_CLAUSE_NONTEMPORAL:
8403 : 369 : t = OMP_CLAUSE_DECL (c);
8404 : 369 : if (!VAR_P (t) && TREE_CODE (t) != PARM_DECL)
8405 : : {
8406 : 0 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
8407 : : break;
8408 : 0 : if (DECL_P (t))
8409 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8410 : : "%qD is not a variable in %<nontemporal%> clause",
8411 : : t);
8412 : : else
8413 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8414 : : "%qE is not a variable in %<nontemporal%> clause",
8415 : : t);
8416 : : remove = true;
8417 : : }
8418 : 369 : else if (bitmap_bit_p (&oacc_reduction_head, DECL_UID (t)))
8419 : : {
8420 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
8421 : : "%qD appears more than once in %<nontemporal%> "
8422 : : "clauses", t);
8423 : 6 : remove = true;
8424 : : }
8425 : : else
8426 : 363 : bitmap_set_bit (&oacc_reduction_head, DECL_UID (t));
8427 : : break;
8428 : :
8429 : 2739 : case OMP_CLAUSE_ALLOCATE:
8430 : 2739 : t = omp_clause_decl_field (OMP_CLAUSE_DECL (c));
8431 : 2739 : if (t)
8432 : 14 : omp_note_field_privatization (t, OMP_CLAUSE_DECL (c));
8433 : : else
8434 : 2725 : t = OMP_CLAUSE_DECL (c);
8435 : 2739 : if (t == current_class_ptr)
8436 : : {
8437 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8438 : : "%<this%> not allowed in %<allocate%> clause");
8439 : 0 : remove = true;
8440 : 0 : break;
8441 : : }
8442 : 2739 : if (!VAR_P (t)
8443 : 678 : && TREE_CODE (t) != PARM_DECL
8444 : 45 : && TREE_CODE (t) != FIELD_DECL)
8445 : : {
8446 : 3 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
8447 : : break;
8448 : 3 : if (DECL_P (t))
8449 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
8450 : : "%qD is not a variable in %<allocate%> clause", t);
8451 : : else
8452 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8453 : : "%qE is not a variable in %<allocate%> clause", t);
8454 : : remove = true;
8455 : : }
8456 : 2736 : else if (bitmap_bit_p (&aligned_head, DECL_UID (t)))
8457 : : {
8458 : 12 : warning_at (OMP_CLAUSE_LOCATION (c), OPT_Wopenmp,
8459 : : "%qD appears more than once in %<allocate%> clauses",
8460 : : t);
8461 : 12 : remove = true;
8462 : : }
8463 : : else
8464 : : {
8465 : 2724 : bitmap_set_bit (&aligned_head, DECL_UID (t));
8466 : 2724 : allocate_seen = true;
8467 : : }
8468 : 2739 : tree allocator, align;
8469 : 2739 : align = OMP_CLAUSE_ALLOCATE_ALIGN (c);
8470 : 2739 : if (error_operand_p (align))
8471 : : {
8472 : : remove = true;
8473 : : break;
8474 : : }
8475 : 2739 : if (align)
8476 : : {
8477 : 171 : if (!type_dependent_expression_p (align)
8478 : 171 : && !INTEGRAL_TYPE_P (TREE_TYPE (align)))
8479 : : {
8480 : 4 : error_at (OMP_CLAUSE_LOCATION (c),
8481 : : "%<allocate%> clause %<align%> modifier "
8482 : : "argument needs to be positive constant "
8483 : : "power of two integer expression");
8484 : 4 : remove = true;
8485 : : }
8486 : : else
8487 : : {
8488 : 167 : align = mark_rvalue_use (align);
8489 : 167 : if (!processing_template_decl)
8490 : : {
8491 : 152 : align = maybe_constant_value (align);
8492 : 152 : if (TREE_CODE (align) != INTEGER_CST
8493 : 149 : || !tree_fits_uhwi_p (align)
8494 : 301 : || !integer_pow2p (align))
8495 : : {
8496 : 10 : error_at (OMP_CLAUSE_LOCATION (c),
8497 : : "%<allocate%> clause %<align%> modifier "
8498 : : "argument needs to be positive constant "
8499 : : "power of two integer expression");
8500 : 10 : remove = true;
8501 : : }
8502 : : }
8503 : : }
8504 : 171 : OMP_CLAUSE_ALLOCATE_ALIGN (c) = align;
8505 : : }
8506 : 2739 : allocator = OMP_CLAUSE_ALLOCATE_ALLOCATOR (c);
8507 : 2739 : if (error_operand_p (allocator))
8508 : : {
8509 : : remove = true;
8510 : : break;
8511 : : }
8512 : 2739 : if (allocator == NULL_TREE)
8513 : 1745 : goto handle_field_decl;
8514 : 994 : tree allocatort;
8515 : 994 : allocatort = TYPE_MAIN_VARIANT (TREE_TYPE (allocator));
8516 : 994 : if (!type_dependent_expression_p (allocator)
8517 : 994 : && (TREE_CODE (allocatort) != ENUMERAL_TYPE
8518 : 975 : || TYPE_NAME (allocatort) == NULL_TREE
8519 : 975 : || TREE_CODE (TYPE_NAME (allocatort)) != TYPE_DECL
8520 : 1950 : || (DECL_NAME (TYPE_NAME (allocatort))
8521 : 975 : != get_identifier ("omp_allocator_handle_t"))
8522 : 975 : || (TYPE_CONTEXT (allocatort)
8523 : 975 : != DECL_CONTEXT (global_namespace))))
8524 : : {
8525 : 16 : error_at (OMP_CLAUSE_LOCATION (c),
8526 : : "%<allocate%> clause allocator expression has "
8527 : : "type %qT rather than %<omp_allocator_handle_t%>",
8528 : 16 : TREE_TYPE (allocator));
8529 : 16 : remove = true;
8530 : 16 : break;
8531 : : }
8532 : : else
8533 : : {
8534 : 978 : allocator = mark_rvalue_use (allocator);
8535 : 978 : if (!processing_template_decl)
8536 : 959 : allocator = maybe_constant_value (allocator);
8537 : 978 : OMP_CLAUSE_ALLOCATE_ALLOCATOR (c) = allocator;
8538 : : }
8539 : 978 : goto handle_field_decl;
8540 : :
8541 : 648 : case OMP_CLAUSE_DOACROSS:
8542 : 648 : t = OMP_CLAUSE_DECL (c);
8543 : 648 : if (t == NULL_TREE)
8544 : : break;
8545 : 295 : if (OMP_CLAUSE_DOACROSS_KIND (c) == OMP_CLAUSE_DOACROSS_SINK)
8546 : : {
8547 : 295 : if (cp_finish_omp_clause_doacross_sink (c))
8548 : 9 : remove = true;
8549 : : break;
8550 : : }
8551 : 0 : gcc_unreachable ();
8552 : 1785 : case OMP_CLAUSE_DEPEND:
8553 : 1785 : depend_clause = c;
8554 : : /* FALLTHRU */
8555 : 2325 : case OMP_CLAUSE_AFFINITY:
8556 : 2325 : t = OMP_CLAUSE_DECL (c);
8557 : 2325 : if (TREE_CODE (t) == TREE_LIST
8558 : 621 : && TREE_PURPOSE (t)
8559 : 2946 : && TREE_CODE (TREE_PURPOSE (t)) == TREE_VEC)
8560 : : {
8561 : 621 : if (TREE_PURPOSE (t) != last_iterators)
8562 : 523 : last_iterators_remove
8563 : 523 : = cp_omp_finish_iterators (TREE_PURPOSE (t));
8564 : 621 : last_iterators = TREE_PURPOSE (t);
8565 : 621 : t = TREE_VALUE (t);
8566 : 621 : if (last_iterators_remove)
8567 : 144 : t = error_mark_node;
8568 : : }
8569 : : else
8570 : : last_iterators = NULL_TREE;
8571 : :
8572 : 2325 : if (TREE_CODE (t) == OMP_ARRAY_SECTION)
8573 : : {
8574 : 1299 : if (handle_omp_array_sections (c, ort))
8575 : : remove = true;
8576 : 972 : else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEPEND
8577 : 972 : && (OMP_CLAUSE_DEPEND_KIND (c)
8578 : : == OMP_CLAUSE_DEPEND_DEPOBJ))
8579 : : {
8580 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
8581 : : "%<depend%> clause with %<depobj%> dependence "
8582 : : "type on array section");
8583 : 6 : remove = true;
8584 : : }
8585 : : break;
8586 : : }
8587 : 1026 : if (t == error_mark_node)
8588 : : remove = true;
8589 : 864 : else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEPEND
8590 : 864 : && t == ridpointers[RID_OMP_ALL_MEMORY])
8591 : : {
8592 : 33 : if (OMP_CLAUSE_DEPEND_KIND (c) != OMP_CLAUSE_DEPEND_OUT
8593 : 33 : && OMP_CLAUSE_DEPEND_KIND (c) != OMP_CLAUSE_DEPEND_INOUT)
8594 : : {
8595 : 9 : error_at (OMP_CLAUSE_LOCATION (c),
8596 : : "%<omp_all_memory%> used with %<depend%> kind "
8597 : : "other than %<out%> or %<inout%>");
8598 : 9 : remove = true;
8599 : : }
8600 : 33 : if (processing_template_decl)
8601 : : break;
8602 : : }
8603 : 831 : else if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
8604 : : break;
8605 : 639 : else if (!lvalue_p (t))
8606 : : {
8607 : 21 : if (DECL_P (t))
8608 : 24 : error_at (OMP_CLAUSE_LOCATION (c),
8609 : : "%qD is not lvalue expression nor array section "
8610 : : "in %qs clause", t,
8611 : 12 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8612 : : else
8613 : 18 : error_at (OMP_CLAUSE_LOCATION (c),
8614 : : "%qE is not lvalue expression nor array section "
8615 : : "in %qs clause", t,
8616 : 9 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8617 : : remove = true;
8618 : : }
8619 : 618 : else if (TREE_CODE (t) == COMPONENT_REF
8620 : 36 : && TREE_CODE (TREE_OPERAND (t, 1)) == FIELD_DECL
8621 : 654 : && DECL_BIT_FIELD (TREE_OPERAND (t, 1)))
8622 : : {
8623 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
8624 : : "bit-field %qE in %qs clause", t,
8625 : 6 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8626 : 6 : remove = true;
8627 : : }
8628 : 612 : else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEPEND
8629 : 612 : && OMP_CLAUSE_DEPEND_KIND (c) == OMP_CLAUSE_DEPEND_DEPOBJ)
8630 : : {
8631 : 124 : if (!c_omp_depend_t_p (TYPE_REF_P (TREE_TYPE (t))
8632 : 8 : ? TREE_TYPE (TREE_TYPE (t))
8633 : 54 : : TREE_TYPE (t)))
8634 : : {
8635 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
8636 : : "%qE does not have %<omp_depend_t%> type in "
8637 : : "%<depend%> clause with %<depobj%> dependence "
8638 : : "type", t);
8639 : 12 : remove = true;
8640 : : }
8641 : : }
8642 : 550 : else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DEPEND
8643 : 980 : && c_omp_depend_t_p (TYPE_REF_P (TREE_TYPE (t))
8644 : 4 : ? TREE_TYPE (TREE_TYPE (t))
8645 : 426 : : TREE_TYPE (t)))
8646 : : {
8647 : 15 : error_at (OMP_CLAUSE_LOCATION (c),
8648 : : "%qE should not have %<omp_depend_t%> type in "
8649 : : "%<depend%> clause with dependence type other than "
8650 : : "%<depobj%>", t);
8651 : 15 : remove = true;
8652 : : }
8653 : 66 : if (!remove)
8654 : : {
8655 : 609 : if (t == ridpointers[RID_OMP_ALL_MEMORY])
8656 : 24 : t = null_pointer_node;
8657 : : else
8658 : : {
8659 : 585 : tree addr = cp_build_addr_expr (t, tf_warning_or_error);
8660 : 585 : if (addr == error_mark_node)
8661 : : {
8662 : : remove = true;
8663 : : break;
8664 : : }
8665 : 585 : t = cp_build_indirect_ref (OMP_CLAUSE_LOCATION (c),
8666 : : addr, RO_UNARY_STAR,
8667 : : tf_warning_or_error);
8668 : 585 : if (t == error_mark_node)
8669 : : {
8670 : : remove = true;
8671 : : break;
8672 : : }
8673 : : }
8674 : 609 : if (TREE_CODE (OMP_CLAUSE_DECL (c)) == TREE_LIST
8675 : 135 : && TREE_PURPOSE (OMP_CLAUSE_DECL (c))
8676 : 744 : && (TREE_CODE (TREE_PURPOSE (OMP_CLAUSE_DECL (c)))
8677 : : == TREE_VEC))
8678 : 135 : TREE_VALUE (OMP_CLAUSE_DECL (c)) = t;
8679 : : else
8680 : 474 : OMP_CLAUSE_DECL (c) = t;
8681 : : }
8682 : : break;
8683 : 69 : case OMP_CLAUSE_DETACH:
8684 : 69 : t = OMP_CLAUSE_DECL (c);
8685 : 69 : if (detach_seen)
8686 : : {
8687 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
8688 : : "too many %qs clauses on a task construct",
8689 : : "detach");
8690 : 3 : remove = true;
8691 : 3 : break;
8692 : : }
8693 : 66 : else if (error_operand_p (t))
8694 : : {
8695 : : remove = true;
8696 : : break;
8697 : : }
8698 : : else
8699 : : {
8700 : 63 : tree type = TYPE_MAIN_VARIANT (TREE_TYPE (t));
8701 : 63 : if (!type_dependent_expression_p (t)
8702 : 63 : && (!INTEGRAL_TYPE_P (type)
8703 : : || TREE_CODE (type) != ENUMERAL_TYPE
8704 : 51 : || TYPE_NAME (type) == NULL_TREE
8705 : 102 : || (DECL_NAME (TYPE_NAME (type))
8706 : 51 : != get_identifier ("omp_event_handle_t"))))
8707 : : {
8708 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
8709 : : "%<detach%> clause event handle "
8710 : : "has type %qT rather than "
8711 : : "%<omp_event_handle_t%>",
8712 : : type);
8713 : 6 : remove = true;
8714 : : }
8715 : 63 : detach_seen = c;
8716 : 63 : cxx_mark_addressable (t);
8717 : : }
8718 : 63 : break;
8719 : :
8720 : 14718 : case OMP_CLAUSE_MAP:
8721 : 14718 : if (OMP_CLAUSE_MAP_IMPLICIT (c) && !implicit_moved)
8722 : 177 : goto move_implicit;
8723 : : /* FALLTHRU */
8724 : 18527 : case OMP_CLAUSE_TO:
8725 : 18527 : case OMP_CLAUSE_FROM:
8726 : 18527 : case OMP_CLAUSE__CACHE_:
8727 : 18527 : {
8728 : 18527 : using namespace omp_addr_tokenizer;
8729 : 18527 : auto_vec<omp_addr_token *, 10> addr_tokens;
8730 : :
8731 : 18527 : t = OMP_CLAUSE_DECL (c);
8732 : 18527 : if (TREE_CODE (t) == OMP_ARRAY_SECTION)
8733 : : {
8734 : 5596 : grp_start_p = pc;
8735 : 5596 : grp_sentinel = OMP_CLAUSE_CHAIN (c);
8736 : :
8737 : 5596 : if (handle_omp_array_sections (c, ort))
8738 : : remove = true;
8739 : : else
8740 : : {
8741 : 4795 : t = OMP_CLAUSE_DECL (c);
8742 : 4795 : if (TREE_CODE (t) != OMP_ARRAY_SECTION
8743 : 3991 : && !type_dependent_expression_p (t)
8744 : 8786 : && !omp_mappable_type (TREE_TYPE (t)))
8745 : : {
8746 : 3 : auto_diagnostic_group d;
8747 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
8748 : : "array section does not have mappable type "
8749 : : "in %qs clause",
8750 : 3 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8751 : 3 : if (TREE_TYPE (t) != error_mark_node
8752 : 3 : && !COMPLETE_TYPE_P (TREE_TYPE (t)))
8753 : 3 : cxx_incomplete_type_inform (TREE_TYPE (t));
8754 : 3 : remove = true;
8755 : 3 : }
8756 : 6562 : while (TREE_CODE (t) == ARRAY_REF)
8757 : 1767 : t = TREE_OPERAND (t, 0);
8758 : :
8759 : 4795 : if (type_dependent_expression_p (t))
8760 : : break;
8761 : :
8762 : 4378 : cp_omp_address_inspector ai (OMP_CLAUSE_LOCATION (c), t);
8763 : :
8764 : 4378 : if (!ai.map_supported_p ()
8765 : 4378 : || !omp_parse_expr (addr_tokens, t))
8766 : : {
8767 : 18 : sorry_at (OMP_CLAUSE_LOCATION (c),
8768 : : "unsupported map expression %qE",
8769 : 9 : OMP_CLAUSE_DECL (c));
8770 : 9 : remove = true;
8771 : 9 : break;
8772 : : }
8773 : :
8774 : : /* This check is to determine if this will be the only map
8775 : : node created for this clause. Otherwise, we'll check
8776 : : the following FIRSTPRIVATE_POINTER,
8777 : : FIRSTPRIVATE_REFERENCE or ATTACH_DETACH node on the next
8778 : : iteration(s) of the loop. */
8779 : 8691 : if (addr_tokens.length () >= 4
8780 : 996 : && addr_tokens[0]->type == STRUCTURE_BASE
8781 : 996 : && addr_tokens[0]->u.structure_base_kind == BASE_DECL
8782 : 996 : && addr_tokens[1]->type == ACCESS_METHOD
8783 : 996 : && addr_tokens[2]->type == COMPONENT_SELECTOR
8784 : 916 : && addr_tokens[3]->type == ACCESS_METHOD
8785 : 5033 : && (addr_tokens[3]->u.access_kind == ACCESS_DIRECT
8786 : 506 : || (addr_tokens[3]->u.access_kind
8787 : : == ACCESS_INDEXED_ARRAY)))
8788 : : {
8789 : 160 : tree rt = addr_tokens[1]->expr;
8790 : :
8791 : 160 : gcc_assert (DECL_P (rt));
8792 : :
8793 : 160 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
8794 : 149 : && OMP_CLAUSE_MAP_IMPLICIT (c)
8795 : 160 : && (bitmap_bit_p (&map_head, DECL_UID (rt))
8796 : 0 : || bitmap_bit_p (&map_field_head, DECL_UID (rt))
8797 : 0 : || bitmap_bit_p (&map_firstprivate_head,
8798 : 0 : DECL_UID (rt))))
8799 : : {
8800 : : remove = true;
8801 : : break;
8802 : : }
8803 : 160 : if (bitmap_bit_p (&map_field_head, DECL_UID (rt)))
8804 : : break;
8805 : 113 : if (bitmap_bit_p (&map_head, DECL_UID (rt)))
8806 : : {
8807 : 0 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP)
8808 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8809 : : "%qD appears more than once in motion"
8810 : : " clauses", rt);
8811 : 0 : else if (openacc)
8812 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8813 : : "%qD appears more than once in data"
8814 : : " clauses", rt);
8815 : : else
8816 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8817 : : "%qD appears more than once in map"
8818 : : " clauses", rt);
8819 : : remove = true;
8820 : : }
8821 : : else
8822 : : {
8823 : 113 : bitmap_set_bit (&map_head, DECL_UID (rt));
8824 : 113 : bitmap_set_bit (&map_field_head, DECL_UID (rt));
8825 : : }
8826 : : }
8827 : 4378 : }
8828 : 5123 : if (cp_oacc_check_attachments (c))
8829 : 12 : remove = true;
8830 : 5123 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
8831 : 4182 : && (OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_ATTACH
8832 : 4137 : || OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_DETACH)
8833 : 5202 : && !OMP_CLAUSE_SIZE (c))
8834 : : /* In this case, we have a single array element which is a
8835 : : pointer, and we already set OMP_CLAUSE_SIZE in
8836 : : handle_omp_array_sections above. For attach/detach
8837 : : clauses, reset the OMP_CLAUSE_SIZE (representing a bias)
8838 : : to zero here. */
8839 : 60 : OMP_CLAUSE_SIZE (c) = size_zero_node;
8840 : : break;
8841 : : }
8842 : 12931 : else if (type_dependent_expression_p (t))
8843 : : break;
8844 : 12206 : else if (!omp_parse_expr (addr_tokens, t))
8845 : : {
8846 : 0 : sorry_at (OMP_CLAUSE_LOCATION (c),
8847 : : "unsupported map expression %qE",
8848 : 0 : OMP_CLAUSE_DECL (c));
8849 : 0 : remove = true;
8850 : 0 : break;
8851 : : }
8852 : 12206 : if (t == error_mark_node)
8853 : : {
8854 : : remove = true;
8855 : : break;
8856 : : }
8857 : : /* OpenACC attach / detach clauses must be pointers. */
8858 : 12137 : if (cp_oacc_check_attachments (c))
8859 : : {
8860 : : remove = true;
8861 : : break;
8862 : : }
8863 : 12113 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
8864 : 9159 : && (OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_ATTACH
8865 : 9106 : || OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_DETACH)
8866 : 12195 : && !OMP_CLAUSE_SIZE (c))
8867 : : /* For attach/detach clauses, set OMP_CLAUSE_SIZE (representing a
8868 : : bias) to zero here, so it is not set erroneously to the
8869 : : pointer size later on in gimplify.cc. */
8870 : 74 : OMP_CLAUSE_SIZE (c) = size_zero_node;
8871 : :
8872 : 12113 : cp_omp_address_inspector ai (OMP_CLAUSE_LOCATION (c), t);
8873 : :
8874 : 12113 : if (!ai.check_clause (c))
8875 : : {
8876 : : remove = true;
8877 : : break;
8878 : : }
8879 : :
8880 : 12092 : if (!ai.map_supported_p ())
8881 : : {
8882 : 76 : sorry_at (OMP_CLAUSE_LOCATION (c),
8883 : : "unsupported map expression %qE",
8884 : 38 : OMP_CLAUSE_DECL (c));
8885 : 38 : remove = true;
8886 : 38 : break;
8887 : : }
8888 : :
8889 : 24108 : gcc_assert ((addr_tokens[0]->type == ARRAY_BASE
8890 : : || addr_tokens[0]->type == STRUCTURE_BASE)
8891 : : && addr_tokens[1]->type == ACCESS_METHOD);
8892 : :
8893 : 12054 : t = addr_tokens[1]->expr;
8894 : :
8895 : : /* This is used to prevent cxx_mark_addressable from being called
8896 : : on 'this' for expressions like 'this->a', i.e. typical member
8897 : : accesses. */
8898 : 12054 : indir_component_ref_p
8899 : 24108 : = (addr_tokens[0]->type == STRUCTURE_BASE
8900 : 12054 : && addr_tokens[1]->u.access_kind != ACCESS_DIRECT);
8901 : :
8902 : 12054 : if (addr_tokens[0]->u.structure_base_kind != BASE_DECL)
8903 : 1 : goto skip_decl_checks;
8904 : :
8905 : : /* For OpenMP, we can access a struct "t" and "t.d" on the same
8906 : : mapping. OpenACC allows multiple fields of the same structure
8907 : : to be written. */
8908 : 12053 : if (addr_tokens[0]->type == STRUCTURE_BASE
8909 : 12053 : && (bitmap_bit_p (&map_field_head, DECL_UID (t))
8910 : 1145 : || (!openacc && bitmap_bit_p (&map_head, DECL_UID (t)))))
8911 : 1066 : goto skip_decl_checks;
8912 : :
8913 : 10987 : if (!processing_template_decl && TREE_CODE (t) == FIELD_DECL)
8914 : : {
8915 : 0 : OMP_CLAUSE_DECL (c)
8916 : 0 : = finish_non_static_data_member (t, NULL_TREE, NULL_TREE);
8917 : 0 : break;
8918 : : }
8919 : 10987 : if (!VAR_P (t) && TREE_CODE (t) != PARM_DECL)
8920 : : {
8921 : 0 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
8922 : : break;
8923 : 0 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
8924 : 0 : && (OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_POINTER
8925 : 0 : || OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_ALWAYS_POINTER
8926 : 0 : || OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_ATTACH_DETACH
8927 : 0 : || (!openacc && EXPR_P (t))))
8928 : : break;
8929 : 0 : if (DECL_P (t))
8930 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8931 : : "%qD is not a variable in %qs clause", t,
8932 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8933 : : else
8934 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8935 : : "%qE is not a variable in %qs clause", t,
8936 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8937 : : remove = true;
8938 : : }
8939 : 10987 : else if (VAR_P (t) && CP_DECL_THREAD_LOCAL_P (t))
8940 : : {
8941 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
8942 : : "%qD is threadprivate variable in %qs clause", t,
8943 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8944 : 0 : remove = true;
8945 : : }
8946 : 10987 : else if (!processing_template_decl
8947 : 10856 : && !TYPE_REF_P (TREE_TYPE (t))
8948 : 10212 : && (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP
8949 : 7308 : || (OMP_CLAUSE_MAP_KIND (c)
8950 : : != GOMP_MAP_FIRSTPRIVATE_POINTER))
8951 : 8392 : && !indir_component_ref_p
8952 : 8034 : && (t != current_class_ptr
8953 : 18 : || OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP
8954 : 6 : || OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_ATTACH_DETACH)
8955 : 19021 : && !cxx_mark_addressable (t))
8956 : : remove = true;
8957 : 10987 : else if (!(OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
8958 : 8065 : && (OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_POINTER
8959 : 8065 : || (OMP_CLAUSE_MAP_KIND (c)
8960 : : == GOMP_MAP_FIRSTPRIVATE_POINTER)
8961 : 6245 : || (OMP_CLAUSE_MAP_KIND (c)
8962 : : == GOMP_MAP_ATTACH_DETACH)))
8963 : 8557 : && t == OMP_CLAUSE_DECL (c)
8964 : 7935 : && !type_dependent_expression_p (t)
8965 : 26857 : && !omp_mappable_type (TYPE_REF_P (TREE_TYPE (t))
8966 : 250 : ? TREE_TYPE (TREE_TYPE (t))
8967 : 7685 : : TREE_TYPE (t)))
8968 : : {
8969 : 42 : auto_diagnostic_group d;
8970 : 84 : error_at (OMP_CLAUSE_LOCATION (c),
8971 : : "%qD does not have a mappable type in %qs clause", t,
8972 : 42 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
8973 : 42 : if (TREE_TYPE (t) != error_mark_node
8974 : 42 : && !COMPLETE_TYPE_P (TREE_TYPE (t)))
8975 : 39 : cxx_incomplete_type_inform (TREE_TYPE (t));
8976 : 42 : remove = true;
8977 : 42 : }
8978 : 10945 : else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
8979 : 8029 : && OMP_CLAUSE_MAP_KIND (c) == GOMP_MAP_FORCE_DEVICEPTR
8980 : 87 : && !type_dependent_expression_p (t)
8981 : 11032 : && !INDIRECT_TYPE_P (TREE_TYPE (t)))
8982 : : {
8983 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
8984 : : "%qD is not a pointer variable", t);
8985 : 6 : remove = true;
8986 : : }
8987 : 10939 : else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
8988 : 8023 : && OMP_CLAUSE_MAP_IMPLICIT (c)
8989 : 11329 : && (bitmap_bit_p (&map_head, DECL_UID (t))
8990 : 354 : || bitmap_bit_p (&map_field_head, DECL_UID (t))
8991 : 354 : || bitmap_bit_p (&map_firstprivate_head,
8992 : 354 : DECL_UID (t))))
8993 : : remove = true;
8994 : 10900 : else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
8995 : 10900 : && (OMP_CLAUSE_MAP_KIND (c)
8996 : : == GOMP_MAP_FIRSTPRIVATE_POINTER))
8997 : : {
8998 : 1814 : if (bitmap_bit_p (&generic_head, DECL_UID (t))
8999 : 1814 : || bitmap_bit_p (&firstprivate_head, DECL_UID (t))
9000 : 3625 : || bitmap_bit_p (&map_firstprivate_head, DECL_UID (t)))
9001 : : {
9002 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
9003 : : "%qD appears more than once in data clauses", t);
9004 : 12 : remove = true;
9005 : : }
9006 : 1802 : else if (bitmap_bit_p (&map_head, DECL_UID (t))
9007 : 12 : && !bitmap_bit_p (&map_field_head, DECL_UID (t))
9008 : 1810 : && openacc)
9009 : : {
9010 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
9011 : : "%qD appears more than once in data clauses", t);
9012 : 3 : remove = true;
9013 : : }
9014 : : else
9015 : 1799 : bitmap_set_bit (&map_firstprivate_head, DECL_UID (t));
9016 : : }
9017 : 9086 : else if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
9018 : 9086 : && (OMP_CLAUSE_MAP_KIND (c)
9019 : : == GOMP_MAP_FIRSTPRIVATE_REFERENCE))
9020 : 91 : bitmap_set_bit (&map_firstprivate_head, DECL_UID (t));
9021 : 8995 : else if (bitmap_bit_p (&map_head, DECL_UID (t))
9022 : 168 : && !bitmap_bit_p (&map_field_head, DECL_UID (t))
9023 : 28 : && ort != C_ORT_OMP
9024 : 9023 : && ort != C_ORT_OMP_EXIT_DATA)
9025 : : {
9026 : 18 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP)
9027 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9028 : : "%qD appears more than once in motion clauses", t);
9029 : 18 : else if (openacc)
9030 : 9 : error_at (OMP_CLAUSE_LOCATION (c),
9031 : : "%qD appears more than once in data clauses", t);
9032 : : else
9033 : 9 : error_at (OMP_CLAUSE_LOCATION (c),
9034 : : "%qD appears more than once in map clauses", t);
9035 : : remove = true;
9036 : : }
9037 : 8977 : else if (openacc && bitmap_bit_p (&generic_head, DECL_UID (t)))
9038 : : {
9039 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9040 : : "%qD appears more than once in data clauses", t);
9041 : 0 : remove = true;
9042 : : }
9043 : 8977 : else if (bitmap_bit_p (&firstprivate_head, DECL_UID (t))
9044 : 8977 : || bitmap_bit_p (&is_on_device_head, DECL_UID (t)))
9045 : : {
9046 : 27 : if (openacc)
9047 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9048 : : "%qD appears more than once in data clauses", t);
9049 : : else
9050 : 27 : error_at (OMP_CLAUSE_LOCATION (c),
9051 : : "%qD appears both in data and map clauses", t);
9052 : : remove = true;
9053 : : }
9054 : 8950 : else if (!omp_access_chain_p (addr_tokens, 1))
9055 : : {
9056 : 8870 : bitmap_set_bit (&map_head, DECL_UID (t));
9057 : :
9058 : 8870 : tree decl = OMP_CLAUSE_DECL (c);
9059 : 8870 : if (t != decl
9060 : 8870 : && (TREE_CODE (decl) == COMPONENT_REF
9061 : 162 : || (INDIRECT_REF_P (decl)
9062 : 162 : && (TREE_CODE (TREE_OPERAND (decl, 0))
9063 : : == COMPONENT_REF)
9064 : 150 : && TYPE_REF_P (TREE_TYPE (TREE_OPERAND (decl,
9065 : : 0))))))
9066 : 1047 : bitmap_set_bit (&map_field_head, DECL_UID (t));
9067 : : }
9068 : :
9069 : 4067 : skip_decl_checks:
9070 : : /* If we call ai.expand_map_clause in handle_omp_array_sections,
9071 : : the containing loop (here) iterates through the new nodes
9072 : : created by that expansion. Avoid expanding those again (just
9073 : : by checking the node type). */
9074 : 4067 : if (!remove
9075 : 11907 : && !processing_template_decl
9076 : 11779 : && ort != C_ORT_DECLARE_SIMD
9077 : 11779 : && (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP
9078 : 8843 : || (OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_FIRSTPRIVATE_POINTER
9079 : 7044 : && (OMP_CLAUSE_MAP_KIND (c)
9080 : : != GOMP_MAP_FIRSTPRIVATE_REFERENCE)
9081 : 6953 : && OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_ALWAYS_POINTER
9082 : 6953 : && OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_ATTACH_DETACH
9083 : 6018 : && OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_ATTACH
9084 : 5965 : && OMP_CLAUSE_MAP_KIND (c) != GOMP_MAP_DETACH)))
9085 : : {
9086 : 8872 : grp_start_p = pc;
9087 : 8872 : grp_sentinel = OMP_CLAUSE_CHAIN (c);
9088 : 8872 : tree nc = ai.expand_map_clause (c, OMP_CLAUSE_DECL (c),
9089 : : addr_tokens, ort);
9090 : 8872 : if (nc != error_mark_node)
9091 : 8872 : c = nc;
9092 : : }
9093 : 18586 : }
9094 : 12054 : break;
9095 : :
9096 : 568 : case OMP_CLAUSE_ENTER:
9097 : 568 : case OMP_CLAUSE_LINK:
9098 : 568 : t = OMP_CLAUSE_DECL (c);
9099 : 568 : const char *cname;
9100 : 568 : cname = omp_clause_code_name[OMP_CLAUSE_CODE (c)];
9101 : 568 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ENTER
9102 : 568 : && OMP_CLAUSE_ENTER_TO (c))
9103 : : cname = "to";
9104 : 568 : if (TREE_CODE (t) == FUNCTION_DECL
9105 : 568 : && OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ENTER)
9106 : : ;
9107 : 364 : else if (!VAR_P (t))
9108 : : {
9109 : 12 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ENTER)
9110 : : {
9111 : 9 : if (TREE_CODE (t) == TEMPLATE_ID_EXPR)
9112 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9113 : : "template %qE in clause %qs", t, cname);
9114 : 3 : else if (really_overloaded_fn (t))
9115 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
9116 : : "overloaded function name %qE in clause %qs", t,
9117 : : cname);
9118 : : else
9119 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9120 : : "%qE is neither a variable nor a function name "
9121 : : "in clause %qs", t, cname);
9122 : : }
9123 : : else
9124 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
9125 : : "%qE is not a variable in clause %qs", t, cname);
9126 : : remove = true;
9127 : : }
9128 : 352 : else if (DECL_THREAD_LOCAL_P (t))
9129 : : {
9130 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9131 : : "%qD is threadprivate variable in %qs clause", t,
9132 : : cname);
9133 : 6 : remove = true;
9134 : : }
9135 : 346 : else if (!omp_mappable_type (TREE_TYPE (t)))
9136 : : {
9137 : 18 : auto_diagnostic_group d;
9138 : 18 : error_at (OMP_CLAUSE_LOCATION (c),
9139 : : "%qD does not have a mappable type in %qs clause", t,
9140 : : cname);
9141 : 18 : if (TREE_TYPE (t) != error_mark_node
9142 : 18 : && !COMPLETE_TYPE_P (TREE_TYPE (t)))
9143 : 18 : cxx_incomplete_type_inform (TREE_TYPE (t));
9144 : 18 : remove = true;
9145 : 18 : }
9146 : 24 : if (remove)
9147 : : break;
9148 : 532 : if (bitmap_bit_p (&generic_head, DECL_UID (t)))
9149 : : {
9150 : 24 : error_at (OMP_CLAUSE_LOCATION (c),
9151 : : "%qE appears more than once on the same "
9152 : : "%<declare target%> directive", t);
9153 : 24 : remove = true;
9154 : : }
9155 : : else
9156 : 508 : bitmap_set_bit (&generic_head, DECL_UID (t));
9157 : : break;
9158 : :
9159 : 457 : case OMP_CLAUSE_UNIFORM:
9160 : 457 : t = OMP_CLAUSE_DECL (c);
9161 : 457 : if (TREE_CODE (t) != PARM_DECL)
9162 : : {
9163 : 0 : if (processing_template_decl)
9164 : : break;
9165 : 0 : if (DECL_P (t))
9166 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9167 : : "%qD is not an argument in %<uniform%> clause", t);
9168 : : else
9169 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9170 : : "%qE is not an argument in %<uniform%> clause", t);
9171 : : remove = true;
9172 : : break;
9173 : : }
9174 : : /* map_head bitmap is used as uniform_head if declare_simd. */
9175 : 457 : bitmap_set_bit (&map_head, DECL_UID (t));
9176 : 457 : goto check_dup_generic;
9177 : :
9178 : 165 : case OMP_CLAUSE_GRAINSIZE:
9179 : 165 : t = OMP_CLAUSE_GRAINSIZE_EXPR (c);
9180 : 165 : if (t == error_mark_node)
9181 : : remove = true;
9182 : 165 : else if (!type_dependent_expression_p (t)
9183 : 165 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
9184 : : {
9185 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9186 : : "%<grainsize%> expression must be integral");
9187 : 0 : remove = true;
9188 : : }
9189 : : else
9190 : : {
9191 : 165 : t = mark_rvalue_use (t);
9192 : 165 : if (!processing_template_decl)
9193 : : {
9194 : 164 : t = maybe_constant_value (t);
9195 : 164 : if (TREE_CODE (t) == INTEGER_CST
9196 : 164 : && tree_int_cst_sgn (t) != 1)
9197 : : {
9198 : 0 : warning_at (OMP_CLAUSE_LOCATION (c), OPT_Wopenmp,
9199 : : "%<grainsize%> value must be positive");
9200 : 0 : t = integer_one_node;
9201 : : }
9202 : 164 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
9203 : : }
9204 : 165 : OMP_CLAUSE_GRAINSIZE_EXPR (c) = t;
9205 : : }
9206 : : break;
9207 : :
9208 : 273 : case OMP_CLAUSE_PRIORITY:
9209 : 273 : t = OMP_CLAUSE_PRIORITY_EXPR (c);
9210 : 273 : if (t == error_mark_node)
9211 : : remove = true;
9212 : 273 : else if (!type_dependent_expression_p (t)
9213 : 273 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
9214 : : {
9215 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9216 : : "%<priority%> expression must be integral");
9217 : 0 : remove = true;
9218 : : }
9219 : : else
9220 : : {
9221 : 273 : t = mark_rvalue_use (t);
9222 : 273 : if (!processing_template_decl)
9223 : : {
9224 : 273 : t = maybe_constant_value (t);
9225 : 273 : if (TREE_CODE (t) == INTEGER_CST
9226 : 273 : && tree_int_cst_sgn (t) == -1)
9227 : : {
9228 : 0 : warning_at (OMP_CLAUSE_LOCATION (c), OPT_Wopenmp,
9229 : : "%<priority%> value must be non-negative");
9230 : 0 : t = integer_one_node;
9231 : : }
9232 : 273 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
9233 : : }
9234 : 273 : OMP_CLAUSE_PRIORITY_EXPR (c) = t;
9235 : : }
9236 : : break;
9237 : :
9238 : 228 : case OMP_CLAUSE_HINT:
9239 : 228 : t = OMP_CLAUSE_HINT_EXPR (c);
9240 : 228 : if (t == error_mark_node)
9241 : : remove = true;
9242 : 228 : else if (!type_dependent_expression_p (t)
9243 : 228 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
9244 : : {
9245 : 9 : error_at (OMP_CLAUSE_LOCATION (c),
9246 : : "%<hint%> expression must be integral");
9247 : 9 : remove = true;
9248 : : }
9249 : : else
9250 : : {
9251 : 219 : t = mark_rvalue_use (t);
9252 : 219 : if (!processing_template_decl)
9253 : : {
9254 : 171 : t = maybe_constant_value (t);
9255 : 171 : if (TREE_CODE (t) != INTEGER_CST)
9256 : : {
9257 : 16 : error_at (OMP_CLAUSE_LOCATION (c),
9258 : : "%<hint%> expression must be constant integer "
9259 : : "expression");
9260 : 16 : remove = true;
9261 : : }
9262 : : }
9263 : 219 : OMP_CLAUSE_HINT_EXPR (c) = t;
9264 : : }
9265 : : break;
9266 : :
9267 : 183 : case OMP_CLAUSE_FILTER:
9268 : 183 : t = OMP_CLAUSE_FILTER_EXPR (c);
9269 : 183 : if (t == error_mark_node)
9270 : : remove = true;
9271 : 183 : else if (!type_dependent_expression_p (t)
9272 : 183 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
9273 : : {
9274 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9275 : : "%<filter%> expression must be integral");
9276 : 6 : remove = true;
9277 : : }
9278 : : else
9279 : : {
9280 : 177 : t = mark_rvalue_use (t);
9281 : 177 : if (!processing_template_decl)
9282 : : {
9283 : 174 : t = maybe_constant_value (t);
9284 : 174 : t = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
9285 : : }
9286 : 177 : OMP_CLAUSE_FILTER_EXPR (c) = t;
9287 : : }
9288 : : break;
9289 : :
9290 : 394 : case OMP_CLAUSE_IS_DEVICE_PTR:
9291 : 394 : case OMP_CLAUSE_USE_DEVICE_PTR:
9292 : 394 : field_ok = (ort & C_ORT_OMP_DECLARE_SIMD) == C_ORT_OMP;
9293 : 394 : t = OMP_CLAUSE_DECL (c);
9294 : 394 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IS_DEVICE_PTR)
9295 : 290 : bitmap_set_bit (&is_on_device_head, DECL_UID (t));
9296 : 394 : if (!type_dependent_expression_p (t))
9297 : : {
9298 : 392 : tree type = TREE_TYPE (t);
9299 : 392 : if (!TYPE_PTR_P (type)
9300 : 392 : && (!TYPE_REF_P (type) || !TYPE_PTR_P (TREE_TYPE (type))))
9301 : : {
9302 : 57 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_USE_DEVICE_PTR
9303 : 57 : && ort == C_ORT_OMP)
9304 : : {
9305 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
9306 : : "%qs variable is neither a pointer "
9307 : : "nor reference to pointer",
9308 : 3 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
9309 : 3 : remove = true;
9310 : : }
9311 : 54 : else if (TREE_CODE (type) != ARRAY_TYPE
9312 : 54 : && (!TYPE_REF_P (type)
9313 : 2 : || TREE_CODE (TREE_TYPE (type)) != ARRAY_TYPE))
9314 : : {
9315 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
9316 : : "%qs variable is neither a pointer, nor an "
9317 : : "array nor reference to pointer or array",
9318 : 12 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
9319 : 12 : remove = true;
9320 : : }
9321 : : }
9322 : : }
9323 : 394 : goto check_dup_generic;
9324 : :
9325 : 266 : case OMP_CLAUSE_HAS_DEVICE_ADDR:
9326 : 266 : t = OMP_CLAUSE_DECL (c);
9327 : 266 : if (TREE_CODE (t) == OMP_ARRAY_SECTION)
9328 : : {
9329 : 28 : if (handle_omp_array_sections (c, ort))
9330 : : remove = true;
9331 : : else
9332 : : {
9333 : 28 : t = OMP_CLAUSE_DECL (c);
9334 : 30 : while (TREE_CODE (t) == OMP_ARRAY_SECTION)
9335 : 2 : t = TREE_OPERAND (t, 0);
9336 : 64 : while (INDIRECT_REF_P (t)
9337 : 64 : || TREE_CODE (t) == ARRAY_REF)
9338 : 36 : t = TREE_OPERAND (t, 0);
9339 : : }
9340 : : }
9341 : 266 : if (VAR_P (t) || TREE_CODE (t) == PARM_DECL)
9342 : : {
9343 : 266 : bitmap_set_bit (&is_on_device_head, DECL_UID (t));
9344 : 266 : if (!processing_template_decl
9345 : 266 : && !cxx_mark_addressable (t))
9346 : : remove = true;
9347 : : }
9348 : 266 : goto check_dup_generic_t;
9349 : :
9350 : 76 : case OMP_CLAUSE_USE_DEVICE_ADDR:
9351 : 76 : field_ok = true;
9352 : 76 : t = OMP_CLAUSE_DECL (c);
9353 : 76 : if (!processing_template_decl
9354 : 74 : && (VAR_P (t) || TREE_CODE (t) == PARM_DECL)
9355 : 74 : && !TYPE_REF_P (TREE_TYPE (t))
9356 : 143 : && !cxx_mark_addressable (t))
9357 : : remove = true;
9358 : 76 : goto check_dup_generic;
9359 : :
9360 : : case OMP_CLAUSE_NOWAIT:
9361 : : case OMP_CLAUSE_DEFAULT:
9362 : : case OMP_CLAUSE_UNTIED:
9363 : : case OMP_CLAUSE_COLLAPSE:
9364 : : case OMP_CLAUSE_PARALLEL:
9365 : : case OMP_CLAUSE_FOR:
9366 : : case OMP_CLAUSE_SECTIONS:
9367 : : case OMP_CLAUSE_TASKGROUP:
9368 : : case OMP_CLAUSE_PROC_BIND:
9369 : : case OMP_CLAUSE_DEVICE_TYPE:
9370 : : case OMP_CLAUSE_NOGROUP:
9371 : : case OMP_CLAUSE_THREADS:
9372 : : case OMP_CLAUSE_SIMD:
9373 : : case OMP_CLAUSE_DEFAULTMAP:
9374 : : case OMP_CLAUSE_BIND:
9375 : : case OMP_CLAUSE_AUTO:
9376 : : case OMP_CLAUSE_INDEPENDENT:
9377 : : case OMP_CLAUSE_SEQ:
9378 : : case OMP_CLAUSE_IF_PRESENT:
9379 : : case OMP_CLAUSE_FINALIZE:
9380 : : case OMP_CLAUSE_NOHOST:
9381 : : case OMP_CLAUSE_INDIRECT:
9382 : : break;
9383 : :
9384 : 228 : case OMP_CLAUSE_MERGEABLE:
9385 : 228 : mergeable_seen = true;
9386 : 228 : break;
9387 : :
9388 : 313 : case OMP_CLAUSE_TILE:
9389 : 727 : for (tree list = OMP_CLAUSE_TILE_LIST (c); !remove && list;
9390 : 414 : list = TREE_CHAIN (list))
9391 : : {
9392 : 414 : t = TREE_VALUE (list);
9393 : :
9394 : 414 : if (t == error_mark_node)
9395 : : remove = true;
9396 : 385 : else if (!type_dependent_expression_p (t)
9397 : 385 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
9398 : : {
9399 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
9400 : : "%<tile%> argument needs integral type");
9401 : 3 : remove = true;
9402 : : }
9403 : : else
9404 : : {
9405 : 382 : t = mark_rvalue_use (t);
9406 : 382 : if (!processing_template_decl)
9407 : : {
9408 : : /* Zero is used to indicate '*', we permit you
9409 : : to get there via an ICE of value zero. */
9410 : 373 : t = maybe_constant_value (t);
9411 : 373 : if (!tree_fits_shwi_p (t)
9412 : 357 : || tree_to_shwi (t) < 0)
9413 : : {
9414 : 40 : error_at (OMP_CLAUSE_LOCATION (c),
9415 : : "%<tile%> argument needs positive "
9416 : : "integral constant");
9417 : 40 : remove = true;
9418 : : }
9419 : : }
9420 : : }
9421 : :
9422 : : /* Update list item. */
9423 : 414 : TREE_VALUE (list) = t;
9424 : : }
9425 : : break;
9426 : :
9427 : 1027 : case OMP_CLAUSE_SIZES:
9428 : 1027 : for (tree list = OMP_CLAUSE_SIZES_LIST (c);
9429 : 2688 : !remove && list; list = TREE_CHAIN (list))
9430 : : {
9431 : 1661 : t = TREE_VALUE (list);
9432 : :
9433 : 1661 : if (t == error_mark_node)
9434 : 0 : t = integer_one_node;
9435 : 1661 : else if (!type_dependent_expression_p (t)
9436 : 1661 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
9437 : : {
9438 : 8 : error_at (OMP_CLAUSE_LOCATION (c),
9439 : : "%<sizes%> argument needs positive integral "
9440 : : "constant");
9441 : 8 : t = integer_one_node;
9442 : : }
9443 : : else
9444 : : {
9445 : 1653 : t = mark_rvalue_use (t);
9446 : 1653 : if (!processing_template_decl)
9447 : : {
9448 : 1636 : t = maybe_constant_value (t);
9449 : 1636 : HOST_WIDE_INT n;
9450 : 1636 : if (!tree_fits_shwi_p (t)
9451 : 1632 : || !INTEGRAL_TYPE_P (TREE_TYPE (t))
9452 : 1632 : || (n = tree_to_shwi (t)) <= 0
9453 : 3240 : || (int)n != n)
9454 : : {
9455 : 32 : error_at (OMP_CLAUSE_LOCATION (c),
9456 : : "%<sizes%> argument needs positive "
9457 : : "integral constant");
9458 : 32 : t = integer_one_node;
9459 : : }
9460 : : }
9461 : : }
9462 : :
9463 : : /* Update list item. */
9464 : 1661 : TREE_VALUE (list) = t;
9465 : : }
9466 : : break;
9467 : :
9468 : 627 : case OMP_CLAUSE_ORDERED:
9469 : 627 : ordered_seen = true;
9470 : 627 : break;
9471 : :
9472 : 1546 : case OMP_CLAUSE_ORDER:
9473 : 1546 : if (order_seen)
9474 : : remove = true;
9475 : : else
9476 : : order_seen = true;
9477 : : break;
9478 : :
9479 : 638 : case OMP_CLAUSE_INBRANCH:
9480 : 638 : case OMP_CLAUSE_NOTINBRANCH:
9481 : 638 : if (branch_seen)
9482 : : {
9483 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
9484 : : "%<inbranch%> clause is incompatible with "
9485 : : "%<notinbranch%>");
9486 : 3 : remove = true;
9487 : : }
9488 : : branch_seen = true;
9489 : : break;
9490 : :
9491 : 297 : case OMP_CLAUSE_INCLUSIVE:
9492 : 297 : case OMP_CLAUSE_EXCLUSIVE:
9493 : 297 : t = omp_clause_decl_field (OMP_CLAUSE_DECL (c));
9494 : 297 : if (!t)
9495 : 297 : t = OMP_CLAUSE_DECL (c);
9496 : 297 : if (t == current_class_ptr)
9497 : : {
9498 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9499 : : "%<this%> allowed in OpenMP only in %<declare simd%>"
9500 : : " clauses");
9501 : 0 : remove = true;
9502 : 0 : break;
9503 : : }
9504 : 297 : if (!VAR_P (t)
9505 : : && TREE_CODE (t) != PARM_DECL
9506 : : && TREE_CODE (t) != FIELD_DECL)
9507 : : {
9508 : 0 : if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
9509 : : break;
9510 : 0 : if (DECL_P (t))
9511 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9512 : : "%qD is not a variable in clause %qs", t,
9513 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
9514 : : else
9515 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9516 : : "%qE is not a variable in clause %qs", t,
9517 : 0 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
9518 : : remove = true;
9519 : : }
9520 : : break;
9521 : :
9522 : : case OMP_CLAUSE_FULL:
9523 : : break;
9524 : :
9525 : 470 : case OMP_CLAUSE_PARTIAL:
9526 : 470 : partial_seen = true;
9527 : 470 : t = OMP_CLAUSE_PARTIAL_EXPR (c);
9528 : 470 : if (!t)
9529 : : break;
9530 : :
9531 : 313 : if (t == error_mark_node)
9532 : : t = NULL_TREE;
9533 : 313 : else if (!type_dependent_expression_p (t)
9534 : 313 : && !INTEGRAL_TYPE_P (TREE_TYPE (t)))
9535 : : {
9536 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
9537 : : "%<partial%> argument needs positive constant "
9538 : : "integer expression");
9539 : 3 : t = NULL_TREE;
9540 : : }
9541 : : else
9542 : : {
9543 : 310 : t = mark_rvalue_use (t);
9544 : 310 : if (!processing_template_decl)
9545 : : {
9546 : 292 : t = maybe_constant_value (t);
9547 : :
9548 : 292 : HOST_WIDE_INT n;
9549 : 584 : if (!INTEGRAL_TYPE_P (TREE_TYPE (t))
9550 : 292 : || !tree_fits_shwi_p (t)
9551 : 286 : || (n = tree_to_shwi (t)) <= 0
9552 : 560 : || (int)n != n)
9553 : : {
9554 : 24 : error_at (OMP_CLAUSE_LOCATION (c),
9555 : : "%<partial%> argument needs positive "
9556 : : "constant integer expression");
9557 : 24 : t = NULL_TREE;
9558 : : }
9559 : : }
9560 : : }
9561 : :
9562 : 313 : OMP_CLAUSE_PARTIAL_EXPR (c) = t;
9563 : 313 : break;
9564 : 537 : case OMP_CLAUSE_INIT:
9565 : 537 : init_seen = true;
9566 : 537 : cp_omp_init_prefer_type_update (c);
9567 : 537 : if (!OMP_CLAUSE_INIT_TARGETSYNC (c))
9568 : 345 : init_no_targetsync_clause = c;
9569 : : /* FALLTHRU */
9570 : 780 : case OMP_CLAUSE_DESTROY:
9571 : 780 : case OMP_CLAUSE_USE:
9572 : 780 : init_use_destroy_seen = true;
9573 : 780 : t = OMP_CLAUSE_DECL (c);
9574 : 780 : if (bitmap_bit_p (&generic_head, DECL_UID (t)))
9575 : : {
9576 : 18 : error_at (OMP_CLAUSE_LOCATION (c),
9577 : : "%qD appears more than once in action clauses", t);
9578 : 18 : remove = true;
9579 : 18 : break;
9580 : : }
9581 : 762 : bitmap_set_bit (&generic_head, DECL_UID (t));
9582 : : /* FALLTHRU */
9583 : 903 : case OMP_CLAUSE_INTEROP:
9584 : 903 : if (!processing_template_decl)
9585 : : {
9586 : 807 : if (/* (ort == C_ORT_OMP_INTEROP [uncomment for depobj init]
9587 : : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_INTEROP) && */
9588 : 807 : !c_omp_interop_t_p (TREE_TYPE (OMP_CLAUSE_DECL (c))))
9589 : : {
9590 : 114 : error_at (OMP_CLAUSE_LOCATION (c),
9591 : : "%qD must be of %<omp_interop_t%>",
9592 : 57 : OMP_CLAUSE_DECL (c));
9593 : 57 : remove = true;
9594 : : }
9595 : 750 : else if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_INIT
9596 : 312 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_DESTROY)
9597 : 840 : && TREE_READONLY (OMP_CLAUSE_DECL (c)))
9598 : : {
9599 : 36 : error_at (OMP_CLAUSE_LOCATION (c),
9600 : 18 : "%qD shall not be const", OMP_CLAUSE_DECL (c));
9601 : 18 : remove = true;
9602 : : }
9603 : : }
9604 : 903 : pc = &OMP_CLAUSE_CHAIN (c);
9605 : 903 : break;
9606 : 0 : default:
9607 : 0 : gcc_unreachable ();
9608 : : }
9609 : :
9610 : 94041 : if (remove)
9611 : : {
9612 : 2574 : if (grp_start_p)
9613 : : {
9614 : : /* If we found a clause to remove, we want to remove the whole
9615 : : expanded group, otherwise gimplify
9616 : : (omp_resolve_clause_dependencies) can get confused. */
9617 : 852 : *grp_start_p = grp_sentinel;
9618 : 852 : pc = grp_start_p;
9619 : 852 : grp_start_p = NULL;
9620 : : }
9621 : : else
9622 : 1722 : *pc = OMP_CLAUSE_CHAIN (c);
9623 : : }
9624 : : else
9625 : 91467 : pc = &OMP_CLAUSE_CHAIN (c);
9626 : : }
9627 : :
9628 : 59911 : if (reduction_seen < 0 && (ordered_seen || schedule_seen))
9629 : 59911 : reduction_seen = -2;
9630 : :
9631 : 152237 : for (pc = &clauses, c = clauses; c ; c = *pc)
9632 : : {
9633 : 92326 : enum omp_clause_code c_kind = OMP_CLAUSE_CODE (c);
9634 : 92326 : bool remove = false;
9635 : 92326 : bool need_complete_type = false;
9636 : 92326 : bool need_default_ctor = false;
9637 : 92326 : bool need_copy_ctor = false;
9638 : 92326 : bool need_copy_assignment = false;
9639 : 92326 : bool need_implicitly_determined = false;
9640 : 92326 : bool need_dtor = false;
9641 : 92326 : tree type, inner_type;
9642 : :
9643 : 92326 : switch (c_kind)
9644 : : {
9645 : : case OMP_CLAUSE_SHARED:
9646 : : need_implicitly_determined = true;
9647 : : break;
9648 : 2483 : case OMP_CLAUSE_PRIVATE:
9649 : 2483 : need_complete_type = true;
9650 : 2483 : need_default_ctor = true;
9651 : 2483 : need_dtor = true;
9652 : 2483 : need_implicitly_determined = true;
9653 : 2483 : break;
9654 : 3098 : case OMP_CLAUSE_FIRSTPRIVATE:
9655 : 3098 : need_complete_type = true;
9656 : 3098 : need_copy_ctor = true;
9657 : 3098 : need_dtor = true;
9658 : 3098 : need_implicitly_determined = true;
9659 : 3098 : break;
9660 : 2757 : case OMP_CLAUSE_LASTPRIVATE:
9661 : 2757 : need_complete_type = true;
9662 : 2757 : need_copy_assignment = true;
9663 : 2757 : need_implicitly_determined = true;
9664 : 2757 : break;
9665 : 6696 : case OMP_CLAUSE_REDUCTION:
9666 : 6696 : if (reduction_seen == -2)
9667 : 27 : OMP_CLAUSE_REDUCTION_INSCAN (c) = 0;
9668 : 6696 : if (OMP_CLAUSE_REDUCTION_INSCAN (c))
9669 : 421 : need_copy_assignment = true;
9670 : : need_implicitly_determined = true;
9671 : : break;
9672 : : case OMP_CLAUSE_IN_REDUCTION:
9673 : : case OMP_CLAUSE_TASK_REDUCTION:
9674 : : case OMP_CLAUSE_INCLUSIVE:
9675 : : case OMP_CLAUSE_EXCLUSIVE:
9676 : : need_implicitly_determined = true;
9677 : : break;
9678 : 1532 : case OMP_CLAUSE_LINEAR:
9679 : 1532 : if (ort != C_ORT_OMP_DECLARE_SIMD)
9680 : : need_implicitly_determined = true;
9681 : 661 : else if (OMP_CLAUSE_LINEAR_VARIABLE_STRIDE (c)
9682 : 703 : && !bitmap_bit_p (&map_head,
9683 : 42 : DECL_UID (OMP_CLAUSE_LINEAR_STEP (c))))
9684 : : {
9685 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9686 : : "%<linear%> clause step is a parameter %qD not "
9687 : : "specified in %<uniform%> clause",
9688 : 6 : OMP_CLAUSE_LINEAR_STEP (c));
9689 : 6 : *pc = OMP_CLAUSE_CHAIN (c);
9690 : 71598 : continue;
9691 : : }
9692 : : break;
9693 : : case OMP_CLAUSE_COPYPRIVATE:
9694 : 366 : need_copy_assignment = true;
9695 : : break;
9696 : : case OMP_CLAUSE_COPYIN:
9697 : 366 : need_copy_assignment = true;
9698 : : break;
9699 : 798 : case OMP_CLAUSE_SIMDLEN:
9700 : 798 : if (safelen
9701 : 345 : && !processing_template_decl
9702 : 1143 : && tree_int_cst_lt (OMP_CLAUSE_SAFELEN_EXPR (safelen),
9703 : 345 : OMP_CLAUSE_SIMDLEN_EXPR (c)))
9704 : : {
9705 : 0 : error_at (OMP_CLAUSE_LOCATION (c),
9706 : : "%<simdlen%> clause value is bigger than "
9707 : : "%<safelen%> clause value");
9708 : 0 : OMP_CLAUSE_SIMDLEN_EXPR (c)
9709 : 0 : = OMP_CLAUSE_SAFELEN_EXPR (safelen);
9710 : : }
9711 : 798 : pc = &OMP_CLAUSE_CHAIN (c);
9712 : 798 : continue;
9713 : 3819 : case OMP_CLAUSE_SCHEDULE:
9714 : 3819 : if (ordered_seen
9715 : 3819 : && (OMP_CLAUSE_SCHEDULE_KIND (c)
9716 : : & OMP_CLAUSE_SCHEDULE_NONMONOTONIC))
9717 : : {
9718 : 21 : error_at (OMP_CLAUSE_LOCATION (c),
9719 : : "%<nonmonotonic%> schedule modifier specified "
9720 : : "together with %<ordered%> clause");
9721 : 42 : OMP_CLAUSE_SCHEDULE_KIND (c)
9722 : 21 : = (enum omp_clause_schedule_kind)
9723 : 21 : (OMP_CLAUSE_SCHEDULE_KIND (c)
9724 : : & ~OMP_CLAUSE_SCHEDULE_NONMONOTONIC);
9725 : : }
9726 : 3819 : if (reduction_seen == -2)
9727 : 9 : error_at (OMP_CLAUSE_LOCATION (c),
9728 : : "%qs clause specified together with %<inscan%> "
9729 : : "%<reduction%> clause", "schedule");
9730 : 3819 : pc = &OMP_CLAUSE_CHAIN (c);
9731 : 3819 : continue;
9732 : 51 : case OMP_CLAUSE_NOGROUP:
9733 : 51 : if (reduction_seen)
9734 : : {
9735 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
9736 : : "%<nogroup%> clause must not be used together with "
9737 : : "%<reduction%> clause");
9738 : 3 : *pc = OMP_CLAUSE_CHAIN (c);
9739 : 3 : continue;
9740 : : }
9741 : 48 : pc = &OMP_CLAUSE_CHAIN (c);
9742 : 48 : continue;
9743 : 165 : case OMP_CLAUSE_GRAINSIZE:
9744 : 165 : if (num_tasks_seen)
9745 : : {
9746 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9747 : : "%<grainsize%> clause must not be used together with "
9748 : : "%<num_tasks%> clause");
9749 : 6 : *pc = OMP_CLAUSE_CHAIN (c);
9750 : 6 : continue;
9751 : : }
9752 : 159 : pc = &OMP_CLAUSE_CHAIN (c);
9753 : 159 : continue;
9754 : 627 : case OMP_CLAUSE_ORDERED:
9755 : 627 : if (reduction_seen == -2)
9756 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9757 : : "%qs clause specified together with %<inscan%> "
9758 : : "%<reduction%> clause", "ordered");
9759 : 627 : pc = &OMP_CLAUSE_CHAIN (c);
9760 : 627 : continue;
9761 : 1522 : case OMP_CLAUSE_ORDER:
9762 : 1522 : if (ordered_seen)
9763 : : {
9764 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
9765 : : "%<order%> clause must not be used together "
9766 : : "with %<ordered%> clause");
9767 : 12 : *pc = OMP_CLAUSE_CHAIN (c);
9768 : 12 : continue;
9769 : : }
9770 : 1510 : pc = &OMP_CLAUSE_CHAIN (c);
9771 : 1510 : continue;
9772 : 57 : case OMP_CLAUSE_DETACH:
9773 : 57 : if (mergeable_seen)
9774 : : {
9775 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9776 : : "%<detach%> clause must not be used together with "
9777 : : "%<mergeable%> clause");
9778 : 6 : *pc = OMP_CLAUSE_CHAIN (c);
9779 : 6 : continue;
9780 : : }
9781 : 51 : pc = &OMP_CLAUSE_CHAIN (c);
9782 : 51 : continue;
9783 : 14456 : case OMP_CLAUSE_MAP:
9784 : 14456 : if (target_in_reduction_seen && !processing_template_decl)
9785 : : {
9786 : 684 : t = OMP_CLAUSE_DECL (c);
9787 : 684 : while (handled_component_p (t)
9788 : : || INDIRECT_REF_P (t)
9789 : : || TREE_CODE (t) == ADDR_EXPR
9790 : : || TREE_CODE (t) == MEM_REF
9791 : 804 : || TREE_CODE (t) == NON_LVALUE_EXPR)
9792 : 120 : t = TREE_OPERAND (t, 0);
9793 : 684 : if (DECL_P (t)
9794 : 684 : && bitmap_bit_p (&oacc_reduction_head, DECL_UID (t)))
9795 : 342 : OMP_CLAUSE_MAP_IN_REDUCTION (c) = 1;
9796 : : }
9797 : 14456 : pc = &OMP_CLAUSE_CHAIN (c);
9798 : 14456 : continue;
9799 : 225 : case OMP_CLAUSE_FULL:
9800 : 225 : if (partial_seen)
9801 : : {
9802 : 12 : error_at (OMP_CLAUSE_LOCATION (c),
9803 : : "%<full%> clause must not be used together "
9804 : : "with %<partial%> clause");
9805 : 12 : *pc = OMP_CLAUSE_CHAIN (c);
9806 : 12 : continue;
9807 : : }
9808 : 213 : pc = &OMP_CLAUSE_CHAIN (c);
9809 : 213 : continue;
9810 : 6727 : case OMP_CLAUSE_NOWAIT:
9811 : 6727 : if (copyprivate_seen)
9812 : : {
9813 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9814 : : "%<nowait%> clause must not be used together "
9815 : : "with %<copyprivate%> clause");
9816 : 6 : *pc = OMP_CLAUSE_CHAIN (c);
9817 : 6 : continue;
9818 : : }
9819 : : /* FALLTHRU */
9820 : 49180 : default:
9821 : 49180 : pc = &OMP_CLAUSE_CHAIN (c);
9822 : 49180 : continue;
9823 : : }
9824 : :
9825 : 21414 : t = OMP_CLAUSE_DECL (c);
9826 : 21414 : switch (c_kind)
9827 : : {
9828 : 2757 : case OMP_CLAUSE_LASTPRIVATE:
9829 : 2757 : if (DECL_P (t)
9830 : 2757 : && !bitmap_bit_p (&firstprivate_head, DECL_UID (t)))
9831 : : {
9832 : 2660 : need_default_ctor = true;
9833 : 2660 : need_dtor = true;
9834 : : }
9835 : : break;
9836 : :
9837 : 8832 : case OMP_CLAUSE_REDUCTION:
9838 : 8832 : case OMP_CLAUSE_IN_REDUCTION:
9839 : 8832 : case OMP_CLAUSE_TASK_REDUCTION:
9840 : 8832 : if (allocate_seen)
9841 : : {
9842 : 1711 : if (TREE_CODE (t) == MEM_REF)
9843 : : {
9844 : 222 : t = TREE_OPERAND (t, 0);
9845 : 222 : if (TREE_CODE (t) == POINTER_PLUS_EXPR)
9846 : 0 : t = TREE_OPERAND (t, 0);
9847 : 222 : if (TREE_CODE (t) == ADDR_EXPR
9848 : 168 : || INDIRECT_REF_P (t))
9849 : 110 : t = TREE_OPERAND (t, 0);
9850 : 222 : if (DECL_P (t))
9851 : 222 : bitmap_clear_bit (&aligned_head, DECL_UID (t));
9852 : : }
9853 : 1489 : else if (TREE_CODE (t) == OMP_ARRAY_SECTION)
9854 : : {
9855 : 288 : while (TREE_CODE (t) == OMP_ARRAY_SECTION)
9856 : 144 : t = TREE_OPERAND (t, 0);
9857 : 144 : if (DECL_P (t))
9858 : 144 : bitmap_clear_bit (&aligned_head, DECL_UID (t));
9859 : 144 : t = OMP_CLAUSE_DECL (c);
9860 : : }
9861 : 1345 : else if (DECL_P (t))
9862 : 1345 : bitmap_clear_bit (&aligned_head, DECL_UID (t));
9863 : 1711 : t = OMP_CLAUSE_DECL (c);
9864 : : }
9865 : 8832 : if (processing_template_decl
9866 : 922 : && !VAR_P (t) && TREE_CODE (t) != PARM_DECL)
9867 : : break;
9868 : 8214 : if (finish_omp_reduction_clause (c, &need_default_ctor,
9869 : : &need_dtor))
9870 : : remove = true;
9871 : : else
9872 : 8130 : t = OMP_CLAUSE_DECL (c);
9873 : : break;
9874 : :
9875 : 274 : case OMP_CLAUSE_COPYIN:
9876 : 274 : if (processing_template_decl
9877 : 0 : && !VAR_P (t) && TREE_CODE (t) != PARM_DECL)
9878 : : break;
9879 : 274 : if (!VAR_P (t) || !CP_DECL_THREAD_LOCAL_P (t))
9880 : : {
9881 : 15 : error_at (OMP_CLAUSE_LOCATION (c),
9882 : : "%qE must be %<threadprivate%> for %<copyin%>", t);
9883 : 15 : remove = true;
9884 : : }
9885 : : break;
9886 : :
9887 : : default:
9888 : : break;
9889 : : }
9890 : :
9891 : 21414 : if (processing_template_decl
9892 : 1597 : && !VAR_P (t) && TREE_CODE (t) != PARM_DECL)
9893 : : {
9894 : 680 : pc = &OMP_CLAUSE_CHAIN (c);
9895 : 680 : continue;
9896 : : }
9897 : :
9898 : 20734 : if (need_complete_type || need_copy_assignment)
9899 : : {
9900 : 9069 : t = require_complete_type (t);
9901 : 9069 : if (t == error_mark_node)
9902 : : remove = true;
9903 : 9045 : else if (!processing_template_decl
9904 : 8662 : && TYPE_REF_P (TREE_TYPE (t))
9905 : 9573 : && !complete_type_or_else (TREE_TYPE (TREE_TYPE (t)), t))
9906 : : remove = true;
9907 : : }
9908 : 20734 : if (need_implicitly_determined)
9909 : : {
9910 : 19714 : const char *share_name = NULL;
9911 : :
9912 : 19714 : if (allocate_seen
9913 : 5047 : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_SHARED
9914 : 23882 : && DECL_P (t))
9915 : 3883 : bitmap_clear_bit (&aligned_head, DECL_UID (t));
9916 : :
9917 : 19714 : if (VAR_P (t) && CP_DECL_THREAD_LOCAL_P (t))
9918 : : share_name = "threadprivate";
9919 : 19672 : else switch (cxx_omp_predetermined_sharing_1 (t))
9920 : : {
9921 : : case OMP_CLAUSE_DEFAULT_UNSPECIFIED:
9922 : : break;
9923 : 47 : case OMP_CLAUSE_DEFAULT_SHARED:
9924 : 47 : if ((OMP_CLAUSE_CODE (c) == OMP_CLAUSE_SHARED
9925 : 30 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_FIRSTPRIVATE)
9926 : 64 : && c_omp_predefined_variable (t))
9927 : : /* The __func__ variable and similar function-local predefined
9928 : : variables may be listed in a shared or firstprivate
9929 : : clause. */
9930 : : break;
9931 : 31 : if (VAR_P (t)
9932 : 31 : && OMP_CLAUSE_CODE (c) == OMP_CLAUSE_FIRSTPRIVATE
9933 : 9 : && TREE_STATIC (t)
9934 : 40 : && cxx_omp_const_qual_no_mutable (t))
9935 : : {
9936 : 6 : tree ctx = CP_DECL_CONTEXT (t);
9937 : : /* const qualified static data members without mutable
9938 : : member may be specified in firstprivate clause. */
9939 : 6 : if (TYPE_P (ctx) && MAYBE_CLASS_TYPE_P (ctx))
9940 : : break;
9941 : : }
9942 : : share_name = "shared";
9943 : : break;
9944 : : case OMP_CLAUSE_DEFAULT_PRIVATE:
9945 : : share_name = "private";
9946 : : break;
9947 : 0 : default:
9948 : 0 : gcc_unreachable ();
9949 : : }
9950 : : if (share_name)
9951 : : {
9952 : 67 : error_at (OMP_CLAUSE_LOCATION (c),
9953 : : "%qE is predetermined %qs for %qs",
9954 : : omp_clause_printable_decl (t), share_name,
9955 : 67 : omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
9956 : 67 : remove = true;
9957 : : }
9958 : 19647 : else if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_SHARED
9959 : 17606 : && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_FIRSTPRIVATE
9960 : 34184 : && cxx_omp_const_qual_no_mutable (t))
9961 : : {
9962 : 126 : error_at (OMP_CLAUSE_LOCATION (c),
9963 : : "%<const%> qualified %qE without %<mutable%> member "
9964 : : "may appear only in %<shared%> or %<firstprivate%> "
9965 : : "clauses", omp_clause_printable_decl (t));
9966 : 63 : remove = true;
9967 : : }
9968 : : }
9969 : :
9970 : 20734 : if (detach_seen
9971 : 16 : && (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_SHARED
9972 : 10 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_PRIVATE
9973 : 10 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_FIRSTPRIVATE
9974 : 0 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_LASTPRIVATE)
9975 : 20750 : && OMP_CLAUSE_DECL (c) == OMP_CLAUSE_DECL (detach_seen))
9976 : : {
9977 : 6 : error_at (OMP_CLAUSE_LOCATION (c),
9978 : : "the event handle of a %<detach%> clause "
9979 : : "should not be in a data-sharing clause");
9980 : 6 : remove = true;
9981 : : }
9982 : :
9983 : : /* We're interested in the base element, not arrays. */
9984 : 20734 : inner_type = type = TREE_TYPE (t);
9985 : 20734 : if ((need_complete_type
9986 : : || need_copy_assignment
9987 : 11665 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_REDUCTION
9988 : 5669 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_IN_REDUCTION
9989 : 4199 : || OMP_CLAUSE_CODE (c) == OMP_CLAUSE_TASK_REDUCTION)
9990 : 28527 : && TYPE_REF_P (inner_type))
9991 : 871 : inner_type = TREE_TYPE (inner_type);
9992 : 23353 : while (TREE_CODE (inner_type) == ARRAY_TYPE)
9993 : 2619 : inner_type = TREE_TYPE (inner_type);
9994 : :
9995 : : /* Check for special function availability by building a call to one.
9996 : : Save the results, because later we won't be in the right context
9997 : : for making these queries. */
9998 : 2378 : if (CLASS_TYPE_P (inner_type)
9999 : 2378 : && COMPLETE_TYPE_P (inner_type)
10000 : 2312 : && (need_default_ctor || need_copy_ctor
10001 : 1076 : || need_copy_assignment || need_dtor)
10002 : 1988 : && !type_dependent_expression_p (t)
10003 : 22722 : && cxx_omp_create_clause_info (c, inner_type, need_default_ctor,
10004 : : need_copy_ctor, need_copy_assignment,
10005 : : need_dtor))
10006 : : remove = true;
10007 : :
10008 : 20734 : if (!remove
10009 : 20734 : && c_kind == OMP_CLAUSE_SHARED
10010 : 2038 : && processing_template_decl)
10011 : : {
10012 : 119 : t = omp_clause_decl_field (OMP_CLAUSE_DECL (c));
10013 : 119 : if (t)
10014 : 5 : OMP_CLAUSE_DECL (c) = t;
10015 : : }
10016 : :
10017 : 20734 : if (remove)
10018 : 292 : *pc = OMP_CLAUSE_CHAIN (c);
10019 : : else
10020 : 20442 : pc = &OMP_CLAUSE_CHAIN (c);
10021 : : }
10022 : :
10023 : 59911 : if (allocate_seen)
10024 : 17255 : for (pc = &clauses, c = clauses; c ; c = *pc)
10025 : : {
10026 : 14799 : bool remove = false;
10027 : 14799 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_ALLOCATE
10028 : 2694 : && !OMP_CLAUSE_ALLOCATE_COMBINED (c)
10029 : 2245 : && DECL_P (OMP_CLAUSE_DECL (c))
10030 : 17044 : && bitmap_bit_p (&aligned_head, DECL_UID (OMP_CLAUSE_DECL (c))))
10031 : : {
10032 : 15 : error_at (OMP_CLAUSE_LOCATION (c),
10033 : : "%qD specified in %<allocate%> clause but not in "
10034 : 15 : "an explicit privatization clause", OMP_CLAUSE_DECL (c));
10035 : 15 : remove = true;
10036 : : }
10037 : 14799 : if (remove)
10038 : 15 : *pc = OMP_CLAUSE_CHAIN (c);
10039 : : else
10040 : 14784 : pc = &OMP_CLAUSE_CHAIN (c);
10041 : : }
10042 : :
10043 : 59911 : if (ort == C_ORT_OMP_INTEROP
10044 : 59911 : && depend_clause
10045 : 48 : && (!init_use_destroy_seen
10046 : 45 : || (init_seen && init_no_targetsync_clause)))
10047 : : {
10048 : 9 : error_at (OMP_CLAUSE_LOCATION (depend_clause),
10049 : : "%<depend%> clause requires action clauses with "
10050 : : "%<targetsync%> interop-type");
10051 : 9 : if (init_no_targetsync_clause)
10052 : 6 : inform (OMP_CLAUSE_LOCATION (init_no_targetsync_clause),
10053 : : "%<init%> clause lacks the %<targetsync%> modifier");
10054 : : }
10055 : :
10056 : 59911 : bitmap_obstack_release (NULL);
10057 : 59911 : return clauses;
10058 : : }
10059 : :
10060 : : /* Start processing OpenMP clauses that can include any
10061 : : privatization clauses for non-static data members. */
10062 : :
10063 : : tree
10064 : 46223 : push_omp_privatization_clauses (bool ignore_next)
10065 : : {
10066 : 46223 : if (omp_private_member_ignore_next)
10067 : : {
10068 : 708 : omp_private_member_ignore_next = ignore_next;
10069 : 708 : return NULL_TREE;
10070 : : }
10071 : 45515 : omp_private_member_ignore_next = ignore_next;
10072 : 45515 : if (omp_private_member_map)
10073 : 24 : omp_private_member_vec.safe_push (error_mark_node);
10074 : 45515 : return push_stmt_list ();
10075 : : }
10076 : :
10077 : : /* Revert remapping of any non-static data members since
10078 : : the last push_omp_privatization_clauses () call. */
10079 : :
10080 : : void
10081 : 46217 : pop_omp_privatization_clauses (tree stmt)
10082 : : {
10083 : 46217 : if (stmt == NULL_TREE)
10084 : : return;
10085 : 45509 : stmt = pop_stmt_list (stmt);
10086 : 45509 : if (omp_private_member_map)
10087 : : {
10088 : 1271 : while (!omp_private_member_vec.is_empty ())
10089 : : {
10090 : 844 : tree t = omp_private_member_vec.pop ();
10091 : 844 : if (t == error_mark_node)
10092 : : {
10093 : 24 : add_stmt (stmt);
10094 : 24 : return;
10095 : : }
10096 : 820 : bool no_decl_expr = t == integer_zero_node;
10097 : 820 : if (no_decl_expr)
10098 : 136 : t = omp_private_member_vec.pop ();
10099 : 820 : tree *v = omp_private_member_map->get (t);
10100 : 820 : gcc_assert (v);
10101 : 820 : if (!no_decl_expr)
10102 : 684 : add_decl_expr (*v);
10103 : 820 : omp_private_member_map->remove (t);
10104 : : }
10105 : 854 : delete omp_private_member_map;
10106 : 427 : omp_private_member_map = NULL;
10107 : : }
10108 : 45485 : add_stmt (stmt);
10109 : : }
10110 : :
10111 : : /* Remember OpenMP privatization clauses mapping and clear it.
10112 : : Used for lambdas. */
10113 : :
10114 : : void
10115 : 7309602 : save_omp_privatization_clauses (vec<tree> &save)
10116 : : {
10117 : 7309602 : save = vNULL;
10118 : 7309602 : if (omp_private_member_ignore_next)
10119 : 2 : save.safe_push (integer_one_node);
10120 : 7309602 : omp_private_member_ignore_next = false;
10121 : 7309602 : if (!omp_private_member_map)
10122 : : return;
10123 : :
10124 : 0 : while (!omp_private_member_vec.is_empty ())
10125 : : {
10126 : 0 : tree t = omp_private_member_vec.pop ();
10127 : 0 : if (t == error_mark_node)
10128 : : {
10129 : 0 : save.safe_push (t);
10130 : 0 : continue;
10131 : : }
10132 : 0 : tree n = t;
10133 : 0 : if (t == integer_zero_node)
10134 : 0 : t = omp_private_member_vec.pop ();
10135 : 0 : tree *v = omp_private_member_map->get (t);
10136 : 0 : gcc_assert (v);
10137 : 0 : save.safe_push (*v);
10138 : 0 : save.safe_push (t);
10139 : 0 : if (n != t)
10140 : 0 : save.safe_push (n);
10141 : : }
10142 : 0 : delete omp_private_member_map;
10143 : 0 : omp_private_member_map = NULL;
10144 : : }
10145 : :
10146 : : /* Restore OpenMP privatization clauses mapping saved by the
10147 : : above function. */
10148 : :
10149 : : void
10150 : 7309602 : restore_omp_privatization_clauses (vec<tree> &save)
10151 : : {
10152 : 7309602 : gcc_assert (omp_private_member_vec.is_empty ());
10153 : 7309602 : omp_private_member_ignore_next = false;
10154 : 7309602 : if (save.is_empty ())
10155 : : return;
10156 : 4 : if (save.length () == 1 && save[0] == integer_one_node)
10157 : : {
10158 : 2 : omp_private_member_ignore_next = true;
10159 : 2 : save.release ();
10160 : 2 : return;
10161 : : }
10162 : :
10163 : 0 : omp_private_member_map = new hash_map <tree, tree>;
10164 : 0 : while (!save.is_empty ())
10165 : : {
10166 : 0 : tree t = save.pop ();
10167 : 0 : tree n = t;
10168 : 0 : if (t != error_mark_node)
10169 : : {
10170 : 0 : if (t == integer_one_node)
10171 : : {
10172 : 0 : omp_private_member_ignore_next = true;
10173 : 0 : gcc_assert (save.is_empty ());
10174 : 0 : break;
10175 : : }
10176 : 0 : if (t == integer_zero_node)
10177 : 0 : t = save.pop ();
10178 : 0 : tree &v = omp_private_member_map->get_or_insert (t);
10179 : 0 : v = save.pop ();
10180 : : }
10181 : 0 : omp_private_member_vec.safe_push (t);
10182 : 0 : if (n != t)
10183 : 0 : omp_private_member_vec.safe_push (n);
10184 : : }
10185 : 0 : save.release ();
10186 : : }
10187 : :
10188 : : /* For all variables in the tree_list VARS, mark them as thread local. */
10189 : :
10190 : : void
10191 : 238 : finish_omp_threadprivate (tree vars)
10192 : : {
10193 : 238 : tree t;
10194 : :
10195 : : /* Mark every variable in VARS to be assigned thread local storage. */
10196 : 506 : for (t = vars; t; t = TREE_CHAIN (t))
10197 : : {
10198 : 268 : tree v = TREE_PURPOSE (t);
10199 : :
10200 : 268 : if (error_operand_p (v))
10201 : : ;
10202 : 268 : else if (!VAR_P (v))
10203 : 6 : error ("%<threadprivate%> %qD is not file, namespace "
10204 : : "or block scope variable", v);
10205 : : /* If V had already been marked threadprivate, it doesn't matter
10206 : : whether it had been used prior to this point. */
10207 : 262 : else if (TREE_USED (v)
10208 : 262 : && (DECL_LANG_SPECIFIC (v) == NULL
10209 : 0 : || !CP_DECL_THREADPRIVATE_P (v)))
10210 : 3 : error ("%qE declared %<threadprivate%> after first use", v);
10211 : 259 : else if (! TREE_STATIC (v) && ! DECL_EXTERNAL (v))
10212 : 3 : error ("automatic variable %qE cannot be %<threadprivate%>", v);
10213 : 256 : else if (! COMPLETE_TYPE_P (complete_type (TREE_TYPE (v))))
10214 : 3 : error ("%<threadprivate%> %qE has incomplete type", v);
10215 : 204 : else if (TREE_STATIC (v) && TYPE_P (CP_DECL_CONTEXT (v))
10216 : 276 : && CP_DECL_CONTEXT (v) != current_class_type)
10217 : 6 : error ("%<threadprivate%> %qE directive not "
10218 : 6 : "in %qT definition", v, CP_DECL_CONTEXT (v));
10219 : : else
10220 : : {
10221 : : /* Allocate a LANG_SPECIFIC structure for V, if needed. */
10222 : 247 : if (DECL_LANG_SPECIFIC (v) == NULL)
10223 : 203 : retrofit_lang_decl (v);
10224 : :
10225 : 247 : if (! CP_DECL_THREAD_LOCAL_P (v))
10226 : : {
10227 : 247 : CP_DECL_THREAD_LOCAL_P (v) = true;
10228 : 247 : set_decl_tls_model (v, decl_default_tls_model (v));
10229 : : /* If rtl has been already set for this var, call
10230 : : make_decl_rtl once again, so that encode_section_info
10231 : : has a chance to look at the new decl flags. */
10232 : 247 : if (DECL_RTL_SET_P (v))
10233 : 0 : make_decl_rtl (v);
10234 : : }
10235 : 247 : CP_DECL_THREADPRIVATE_P (v) = 1;
10236 : : }
10237 : : }
10238 : 238 : }
10239 : :
10240 : : /* Build an OpenMP structured block. */
10241 : :
10242 : : tree
10243 : 61083 : begin_omp_structured_block (void)
10244 : : {
10245 : 61083 : return do_pushlevel (sk_omp);
10246 : : }
10247 : :
10248 : : tree
10249 : 61080 : finish_omp_structured_block (tree block)
10250 : : {
10251 : 61080 : return do_poplevel (block);
10252 : : }
10253 : :
10254 : : /* Similarly, except force the retention of the BLOCK. */
10255 : :
10256 : : tree
10257 : 14038 : begin_omp_parallel (void)
10258 : : {
10259 : 14038 : keep_next_level (true);
10260 : 14038 : return begin_omp_structured_block ();
10261 : : }
10262 : :
10263 : : /* Generate OACC_DATA, with CLAUSES and BLOCK as its compound
10264 : : statement. */
10265 : :
10266 : : tree
10267 : 675 : finish_oacc_data (tree clauses, tree block)
10268 : : {
10269 : 675 : tree stmt;
10270 : :
10271 : 675 : block = finish_omp_structured_block (block);
10272 : :
10273 : 675 : stmt = make_node (OACC_DATA);
10274 : 675 : TREE_TYPE (stmt) = void_type_node;
10275 : 675 : OACC_DATA_CLAUSES (stmt) = clauses;
10276 : 675 : OACC_DATA_BODY (stmt) = block;
10277 : :
10278 : 675 : return add_stmt (stmt);
10279 : : }
10280 : :
10281 : : /* Generate OACC_HOST_DATA, with CLAUSES and BLOCK as its compound
10282 : : statement. */
10283 : :
10284 : : tree
10285 : 55 : finish_oacc_host_data (tree clauses, tree block)
10286 : : {
10287 : 55 : tree stmt;
10288 : :
10289 : 55 : block = finish_omp_structured_block (block);
10290 : :
10291 : 55 : stmt = make_node (OACC_HOST_DATA);
10292 : 55 : TREE_TYPE (stmt) = void_type_node;
10293 : 55 : OACC_HOST_DATA_CLAUSES (stmt) = clauses;
10294 : 55 : OACC_HOST_DATA_BODY (stmt) = block;
10295 : :
10296 : 55 : return add_stmt (stmt);
10297 : : }
10298 : :
10299 : : /* Generate OMP construct CODE, with BODY and CLAUSES as its compound
10300 : : statement. */
10301 : :
10302 : : tree
10303 : 4170 : finish_omp_construct (enum tree_code code, tree body, tree clauses)
10304 : : {
10305 : 4170 : body = finish_omp_structured_block (body);
10306 : :
10307 : 4170 : tree stmt = make_node (code);
10308 : 4170 : TREE_TYPE (stmt) = void_type_node;
10309 : 4170 : OMP_BODY (stmt) = body;
10310 : 4170 : OMP_CLAUSES (stmt) = clauses;
10311 : :
10312 : 4170 : return add_stmt (stmt);
10313 : : }
10314 : :
10315 : : /* Used to walk OpenMP target directive body. */
10316 : :
10317 : : struct omp_target_walk_data
10318 : : {
10319 : : /* Holds the 'this' expression found in current function. */
10320 : : tree current_object;
10321 : :
10322 : : /* True if the 'this' expression was accessed in the target body. */
10323 : : bool this_expr_accessed;
10324 : :
10325 : : /* For non-static functions, record which pointer-typed members were
10326 : : accessed, and the whole expression. */
10327 : : hash_map<tree, tree> ptr_members_accessed;
10328 : :
10329 : : /* Record which lambda objects were accessed in target body. */
10330 : : hash_set<tree> lambda_objects_accessed;
10331 : :
10332 : : /* For lambda functions, the __closure object expression of the current
10333 : : function, and the set of captured variables accessed in target body. */
10334 : : tree current_closure;
10335 : : hash_set<tree> closure_vars_accessed;
10336 : :
10337 : : /* Local variables declared inside a BIND_EXPR, used to filter out such
10338 : : variables when recording lambda_objects_accessed. */
10339 : : hash_set<tree> local_decls;
10340 : : };
10341 : :
10342 : : /* Helper function of finish_omp_target_clauses, called via
10343 : : cp_walk_tree_without_duplicates. Traverse body of OpenMP target
10344 : : directive *TP, and fill out omp_target_walk_data passed in *PTR. */
10345 : :
10346 : : static tree
10347 : 194931 : finish_omp_target_clauses_r (tree *tp, int *walk_subtrees, void *ptr)
10348 : : {
10349 : 194931 : tree t = *tp;
10350 : 194931 : struct omp_target_walk_data *data = (struct omp_target_walk_data *) ptr;
10351 : 194931 : tree current_object = data->current_object;
10352 : 194931 : tree current_closure = data->current_closure;
10353 : :
10354 : : /* References inside of these expression codes shouldn't incur any
10355 : : form of mapping, so return early. */
10356 : 194931 : if (TREE_CODE (t) == SIZEOF_EXPR
10357 : 194924 : || TREE_CODE (t) == ALIGNOF_EXPR)
10358 : : {
10359 : 7 : *walk_subtrees = 0;
10360 : 7 : return NULL_TREE;
10361 : : }
10362 : :
10363 : 194924 : if (TREE_CODE (t) == OMP_CLAUSE)
10364 : : return NULL_TREE;
10365 : :
10366 : 182448 : if (current_object)
10367 : : {
10368 : 2307 : tree this_expr = TREE_OPERAND (current_object, 0);
10369 : :
10370 : 2307 : if (operand_equal_p (t, this_expr))
10371 : : {
10372 : 33 : data->this_expr_accessed = true;
10373 : 33 : *walk_subtrees = 0;
10374 : 33 : return NULL_TREE;
10375 : : }
10376 : :
10377 : 2274 : if (TREE_CODE (t) == COMPONENT_REF
10378 : 107 : && POINTER_TYPE_P (TREE_TYPE (t))
10379 : 34 : && operand_equal_p (TREE_OPERAND (t, 0), current_object)
10380 : 2308 : && TREE_CODE (TREE_OPERAND (t, 1)) == FIELD_DECL)
10381 : : {
10382 : 34 : data->this_expr_accessed = true;
10383 : 34 : tree fld = TREE_OPERAND (t, 1);
10384 : 34 : if (data->ptr_members_accessed.get (fld) == NULL)
10385 : : {
10386 : 14 : if (TREE_CODE (TREE_TYPE (t)) == REFERENCE_TYPE)
10387 : 4 : t = convert_from_reference (t);
10388 : 14 : data->ptr_members_accessed.put (fld, t);
10389 : : }
10390 : 34 : *walk_subtrees = 0;
10391 : 34 : return NULL_TREE;
10392 : : }
10393 : : }
10394 : :
10395 : : /* When the current_function_decl is a lambda function, the closure object
10396 : : argument's type seems to not yet have fields layed out, so a recording
10397 : : of DECL_VALUE_EXPRs during the target body walk seems the only way to
10398 : : find them. */
10399 : 182381 : if (current_closure
10400 : 300 : && (VAR_P (t)
10401 : : || TREE_CODE (t) == PARM_DECL
10402 : : || TREE_CODE (t) == RESULT_DECL)
10403 : 24 : && DECL_HAS_VALUE_EXPR_P (t)
10404 : 10 : && TREE_CODE (DECL_VALUE_EXPR (t)) == COMPONENT_REF
10405 : 182391 : && operand_equal_p (current_closure,
10406 : 10 : TREE_OPERAND (DECL_VALUE_EXPR (t), 0)))
10407 : : {
10408 : 9 : if (!data->closure_vars_accessed.contains (t))
10409 : 9 : data->closure_vars_accessed.add (t);
10410 : 9 : *walk_subtrees = 0;
10411 : 9 : return NULL_TREE;
10412 : : }
10413 : :
10414 : 182372 : if (TREE_CODE (t) == BIND_EXPR)
10415 : : {
10416 : 18376 : tree block = BIND_EXPR_BLOCK (t);
10417 : 20105 : for (tree var = BLOCK_VARS (block); var; var = DECL_CHAIN (var))
10418 : 1729 : if (!data->local_decls.contains (var))
10419 : 1729 : data->local_decls.add (var);
10420 : 18376 : return NULL_TREE;
10421 : : }
10422 : :
10423 : 166632 : if (TREE_TYPE (t) && LAMBDA_TYPE_P (TREE_TYPE (t)))
10424 : : {
10425 : 17 : tree lt = TREE_TYPE (t);
10426 : 17 : gcc_assert (CLASS_TYPE_P (lt));
10427 : :
10428 : 17 : if (!data->lambda_objects_accessed.contains (t)
10429 : : /* Do not prepare to create target maps for locally declared
10430 : : lambdas or anonymous ones. */
10431 : 17 : && !data->local_decls.contains (t)
10432 : 32 : && TREE_CODE (t) != TARGET_EXPR)
10433 : 4 : data->lambda_objects_accessed.add (t);
10434 : 17 : *walk_subtrees = 0;
10435 : 17 : return NULL_TREE;
10436 : : }
10437 : :
10438 : : return NULL_TREE;
10439 : : }
10440 : :
10441 : : /* Helper function for finish_omp_target, and also from tsubst_expr.
10442 : : Create additional clauses for mapping of non-static members, lambda objects,
10443 : : etc. */
10444 : :
10445 : : void
10446 : 6218 : finish_omp_target_clauses (location_t loc, tree body, tree *clauses_ptr)
10447 : : {
10448 : 6218 : omp_target_walk_data data;
10449 : 6218 : data.this_expr_accessed = false;
10450 : 6218 : data.current_object = NULL_TREE;
10451 : :
10452 : 6218 : if (DECL_NONSTATIC_MEMBER_P (current_function_decl) && current_class_ptr)
10453 : 92 : if (tree ct = current_nonlambda_class_type ())
10454 : : {
10455 : 91 : tree object = maybe_dummy_object (ct, NULL);
10456 : 91 : object = maybe_resolve_dummy (object, true);
10457 : 91 : data.current_object = object;
10458 : : }
10459 : :
10460 : 6218 : if (DECL_LAMBDA_FUNCTION_P (current_function_decl))
10461 : : {
10462 : 8 : tree closure = DECL_ARGUMENTS (current_function_decl);
10463 : 8 : data.current_closure = build_indirect_ref (loc, closure, RO_UNARY_STAR);
10464 : : }
10465 : : else
10466 : 6210 : data.current_closure = NULL_TREE;
10467 : :
10468 : 6218 : cp_walk_tree_without_duplicates (&body, finish_omp_target_clauses_r, &data);
10469 : :
10470 : 6218 : auto_vec<tree, 16> new_clauses;
10471 : :
10472 : 6218 : tree omp_target_this_expr = NULL_TREE;
10473 : 6218 : tree *explicit_this_deref_map = NULL;
10474 : 6218 : if (data.this_expr_accessed)
10475 : : {
10476 : 29 : omp_target_this_expr = TREE_OPERAND (data.current_object, 0);
10477 : :
10478 : : /* See if explicit user-specified map(this[:]) clause already exists.
10479 : : If not, we create an implicit map(tofrom:this[:1]) clause. */
10480 : 71 : for (tree *cp = clauses_ptr; *cp; cp = &OMP_CLAUSE_CHAIN (*cp))
10481 : 43 : if (OMP_CLAUSE_CODE (*cp) == OMP_CLAUSE_MAP
10482 : 40 : && (TREE_CODE (OMP_CLAUSE_DECL (*cp)) == INDIRECT_REF
10483 : 35 : || TREE_CODE (OMP_CLAUSE_DECL (*cp)) == MEM_REF)
10484 : 48 : && operand_equal_p (TREE_OPERAND (OMP_CLAUSE_DECL (*cp), 0),
10485 : : omp_target_this_expr))
10486 : : {
10487 : : explicit_this_deref_map = cp;
10488 : : break;
10489 : : }
10490 : : }
10491 : :
10492 : 6218 : if (DECL_LAMBDA_FUNCTION_P (current_function_decl)
10493 : 6218 : && (data.this_expr_accessed
10494 : 1 : || !data.closure_vars_accessed.is_empty ()))
10495 : : {
10496 : : /* For lambda functions, we need to first create a copy of the
10497 : : __closure object. */
10498 : 8 : tree closure = DECL_ARGUMENTS (current_function_decl);
10499 : 8 : tree c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10500 : 8 : OMP_CLAUSE_SET_MAP_KIND (c, GOMP_MAP_TO);
10501 : 8 : OMP_CLAUSE_DECL (c)
10502 : 8 : = build_indirect_ref (loc, closure, RO_UNARY_STAR);
10503 : 8 : OMP_CLAUSE_SIZE (c)
10504 : 8 : = TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (closure)));
10505 : 8 : new_clauses.safe_push (c);
10506 : :
10507 : 8 : tree closure_obj = OMP_CLAUSE_DECL (c);
10508 : 8 : tree closure_type = TREE_TYPE (closure_obj);
10509 : :
10510 : 16 : gcc_assert (LAMBDA_TYPE_P (closure_type)
10511 : : && CLASS_TYPE_P (closure_type));
10512 : :
10513 : 8 : tree c2 = build_omp_clause (loc, OMP_CLAUSE_MAP);
10514 : 8 : OMP_CLAUSE_SET_MAP_KIND (c2, GOMP_MAP_FIRSTPRIVATE_POINTER);
10515 : 8 : OMP_CLAUSE_DECL (c2) = closure;
10516 : 8 : OMP_CLAUSE_SIZE (c2) = size_zero_node;
10517 : 8 : new_clauses.safe_push (c2);
10518 : : }
10519 : :
10520 : 6218 : if (data.this_expr_accessed)
10521 : : {
10522 : : /* If the this-expr was accessed, create a map(*this) clause. */
10523 : 29 : enum gomp_map_kind kind = GOMP_MAP_TOFROM;
10524 : 29 : if (explicit_this_deref_map)
10525 : : {
10526 : 1 : tree this_map = *explicit_this_deref_map;
10527 : 1 : tree nc = OMP_CLAUSE_CHAIN (this_map);
10528 : 2 : gcc_assert (nc != NULL_TREE
10529 : : && OMP_CLAUSE_CODE (nc) == OMP_CLAUSE_MAP
10530 : : && (OMP_CLAUSE_MAP_KIND (nc)
10531 : : == GOMP_MAP_FIRSTPRIVATE_POINTER));
10532 : 1 : kind = OMP_CLAUSE_MAP_KIND (this_map);
10533 : : /* Remove the original 'map(*this) map(firstprivate_ptr:this)'
10534 : : two-map sequence away from the chain. */
10535 : 1 : *explicit_this_deref_map = OMP_CLAUSE_CHAIN (nc);
10536 : : }
10537 : 29 : tree c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10538 : 29 : OMP_CLAUSE_SET_MAP_KIND (c, kind);
10539 : 29 : OMP_CLAUSE_DECL (c)
10540 : 29 : = build_indirect_ref (loc, omp_target_this_expr, RO_UNARY_STAR);
10541 : 29 : OMP_CLAUSE_SIZE (c)
10542 : 29 : = TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (omp_target_this_expr)));
10543 : 29 : new_clauses.safe_push (c);
10544 : :
10545 : : /* If we're in a lambda function, the this-pointer will actually be
10546 : : '__closure->this', a mapped member of __closure, hence always_pointer.
10547 : : Otherwise it's a firstprivate pointer. */
10548 : 29 : enum gomp_map_kind ptr_kind
10549 : 29 : = (DECL_LAMBDA_FUNCTION_P (current_function_decl)
10550 : 29 : ? GOMP_MAP_ALWAYS_POINTER
10551 : 29 : : GOMP_MAP_FIRSTPRIVATE_POINTER);
10552 : 29 : c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10553 : 29 : OMP_CLAUSE_SET_MAP_KIND (c, ptr_kind);
10554 : 29 : OMP_CLAUSE_DECL (c) = omp_target_this_expr;
10555 : 29 : OMP_CLAUSE_SIZE (c) = size_zero_node;
10556 : 29 : new_clauses.safe_push (c);
10557 : : }
10558 : :
10559 : 6218 : if (DECL_LAMBDA_FUNCTION_P (current_function_decl))
10560 : : {
10561 : 8 : if (omp_target_this_expr)
10562 : : {
10563 : 7 : STRIP_NOPS (omp_target_this_expr);
10564 : 7 : gcc_assert (DECL_HAS_VALUE_EXPR_P (omp_target_this_expr));
10565 : 7 : omp_target_this_expr = DECL_VALUE_EXPR (omp_target_this_expr);
10566 : : }
10567 : :
10568 : 17 : for (hash_set<tree>::iterator i = data.closure_vars_accessed.begin ();
10569 : 34 : i != data.closure_vars_accessed.end (); ++i)
10570 : : {
10571 : 9 : tree orig_decl = *i;
10572 : 9 : tree closure_expr = DECL_VALUE_EXPR (orig_decl);
10573 : :
10574 : 9 : if (TREE_CODE (TREE_TYPE (orig_decl)) == POINTER_TYPE
10575 : 9 : || TREE_CODE (TREE_TYPE (orig_decl)) == REFERENCE_TYPE)
10576 : : {
10577 : : /* this-pointer is processed above, outside this loop. */
10578 : 3 : if (omp_target_this_expr
10579 : 3 : && operand_equal_p (closure_expr, omp_target_this_expr))
10580 : 0 : continue;
10581 : :
10582 : 3 : bool ptr_p = TREE_CODE (TREE_TYPE (orig_decl)) == POINTER_TYPE;
10583 : 3 : enum gomp_map_kind kind, ptr_kind, nc_kind;
10584 : 3 : tree size;
10585 : :
10586 : 3 : if (ptr_p)
10587 : : {
10588 : : /* For pointers, default mapped as zero-length array
10589 : : section. */
10590 : 2 : kind = GOMP_MAP_ALLOC;
10591 : 2 : nc_kind = GOMP_MAP_FIRSTPRIVATE_POINTER;
10592 : 2 : ptr_kind = GOMP_MAP_ATTACH_ZERO_LENGTH_ARRAY_SECTION;
10593 : 2 : size = size_zero_node;
10594 : : }
10595 : : else
10596 : : {
10597 : : /* For references, default mapped as appearing on map
10598 : : clause. */
10599 : 1 : kind = GOMP_MAP_TOFROM;
10600 : 1 : nc_kind = GOMP_MAP_FIRSTPRIVATE_REFERENCE;
10601 : 1 : ptr_kind = GOMP_MAP_ALWAYS_POINTER;
10602 : 1 : size = TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (closure_expr)));
10603 : : }
10604 : :
10605 : 6 : for (tree *p = clauses_ptr; *p; p = &OMP_CLAUSE_CHAIN (*p))
10606 : 3 : if (OMP_CLAUSE_CODE (*p) == OMP_CLAUSE_MAP
10607 : 1 : && (TREE_CODE (OMP_CLAUSE_DECL (*p)) == INDIRECT_REF
10608 : 1 : || TREE_CODE (OMP_CLAUSE_DECL (*p)) == MEM_REF)
10609 : 3 : && operand_equal_p (TREE_OPERAND (OMP_CLAUSE_DECL (*p), 0),
10610 : : orig_decl))
10611 : : {
10612 : : /* If this was already specified by user as a map,
10613 : : save the user specified map kind, delete the
10614 : : "map(*ptr/ref), map(firstprivate ptr/ref)" sequence,
10615 : : and insert our own sequence:
10616 : : "map(*__closure->ptr/ref), map(<ptr_kind>:__closure->ref"
10617 : : */
10618 : 0 : tree nc = OMP_CLAUSE_CHAIN (*p);
10619 : 0 : gcc_assert (nc != NULL_TREE
10620 : : && OMP_CLAUSE_CODE (nc) == OMP_CLAUSE_MAP
10621 : : && OMP_CLAUSE_MAP_KIND (nc) == nc_kind);
10622 : : /* Update with user specified kind and size. */
10623 : 0 : kind = OMP_CLAUSE_MAP_KIND (*p);
10624 : 0 : size = OMP_CLAUSE_SIZE (*p);
10625 : 0 : *p = OMP_CLAUSE_CHAIN (nc);
10626 : 0 : break;
10627 : : }
10628 : :
10629 : 3 : tree c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10630 : 3 : OMP_CLAUSE_SET_MAP_KIND (c, kind);
10631 : 3 : OMP_CLAUSE_DECL (c)
10632 : 3 : = build_indirect_ref (loc, closure_expr, RO_UNARY_STAR);
10633 : 3 : OMP_CLAUSE_SIZE (c) = size;
10634 : 3 : if (ptr_p)
10635 : 2 : OMP_CLAUSE_MAP_MAYBE_ZERO_LENGTH_ARRAY_SECTION (c) = 1;
10636 : 3 : new_clauses.safe_push (c);
10637 : :
10638 : 3 : c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10639 : 3 : OMP_CLAUSE_SET_MAP_KIND (c, ptr_kind);
10640 : 3 : OMP_CLAUSE_DECL (c) = closure_expr;
10641 : 3 : OMP_CLAUSE_SIZE (c) = size_zero_node;
10642 : 3 : new_clauses.safe_push (c);
10643 : : }
10644 : : }
10645 : : }
10646 : :
10647 : 6218 : if (!data.ptr_members_accessed.is_empty ())
10648 : 14 : for (hash_map<tree, tree>::iterator i = data.ptr_members_accessed.begin ();
10649 : 56 : i != data.ptr_members_accessed.end (); ++i)
10650 : : {
10651 : : /* For each referenced member that is of pointer or reference-to-pointer
10652 : : type, create the equivalent of map(alloc:this->ptr[:0]). */
10653 : 14 : tree field_decl = (*i).first;
10654 : 14 : tree ptr_member = (*i).second;
10655 : :
10656 : 26 : for (tree c = *clauses_ptr; c; c = OMP_CLAUSE_CHAIN (c))
10657 : : {
10658 : 16 : if (OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP)
10659 : 2 : continue;
10660 : : /* If map(this->ptr[:N]) already exists, avoid creating another
10661 : : such map. */
10662 : 14 : tree decl = OMP_CLAUSE_DECL (c);
10663 : 14 : if ((TREE_CODE (decl) == INDIRECT_REF
10664 : 10 : || TREE_CODE (decl) == MEM_REF)
10665 : 14 : && operand_equal_p (TREE_OPERAND (decl, 0), ptr_member))
10666 : 4 : goto next_ptr_member;
10667 : : }
10668 : :
10669 : 10 : if (!cxx_mark_addressable (ptr_member))
10670 : 0 : gcc_unreachable ();
10671 : :
10672 : 10 : if (TREE_CODE (TREE_TYPE (field_decl)) == REFERENCE_TYPE)
10673 : : {
10674 : : /* For reference to pointers, we need to map the referenced
10675 : : pointer first for things to be correct. */
10676 : 4 : tree ptr_member_type = TREE_TYPE (ptr_member);
10677 : :
10678 : : /* Map pointer target as zero-length array section. */
10679 : 4 : tree c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10680 : 4 : OMP_CLAUSE_SET_MAP_KIND (c, GOMP_MAP_ALLOC);
10681 : 4 : OMP_CLAUSE_DECL (c)
10682 : 4 : = build1 (INDIRECT_REF, TREE_TYPE (ptr_member_type), ptr_member);
10683 : 4 : OMP_CLAUSE_SIZE (c) = size_zero_node;
10684 : 4 : OMP_CLAUSE_MAP_MAYBE_ZERO_LENGTH_ARRAY_SECTION (c) = 1;
10685 : :
10686 : : /* Map pointer to zero-length array section. */
10687 : 4 : tree c2 = build_omp_clause (loc, OMP_CLAUSE_MAP);
10688 : 4 : OMP_CLAUSE_SET_MAP_KIND
10689 : : (c2, GOMP_MAP_POINTER_TO_ZERO_LENGTH_ARRAY_SECTION);
10690 : 4 : OMP_CLAUSE_DECL (c2) = ptr_member;
10691 : 4 : OMP_CLAUSE_SIZE (c2) = size_zero_node;
10692 : :
10693 : : /* Attach reference-to-pointer field to pointer. */
10694 : 4 : tree c3 = build_omp_clause (loc, OMP_CLAUSE_MAP);
10695 : 4 : OMP_CLAUSE_SET_MAP_KIND (c3, GOMP_MAP_ATTACH);
10696 : 4 : OMP_CLAUSE_DECL (c3) = TREE_OPERAND (ptr_member, 0);
10697 : 4 : OMP_CLAUSE_SIZE (c3) = size_zero_node;
10698 : :
10699 : 4 : new_clauses.safe_push (c);
10700 : 4 : new_clauses.safe_push (c2);
10701 : 4 : new_clauses.safe_push (c3);
10702 : : }
10703 : 6 : else if (TREE_CODE (TREE_TYPE (field_decl)) == POINTER_TYPE)
10704 : : {
10705 : : /* Map pointer target as zero-length array section. */
10706 : 6 : tree c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10707 : 6 : OMP_CLAUSE_SET_MAP_KIND (c, GOMP_MAP_ALLOC);
10708 : 6 : OMP_CLAUSE_DECL (c) = build_indirect_ref (loc, ptr_member,
10709 : : RO_UNARY_STAR);
10710 : 6 : OMP_CLAUSE_SIZE (c) = size_zero_node;
10711 : 6 : OMP_CLAUSE_MAP_MAYBE_ZERO_LENGTH_ARRAY_SECTION (c) = 1;
10712 : :
10713 : : /* Attach zero-length array section to pointer. */
10714 : 6 : tree c2 = build_omp_clause (loc, OMP_CLAUSE_MAP);
10715 : 6 : OMP_CLAUSE_SET_MAP_KIND
10716 : : (c2, GOMP_MAP_ATTACH_ZERO_LENGTH_ARRAY_SECTION);
10717 : 6 : OMP_CLAUSE_DECL (c2) = ptr_member;
10718 : 6 : OMP_CLAUSE_SIZE (c2) = size_zero_node;
10719 : :
10720 : 6 : new_clauses.safe_push (c);
10721 : 6 : new_clauses.safe_push (c2);
10722 : : }
10723 : : else
10724 : 0 : gcc_unreachable ();
10725 : :
10726 : 14 : next_ptr_member:
10727 : 14 : ;
10728 : : }
10729 : :
10730 : 6222 : for (hash_set<tree>::iterator i = data.lambda_objects_accessed.begin ();
10731 : 6226 : i != data.lambda_objects_accessed.end (); ++i)
10732 : : {
10733 : 4 : tree lobj = *i;
10734 : 4 : if (TREE_CODE (lobj) == TARGET_EXPR)
10735 : 0 : lobj = TARGET_EXPR_SLOT (lobj);
10736 : :
10737 : 4 : tree lt = TREE_TYPE (lobj);
10738 : 8 : gcc_assert (LAMBDA_TYPE_P (lt) && CLASS_TYPE_P (lt));
10739 : :
10740 : 4 : tree lc = build_omp_clause (loc, OMP_CLAUSE_MAP);
10741 : 4 : OMP_CLAUSE_SET_MAP_KIND (lc, GOMP_MAP_TO);
10742 : 4 : OMP_CLAUSE_DECL (lc) = lobj;
10743 : 4 : OMP_CLAUSE_SIZE (lc) = TYPE_SIZE_UNIT (lt);
10744 : 4 : new_clauses.safe_push (lc);
10745 : :
10746 : 50 : for (tree fld = TYPE_FIELDS (lt); fld; fld = DECL_CHAIN (fld))
10747 : : {
10748 : 46 : if (TREE_CODE (TREE_TYPE (fld)) == POINTER_TYPE)
10749 : : {
10750 : 4 : tree exp = build3 (COMPONENT_REF, TREE_TYPE (fld),
10751 : : lobj, fld, NULL_TREE);
10752 : 4 : tree c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10753 : 4 : OMP_CLAUSE_SET_MAP_KIND (c, GOMP_MAP_ALLOC);
10754 : 4 : OMP_CLAUSE_DECL (c)
10755 : 4 : = build_indirect_ref (loc, exp, RO_UNARY_STAR);
10756 : 4 : OMP_CLAUSE_SIZE (c) = size_zero_node;
10757 : 4 : OMP_CLAUSE_MAP_MAYBE_ZERO_LENGTH_ARRAY_SECTION (c) = 1;
10758 : 4 : new_clauses.safe_push (c);
10759 : :
10760 : 4 : c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10761 : 4 : OMP_CLAUSE_SET_MAP_KIND
10762 : : (c, GOMP_MAP_ATTACH_ZERO_LENGTH_ARRAY_SECTION);
10763 : 4 : OMP_CLAUSE_DECL (c) = exp;
10764 : 4 : OMP_CLAUSE_SIZE (c) = size_zero_node;
10765 : 4 : new_clauses.safe_push (c);
10766 : : }
10767 : 42 : else if (TREE_CODE (TREE_TYPE (fld)) == REFERENCE_TYPE)
10768 : : {
10769 : 0 : tree exp = build3 (COMPONENT_REF, TREE_TYPE (fld),
10770 : : lobj, fld, NULL_TREE);
10771 : 0 : tree c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10772 : 0 : OMP_CLAUSE_SET_MAP_KIND (c, GOMP_MAP_TOFROM);
10773 : 0 : OMP_CLAUSE_DECL (c)
10774 : 0 : = build1 (INDIRECT_REF, TREE_TYPE (TREE_TYPE (exp)), exp);
10775 : 0 : OMP_CLAUSE_SIZE (c)
10776 : 0 : = TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (exp)));
10777 : 0 : new_clauses.safe_push (c);
10778 : :
10779 : 0 : c = build_omp_clause (loc, OMP_CLAUSE_MAP);
10780 : 0 : OMP_CLAUSE_SET_MAP_KIND (c, GOMP_MAP_ALWAYS_POINTER);
10781 : 0 : OMP_CLAUSE_DECL (c) = exp;
10782 : 0 : OMP_CLAUSE_SIZE (c) = size_zero_node;
10783 : 0 : new_clauses.safe_push (c);
10784 : : }
10785 : : }
10786 : : }
10787 : :
10788 : 6218 : tree c = *clauses_ptr;
10789 : 12552 : for (int i = new_clauses.length () - 1; i >= 0; i--)
10790 : : {
10791 : 116 : OMP_CLAUSE_CHAIN (new_clauses[i]) = c;
10792 : 116 : c = new_clauses[i];
10793 : : }
10794 : 6218 : *clauses_ptr = c;
10795 : 6218 : }
10796 : :
10797 : : /* Called from cp_parser_omp_target. Create additional implicit clauses for
10798 : : OpenMP target directives, and do sanity checks. */
10799 : :
10800 : : tree
10801 : 6210 : finish_omp_target (location_t loc, tree clauses, tree body, bool combined_p)
10802 : : {
10803 : 6210 : if (!processing_template_decl)
10804 : 5449 : finish_omp_target_clauses (loc, body, &clauses);
10805 : :
10806 : 6210 : tree stmt = make_node (OMP_TARGET);
10807 : 6210 : TREE_TYPE (stmt) = void_type_node;
10808 : 6210 : OMP_TARGET_CLAUSES (stmt) = clauses;
10809 : 6210 : OMP_TARGET_BODY (stmt) = body;
10810 : 6210 : OMP_TARGET_COMBINED (stmt) = combined_p;
10811 : 6210 : SET_EXPR_LOCATION (stmt, loc);
10812 : :
10813 : 6210 : tree c = clauses;
10814 : 14765 : while (c)
10815 : : {
10816 : 8555 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP)
10817 : 4821 : switch (OMP_CLAUSE_MAP_KIND (c))
10818 : : {
10819 : : case GOMP_MAP_TO:
10820 : : case GOMP_MAP_ALWAYS_TO:
10821 : : case GOMP_MAP_PRESENT_TO:
10822 : : case GOMP_MAP_ALWAYS_PRESENT_TO:
10823 : : case GOMP_MAP_FROM:
10824 : : case GOMP_MAP_ALWAYS_FROM:
10825 : : case GOMP_MAP_PRESENT_FROM:
10826 : : case GOMP_MAP_ALWAYS_PRESENT_FROM:
10827 : : case GOMP_MAP_TOFROM:
10828 : : case GOMP_MAP_ALWAYS_TOFROM:
10829 : : case GOMP_MAP_PRESENT_TOFROM:
10830 : : case GOMP_MAP_ALWAYS_PRESENT_TOFROM:
10831 : : case GOMP_MAP_ALLOC:
10832 : : case GOMP_MAP_PRESENT_ALLOC:
10833 : : case GOMP_MAP_FIRSTPRIVATE_POINTER:
10834 : : case GOMP_MAP_FIRSTPRIVATE_REFERENCE:
10835 : : case GOMP_MAP_ALWAYS_POINTER:
10836 : : case GOMP_MAP_ATTACH_DETACH:
10837 : : case GOMP_MAP_ATTACH:
10838 : : case GOMP_MAP_ATTACH_ZERO_LENGTH_ARRAY_SECTION:
10839 : : case GOMP_MAP_POINTER:
10840 : : case GOMP_MAP_POINTER_TO_ZERO_LENGTH_ARRAY_SECTION:
10841 : : break;
10842 : 3 : default:
10843 : 3 : error_at (OMP_CLAUSE_LOCATION (c),
10844 : : "%<#pragma omp target%> with map-type other "
10845 : : "than %<to%>, %<from%>, %<tofrom%> or %<alloc%> "
10846 : : "on %<map%> clause");
10847 : 3 : break;
10848 : : }
10849 : 8555 : c = OMP_CLAUSE_CHAIN (c);
10850 : : }
10851 : 6210 : return add_stmt (stmt);
10852 : : }
10853 : :
10854 : : tree
10855 : 9138 : finish_omp_parallel (tree clauses, tree body)
10856 : : {
10857 : 9138 : tree stmt;
10858 : :
10859 : 9138 : body = finish_omp_structured_block (body);
10860 : :
10861 : 9138 : stmt = make_node (OMP_PARALLEL);
10862 : 9138 : TREE_TYPE (stmt) = void_type_node;
10863 : 9138 : OMP_PARALLEL_CLAUSES (stmt) = clauses;
10864 : 9138 : OMP_PARALLEL_BODY (stmt) = body;
10865 : :
10866 : 9138 : return add_stmt (stmt);
10867 : : }
10868 : :
10869 : : tree
10870 : 2315 : begin_omp_task (void)
10871 : : {
10872 : 2315 : keep_next_level (true);
10873 : 2315 : return begin_omp_structured_block ();
10874 : : }
10875 : :
10876 : : tree
10877 : 2315 : finish_omp_task (tree clauses, tree body)
10878 : : {
10879 : 2315 : tree stmt;
10880 : :
10881 : 2315 : body = finish_omp_structured_block (body);
10882 : :
10883 : 2315 : stmt = make_node (OMP_TASK);
10884 : 2315 : TREE_TYPE (stmt) = void_type_node;
10885 : 2315 : OMP_TASK_CLAUSES (stmt) = clauses;
10886 : 2315 : OMP_TASK_BODY (stmt) = body;
10887 : :
10888 : 2315 : return add_stmt (stmt);
10889 : : }
10890 : :
10891 : : /* Helper function for finish_omp_for. Convert Ith random access iterator
10892 : : into integral iterator. Return FALSE if successful. */
10893 : :
10894 : : static bool
10895 : 813 : handle_omp_for_class_iterator (int i, location_t locus, enum tree_code code,
10896 : : tree declv, tree orig_declv, tree initv,
10897 : : tree condv, tree incrv, tree *body,
10898 : : tree *pre_body, tree &clauses,
10899 : : int collapse, int ordered)
10900 : : {
10901 : 813 : tree diff, iter_init, iter_incr = NULL, last;
10902 : 813 : tree incr_var = NULL, orig_pre_body, orig_body, c;
10903 : 813 : tree decl = TREE_VEC_ELT (declv, i);
10904 : 813 : tree init = TREE_VEC_ELT (initv, i);
10905 : 813 : tree cond = TREE_VEC_ELT (condv, i);
10906 : 813 : tree incr = TREE_VEC_ELT (incrv, i);
10907 : 813 : tree iter = decl;
10908 : 813 : location_t elocus = locus;
10909 : :
10910 : 813 : if (init && EXPR_HAS_LOCATION (init))
10911 : 12 : elocus = EXPR_LOCATION (init);
10912 : :
10913 : 813 : switch (TREE_CODE (cond))
10914 : : {
10915 : 810 : case GT_EXPR:
10916 : 810 : case GE_EXPR:
10917 : 810 : case LT_EXPR:
10918 : 810 : case LE_EXPR:
10919 : 810 : case NE_EXPR:
10920 : 810 : if (TREE_OPERAND (cond, 1) == iter)
10921 : 42 : cond = build2 (swap_tree_comparison (TREE_CODE (cond)),
10922 : 42 : TREE_TYPE (cond), iter, TREE_OPERAND (cond, 0));
10923 : 810 : if (TREE_OPERAND (cond, 0) != iter)
10924 : 0 : cond = error_mark_node;
10925 : : else
10926 : : {
10927 : 810 : tree tem = build_x_binary_op (EXPR_LOCATION (cond),
10928 : 810 : TREE_CODE (cond),
10929 : : iter, ERROR_MARK,
10930 : 810 : TREE_OPERAND (cond, 1), ERROR_MARK,
10931 : : NULL_TREE, NULL, tf_warning_or_error);
10932 : 810 : if (error_operand_p (tem))
10933 : : return true;
10934 : : }
10935 : : break;
10936 : 3 : default:
10937 : 3 : cond = error_mark_node;
10938 : 3 : break;
10939 : : }
10940 : 810 : if (cond == error_mark_node)
10941 : : {
10942 : 3 : error_at (elocus, "invalid controlling predicate");
10943 : 3 : return true;
10944 : : }
10945 : 807 : diff = build_x_binary_op (elocus, MINUS_EXPR,
10946 : 807 : TREE_OPERAND (cond, 1), ERROR_MARK,
10947 : : iter, ERROR_MARK,
10948 : : NULL_TREE, NULL, tf_warning_or_error);
10949 : 807 : diff = cp_fully_fold (diff);
10950 : 807 : if (error_operand_p (diff))
10951 : : return true;
10952 : 807 : if (TREE_CODE (TREE_TYPE (diff)) != INTEGER_TYPE)
10953 : : {
10954 : 0 : error_at (elocus, "difference between %qE and %qD does not have integer type",
10955 : 0 : TREE_OPERAND (cond, 1), iter);
10956 : 0 : return true;
10957 : : }
10958 : 807 : if (!c_omp_check_loop_iv_exprs (locus, code, orig_declv, i,
10959 : 807 : TREE_VEC_ELT (declv, i), NULL_TREE,
10960 : : cond, cp_walk_subtrees))
10961 : : return true;
10962 : :
10963 : 762 : switch (TREE_CODE (incr))
10964 : : {
10965 : 370 : case PREINCREMENT_EXPR:
10966 : 370 : case PREDECREMENT_EXPR:
10967 : 370 : case POSTINCREMENT_EXPR:
10968 : 370 : case POSTDECREMENT_EXPR:
10969 : 370 : if (TREE_OPERAND (incr, 0) != iter)
10970 : : {
10971 : 0 : incr = error_mark_node;
10972 : 0 : break;
10973 : : }
10974 : 370 : iter_incr = build_x_unary_op (EXPR_LOCATION (incr),
10975 : : TREE_CODE (incr), iter,
10976 : : NULL_TREE, tf_warning_or_error);
10977 : 370 : if (error_operand_p (iter_incr))
10978 : : return true;
10979 : 370 : else if (TREE_CODE (incr) == PREINCREMENT_EXPR
10980 : 219 : || TREE_CODE (incr) == POSTINCREMENT_EXPR)
10981 : 299 : incr = integer_one_node;
10982 : : else
10983 : 71 : incr = integer_minus_one_node;
10984 : : break;
10985 : 392 : case MODIFY_EXPR:
10986 : 392 : if (TREE_OPERAND (incr, 0) != iter)
10987 : 0 : incr = error_mark_node;
10988 : 392 : else if (TREE_CODE (TREE_OPERAND (incr, 1)) == PLUS_EXPR
10989 : 392 : || TREE_CODE (TREE_OPERAND (incr, 1)) == MINUS_EXPR)
10990 : : {
10991 : 392 : tree rhs = TREE_OPERAND (incr, 1);
10992 : 392 : if (TREE_OPERAND (rhs, 0) == iter)
10993 : : {
10994 : 299 : if (TREE_CODE (TREE_TYPE (TREE_OPERAND (rhs, 1)))
10995 : : != INTEGER_TYPE)
10996 : 0 : incr = error_mark_node;
10997 : : else
10998 : : {
10999 : 299 : iter_incr = build_x_modify_expr (EXPR_LOCATION (rhs),
11000 : 299 : iter, TREE_CODE (rhs),
11001 : 299 : TREE_OPERAND (rhs, 1),
11002 : : NULL_TREE,
11003 : : tf_warning_or_error);
11004 : 299 : if (error_operand_p (iter_incr))
11005 : : return true;
11006 : 299 : incr = TREE_OPERAND (rhs, 1);
11007 : 299 : incr = cp_convert (TREE_TYPE (diff), incr,
11008 : : tf_warning_or_error);
11009 : 299 : if (TREE_CODE (rhs) == MINUS_EXPR)
11010 : : {
11011 : 16 : incr = build1 (NEGATE_EXPR, TREE_TYPE (diff), incr);
11012 : 16 : incr = fold_simple (incr);
11013 : : }
11014 : 299 : if (TREE_CODE (incr) != INTEGER_CST
11015 : 299 : && (TREE_CODE (incr) != NOP_EXPR
11016 : 66 : || (TREE_CODE (TREE_OPERAND (incr, 0))
11017 : : != INTEGER_CST)))
11018 : : iter_incr = NULL;
11019 : : }
11020 : : }
11021 : 93 : else if (TREE_OPERAND (rhs, 1) == iter)
11022 : : {
11023 : 93 : if (TREE_CODE (TREE_TYPE (TREE_OPERAND (rhs, 0))) != INTEGER_TYPE
11024 : 93 : || TREE_CODE (rhs) != PLUS_EXPR)
11025 : 0 : incr = error_mark_node;
11026 : : else
11027 : : {
11028 : 93 : iter_incr = build_x_binary_op (EXPR_LOCATION (rhs),
11029 : : PLUS_EXPR,
11030 : 93 : TREE_OPERAND (rhs, 0),
11031 : : ERROR_MARK, iter,
11032 : : ERROR_MARK, NULL_TREE, NULL,
11033 : : tf_warning_or_error);
11034 : 93 : if (error_operand_p (iter_incr))
11035 : : return true;
11036 : 93 : iter_incr = build_x_modify_expr (EXPR_LOCATION (rhs),
11037 : : iter, NOP_EXPR,
11038 : : iter_incr, NULL_TREE,
11039 : : tf_warning_or_error);
11040 : 93 : if (error_operand_p (iter_incr))
11041 : : return true;
11042 : 93 : incr = TREE_OPERAND (rhs, 0);
11043 : 93 : iter_incr = NULL;
11044 : : }
11045 : : }
11046 : : else
11047 : 0 : incr = error_mark_node;
11048 : : }
11049 : : else
11050 : 0 : incr = error_mark_node;
11051 : : break;
11052 : 0 : default:
11053 : 0 : incr = error_mark_node;
11054 : 0 : break;
11055 : : }
11056 : :
11057 : 762 : if (incr == error_mark_node)
11058 : : {
11059 : 0 : error_at (elocus, "invalid increment expression");
11060 : 0 : return true;
11061 : : }
11062 : :
11063 : 762 : incr = cp_convert (TREE_TYPE (diff), incr, tf_warning_or_error);
11064 : 762 : incr = cp_fully_fold (incr);
11065 : 762 : tree loop_iv_seen = NULL_TREE;
11066 : 1735 : for (c = clauses; c ; c = OMP_CLAUSE_CHAIN (c))
11067 : 1093 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_LASTPRIVATE
11068 : 1093 : && OMP_CLAUSE_DECL (c) == iter)
11069 : : {
11070 : 120 : if (code == OMP_TASKLOOP || code == OMP_LOOP)
11071 : : {
11072 : 60 : loop_iv_seen = c;
11073 : 60 : OMP_CLAUSE_LASTPRIVATE_LOOP_IV (c) = 1;
11074 : : }
11075 : : break;
11076 : : }
11077 : 973 : else if ((code == OMP_TASKLOOP || code == OMP_LOOP)
11078 : 113 : && OMP_CLAUSE_CODE (c) == OMP_CLAUSE_PRIVATE
11079 : 1007 : && OMP_CLAUSE_DECL (c) == iter)
11080 : : {
11081 : 30 : loop_iv_seen = c;
11082 : 30 : if (code == OMP_TASKLOOP)
11083 : 25 : OMP_CLAUSE_PRIVATE_TASKLOOP_IV (c) = 1;
11084 : : }
11085 : :
11086 : 762 : decl = create_temporary_var (TREE_TYPE (diff));
11087 : 762 : pushdecl (decl);
11088 : 762 : add_decl_expr (decl);
11089 : 762 : last = create_temporary_var (TREE_TYPE (diff));
11090 : 762 : pushdecl (last);
11091 : 762 : add_decl_expr (last);
11092 : 762 : if (c && iter_incr == NULL && TREE_CODE (incr) != INTEGER_CST
11093 : 10 : && (!ordered || (i < collapse && collapse > 1)))
11094 : : {
11095 : 10 : incr_var = create_temporary_var (TREE_TYPE (diff));
11096 : 10 : pushdecl (incr_var);
11097 : 10 : add_decl_expr (incr_var);
11098 : : }
11099 : 762 : gcc_assert (stmts_are_full_exprs_p ());
11100 : 762 : tree diffvar = NULL_TREE;
11101 : 762 : if (code == OMP_TASKLOOP)
11102 : : {
11103 : 101 : if (!loop_iv_seen)
11104 : : {
11105 : 38 : tree ivc = build_omp_clause (locus, OMP_CLAUSE_FIRSTPRIVATE);
11106 : 38 : OMP_CLAUSE_DECL (ivc) = iter;
11107 : 38 : cxx_omp_finish_clause (ivc, NULL, false);
11108 : 38 : OMP_CLAUSE_CHAIN (ivc) = clauses;
11109 : 38 : clauses = ivc;
11110 : : }
11111 : 101 : tree lvc = build_omp_clause (locus, OMP_CLAUSE_FIRSTPRIVATE);
11112 : 101 : OMP_CLAUSE_DECL (lvc) = last;
11113 : 101 : OMP_CLAUSE_CHAIN (lvc) = clauses;
11114 : 101 : clauses = lvc;
11115 : 101 : diffvar = create_temporary_var (TREE_TYPE (diff));
11116 : 101 : pushdecl (diffvar);
11117 : 101 : add_decl_expr (diffvar);
11118 : : }
11119 : 661 : else if (code == OMP_LOOP)
11120 : : {
11121 : 43 : if (!loop_iv_seen)
11122 : : {
11123 : : /* While iterators on the loop construct are predetermined
11124 : : lastprivate, if the decl is not declared inside of the
11125 : : loop, OMP_CLAUSE_LASTPRIVATE should have been added
11126 : : already. */
11127 : 16 : loop_iv_seen = build_omp_clause (locus, OMP_CLAUSE_FIRSTPRIVATE);
11128 : 16 : OMP_CLAUSE_DECL (loop_iv_seen) = iter;
11129 : 16 : OMP_CLAUSE_CHAIN (loop_iv_seen) = clauses;
11130 : 16 : clauses = loop_iv_seen;
11131 : : }
11132 : 27 : else if (OMP_CLAUSE_CODE (loop_iv_seen) == OMP_CLAUSE_PRIVATE)
11133 : : {
11134 : 5 : OMP_CLAUSE_PRIVATE_DEBUG (loop_iv_seen) = 0;
11135 : 5 : OMP_CLAUSE_PRIVATE_OUTER_REF (loop_iv_seen) = 0;
11136 : 5 : OMP_CLAUSE_CODE (loop_iv_seen) = OMP_CLAUSE_FIRSTPRIVATE;
11137 : : }
11138 : 43 : if (OMP_CLAUSE_CODE (loop_iv_seen) == OMP_CLAUSE_FIRSTPRIVATE)
11139 : 21 : cxx_omp_finish_clause (loop_iv_seen, NULL, false);
11140 : : }
11141 : :
11142 : 762 : orig_pre_body = *pre_body;
11143 : 762 : *pre_body = push_stmt_list ();
11144 : 762 : if (orig_pre_body)
11145 : 610 : add_stmt (orig_pre_body);
11146 : 762 : if (init != NULL)
11147 : 61 : finish_expr_stmt (build_x_modify_expr (elocus,
11148 : : iter, NOP_EXPR, init,
11149 : : NULL_TREE, tf_warning_or_error));
11150 : 762 : init = build_int_cst (TREE_TYPE (diff), 0);
11151 : 762 : if (c && iter_incr == NULL
11152 : 28 : && (!ordered || (i < collapse && collapse > 1)))
11153 : : {
11154 : 28 : if (incr_var)
11155 : : {
11156 : 10 : finish_expr_stmt (build_x_modify_expr (elocus,
11157 : : incr_var, NOP_EXPR,
11158 : : incr, NULL_TREE,
11159 : : tf_warning_or_error));
11160 : 10 : incr = incr_var;
11161 : : }
11162 : 28 : iter_incr = build_x_modify_expr (elocus,
11163 : : iter, PLUS_EXPR, incr,
11164 : : NULL_TREE, tf_warning_or_error);
11165 : : }
11166 : 762 : if (c && ordered && i < collapse && collapse > 1)
11167 : 762 : iter_incr = incr;
11168 : 762 : finish_expr_stmt (build_x_modify_expr (elocus,
11169 : : last, NOP_EXPR, init,
11170 : : NULL_TREE, tf_warning_or_error));
11171 : 762 : if (diffvar)
11172 : : {
11173 : 101 : finish_expr_stmt (build_x_modify_expr (elocus,
11174 : : diffvar, NOP_EXPR,
11175 : : diff, NULL_TREE, tf_warning_or_error));
11176 : 101 : diff = diffvar;
11177 : : }
11178 : 762 : *pre_body = pop_stmt_list (*pre_body);
11179 : :
11180 : 1524 : cond = cp_build_binary_op (elocus,
11181 : 762 : TREE_CODE (cond), decl, diff,
11182 : : tf_warning_or_error);
11183 : 762 : incr = build_modify_expr (elocus, decl, NULL_TREE, PLUS_EXPR,
11184 : : elocus, incr, NULL_TREE);
11185 : :
11186 : 762 : orig_body = *body;
11187 : 762 : *body = push_stmt_list ();
11188 : 762 : iter_init = build2 (MINUS_EXPR, TREE_TYPE (diff), decl, last);
11189 : 762 : iter_init = build_x_modify_expr (elocus,
11190 : : iter, PLUS_EXPR, iter_init,
11191 : : NULL_TREE, tf_warning_or_error);
11192 : 762 : if (iter_init != error_mark_node)
11193 : 759 : iter_init = build1 (NOP_EXPR, void_type_node, iter_init);
11194 : 762 : finish_expr_stmt (iter_init);
11195 : 762 : finish_expr_stmt (build_x_modify_expr (elocus,
11196 : : last, NOP_EXPR, decl,
11197 : : NULL_TREE, tf_warning_or_error));
11198 : 762 : add_stmt (orig_body);
11199 : 762 : *body = pop_stmt_list (*body);
11200 : :
11201 : 762 : if (c)
11202 : : {
11203 : 120 : OMP_CLAUSE_LASTPRIVATE_STMT (c) = push_stmt_list ();
11204 : 120 : if (!ordered)
11205 : 114 : finish_expr_stmt (iter_incr);
11206 : : else
11207 : : {
11208 : 6 : iter_init = decl;
11209 : 6 : if (i < collapse && collapse > 1 && !error_operand_p (iter_incr))
11210 : 2 : iter_init = build2 (PLUS_EXPR, TREE_TYPE (diff),
11211 : : iter_init, iter_incr);
11212 : 6 : iter_init = build2 (MINUS_EXPR, TREE_TYPE (diff), iter_init, last);
11213 : 6 : iter_init = build_x_modify_expr (elocus,
11214 : : iter, PLUS_EXPR, iter_init,
11215 : : NULL_TREE, tf_warning_or_error);
11216 : 6 : if (iter_init != error_mark_node)
11217 : 6 : iter_init = build1 (NOP_EXPR, void_type_node, iter_init);
11218 : 6 : finish_expr_stmt (iter_init);
11219 : : }
11220 : 120 : OMP_CLAUSE_LASTPRIVATE_STMT (c)
11221 : 240 : = pop_stmt_list (OMP_CLAUSE_LASTPRIVATE_STMT (c));
11222 : : }
11223 : :
11224 : 762 : if (TREE_CODE (TREE_VEC_ELT (orig_declv, i)) == TREE_LIST)
11225 : : {
11226 : 116 : tree t = TREE_VEC_ELT (orig_declv, i);
11227 : 116 : gcc_assert (TREE_PURPOSE (t) == NULL_TREE
11228 : : && TREE_VALUE (t) == NULL_TREE
11229 : : && TREE_CODE (TREE_CHAIN (t)) == TREE_VEC);
11230 : 116 : TREE_PURPOSE (t) = TREE_VEC_ELT (declv, i);
11231 : 116 : TREE_VALUE (t) = last;
11232 : : }
11233 : : else
11234 : 646 : TREE_VEC_ELT (orig_declv, i)
11235 : 1292 : = tree_cons (TREE_VEC_ELT (declv, i), last, NULL_TREE);
11236 : 762 : TREE_VEC_ELT (declv, i) = decl;
11237 : 762 : TREE_VEC_ELT (initv, i) = init;
11238 : 762 : TREE_VEC_ELT (condv, i) = cond;
11239 : 762 : TREE_VEC_ELT (incrv, i) = incr;
11240 : :
11241 : 762 : return false;
11242 : : }
11243 : :
11244 : : /* Build and validate an OMP_FOR statement. CLAUSES, BODY, COND, INCR
11245 : : are directly for their associated operands in the statement. DECL
11246 : : and INIT are a combo; if DECL is NULL then INIT ought to be a
11247 : : MODIFY_EXPR, and the DECL should be extracted. PRE_BODY are
11248 : : optional statements that need to go before the loop into its
11249 : : sk_omp scope. */
11250 : :
11251 : : tree
11252 : 20002 : finish_omp_for (location_t locus, enum tree_code code, tree declv,
11253 : : tree orig_declv, tree initv, tree condv, tree incrv,
11254 : : tree body, tree pre_body, vec<tree> *orig_inits, tree clauses)
11255 : : {
11256 : 20002 : tree omp_for = NULL, orig_incr = NULL;
11257 : 20002 : tree decl = NULL, init, cond, incr;
11258 : 20002 : location_t elocus;
11259 : 20002 : int i;
11260 : 20002 : int collapse = 1;
11261 : 20002 : int ordered = 0;
11262 : 20002 : auto_vec<location_t> init_locv;
11263 : :
11264 : 20002 : gcc_assert (TREE_VEC_LENGTH (declv) == TREE_VEC_LENGTH (initv));
11265 : 20002 : gcc_assert (TREE_VEC_LENGTH (declv) == TREE_VEC_LENGTH (condv));
11266 : 20002 : gcc_assert (TREE_VEC_LENGTH (declv) == TREE_VEC_LENGTH (incrv));
11267 : 20002 : if (TREE_VEC_LENGTH (declv) > 1)
11268 : : {
11269 : 3984 : if (tree ti = omp_find_clause (clauses, OMP_CLAUSE_TILE))
11270 : 74 : collapse = list_length (OMP_CLAUSE_TILE_LIST (ti));
11271 : : else
11272 : : {
11273 : 3910 : if (tree co = omp_find_clause (clauses, OMP_CLAUSE_COLLAPSE))
11274 : 3440 : collapse = tree_to_shwi (OMP_CLAUSE_COLLAPSE_EXPR (co));
11275 : 470 : else if (tree si = omp_find_clause (clauses, OMP_CLAUSE_SIZES))
11276 : 394 : collapse = list_length (OMP_CLAUSE_SIZES_LIST (si));
11277 : 3910 : if (collapse != TREE_VEC_LENGTH (declv))
11278 : 100 : ordered = TREE_VEC_LENGTH (declv);
11279 : : }
11280 : : }
11281 : 46276 : for (i = 0; i < TREE_VEC_LENGTH (declv); i++)
11282 : : {
11283 : 26310 : decl = TREE_VEC_ELT (declv, i);
11284 : 26310 : init = TREE_VEC_ELT (initv, i);
11285 : 26310 : cond = TREE_VEC_ELT (condv, i);
11286 : 26310 : incr = TREE_VEC_ELT (incrv, i);
11287 : 26310 : elocus = locus;
11288 : :
11289 : 26310 : if (decl == global_namespace)
11290 : : {
11291 : 1101 : gcc_assert (init == NULL_TREE && cond == NULL_TREE && incr == NULL_TREE);
11292 : 1101 : TREE_VEC_ELT (declv, i) = NULL_TREE;
11293 : 1101 : init_locv.safe_push (UNKNOWN_LOCATION);
11294 : 1101 : continue;
11295 : : }
11296 : : /* We are going to throw out the init's original MODIFY_EXPR or
11297 : : MODOP_EXPR below. Save its location so we can use it when
11298 : : reconstructing the expression farther down. Alternatively, if the
11299 : : initializer is a binding of the iteration variable, save
11300 : : that location. Any of these locations in the initialization clause
11301 : : for the current nested loop are better than using the argument locus,
11302 : : that points to the "for" of the outermost loop in the nest. */
11303 : 25209 : if (init && EXPR_HAS_LOCATION (init))
11304 : 16882 : elocus = EXPR_LOCATION (init);
11305 : 8327 : else if (decl && INDIRECT_REF_P (decl) && EXPR_HAS_LOCATION (decl))
11306 : : /* This can happen for class iterators. */
11307 : 0 : elocus = EXPR_LOCATION (decl);
11308 : 8327 : else if (decl && DECL_P (decl))
11309 : : {
11310 : 8300 : if (DECL_SOURCE_LOCATION (decl) != UNKNOWN_LOCATION)
11311 : 8300 : elocus = DECL_SOURCE_LOCATION (decl);
11312 : 0 : else if (DECL_INITIAL (decl)
11313 : 0 : && EXPR_HAS_LOCATION (DECL_INITIAL (decl)))
11314 : 0 : elocus = EXPR_LOCATION (DECL_INITIAL (decl));
11315 : : }
11316 : 25209 : init_locv.safe_push (elocus);
11317 : :
11318 : 25209 : if (decl == NULL)
11319 : : {
11320 : 15570 : if (init != NULL)
11321 : 15567 : switch (TREE_CODE (init))
11322 : : {
11323 : 15160 : case MODIFY_EXPR:
11324 : 15160 : decl = TREE_OPERAND (init, 0);
11325 : 15160 : init = TREE_OPERAND (init, 1);
11326 : 15160 : break;
11327 : 389 : case MODOP_EXPR:
11328 : 389 : if (TREE_CODE (TREE_OPERAND (init, 1)) == NOP_EXPR)
11329 : : {
11330 : 389 : decl = TREE_OPERAND (init, 0);
11331 : 389 : init = TREE_OPERAND (init, 2);
11332 : : }
11333 : : break;
11334 : : default:
11335 : : break;
11336 : : }
11337 : :
11338 : 15570 : if (decl == NULL)
11339 : : {
11340 : 21 : error_at (locus,
11341 : : "expected iteration declaration or initialization");
11342 : 21 : return NULL;
11343 : : }
11344 : : }
11345 : :
11346 : 25188 : if (cond == global_namespace)
11347 : 170 : continue;
11348 : :
11349 : 25018 : if (cond == NULL)
11350 : : {
11351 : 9 : error_at (elocus, "missing controlling predicate");
11352 : 9 : return NULL;
11353 : : }
11354 : :
11355 : 25009 : if (incr == NULL)
11356 : : {
11357 : 6 : error_at (elocus, "missing increment expression");
11358 : 6 : return NULL;
11359 : : }
11360 : :
11361 : 25003 : TREE_VEC_ELT (declv, i) = decl;
11362 : 25003 : TREE_VEC_ELT (initv, i) = init;
11363 : : }
11364 : :
11365 : 19966 : if (orig_inits)
11366 : : {
11367 : : bool fail = false;
11368 : : tree orig_init;
11369 : 20092 : FOR_EACH_VEC_ELT (*orig_inits, i, orig_init)
11370 : 1181 : if (orig_init
11371 : 3396 : && !c_omp_check_loop_iv_exprs (locus, code,
11372 : : orig_declv ? orig_declv : declv, i,
11373 : 1164 : TREE_VEC_ELT (declv, i), orig_init,
11374 : : NULL_TREE, cp_walk_subtrees))
11375 : : fail = true;
11376 : 18911 : if (fail)
11377 : 887 : return NULL;
11378 : : }
11379 : :
11380 : 19909 : if (dependent_omp_for_p (declv, initv, condv, incrv, body))
11381 : : {
11382 : 444 : tree stmt;
11383 : :
11384 : 444 : stmt = make_node (code);
11385 : :
11386 : 1466 : for (i = 0; i < TREE_VEC_LENGTH (declv); i++)
11387 : : {
11388 : 578 : if (TREE_VEC_ELT (declv, i) == NULL_TREE)
11389 : 9 : continue;
11390 : : /* This is really just a place-holder. We'll be decomposing this
11391 : : again and going through the cp_build_modify_expr path below when
11392 : : we instantiate the thing. */
11393 : 569 : TREE_VEC_ELT (initv, i)
11394 : 1138 : = build2_loc (init_locv[i], MODIFY_EXPR, void_type_node,
11395 : 569 : TREE_VEC_ELT (declv, i), TREE_VEC_ELT (initv, i));
11396 : : }
11397 : :
11398 : 444 : TREE_TYPE (stmt) = void_type_node;
11399 : 444 : OMP_FOR_INIT (stmt) = initv;
11400 : 444 : OMP_FOR_COND (stmt) = condv;
11401 : 444 : OMP_FOR_INCR (stmt) = incrv;
11402 : 444 : OMP_FOR_BODY (stmt) = body;
11403 : 444 : OMP_FOR_PRE_BODY (stmt) = pre_body;
11404 : 444 : OMP_FOR_CLAUSES (stmt) = clauses;
11405 : :
11406 : 444 : SET_EXPR_LOCATION (stmt, locus);
11407 : 444 : return add_stmt (stmt);
11408 : : }
11409 : :
11410 : 19465 : if (!orig_declv)
11411 : 18673 : orig_declv = copy_node (declv);
11412 : :
11413 : 19465 : if (processing_template_decl)
11414 : 618 : orig_incr = make_tree_vec (TREE_VEC_LENGTH (incrv));
11415 : :
11416 : 45729 : for (i = 0; i < TREE_VEC_LENGTH (declv); )
11417 : : {
11418 : 26356 : decl = TREE_VEC_ELT (declv, i);
11419 : 26356 : init = TREE_VEC_ELT (initv, i);
11420 : 26356 : cond = TREE_VEC_ELT (condv, i);
11421 : 26356 : incr = TREE_VEC_ELT (incrv, i);
11422 : 26356 : if (orig_incr)
11423 : 847 : TREE_VEC_ELT (orig_incr, i) = incr;
11424 : 26356 : elocus = init_locv[i];
11425 : :
11426 : 26356 : if (decl == NULL_TREE)
11427 : : {
11428 : 1092 : i++;
11429 : 1092 : continue;
11430 : : }
11431 : :
11432 : 25264 : if (!DECL_P (decl))
11433 : : {
11434 : 6 : error_at (elocus, "expected iteration declaration or initialization");
11435 : 6 : return NULL;
11436 : : }
11437 : :
11438 : 25258 : if (incr && TREE_CODE (incr) == MODOP_EXPR)
11439 : : {
11440 : 1 : if (orig_incr)
11441 : 1 : TREE_VEC_ELT (orig_incr, i) = incr;
11442 : 1 : incr = cp_build_modify_expr (elocus, TREE_OPERAND (incr, 0),
11443 : 1 : TREE_CODE (TREE_OPERAND (incr, 1)),
11444 : 1 : TREE_OPERAND (incr, 2),
11445 : : tf_warning_or_error);
11446 : : }
11447 : :
11448 : 25258 : if (CLASS_TYPE_P (TREE_TYPE (decl)))
11449 : : {
11450 : 825 : if (code == OMP_SIMD)
11451 : : {
11452 : 12 : error_at (elocus, "%<#pragma omp simd%> used with class "
11453 : : "iteration variable %qE", decl);
11454 : 12 : return NULL;
11455 : : }
11456 : 813 : if (handle_omp_for_class_iterator (i, locus, code, declv, orig_declv,
11457 : : initv, condv, incrv, &body,
11458 : : &pre_body, clauses,
11459 : : collapse, ordered))
11460 : : return NULL;
11461 : 762 : continue;
11462 : : }
11463 : :
11464 : 48866 : if (!INTEGRAL_TYPE_P (TREE_TYPE (decl))
11465 : 26016 : && !TYPE_PTR_P (TREE_TYPE (decl)))
11466 : : {
11467 : 14 : error_at (elocus, "invalid type for iteration variable %qE", decl);
11468 : 14 : return NULL;
11469 : : }
11470 : :
11471 : 24419 : if (!processing_template_decl && TREE_CODE (init) != TREE_VEC)
11472 : 23655 : init = cp_build_modify_expr (elocus, decl, NOP_EXPR, init,
11473 : : tf_warning_or_error);
11474 : : else
11475 : 764 : init = build2_loc (elocus, MODIFY_EXPR, void_type_node, decl, init);
11476 : 24419 : if (decl == error_mark_node || init == error_mark_node)
11477 : : return NULL;
11478 : :
11479 : 24410 : TREE_VEC_ELT (declv, i) = decl;
11480 : 24410 : TREE_VEC_ELT (initv, i) = init;
11481 : 24410 : TREE_VEC_ELT (condv, i) = cond;
11482 : 24410 : TREE_VEC_ELT (incrv, i) = incr;
11483 : 24410 : i++;
11484 : : }
11485 : :
11486 : 19373 : if (pre_body && IS_EMPTY_STMT (pre_body))
11487 : 0 : pre_body = NULL;
11488 : :
11489 : 38746 : omp_for = c_finish_omp_for (locus, code, declv, orig_declv, initv, condv,
11490 : : incrv, body, pre_body,
11491 : 19373 : !processing_template_decl);
11492 : :
11493 : : /* Check for iterators appearing in lb, b or incr expressions. */
11494 : 19373 : if (omp_for && !c_omp_check_loop_iv (omp_for, orig_declv, cp_walk_subtrees))
11495 : : omp_for = NULL_TREE;
11496 : :
11497 : 18887 : if (omp_for == NULL)
11498 : 702 : return NULL;
11499 : :
11500 : 18671 : add_stmt (omp_for);
11501 : :
11502 : 43147 : for (i = 0; i < TREE_VEC_LENGTH (OMP_FOR_INCR (omp_for)); i++)
11503 : : {
11504 : 24476 : init = TREE_VEC_ELT (OMP_FOR_INIT (omp_for), i);
11505 : 24476 : if (init == NULL_TREE)
11506 : 1032 : continue;
11507 : 23444 : decl = TREE_OPERAND (init, 0);
11508 : 23444 : cond = TREE_VEC_ELT (OMP_FOR_COND (omp_for), i);
11509 : 23444 : incr = TREE_VEC_ELT (OMP_FOR_INCR (omp_for), i);
11510 : :
11511 : 23444 : if (!processing_template_decl)
11512 : : {
11513 : 22920 : if (TREE_CODE (TREE_OPERAND (init, 1)) == TREE_VEC)
11514 : : {
11515 : 106 : tree t = TREE_VEC_ELT (TREE_OPERAND (init, 1), 1);
11516 : 106 : TREE_VEC_ELT (TREE_OPERAND (init, 1), 1)
11517 : 106 : = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
11518 : 106 : t = TREE_VEC_ELT (TREE_OPERAND (init, 1), 2);
11519 : 106 : TREE_VEC_ELT (TREE_OPERAND (init, 1), 2)
11520 : 212 : = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
11521 : : }
11522 : : else
11523 : : {
11524 : 22814 : tree t = TREE_OPERAND (init, 1);
11525 : 22814 : TREE_OPERAND (init, 1)
11526 : 45628 : = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
11527 : : }
11528 : 22920 : if (TREE_CODE (TREE_OPERAND (cond, 1)) == TREE_VEC)
11529 : : {
11530 : 121 : tree t = TREE_VEC_ELT (TREE_OPERAND (cond, 1), 1);
11531 : 121 : TREE_VEC_ELT (TREE_OPERAND (cond, 1), 1)
11532 : 121 : = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
11533 : 121 : t = TREE_VEC_ELT (TREE_OPERAND (cond, 1), 2);
11534 : 121 : TREE_VEC_ELT (TREE_OPERAND (cond, 1), 2)
11535 : 242 : = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
11536 : : }
11537 : : else
11538 : : {
11539 : 22799 : tree t = TREE_OPERAND (cond, 1);
11540 : 22799 : TREE_OPERAND (cond, 1)
11541 : 45598 : = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
11542 : : }
11543 : : }
11544 : :
11545 : 23444 : if (TREE_CODE (incr) != MODIFY_EXPR)
11546 : 17251 : continue;
11547 : :
11548 : 6193 : if (TREE_SIDE_EFFECTS (TREE_OPERAND (incr, 1))
11549 : 70 : && BINARY_CLASS_P (TREE_OPERAND (incr, 1))
11550 : 6263 : && !processing_template_decl)
11551 : : {
11552 : 64 : tree t = TREE_OPERAND (TREE_OPERAND (incr, 1), 0);
11553 : 64 : if (TREE_SIDE_EFFECTS (t)
11554 : 8 : && t != decl
11555 : 70 : && (TREE_CODE (t) != NOP_EXPR
11556 : 0 : || TREE_OPERAND (t, 0) != decl))
11557 : 6 : TREE_OPERAND (TREE_OPERAND (incr, 1), 0)
11558 : 12 : = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
11559 : :
11560 : 64 : t = TREE_OPERAND (TREE_OPERAND (incr, 1), 1);
11561 : 64 : if (TREE_SIDE_EFFECTS (t)
11562 : 56 : && t != decl
11563 : 120 : && (TREE_CODE (t) != NOP_EXPR
11564 : 7 : || TREE_OPERAND (t, 0) != decl))
11565 : 56 : TREE_OPERAND (TREE_OPERAND (incr, 1), 1)
11566 : 112 : = fold_build_cleanup_point_expr (TREE_TYPE (t), t);
11567 : : }
11568 : :
11569 : 6193 : if (orig_incr)
11570 : 177 : TREE_VEC_ELT (OMP_FOR_INCR (omp_for), i) = TREE_VEC_ELT (orig_incr, i);
11571 : : }
11572 : 18671 : OMP_FOR_CLAUSES (omp_for) = clauses;
11573 : :
11574 : : /* For simd loops with non-static data member iterators, we could have added
11575 : : OMP_CLAUSE_LINEAR clauses without OMP_CLAUSE_LINEAR_STEP. As we know the
11576 : : step at this point, fill it in. */
11577 : 4722 : if (code == OMP_SIMD && !processing_template_decl
11578 : 23349 : && TREE_VEC_LENGTH (OMP_FOR_INCR (omp_for)) == 1)
11579 : 4609 : for (tree c = omp_find_clause (clauses, OMP_CLAUSE_LINEAR); c;
11580 : 561 : c = omp_find_clause (OMP_CLAUSE_CHAIN (c), OMP_CLAUSE_LINEAR))
11581 : 561 : if (OMP_CLAUSE_LINEAR_STEP (c) == NULL_TREE)
11582 : : {
11583 : 4 : decl = TREE_OPERAND (TREE_VEC_ELT (OMP_FOR_INIT (omp_for), 0), 0);
11584 : 4 : gcc_assert (decl == OMP_CLAUSE_DECL (c));
11585 : 4 : incr = TREE_VEC_ELT (OMP_FOR_INCR (omp_for), 0);
11586 : 4 : tree step, stept;
11587 : 4 : switch (TREE_CODE (incr))
11588 : : {
11589 : 0 : case PREINCREMENT_EXPR:
11590 : 0 : case POSTINCREMENT_EXPR:
11591 : : /* c_omp_for_incr_canonicalize_ptr() should have been
11592 : : called to massage things appropriately. */
11593 : 0 : gcc_assert (!INDIRECT_TYPE_P (TREE_TYPE (decl)));
11594 : 0 : OMP_CLAUSE_LINEAR_STEP (c) = build_int_cst (TREE_TYPE (decl), 1);
11595 : 0 : break;
11596 : 0 : case PREDECREMENT_EXPR:
11597 : 0 : case POSTDECREMENT_EXPR:
11598 : : /* c_omp_for_incr_canonicalize_ptr() should have been
11599 : : called to massage things appropriately. */
11600 : 0 : gcc_assert (!INDIRECT_TYPE_P (TREE_TYPE (decl)));
11601 : 0 : OMP_CLAUSE_LINEAR_STEP (c)
11602 : 0 : = build_int_cst (TREE_TYPE (decl), -1);
11603 : 0 : break;
11604 : 4 : case MODIFY_EXPR:
11605 : 4 : gcc_assert (TREE_OPERAND (incr, 0) == decl);
11606 : 4 : incr = TREE_OPERAND (incr, 1);
11607 : 4 : switch (TREE_CODE (incr))
11608 : : {
11609 : 4 : case PLUS_EXPR:
11610 : 4 : if (TREE_OPERAND (incr, 1) == decl)
11611 : 0 : step = TREE_OPERAND (incr, 0);
11612 : : else
11613 : 4 : step = TREE_OPERAND (incr, 1);
11614 : : break;
11615 : 0 : case MINUS_EXPR:
11616 : 0 : case POINTER_PLUS_EXPR:
11617 : 0 : gcc_assert (TREE_OPERAND (incr, 0) == decl);
11618 : 0 : step = TREE_OPERAND (incr, 1);
11619 : 0 : break;
11620 : 0 : default:
11621 : 0 : gcc_unreachable ();
11622 : : }
11623 : 4 : stept = TREE_TYPE (decl);
11624 : 4 : if (INDIRECT_TYPE_P (stept))
11625 : 0 : stept = sizetype;
11626 : 4 : step = fold_convert (stept, step);
11627 : 4 : if (TREE_CODE (incr) == MINUS_EXPR)
11628 : 0 : step = fold_build1 (NEGATE_EXPR, stept, step);
11629 : 4 : OMP_CLAUSE_LINEAR_STEP (c) = step;
11630 : 4 : break;
11631 : 0 : default:
11632 : 0 : gcc_unreachable ();
11633 : : }
11634 : : }
11635 : : /* Override saved methods on OMP_LOOP's OMP_CLAUSE_LASTPRIVATE_LOOP_IV
11636 : : clauses, we need copy ctor for those rather than default ctor,
11637 : : plus as for other lastprivates assignment op and dtor. */
11638 : 18671 : if (code == OMP_LOOP && !processing_template_decl)
11639 : 1972 : for (tree c = clauses; c; c = OMP_CLAUSE_CHAIN (c))
11640 : 1270 : if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_LASTPRIVATE
11641 : 204 : && OMP_CLAUSE_LASTPRIVATE_LOOP_IV (c)
11642 : 1292 : && cxx_omp_create_clause_info (c, TREE_TYPE (OMP_CLAUSE_DECL (c)),
11643 : : false, true, true, true))
11644 : 0 : CP_OMP_CLAUSE_INFO (c) = NULL_TREE;
11645 : :
11646 : : return omp_for;
11647 : 20002 : }
11648 : :
11649 : : /* Code walker for finish_omp_for_block: extract binding of DP->var
11650 : : from its current block and move it to a new BIND_EXPR DP->b
11651 : : surrounding the body of DP->omp_for. */
11652 : :
11653 : : struct fofb_data {
11654 : : tree var;
11655 : : tree b;
11656 : : tree omp_for;
11657 : : };
11658 : :
11659 : : static tree
11660 : 381 : finish_omp_for_block_walker (tree *tp, int *walk_subtrees, void *dp)
11661 : : {
11662 : 381 : struct fofb_data *fofb = (struct fofb_data *)dp;
11663 : 381 : if (TREE_CODE (*tp) == BIND_EXPR)
11664 : 578 : for (tree *p = &BIND_EXPR_VARS (*tp); *p; p = &DECL_CHAIN (*p))
11665 : : {
11666 : 576 : if (*p == fofb->var)
11667 : : {
11668 : 363 : *p = DECL_CHAIN (*p);
11669 : 363 : if (fofb->b == NULL_TREE)
11670 : : {
11671 : 214 : fofb->b = make_node (BLOCK);
11672 : 214 : fofb->b = build3 (BIND_EXPR, void_type_node, NULL_TREE,
11673 : 214 : OMP_FOR_BODY (fofb->omp_for), fofb->b);
11674 : 214 : TREE_SIDE_EFFECTS (fofb->b) = 1;
11675 : 214 : OMP_FOR_BODY (fofb->omp_for) = fofb->b;
11676 : : }
11677 : 363 : DECL_CHAIN (fofb->var) = BIND_EXPR_VARS (fofb->b);
11678 : 363 : BIND_EXPR_VARS (fofb->b) = fofb->var;
11679 : 363 : BLOCK_VARS (BIND_EXPR_BLOCK (fofb->b)) = fofb->var;
11680 : 363 : BLOCK_VARS (BIND_EXPR_BLOCK (*tp)) = BIND_EXPR_VARS (*tp);
11681 : 363 : return *tp;
11682 : : }
11683 : : }
11684 : 18 : if (TREE_CODE (*tp) != BIND_EXPR && TREE_CODE (*tp) != STATEMENT_LIST)
11685 : 16 : *walk_subtrees = false;
11686 : : return NULL_TREE;
11687 : : }
11688 : :
11689 : : /* Fix up range for decls. Those decls were pushed into BIND's
11690 : : BIND_EXPR_VARS, or that of a nested BIND_EXPR inside its body,
11691 : : and need to be moved into a new BIND_EXPR surrounding OMP_FOR's body
11692 : : so that processing of combined loop directives can find them. */
11693 : : tree
11694 : 14287 : finish_omp_for_block (tree bind, tree omp_for)
11695 : : {
11696 : 14287 : if (omp_for == NULL_TREE
11697 : 14240 : || !OMP_FOR_ORIG_DECLS (omp_for)
11698 : 27940 : || bind == NULL_TREE)
11699 : 634 : return bind;
11700 : 13653 : struct fofb_data fofb;
11701 : 13653 : fofb.b = NULL_TREE;
11702 : 13653 : fofb.omp_for = omp_for;
11703 : 32796 : for (int i = 0; i < TREE_VEC_LENGTH (OMP_FOR_INIT (omp_for)); i++)
11704 : 19143 : if (TREE_VEC_ELT (OMP_FOR_INIT (omp_for), i)
11705 : 18921 : && (TREE_CODE (TREE_VEC_ELT (OMP_FOR_ORIG_DECLS (omp_for), i))
11706 : : == TREE_LIST)
11707 : 19974 : && TREE_CHAIN (TREE_VEC_ELT (OMP_FOR_ORIG_DECLS (omp_for), i)))
11708 : : {
11709 : 237 : tree v = TREE_CHAIN (TREE_VEC_ELT (OMP_FOR_ORIG_DECLS (omp_for), i));
11710 : 602 : for (int j = 2; j < TREE_VEC_LENGTH (v); j++)
11711 : : {
11712 : 365 : fofb.var = TREE_VEC_ELT (v, j);
11713 : 365 : cp_walk_tree (&bind, finish_omp_for_block_walker,
11714 : : (void *)&fofb, NULL);
11715 : : }
11716 : : }
11717 : 13653 : return bind;
11718 : : }
11719 : :
11720 : : void
11721 : 3315 : finish_omp_atomic (location_t loc, enum tree_code code, enum tree_code opcode,
11722 : : tree lhs, tree rhs, tree v, tree lhs1, tree rhs1, tree r,
11723 : : tree clauses, enum omp_memory_order mo, bool weak)
11724 : : {
11725 : 3315 : tree orig_lhs;
11726 : 3315 : tree orig_rhs;
11727 : 3315 : tree orig_v;
11728 : 3315 : tree orig_lhs1;
11729 : 3315 : tree orig_rhs1;
11730 : 3315 : tree orig_r;
11731 : 3315 : bool dependent_p;
11732 : 3315 : tree stmt;
11733 : :
11734 : 3315 : orig_lhs = lhs;
11735 : 3315 : orig_rhs = rhs;
11736 : 3315 : orig_v = v;
11737 : 3315 : orig_lhs1 = lhs1;
11738 : 3315 : orig_rhs1 = rhs1;
11739 : 3315 : orig_r = r;
11740 : 3315 : dependent_p = false;
11741 : 3315 : stmt = NULL_TREE;
11742 : :
11743 : : /* Even in a template, we can detect invalid uses of the atomic
11744 : : pragma if neither LHS nor RHS is type-dependent. */
11745 : 3315 : if (processing_template_decl)
11746 : : {
11747 : 591 : dependent_p = (type_dependent_expression_p (lhs)
11748 : 237 : || (rhs && type_dependent_expression_p (rhs))
11749 : 234 : || (v && type_dependent_expression_p (v))
11750 : 234 : || (lhs1 && type_dependent_expression_p (lhs1))
11751 : 234 : || (rhs1 && type_dependent_expression_p (rhs1))
11752 : 825 : || (r
11753 : 25 : && r != void_list_node
11754 : 16 : && type_dependent_expression_p (r)));
11755 : 591 : if (clauses)
11756 : : {
11757 : 30 : gcc_assert (TREE_CODE (clauses) == OMP_CLAUSE
11758 : : && OMP_CLAUSE_CODE (clauses) == OMP_CLAUSE_HINT
11759 : : && OMP_CLAUSE_CHAIN (clauses) == NULL_TREE);
11760 : 30 : if (type_dependent_expression_p (OMP_CLAUSE_HINT_EXPR (clauses))
11761 : 30 : || TREE_CODE (OMP_CLAUSE_HINT_EXPR (clauses)) != INTEGER_CST)
11762 : : dependent_p = true;
11763 : : }
11764 : : }
11765 : 567 : if (!dependent_p)
11766 : : {
11767 : 2940 : bool swapped = false;
11768 : 2940 : if (rhs1 && opcode != COND_EXPR && cp_tree_equal (lhs, rhs))
11769 : : {
11770 : 143 : std::swap (rhs, rhs1);
11771 : 143 : swapped = !commutative_tree_code (opcode);
11772 : : }
11773 : 2940 : if (rhs1 && opcode != COND_EXPR && !cp_tree_equal (lhs, rhs1))
11774 : : {
11775 : 0 : if (code == OMP_ATOMIC)
11776 : 0 : error ("%<#pragma omp atomic update%> uses two different "
11777 : : "expressions for memory");
11778 : : else
11779 : 0 : error ("%<#pragma omp atomic capture%> uses two different "
11780 : : "expressions for memory");
11781 : 0 : return;
11782 : : }
11783 : 2940 : if (lhs1 && !cp_tree_equal (lhs, lhs1))
11784 : : {
11785 : 0 : if (code == OMP_ATOMIC)
11786 : 0 : error ("%<#pragma omp atomic update%> uses two different "
11787 : : "expressions for memory");
11788 : : else
11789 : 0 : error ("%<#pragma omp atomic capture%> uses two different "
11790 : : "expressions for memory");
11791 : 0 : return;
11792 : : }
11793 : 5880 : stmt = c_finish_omp_atomic (loc, code, opcode, lhs, rhs,
11794 : : v, lhs1, rhs1, r, swapped, mo, weak,
11795 : 2940 : processing_template_decl != 0);
11796 : 2940 : if (stmt == error_mark_node)
11797 : : return;
11798 : : }
11799 : 3285 : if (processing_template_decl)
11800 : : {
11801 : 582 : if (code == OMP_ATOMIC_READ)
11802 : : {
11803 : 164 : stmt = build_min_nt_loc (loc, OMP_ATOMIC_READ, orig_lhs);
11804 : 164 : OMP_ATOMIC_MEMORY_ORDER (stmt) = mo;
11805 : 164 : stmt = build2 (MODIFY_EXPR, void_type_node, orig_v, stmt);
11806 : : }
11807 : : else
11808 : : {
11809 : 418 : if (opcode == NOP_EXPR)
11810 : 32 : stmt = build2 (MODIFY_EXPR, void_type_node, orig_lhs, orig_rhs);
11811 : 386 : else if (opcode == COND_EXPR)
11812 : : {
11813 : 124 : stmt = build2 (EQ_EXPR, boolean_type_node, orig_lhs, orig_rhs);
11814 : 124 : if (orig_r)
11815 : 50 : stmt = build2 (MODIFY_EXPR, boolean_type_node, orig_r,
11816 : : stmt);
11817 : 124 : stmt = build3 (COND_EXPR, void_type_node, stmt, orig_rhs1,
11818 : : orig_lhs);
11819 : 124 : orig_rhs1 = NULL_TREE;
11820 : : }
11821 : : else
11822 : 262 : stmt = build2 (opcode, void_type_node, orig_lhs, orig_rhs);
11823 : 418 : if (orig_rhs1)
11824 : 182 : stmt = build_min_nt_loc (EXPR_LOCATION (orig_rhs1),
11825 : : COMPOUND_EXPR, orig_rhs1, stmt);
11826 : 418 : if (code != OMP_ATOMIC)
11827 : : {
11828 : 230 : stmt = build_min_nt_loc (loc, code, orig_lhs1, stmt);
11829 : 230 : OMP_ATOMIC_MEMORY_ORDER (stmt) = mo;
11830 : 230 : OMP_ATOMIC_WEAK (stmt) = weak;
11831 : 230 : stmt = build2 (MODIFY_EXPR, void_type_node, orig_v, stmt);
11832 : : }
11833 : : }
11834 : 582 : stmt = build2 (OMP_ATOMIC, void_type_node,
11835 : : clauses ? clauses : integer_zero_node, stmt);
11836 : 582 : OMP_ATOMIC_MEMORY_ORDER (stmt) = mo;
11837 : 582 : OMP_ATOMIC_WEAK (stmt) = weak;
11838 : 582 : SET_EXPR_LOCATION (stmt, loc);
11839 : : }
11840 : :
11841 : : /* Avoid -Wunused-value warnings here, the whole construct has side-effects
11842 : : and even if it might be wrapped from fold-const.cc or c-omp.cc wrapped
11843 : : in some tree that appears to be unused, the value is not unused. */
11844 : 3285 : warning_sentinel w (warn_unused_value);
11845 : 3285 : finish_expr_stmt (stmt);
11846 : 3285 : }
11847 : :
11848 : : void
11849 : 359 : finish_omp_barrier (void)
11850 : : {
11851 : 359 : tree fn = builtin_decl_explicit (BUILT_IN_GOMP_BARRIER);
11852 : 359 : releasing_vec vec;
11853 : 359 : tree stmt = finish_call_expr (fn, &vec, false, false, tf_warning_or_error);
11854 : 359 : finish_expr_stmt (stmt);
11855 : 359 : }
11856 : :
11857 : : void
11858 : 395 : finish_omp_depobj (location_t loc, tree depobj,
11859 : : enum omp_clause_depend_kind kind, tree clause)
11860 : : {
11861 : 395 : if (!error_operand_p (depobj) && !type_dependent_expression_p (depobj))
11862 : : {
11863 : 341 : if (!lvalue_p (depobj))
11864 : : {
11865 : 6 : error_at (EXPR_LOC_OR_LOC (depobj, loc),
11866 : : "%<depobj%> expression is not lvalue expression");
11867 : 6 : depobj = error_mark_node;
11868 : : }
11869 : : }
11870 : :
11871 : 395 : if (processing_template_decl)
11872 : : {
11873 : 114 : if (clause == NULL_TREE)
11874 : 47 : clause = build_int_cst (integer_type_node, kind);
11875 : 114 : add_stmt (build_min_nt_loc (loc, OMP_DEPOBJ, depobj, clause));
11876 : 114 : return;
11877 : : }
11878 : :
11879 : 281 : if (!error_operand_p (depobj))
11880 : : {
11881 : 272 : tree addr = cp_build_addr_expr (depobj, tf_warning_or_error);
11882 : 272 : if (addr == error_mark_node)
11883 : : depobj = error_mark_node;
11884 : : else
11885 : 272 : depobj = cp_build_indirect_ref (loc, addr, RO_UNARY_STAR,
11886 : : tf_warning_or_error);
11887 : : }
11888 : :
11889 : 281 : c_finish_omp_depobj (loc, depobj, kind, clause);
11890 : : }
11891 : :
11892 : : void
11893 : 156 : finish_omp_flush (int mo)
11894 : : {
11895 : 156 : tree fn = builtin_decl_explicit (BUILT_IN_SYNC_SYNCHRONIZE);
11896 : 156 : releasing_vec vec;
11897 : 156 : if (mo != MEMMODEL_LAST && mo != MEMMODEL_SEQ_CST)
11898 : : {
11899 : 54 : fn = builtin_decl_explicit (BUILT_IN_ATOMIC_THREAD_FENCE);
11900 : 54 : vec->quick_push (build_int_cst (integer_type_node, mo));
11901 : : }
11902 : 156 : tree stmt = finish_call_expr (fn, &vec, false, false, tf_warning_or_error);
11903 : 156 : finish_expr_stmt (stmt);
11904 : 156 : }
11905 : :
11906 : : void
11907 : 107 : finish_omp_taskwait (void)
11908 : : {
11909 : 107 : tree fn = builtin_decl_explicit (BUILT_IN_GOMP_TASKWAIT);
11910 : 107 : releasing_vec vec;
11911 : 107 : tree stmt = finish_call_expr (fn, &vec, false, false, tf_warning_or_error);
11912 : 107 : finish_expr_stmt (stmt);
11913 : 107 : }
11914 : :
11915 : : void
11916 : 16 : finish_omp_taskyield (void)
11917 : : {
11918 : 16 : tree fn = builtin_decl_explicit (BUILT_IN_GOMP_TASKYIELD);
11919 : 16 : releasing_vec vec;
11920 : 16 : tree stmt = finish_call_expr (fn, &vec, false, false, tf_warning_or_error);
11921 : 16 : finish_expr_stmt (stmt);
11922 : 16 : }
11923 : :
11924 : : void
11925 : 596 : finish_omp_cancel (tree clauses)
11926 : : {
11927 : 596 : tree fn = builtin_decl_explicit (BUILT_IN_GOMP_CANCEL);
11928 : 596 : int mask = 0;
11929 : 596 : if (omp_find_clause (clauses, OMP_CLAUSE_PARALLEL))
11930 : : mask = 1;
11931 : 414 : else if (omp_find_clause (clauses, OMP_CLAUSE_FOR))
11932 : : mask = 2;
11933 : 285 : else if (omp_find_clause (clauses, OMP_CLAUSE_SECTIONS))
11934 : : mask = 4;
11935 : 164 : else if (omp_find_clause (clauses, OMP_CLAUSE_TASKGROUP))
11936 : : mask = 8;
11937 : : else
11938 : : {
11939 : 0 : error ("%<#pragma omp cancel%> must specify one of "
11940 : : "%<parallel%>, %<for%>, %<sections%> or %<taskgroup%> clauses");
11941 : 0 : return;
11942 : : }
11943 : 596 : releasing_vec vec;
11944 : 596 : tree ifc = omp_find_clause (clauses, OMP_CLAUSE_IF);
11945 : 596 : if (ifc != NULL_TREE)
11946 : : {
11947 : 70 : if (OMP_CLAUSE_IF_MODIFIER (ifc) != ERROR_MARK
11948 : 70 : && OMP_CLAUSE_IF_MODIFIER (ifc) != VOID_CST)
11949 : 6 : error_at (OMP_CLAUSE_LOCATION (ifc),
11950 : : "expected %<cancel%> %<if%> clause modifier");
11951 : : else
11952 : : {
11953 : 64 : tree ifc2 = omp_find_clause (OMP_CLAUSE_CHAIN (ifc), OMP_CLAUSE_IF);
11954 : 64 : if (ifc2 != NULL_TREE)
11955 : : {
11956 : 3 : gcc_assert (OMP_CLAUSE_IF_MODIFIER (ifc) == VOID_CST
11957 : : && OMP_CLAUSE_IF_MODIFIER (ifc2) != ERROR_MARK
11958 : : && OMP_CLAUSE_IF_MODIFIER (ifc2) != VOID_CST);
11959 : 3 : error_at (OMP_CLAUSE_LOCATION (ifc2),
11960 : : "expected %<cancel%> %<if%> clause modifier");
11961 : : }
11962 : : }
11963 : :
11964 : 70 : if (!processing_template_decl)
11965 : 61 : ifc = maybe_convert_cond (OMP_CLAUSE_IF_EXPR (ifc));
11966 : : else
11967 : 9 : ifc = build_x_binary_op (OMP_CLAUSE_LOCATION (ifc), NE_EXPR,
11968 : 9 : OMP_CLAUSE_IF_EXPR (ifc), ERROR_MARK,
11969 : : integer_zero_node, ERROR_MARK,
11970 : : NULL_TREE, NULL, tf_warning_or_error);
11971 : : }
11972 : : else
11973 : 526 : ifc = boolean_true_node;
11974 : 596 : vec->quick_push (build_int_cst (integer_type_node, mask));
11975 : 596 : vec->quick_push (ifc);
11976 : 596 : tree stmt = finish_call_expr (fn, &vec, false, false, tf_warning_or_error);
11977 : 596 : finish_expr_stmt (stmt);
11978 : 596 : }
11979 : :
11980 : : void
11981 : 494 : finish_omp_cancellation_point (tree clauses)
11982 : : {
11983 : 494 : tree fn = builtin_decl_explicit (BUILT_IN_GOMP_CANCELLATION_POINT);
11984 : 494 : int mask = 0;
11985 : 494 : if (omp_find_clause (clauses, OMP_CLAUSE_PARALLEL))
11986 : : mask = 1;
11987 : 366 : else if (omp_find_clause (clauses, OMP_CLAUSE_FOR))
11988 : : mask = 2;
11989 : 261 : else if (omp_find_clause (clauses, OMP_CLAUSE_SECTIONS))
11990 : : mask = 4;
11991 : 156 : else if (omp_find_clause (clauses, OMP_CLAUSE_TASKGROUP))
11992 : : mask = 8;
11993 : : else
11994 : : {
11995 : 3 : error ("%<#pragma omp cancellation point%> must specify one of "
11996 : : "%<parallel%>, %<for%>, %<sections%> or %<taskgroup%> clauses");
11997 : 3 : return;
11998 : : }
11999 : 491 : releasing_vec vec
12000 : 491 : = make_tree_vector_single (build_int_cst (integer_type_node, mask));
12001 : 491 : tree stmt = finish_call_expr (fn, &vec, false, false, tf_warning_or_error);
12002 : 491 : finish_expr_stmt (stmt);
12003 : 491 : }
12004 : :
12005 : : /* Begin a __transaction_atomic or __transaction_relaxed statement.
12006 : : If PCOMPOUND is non-null, this is for a function-transaction-block, and we
12007 : : should create an extra compound stmt. */
12008 : :
12009 : : tree
12010 : 303 : begin_transaction_stmt (location_t loc, tree *pcompound, int flags)
12011 : : {
12012 : 303 : tree r;
12013 : :
12014 : 303 : if (pcompound)
12015 : 21 : *pcompound = begin_compound_stmt (0);
12016 : :
12017 : 303 : r = build_stmt (loc, TRANSACTION_EXPR, NULL_TREE);
12018 : :
12019 : : /* Only add the statement to the function if support enabled. */
12020 : 303 : if (flag_tm)
12021 : 297 : add_stmt (r);
12022 : : else
12023 : 12 : error_at (loc, ((flags & TM_STMT_ATTR_RELAXED) != 0
12024 : : ? G_("%<__transaction_relaxed%> without "
12025 : : "transactional memory support enabled")
12026 : : : G_("%<__transaction_atomic%> without "
12027 : : "transactional memory support enabled")));
12028 : :
12029 : 303 : TRANSACTION_EXPR_BODY (r) = push_stmt_list ();
12030 : 303 : TREE_SIDE_EFFECTS (r) = 1;
12031 : 303 : return r;
12032 : : }
12033 : :
12034 : : /* End a __transaction_atomic or __transaction_relaxed statement.
12035 : : If COMPOUND_STMT is non-null, this is for a function-transaction-block,
12036 : : and we should end the compound. If NOEX is non-NULL, we wrap the body in
12037 : : a MUST_NOT_THROW_EXPR with NOEX as condition. */
12038 : :
12039 : : void
12040 : 303 : finish_transaction_stmt (tree stmt, tree compound_stmt, int flags, tree noex)
12041 : : {
12042 : 303 : TRANSACTION_EXPR_BODY (stmt) = pop_stmt_list (TRANSACTION_EXPR_BODY (stmt));
12043 : 303 : TRANSACTION_EXPR_OUTER (stmt) = (flags & TM_STMT_ATTR_OUTER) != 0;
12044 : 303 : TRANSACTION_EXPR_RELAXED (stmt) = (flags & TM_STMT_ATTR_RELAXED) != 0;
12045 : 303 : TRANSACTION_EXPR_IS_STMT (stmt) = 1;
12046 : :
12047 : : /* noexcept specifications are not allowed for function transactions. */
12048 : 303 : gcc_assert (!(noex && compound_stmt));
12049 : 303 : if (noex)
12050 : : {
12051 : 51 : tree body = build_must_not_throw_expr (TRANSACTION_EXPR_BODY (stmt),
12052 : : noex);
12053 : 51 : protected_set_expr_location
12054 : 51 : (body, EXPR_LOCATION (TRANSACTION_EXPR_BODY (stmt)));
12055 : 51 : TREE_SIDE_EFFECTS (body) = 1;
12056 : 51 : TRANSACTION_EXPR_BODY (stmt) = body;
12057 : : }
12058 : :
12059 : 303 : if (compound_stmt)
12060 : 21 : finish_compound_stmt (compound_stmt);
12061 : 303 : }
12062 : :
12063 : : /* Build a __transaction_atomic or __transaction_relaxed expression. If
12064 : : NOEX is non-NULL, we wrap the body in a MUST_NOT_THROW_EXPR with NOEX as
12065 : : condition. */
12066 : :
12067 : : tree
12068 : 116 : build_transaction_expr (location_t loc, tree expr, int flags, tree noex)
12069 : : {
12070 : 116 : tree ret;
12071 : 116 : if (noex)
12072 : : {
12073 : 57 : expr = build_must_not_throw_expr (expr, noex);
12074 : 57 : protected_set_expr_location (expr, loc);
12075 : 57 : TREE_SIDE_EFFECTS (expr) = 1;
12076 : : }
12077 : 116 : ret = build1 (TRANSACTION_EXPR, TREE_TYPE (expr), expr);
12078 : 116 : if (flags & TM_STMT_ATTR_RELAXED)
12079 : 4 : TRANSACTION_EXPR_RELAXED (ret) = 1;
12080 : 116 : TREE_SIDE_EFFECTS (ret) = 1;
12081 : 116 : SET_EXPR_LOCATION (ret, loc);
12082 : 116 : return ret;
12083 : : }
12084 : :
12085 : : void
12086 : 92703 : init_cp_semantics (void)
12087 : : {
12088 : 92703 : }
12089 : :
12090 : :
12091 : : /* Get constant string at LOCATION. Returns true if successful,
12092 : : otherwise false. */
12093 : :
12094 : : bool
12095 : 8175581 : cexpr_str::type_check (location_t location)
12096 : : {
12097 : 8175581 : tsubst_flags_t complain = tf_warning_or_error;
12098 : :
12099 : 8175581 : if (message == NULL_TREE
12100 : 8175581 : || message == error_mark_node
12101 : 16351159 : || check_for_bare_parameter_packs (message))
12102 : 3 : return false;
12103 : :
12104 : 8175578 : if (TREE_CODE (message) != STRING_CST
12105 : 8175578 : && !type_dependent_expression_p (message))
12106 : : {
12107 : 256 : message_sz
12108 : 256 : = finish_class_member_access_expr (message,
12109 : : get_identifier ("size"),
12110 : : false, complain);
12111 : 256 : if (message_sz != error_mark_node)
12112 : 233 : message_data
12113 : 233 : = finish_class_member_access_expr (message,
12114 : : get_identifier ("data"),
12115 : : false, complain);
12116 : 256 : if (message_sz == error_mark_node || message_data == error_mark_node)
12117 : : {
12118 : 31 : error_at (location, "constexpr string must be a string "
12119 : : "literal or object with %<size%> and "
12120 : : "%<data%> members");
12121 : 73 : return false;
12122 : : }
12123 : 225 : releasing_vec size_args, data_args;
12124 : 225 : message_sz = finish_call_expr (message_sz, &size_args, false, false,
12125 : : complain);
12126 : 225 : message_data = finish_call_expr (message_data, &data_args, false, false,
12127 : : complain);
12128 : 225 : if (message_sz == error_mark_node || message_data == error_mark_node)
12129 : : return false;
12130 : 195 : message_sz = build_converted_constant_expr (size_type_node, message_sz,
12131 : : complain);
12132 : 195 : if (message_sz == error_mark_node)
12133 : : {
12134 : 4 : error_at (location, "constexpr string %<size()%> "
12135 : : "must be implicitly convertible to "
12136 : : "%<std::size_t%>");
12137 : 4 : return false;
12138 : : }
12139 : 191 : message_data = build_converted_constant_expr (const_string_type_node,
12140 : : message_data, complain);
12141 : 191 : if (message_data == error_mark_node)
12142 : : {
12143 : 8 : error_at (location, "constexpr string %<data()%> "
12144 : : "must be implicitly convertible to "
12145 : : "%<const char*%>");
12146 : 8 : return false;
12147 : : }
12148 : 225 : }
12149 : : return true;
12150 : : }
12151 : :
12152 : : /* Extract constant string at LOCATON into output string STR.
12153 : : Returns true if successful, otherwise false. */
12154 : :
12155 : : bool
12156 : 8 : cexpr_str::extract (location_t location, tree &str)
12157 : : {
12158 : 8 : const char *msg;
12159 : 8 : int len;
12160 : 8 : if (!extract (location, msg, len))
12161 : : return false;
12162 : 8 : str = build_string (len, msg);
12163 : 8 : return true;
12164 : : }
12165 : :
12166 : : /* Extract constant string at LOCATION into output string MSG with LEN.
12167 : : Returns true if successful, otherwise false. */
12168 : :
12169 : : bool
12170 : 1146 : cexpr_str::extract (location_t location, const char * & msg, int &len)
12171 : : {
12172 : 1146 : tsubst_flags_t complain = tf_warning_or_error;
12173 : :
12174 : 1146 : msg = NULL;
12175 : 1146 : if (message_sz && message_data)
12176 : : {
12177 : 127 : tree msz = cxx_constant_value (message_sz, NULL_TREE, complain);
12178 : 127 : if (!tree_fits_uhwi_p (msz))
12179 : : {
12180 : 5 : error_at (location,
12181 : : "constexpr string %<size()%> "
12182 : : "must be a constant expression");
12183 : 5 : return false;
12184 : : }
12185 : 122 : else if ((unsigned HOST_WIDE_INT) (int) tree_to_uhwi (msz)
12186 : : != tree_to_uhwi (msz))
12187 : : {
12188 : 0 : error_at (location,
12189 : : "constexpr string message %<size()%> "
12190 : : "%qE too large", msz);
12191 : 0 : return false;
12192 : : }
12193 : 122 : len = tree_to_uhwi (msz);
12194 : 122 : tree data = maybe_constant_value (message_data, NULL_TREE,
12195 : : mce_true);
12196 : 122 : if (!reduced_constant_expression_p (data))
12197 : 23 : data = NULL_TREE;
12198 : 122 : if (len)
12199 : : {
12200 : 107 : if (data)
12201 : 87 : msg = c_getstr (data);
12202 : 107 : if (msg == NULL)
12203 : 32 : buf = XNEWVEC (char, len);
12204 : 356 : for (int i = 0; i < len; ++i)
12205 : : {
12206 : 256 : tree t = message_data;
12207 : 256 : if (i)
12208 : 298 : t = build2 (POINTER_PLUS_EXPR,
12209 : 149 : TREE_TYPE (message_data), message_data,
12210 : 149 : size_int (i));
12211 : 256 : t = build1 (INDIRECT_REF, TREE_TYPE (TREE_TYPE (t)), t);
12212 : 256 : tree t2 = cxx_constant_value (t, NULL_TREE, complain);
12213 : 256 : if (!tree_fits_shwi_p (t2))
12214 : : {
12215 : 7 : error_at (location,
12216 : : "constexpr string %<data()[%d]%> "
12217 : : "must be a constant expression", i);
12218 : 7 : return false;
12219 : : }
12220 : 249 : if (msg == NULL)
12221 : 104 : buf[i] = tree_to_shwi (t2);
12222 : : /* If c_getstr worked, just verify the first and
12223 : : last characters using constant evaluation. */
12224 : 145 : else if (len > 2 && i == 0)
12225 : 65 : i = len - 2;
12226 : : }
12227 : 100 : if (msg == NULL)
12228 : 29 : msg = buf;
12229 : : }
12230 : 15 : else if (!data)
12231 : : {
12232 : : /* We don't have any function to test whether some
12233 : : expression is a core constant expression. So, instead
12234 : : test whether (message.data (), 0) is a constant
12235 : : expression. */
12236 : 3 : data = build2 (COMPOUND_EXPR, integer_type_node,
12237 : : message_data, integer_zero_node);
12238 : 3 : tree t = cxx_constant_value (data, NULL_TREE, complain);
12239 : 3 : if (!integer_zerop (t))
12240 : : {
12241 : 3 : error_at (location,
12242 : : "constexpr string %<data()%> "
12243 : : "must be a core constant expression");
12244 : 3 : return false;
12245 : : }
12246 : : }
12247 : : }
12248 : : else
12249 : : {
12250 : 1019 : tree eltype = TREE_TYPE (TREE_TYPE (message));
12251 : 1019 : int sz = TREE_INT_CST_LOW (TYPE_SIZE_UNIT (eltype));
12252 : 1019 : msg = TREE_STRING_POINTER (message);
12253 : 1019 : len = TREE_STRING_LENGTH (message) / sz - 1;
12254 : : }
12255 : :
12256 : : return true;
12257 : : }
12258 : :
12259 : : /* Build a STATIC_ASSERT for a static assertion with the condition
12260 : : CONDITION and the message text MESSAGE. LOCATION is the location
12261 : : of the static assertion in the source code. When MEMBER_P, this
12262 : : static assertion is a member of a class. If SHOW_EXPR_P is true,
12263 : : print the condition (because it was instantiation-dependent). */
12264 : :
12265 : : void
12266 : 8175754 : finish_static_assert (tree condition, tree message, location_t location,
12267 : : bool member_p, bool show_expr_p)
12268 : : {
12269 : 8175754 : tsubst_flags_t complain = tf_warning_or_error;
12270 : :
12271 : 8175754 : if (condition == NULL_TREE
12272 : 8175754 : || condition == error_mark_node)
12273 : 3711632 : return;
12274 : :
12275 : 8175576 : if (check_for_bare_parameter_packs (condition))
12276 : : return;
12277 : :
12278 : 8175573 : cexpr_str cstr(message);
12279 : 8175573 : if (!cstr.type_check (location))
12280 : : return;
12281 : :
12282 : : /* Save the condition in case it was a concept check. */
12283 : 8175497 : tree orig_condition = condition;
12284 : :
12285 : 8175497 : if (instantiation_dependent_expression_p (condition)
12286 : 8175497 : || instantiation_dependent_expression_p (message))
12287 : : {
12288 : : /* We're in a template; build a STATIC_ASSERT and put it in
12289 : : the right place. */
12290 : 3711360 : defer:
12291 : 3711360 : tree assertion = make_node (STATIC_ASSERT);
12292 : 3711360 : STATIC_ASSERT_CONDITION (assertion) = orig_condition;
12293 : 3711360 : STATIC_ASSERT_MESSAGE (assertion) = cstr.message;
12294 : 3711360 : STATIC_ASSERT_SOURCE_LOCATION (assertion) = location;
12295 : :
12296 : 3711360 : if (member_p)
12297 : 2065068 : maybe_add_class_template_decl_list (current_class_type,
12298 : : assertion,
12299 : : /*friend_p=*/0);
12300 : : else
12301 : 1646292 : add_stmt (assertion);
12302 : :
12303 : 3711360 : return;
12304 : : }
12305 : :
12306 : : /* Fold the expression and convert it to a boolean value. */
12307 : 4465322 : condition = contextual_conv_bool (condition, complain);
12308 : 4465322 : condition = fold_non_dependent_expr (condition, complain,
12309 : : /*manifestly_const_eval=*/true);
12310 : :
12311 : 4465322 : if (TREE_CODE (condition) == INTEGER_CST && !integer_zerop (condition))
12312 : : /* Do nothing; the condition is satisfied. */
12313 : : ;
12314 : : else
12315 : : {
12316 : 2512 : iloc_sentinel ils (location);
12317 : :
12318 : 2512 : if (integer_zerop (condition))
12319 : : {
12320 : : /* CWG2518: static_assert failure in a template is not IFNDR. */
12321 : 2323 : if (processing_template_decl)
12322 : 1185 : goto defer;
12323 : :
12324 : 1138 : int len;
12325 : 1138 : const char *msg = NULL;
12326 : 1138 : if (!cstr.extract (location, msg, len))
12327 : 15 : return;
12328 : :
12329 : : /* See if we can find which clause was failing (for logical AND). */
12330 : 1123 : tree bad = find_failing_clause (NULL, orig_condition);
12331 : : /* If not, or its location is unusable, fall back to the previous
12332 : : location. */
12333 : 1123 : location_t cloc = cp_expr_loc_or_loc (bad, location);
12334 : :
12335 : 1123 : auto_diagnostic_group d;
12336 : :
12337 : : /* Report the error. */
12338 : 1123 : if (len == 0)
12339 : 593 : error_at (cloc, "static assertion failed");
12340 : : else
12341 : 530 : error_at (cloc, "static assertion failed: %.*s", len, msg);
12342 : :
12343 : 1123 : diagnose_failing_condition (bad, cloc, show_expr_p);
12344 : 1123 : }
12345 : 189 : else if (condition && condition != error_mark_node)
12346 : : {
12347 : 186 : error ("non-constant condition for static assertion");
12348 : 186 : if (require_rvalue_constant_expression (condition))
12349 : 131 : cxx_constant_value (condition);
12350 : : }
12351 : 2512 : }
12352 : 8175573 : }
12353 : :
12354 : : /* Implements the C++0x decltype keyword. Returns the type of EXPR,
12355 : : suitable for use as a type-specifier.
12356 : :
12357 : : ID_EXPRESSION_OR_MEMBER_ACCESS_P is true when EXPR was parsed as an
12358 : : id-expression or a class member access, FALSE when it was parsed as
12359 : : a full expression. */
12360 : :
12361 : : tree
12362 : 18398800 : finish_decltype_type (tree expr, bool id_expression_or_member_access_p,
12363 : : tsubst_flags_t complain)
12364 : : {
12365 : 18398800 : tree type = NULL_TREE;
12366 : :
12367 : 18398800 : if (!expr || error_operand_p (expr))
12368 : 87805 : return error_mark_node;
12369 : :
12370 : 18310995 : if (TYPE_P (expr)
12371 : 18310995 : || TREE_CODE (expr) == TYPE_DECL
12372 : 36621972 : || (TREE_CODE (expr) == BIT_NOT_EXPR
12373 : 12366 : && TYPE_P (TREE_OPERAND (expr, 0))))
12374 : : {
12375 : 27 : if (complain & tf_error)
12376 : 27 : error ("argument to %<decltype%> must be an expression");
12377 : 27 : return error_mark_node;
12378 : : }
12379 : :
12380 : : /* decltype is an unevaluated context. */
12381 : 18310968 : cp_unevaluated u;
12382 : :
12383 : 18310968 : processing_template_decl_sentinel ptds (/*reset=*/false);
12384 : :
12385 : : /* Depending on the resolution of DR 1172, we may later need to distinguish
12386 : : instantiation-dependent but not type-dependent expressions so that, say,
12387 : : A<decltype(sizeof(T))>::U doesn't require 'typename'. */
12388 : 18310968 : if (instantiation_dependent_uneval_expression_p (expr))
12389 : : {
12390 : 4195059 : dependent:
12391 : 4195443 : type = cxx_make_type (DECLTYPE_TYPE);
12392 : 4195443 : DECLTYPE_TYPE_EXPR (type) = expr;
12393 : 8390886 : DECLTYPE_TYPE_ID_EXPR_OR_MEMBER_ACCESS_P (type)
12394 : 4195443 : = id_expression_or_member_access_p;
12395 : 4195443 : SET_TYPE_STRUCTURAL_EQUALITY (type);
12396 : :
12397 : 4195443 : return type;
12398 : : }
12399 : 14115909 : else if (processing_template_decl)
12400 : : {
12401 : 5929 : expr = instantiate_non_dependent_expr (expr, complain|tf_decltype);
12402 : 5929 : if (expr == error_mark_node)
12403 : : return error_mark_node;
12404 : : /* Keep processing_template_decl cleared for the rest of the function
12405 : : (for sake of the call to lvalue_kind below, which handles templated
12406 : : and non-templated COND_EXPR differently). */
12407 : 5891 : processing_template_decl = 0;
12408 : : }
12409 : :
12410 : : /* The type denoted by decltype(e) is defined as follows: */
12411 : :
12412 : 14115871 : expr = resolve_nondeduced_context (expr, complain);
12413 : 14115871 : if (!mark_single_function (expr, complain))
12414 : 0 : return error_mark_node;
12415 : :
12416 : 14115871 : if (invalid_nonstatic_memfn_p (input_location, expr, complain))
12417 : 18 : return error_mark_node;
12418 : :
12419 : 14115853 : if (type_unknown_p (expr))
12420 : : {
12421 : 18 : if (complain & tf_error)
12422 : 6 : error ("%<decltype%> cannot resolve address of overloaded function");
12423 : 18 : return error_mark_node;
12424 : : }
12425 : :
12426 : 14115835 : if (id_expression_or_member_access_p)
12427 : : {
12428 : : /* If e is an id-expression or a class member access (5.2.5
12429 : : [expr.ref]), decltype(e) is defined as the type of the entity
12430 : : named by e. If there is no such entity, or e names a set of
12431 : : overloaded functions, the program is ill-formed. */
12432 : 744748 : if (identifier_p (expr))
12433 : 0 : expr = lookup_name (expr);
12434 : :
12435 : 744748 : if (INDIRECT_REF_P (expr)
12436 : 744748 : || TREE_CODE (expr) == VIEW_CONVERT_EXPR)
12437 : : /* This can happen when the expression is, e.g., "a.b". Just
12438 : : look at the underlying operand. */
12439 : 629167 : expr = TREE_OPERAND (expr, 0);
12440 : :
12441 : 744748 : if (TREE_CODE (expr) == OFFSET_REF
12442 : 744748 : || TREE_CODE (expr) == MEMBER_REF
12443 : 744748 : || TREE_CODE (expr) == SCOPE_REF)
12444 : : /* We're only interested in the field itself. If it is a
12445 : : BASELINK, we will need to see through it in the next
12446 : : step. */
12447 : 0 : expr = TREE_OPERAND (expr, 1);
12448 : :
12449 : 744748 : if (BASELINK_P (expr))
12450 : : /* See through BASELINK nodes to the underlying function. */
12451 : 3 : expr = BASELINK_FUNCTIONS (expr);
12452 : :
12453 : : /* decltype of a decomposition name drops references in the tuple case
12454 : : (unlike decltype of a normal variable) and keeps cv-qualifiers from
12455 : : the containing object in the other cases (unlike decltype of a member
12456 : : access expression). */
12457 : 744748 : if (DECL_DECOMPOSITION_P (expr))
12458 : : {
12459 : 129 : if (ptds.saved)
12460 : : {
12461 : 6 : gcc_checking_assert (DECL_HAS_VALUE_EXPR_P (expr));
12462 : : /* DECL_HAS_VALUE_EXPR_P is always set if
12463 : : processing_template_decl. If lookup_decomp_type
12464 : : returns non-NULL, it is the tuple case. */
12465 : 6 : if (tree ret = lookup_decomp_type (expr))
12466 : : return ret;
12467 : : }
12468 : 126 : if (DECL_HAS_VALUE_EXPR_P (expr))
12469 : : /* Expr is an array or struct subobject proxy, handle
12470 : : bit-fields properly. */
12471 : 78 : return unlowered_expr_type (expr);
12472 : : else
12473 : : /* Expr is a reference variable for the tuple case. */
12474 : 48 : return lookup_decomp_type (expr);
12475 : : }
12476 : :
12477 : 744619 : switch (TREE_CODE (expr))
12478 : : {
12479 : 9 : case FIELD_DECL:
12480 : 9 : if (DECL_BIT_FIELD_TYPE (expr))
12481 : : {
12482 : : type = DECL_BIT_FIELD_TYPE (expr);
12483 : : break;
12484 : : }
12485 : : /* Fall through for fields that aren't bitfields. */
12486 : 105414 : gcc_fallthrough ();
12487 : :
12488 : 105414 : case VAR_DECL:
12489 : 105414 : if (is_capture_proxy (expr))
12490 : : {
12491 : 57 : if (is_normal_capture_proxy (expr))
12492 : : {
12493 : 21 : expr = DECL_CAPTURED_VARIABLE (expr);
12494 : 21 : type = TREE_TYPE (expr);
12495 : : }
12496 : : else
12497 : : {
12498 : 36 : expr = DECL_VALUE_EXPR (expr);
12499 : 36 : gcc_assert (TREE_CODE (expr) == COMPONENT_REF);
12500 : 36 : expr = TREE_OPERAND (expr, 1);
12501 : 36 : type = TREE_TYPE (expr);
12502 : : }
12503 : : break;
12504 : : }
12505 : : /* Fall through for variables that aren't capture proxies. */
12506 : 743427 : gcc_fallthrough ();
12507 : :
12508 : 743427 : case FUNCTION_DECL:
12509 : 743427 : case CONST_DECL:
12510 : 743427 : case PARM_DECL:
12511 : 743427 : case RESULT_DECL:
12512 : 743427 : case TEMPLATE_PARM_INDEX:
12513 : 743427 : expr = mark_type_use (expr);
12514 : 743427 : type = TREE_TYPE (expr);
12515 : 743427 : if (VAR_P (expr) && DECL_NTTP_OBJECT_P (expr))
12516 : : {
12517 : : /* decltype of an NTTP object is the type of the template
12518 : : parameter, which is the object type modulo cv-quals. */
12519 : 21 : int quals = cp_type_quals (type);
12520 : 21 : gcc_checking_assert (quals & TYPE_QUAL_CONST);
12521 : 21 : type = cv_unqualified (type);
12522 : : }
12523 : : break;
12524 : :
12525 : 0 : case ERROR_MARK:
12526 : 0 : type = error_mark_node;
12527 : 0 : break;
12528 : :
12529 : 990 : case COMPONENT_REF:
12530 : 990 : case COMPOUND_EXPR:
12531 : 990 : mark_type_use (expr);
12532 : 990 : type = is_bitfield_expr_with_lowered_type (expr);
12533 : 990 : if (!type)
12534 : 957 : type = TREE_TYPE (TREE_OPERAND (expr, 1));
12535 : : break;
12536 : :
12537 : 0 : case BIT_FIELD_REF:
12538 : 0 : gcc_unreachable ();
12539 : :
12540 : 99 : case INTEGER_CST:
12541 : 99 : case PTRMEM_CST:
12542 : : /* We can get here when the id-expression refers to an
12543 : : enumerator or non-type template parameter. */
12544 : 99 : type = TREE_TYPE (expr);
12545 : 99 : break;
12546 : :
12547 : 46 : default:
12548 : : /* Handle instantiated template non-type arguments. */
12549 : 46 : type = TREE_TYPE (expr);
12550 : 46 : break;
12551 : : }
12552 : : }
12553 : : else
12554 : : {
12555 : 25611393 : if (outer_automatic_var_p (STRIP_REFERENCE_REF (expr))
12556 : 800 : && current_function_decl
12557 : 13372687 : && LAMBDA_FUNCTION_P (current_function_decl))
12558 : : {
12559 : : /* [expr.prim.id.unqual]/3: If naming the entity from outside of an
12560 : : unevaluated operand within S would refer to an entity captured by
12561 : : copy in some intervening lambda-expression, then let E be the
12562 : : innermost such lambda-expression.
12563 : :
12564 : : If there is such a lambda-expression and if P is in E's function
12565 : : parameter scope but not its parameter-declaration-clause, then the
12566 : : type of the expression is the type of a class member access
12567 : : expression naming the non-static data member that would be declared
12568 : : for such a capture in the object parameter of the function call
12569 : : operator of E." */
12570 : : /* FIXME: This transformation needs to happen for all uses of an outer
12571 : : local variable inside decltype, not just decltype((x)) (PR83167).
12572 : : And we don't handle nested lambdas properly, where we need to
12573 : : consider the outer lambdas as well (PR112926). */
12574 : 800 : tree decl = STRIP_REFERENCE_REF (expr);
12575 : 800 : tree lam = CLASSTYPE_LAMBDA_EXPR (DECL_CONTEXT (current_function_decl));
12576 : 800 : tree cap = lookup_name (DECL_NAME (decl), LOOK_where::BLOCK,
12577 : : LOOK_want::HIDDEN_LAMBDA);
12578 : :
12579 : 800 : if (cap && is_capture_proxy (cap))
12580 : 261 : type = TREE_TYPE (cap);
12581 : 539 : else if (LAMBDA_EXPR_DEFAULT_CAPTURE_MODE (lam) == CPLD_COPY)
12582 : : {
12583 : 431 : type = TREE_TYPE (decl);
12584 : 431 : if (TYPE_REF_P (type)
12585 : 431 : && TREE_CODE (TREE_TYPE (type)) != FUNCTION_TYPE)
12586 : 3 : type = TREE_TYPE (type);
12587 : : }
12588 : :
12589 : 692 : if (type && !TYPE_REF_P (type))
12590 : : {
12591 : 638 : tree obtype = TREE_TYPE (DECL_ARGUMENTS (current_function_decl));
12592 : 638 : if (WILDCARD_TYPE_P (non_reference (obtype)))
12593 : : /* We don't know what the eventual obtype quals will be. */
12594 : 384 : goto dependent;
12595 : 508 : auto direct_type = [](tree t){
12596 : 254 : if (INDIRECT_TYPE_P (t))
12597 : 146 : return TREE_TYPE (t);
12598 : : return t;
12599 : : };
12600 : 254 : int const quals = cp_type_quals (type)
12601 : 254 : | cp_type_quals (direct_type (obtype));
12602 : 254 : type = cp_build_qualified_type (type, quals);
12603 : 254 : type = build_reference_type (type);
12604 : : }
12605 : : }
12606 : 13370287 : else if (error_operand_p (expr))
12607 : 0 : type = error_mark_node;
12608 : 13370287 : else if (expr == current_class_ptr)
12609 : : /* If the expression is just "this", we want the
12610 : : cv-unqualified pointer for the "this" type. */
12611 : 0 : type = TYPE_MAIN_VARIANT (TREE_TYPE (expr));
12612 : :
12613 : 254 : if (!type)
12614 : : {
12615 : : /* Otherwise, where T is the type of e, if e is an lvalue,
12616 : : decltype(e) is defined as T&; if an xvalue, T&&; otherwise, T. */
12617 : 13370395 : cp_lvalue_kind clk = lvalue_kind (expr);
12618 : 13370395 : type = unlowered_expr_type (expr);
12619 : 13370395 : gcc_assert (!TYPE_REF_P (type));
12620 : :
12621 : : /* For vector types, pick a non-opaque variant. */
12622 : 13370395 : if (VECTOR_TYPE_P (type))
12623 : 127 : type = strip_typedefs (type);
12624 : :
12625 : 13370395 : if (clk != clk_none && !(clk & clk_class))
12626 : 2098097 : type = cp_build_reference_type (type, (clk & clk_rvalueref));
12627 : : }
12628 : : }
12629 : :
12630 : : return type;
12631 : 18310968 : }
12632 : :
12633 : : /* Called from trait_expr_value to evaluate either __has_nothrow_assign or
12634 : : __has_nothrow_copy, depending on assign_p. Returns true iff all
12635 : : the copy {ctor,assign} fns are nothrow. */
12636 : :
12637 : : static bool
12638 : 279 : classtype_has_nothrow_assign_or_copy_p (tree type, bool assign_p)
12639 : : {
12640 : 279 : tree fns = NULL_TREE;
12641 : :
12642 : 279 : if (assign_p || TYPE_HAS_COPY_CTOR (type))
12643 : 276 : fns = get_class_binding (type, assign_p ? assign_op_identifier
12644 : : : ctor_identifier);
12645 : :
12646 : 279 : bool saw_copy = false;
12647 : 696 : for (ovl_iterator iter (fns); iter; ++iter)
12648 : : {
12649 : 441 : tree fn = *iter;
12650 : :
12651 : 441 : if (copy_fn_p (fn) > 0)
12652 : : {
12653 : 423 : saw_copy = true;
12654 : 423 : if (!maybe_instantiate_noexcept (fn)
12655 : 423 : || !TYPE_NOTHROW_P (TREE_TYPE (fn)))
12656 : 192 : return false;
12657 : : }
12658 : : }
12659 : :
12660 : 87 : return saw_copy;
12661 : : }
12662 : :
12663 : : /* Return true if DERIVED is pointer interconvertible base of BASE. */
12664 : :
12665 : : static bool
12666 : 124 : pointer_interconvertible_base_of_p (tree base, tree derived)
12667 : : {
12668 : 124 : if (base == error_mark_node || derived == error_mark_node)
12669 : : return false;
12670 : 124 : base = TYPE_MAIN_VARIANT (base);
12671 : 124 : derived = TYPE_MAIN_VARIANT (derived);
12672 : 113 : if (!NON_UNION_CLASS_TYPE_P (base)
12673 : 237 : || !NON_UNION_CLASS_TYPE_P (derived))
12674 : : return false;
12675 : :
12676 : 113 : if (same_type_p (base, derived))
12677 : : return true;
12678 : :
12679 : 82 : if (!std_layout_type_p (derived))
12680 : : return false;
12681 : :
12682 : 77 : return uniquely_derived_from_p (base, derived);
12683 : : }
12684 : :
12685 : : /* Helper function for fold_builtin_is_pointer_inverconvertible_with_class,
12686 : : return true if MEMBERTYPE is the type of the first non-static data member
12687 : : of TYPE or for unions of any members. */
12688 : : static bool
12689 : 696 : first_nonstatic_data_member_p (tree type, tree membertype)
12690 : : {
12691 : 1416 : for (tree field = TYPE_FIELDS (type); field; field = DECL_CHAIN (field))
12692 : : {
12693 : 1329 : if (TREE_CODE (field) != FIELD_DECL)
12694 : 159 : continue;
12695 : 1170 : if (DECL_FIELD_IS_BASE (field) && is_empty_field (field))
12696 : 60 : continue;
12697 : 1110 : if (DECL_FIELD_IS_BASE (field))
12698 : 45 : return first_nonstatic_data_member_p (TREE_TYPE (field), membertype);
12699 : 1065 : if (ANON_AGGR_TYPE_P (TREE_TYPE (field)))
12700 : : {
12701 : 237 : if ((TREE_CODE (TREE_TYPE (field)) == UNION_TYPE
12702 : 156 : || std_layout_type_p (TREE_TYPE (field)))
12703 : 324 : && first_nonstatic_data_member_p (TREE_TYPE (field), membertype))
12704 : : return true;
12705 : : }
12706 : 828 : else if (same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (field),
12707 : : membertype))
12708 : : return true;
12709 : 596 : if (TREE_CODE (type) != UNION_TYPE)
12710 : : return false;
12711 : : }
12712 : : return false;
12713 : : }
12714 : :
12715 : : /* Fold __builtin_is_pointer_interconvertible_with_class call. */
12716 : :
12717 : : tree
12718 : 605 : fold_builtin_is_pointer_inverconvertible_with_class (location_t loc, int nargs,
12719 : : tree *args)
12720 : : {
12721 : : /* Unless users call the builtin directly, the following 3 checks should be
12722 : : ensured from std::is_pointer_interconvertible_with_class function
12723 : : template. */
12724 : 605 : if (nargs != 1)
12725 : : {
12726 : 6 : error_at (loc, "%<__builtin_is_pointer_interconvertible_with_class%> "
12727 : : "needs a single argument");
12728 : 6 : return boolean_false_node;
12729 : : }
12730 : 599 : tree arg = args[0];
12731 : 599 : if (error_operand_p (arg))
12732 : 0 : return boolean_false_node;
12733 : 599 : if (!TYPE_PTRMEM_P (TREE_TYPE (arg)))
12734 : : {
12735 : 6 : error_at (loc, "%<__builtin_is_pointer_interconvertible_with_class%> "
12736 : : "argument is not pointer to member");
12737 : 6 : return boolean_false_node;
12738 : : }
12739 : :
12740 : 593 : if (!TYPE_PTRDATAMEM_P (TREE_TYPE (arg)))
12741 : 26 : return boolean_false_node;
12742 : :
12743 : 567 : tree membertype = TREE_TYPE (TREE_TYPE (arg));
12744 : 567 : tree basetype = TYPE_OFFSET_BASETYPE (TREE_TYPE (arg));
12745 : 567 : if (!complete_type_or_else (basetype, NULL_TREE))
12746 : 3 : return boolean_false_node;
12747 : :
12748 : 564 : if (TREE_CODE (basetype) != UNION_TYPE
12749 : 564 : && !std_layout_type_p (basetype))
12750 : 36 : return boolean_false_node;
12751 : :
12752 : 528 : if (!first_nonstatic_data_member_p (basetype, membertype))
12753 : 161 : return boolean_false_node;
12754 : :
12755 : 367 : if (TREE_CODE (arg) == PTRMEM_CST)
12756 : 76 : arg = cplus_expand_constant (arg);
12757 : :
12758 : 367 : if (integer_nonzerop (arg))
12759 : 22 : return boolean_false_node;
12760 : 345 : if (integer_zerop (arg))
12761 : 73 : return boolean_true_node;
12762 : :
12763 : 272 : return fold_build2 (EQ_EXPR, boolean_type_node, arg,
12764 : : build_zero_cst (TREE_TYPE (arg)));
12765 : : }
12766 : :
12767 : : /* Helper function for is_corresponding_member_aggr. Return true if
12768 : : MEMBERTYPE pointer-to-data-member ARG can be found in anonymous
12769 : : union or structure BASETYPE. */
12770 : :
12771 : : static bool
12772 : 96 : is_corresponding_member_union (tree basetype, tree membertype, tree arg)
12773 : : {
12774 : 231 : for (tree field = TYPE_FIELDS (basetype); field; field = DECL_CHAIN (field))
12775 : 201 : if (TREE_CODE (field) != FIELD_DECL || DECL_BIT_FIELD_TYPE (field))
12776 : 36 : continue;
12777 : 165 : else if (same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (field),
12778 : : membertype))
12779 : : {
12780 : 54 : if (TREE_CODE (arg) != INTEGER_CST
12781 : 54 : || tree_int_cst_equal (arg, byte_position (field)))
12782 : 54 : return true;
12783 : : }
12784 : 111 : else if (ANON_AGGR_TYPE_P (TREE_TYPE (field)))
12785 : : {
12786 : 18 : tree narg = arg;
12787 : 18 : if (TREE_CODE (basetype) != UNION_TYPE
12788 : 0 : && TREE_CODE (narg) == INTEGER_CST)
12789 : 0 : narg = size_binop (MINUS_EXPR, arg, byte_position (field));
12790 : 18 : if (is_corresponding_member_union (TREE_TYPE (field),
12791 : : membertype, narg))
12792 : : return true;
12793 : : }
12794 : : return false;
12795 : : }
12796 : :
12797 : : /* Helper function for fold_builtin_is_corresponding_member call.
12798 : : Return boolean_false_node if MEMBERTYPE1 BASETYPE1::*ARG1 and
12799 : : MEMBERTYPE2 BASETYPE2::*ARG2 aren't corresponding members,
12800 : : boolean_true_node if they are corresponding members, or for
12801 : : non-constant ARG2 the highest member offset for corresponding
12802 : : members. */
12803 : :
12804 : : static tree
12805 : 550 : is_corresponding_member_aggr (location_t loc, tree basetype1, tree membertype1,
12806 : : tree arg1, tree basetype2, tree membertype2,
12807 : : tree arg2)
12808 : : {
12809 : 550 : tree field1 = TYPE_FIELDS (basetype1);
12810 : 550 : tree field2 = TYPE_FIELDS (basetype2);
12811 : 550 : tree ret = boolean_false_node;
12812 : 2402 : while (1)
12813 : : {
12814 : 1476 : bool r = next_common_initial_sequence (field1, field2);
12815 : 1476 : if (field1 == NULL_TREE || field2 == NULL_TREE)
12816 : : break;
12817 : 1350 : if (r
12818 : 1050 : && same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (field1),
12819 : : membertype1)
12820 : 1872 : && same_type_ignoring_top_level_qualifiers_p (TREE_TYPE (field2),
12821 : : membertype2))
12822 : : {
12823 : 516 : tree pos = byte_position (field1);
12824 : 516 : if (TREE_CODE (arg1) == INTEGER_CST
12825 : 516 : && tree_int_cst_equal (arg1, pos))
12826 : : {
12827 : 88 : if (TREE_CODE (arg2) == INTEGER_CST)
12828 : 88 : return boolean_true_node;
12829 : : return pos;
12830 : : }
12831 : 428 : else if (TREE_CODE (arg1) != INTEGER_CST)
12832 : 1208 : ret = pos;
12833 : : }
12834 : 1668 : else if (ANON_AGGR_TYPE_P (TREE_TYPE (field1))
12835 : 960 : && ANON_AGGR_TYPE_P (TREE_TYPE (field2)))
12836 : : {
12837 : 126 : if ((!lookup_attribute ("no_unique_address",
12838 : 126 : DECL_ATTRIBUTES (field1)))
12839 : 126 : != !lookup_attribute ("no_unique_address",
12840 : 126 : DECL_ATTRIBUTES (field2)))
12841 : : break;
12842 : 126 : if (!tree_int_cst_equal (bit_position (field1),
12843 : 126 : bit_position (field2)))
12844 : : break;
12845 : 108 : bool overlap = true;
12846 : 108 : tree pos = byte_position (field1);
12847 : 108 : if (TREE_CODE (arg1) == INTEGER_CST)
12848 : : {
12849 : 36 : tree off1 = fold_convert (sizetype, arg1);
12850 : 36 : tree sz1 = TYPE_SIZE_UNIT (TREE_TYPE (field1));
12851 : 36 : if (tree_int_cst_lt (off1, pos)
12852 : 36 : || tree_int_cst_le (size_binop (PLUS_EXPR, pos, sz1), off1))
12853 : : overlap = false;
12854 : : }
12855 : 108 : if (TREE_CODE (arg2) == INTEGER_CST)
12856 : : {
12857 : 36 : tree off2 = fold_convert (sizetype, arg2);
12858 : 36 : tree sz2 = TYPE_SIZE_UNIT (TREE_TYPE (field2));
12859 : 36 : if (tree_int_cst_lt (off2, pos)
12860 : 36 : || tree_int_cst_le (size_binop (PLUS_EXPR, pos, sz2), off2))
12861 : : overlap = false;
12862 : : }
12863 : 90 : if (overlap
12864 : 90 : && NON_UNION_CLASS_TYPE_P (TREE_TYPE (field1))
12865 : 129 : && NON_UNION_CLASS_TYPE_P (TREE_TYPE (field2)))
12866 : : {
12867 : 39 : tree narg1 = arg1;
12868 : 39 : if (TREE_CODE (arg1) == INTEGER_CST)
12869 : 9 : narg1 = size_binop (MINUS_EXPR,
12870 : : fold_convert (sizetype, arg1), pos);
12871 : 39 : tree narg2 = arg2;
12872 : 39 : if (TREE_CODE (arg2) == INTEGER_CST)
12873 : 9 : narg2 = size_binop (MINUS_EXPR,
12874 : : fold_convert (sizetype, arg2), pos);
12875 : 39 : tree t1 = TREE_TYPE (field1);
12876 : 39 : tree t2 = TREE_TYPE (field2);
12877 : 39 : tree nret = is_corresponding_member_aggr (loc, t1, membertype1,
12878 : : narg1, t2, membertype2,
12879 : : narg2);
12880 : 39 : if (nret != boolean_false_node)
12881 : : {
12882 : 39 : if (nret == boolean_true_node)
12883 : : return nret;
12884 : 30 : if (TREE_CODE (arg1) == INTEGER_CST)
12885 : 0 : return size_binop (PLUS_EXPR, nret, pos);
12886 : 30 : ret = size_binop (PLUS_EXPR, nret, pos);
12887 : : }
12888 : : }
12889 : 69 : else if (overlap
12890 : 51 : && TREE_CODE (TREE_TYPE (field1)) == UNION_TYPE
12891 : 120 : && TREE_CODE (TREE_TYPE (field2)) == UNION_TYPE)
12892 : : {
12893 : 51 : tree narg1 = arg1;
12894 : 51 : if (TREE_CODE (arg1) == INTEGER_CST)
12895 : 9 : narg1 = size_binop (MINUS_EXPR,
12896 : : fold_convert (sizetype, arg1), pos);
12897 : 51 : tree narg2 = arg2;
12898 : 51 : if (TREE_CODE (arg2) == INTEGER_CST)
12899 : 9 : narg2 = size_binop (MINUS_EXPR,
12900 : : fold_convert (sizetype, arg2), pos);
12901 : 51 : if (is_corresponding_member_union (TREE_TYPE (field1),
12902 : : membertype1, narg1)
12903 : 51 : && is_corresponding_member_union (TREE_TYPE (field2),
12904 : : membertype2, narg2))
12905 : : {
12906 : 27 : sorry_at (loc, "%<__builtin_is_corresponding_member%> "
12907 : : "not well defined for anonymous unions");
12908 : 27 : return boolean_false_node;
12909 : : }
12910 : : }
12911 : : }
12912 : 1208 : if (!r)
12913 : : break;
12914 : 926 : field1 = DECL_CHAIN (field1);
12915 : 926 : field2 = DECL_CHAIN (field2);
12916 : 926 : }
12917 : : return ret;
12918 : : }
12919 : :
12920 : : /* Fold __builtin_is_corresponding_member call. */
12921 : :
12922 : : tree
12923 : 797 : fold_builtin_is_corresponding_member (location_t loc, int nargs,
12924 : : tree *args)
12925 : : {
12926 : : /* Unless users call the builtin directly, the following 3 checks should be
12927 : : ensured from std::is_corresponding_member function template. */
12928 : 797 : if (nargs != 2)
12929 : : {
12930 : 9 : error_at (loc, "%<__builtin_is_corresponding_member%> "
12931 : : "needs two arguments");
12932 : 9 : return boolean_false_node;
12933 : : }
12934 : 788 : tree arg1 = args[0];
12935 : 788 : tree arg2 = args[1];
12936 : 788 : if (error_operand_p (arg1) || error_operand_p (arg2))
12937 : 0 : return boolean_false_node;
12938 : 812 : if (!TYPE_PTRMEM_P (TREE_TYPE (arg1))
12939 : 806 : || !TYPE_PTRMEM_P (TREE_TYPE (arg2)))
12940 : : {
12941 : 9 : error_at (loc, "%<__builtin_is_corresponding_member%> "
12942 : : "argument is not pointer to member");
12943 : 9 : return boolean_false_node;
12944 : : }
12945 : :
12946 : 779 : if (!TYPE_PTRDATAMEM_P (TREE_TYPE (arg1))
12947 : 779 : || !TYPE_PTRDATAMEM_P (TREE_TYPE (arg2)))
12948 : 18 : return boolean_false_node;
12949 : :
12950 : 761 : tree membertype1 = TREE_TYPE (TREE_TYPE (arg1));
12951 : 761 : tree basetype1 = TYPE_OFFSET_BASETYPE (TREE_TYPE (arg1));
12952 : 761 : if (!complete_type_or_else (basetype1, NULL_TREE))
12953 : 12 : return boolean_false_node;
12954 : :
12955 : 749 : tree membertype2 = TREE_TYPE (TREE_TYPE (arg2));
12956 : 749 : tree basetype2 = TYPE_OFFSET_BASETYPE (TREE_TYPE (arg2));
12957 : 749 : if (!complete_type_or_else (basetype2, NULL_TREE))
12958 : 12 : return boolean_false_node;
12959 : :
12960 : 719 : if (!NON_UNION_CLASS_TYPE_P (basetype1)
12961 : 719 : || !NON_UNION_CLASS_TYPE_P (basetype2)
12962 : 719 : || !std_layout_type_p (basetype1)
12963 : 1406 : || !std_layout_type_p (basetype2))
12964 : 68 : return boolean_false_node;
12965 : :
12966 : : /* If the member types aren't layout compatible, then they
12967 : : can't be corresponding members. */
12968 : 669 : if (!layout_compatible_type_p (membertype1, membertype2))
12969 : 36 : return boolean_false_node;
12970 : :
12971 : 633 : if (TREE_CODE (arg1) == PTRMEM_CST)
12972 : 250 : arg1 = cplus_expand_constant (arg1);
12973 : 633 : if (TREE_CODE (arg2) == PTRMEM_CST)
12974 : 256 : arg2 = cplus_expand_constant (arg2);
12975 : :
12976 : 633 : if (null_member_pointer_value_p (arg1)
12977 : 633 : || null_member_pointer_value_p (arg2))
12978 : 18 : return boolean_false_node;
12979 : :
12980 : 615 : if (TREE_CODE (arg1) == INTEGER_CST
12981 : 253 : && TREE_CODE (arg2) == INTEGER_CST
12982 : 868 : && !tree_int_cst_equal (arg1, arg2))
12983 : 104 : return boolean_false_node;
12984 : :
12985 : 511 : if (TREE_CODE (arg2) == INTEGER_CST
12986 : 149 : && TREE_CODE (arg1) != INTEGER_CST)
12987 : : {
12988 : : std::swap (arg1, arg2);
12989 : : std::swap (membertype1, membertype2);
12990 : : std::swap (basetype1, basetype2);
12991 : : }
12992 : :
12993 : 511 : tree ret = is_corresponding_member_aggr (loc, basetype1, membertype1, arg1,
12994 : : basetype2, membertype2, arg2);
12995 : 511 : if (TREE_TYPE (ret) == boolean_type_node)
12996 : : return ret;
12997 : : /* If both arg1 and arg2 are INTEGER_CSTs, is_corresponding_member_aggr
12998 : : already returns boolean_{true,false}_node whether those particular
12999 : : members are corresponding members or not. Otherwise, if only
13000 : : one of them is INTEGER_CST (canonicalized to first being INTEGER_CST
13001 : : above), it returns boolean_false_node if it is certainly not a
13002 : : corresponding member and otherwise we need to do a runtime check that
13003 : : those two OFFSET_TYPE offsets are equal.
13004 : : If neither of the operands is INTEGER_CST, is_corresponding_member_aggr
13005 : : returns the largest offset at which the members would be corresponding
13006 : : members, so perform arg1 <= ret && arg1 == arg2 runtime check. */
13007 : 296 : gcc_assert (TREE_CODE (arg2) != INTEGER_CST);
13008 : 296 : if (TREE_CODE (arg1) == INTEGER_CST)
13009 : 0 : return fold_build2 (EQ_EXPR, boolean_type_node, arg1,
13010 : : fold_convert (TREE_TYPE (arg1), arg2));
13011 : 296 : ret = fold_build2 (LE_EXPR, boolean_type_node,
13012 : : fold_convert (pointer_sized_int_node, arg1),
13013 : : fold_convert (pointer_sized_int_node, ret));
13014 : 296 : return fold_build2 (TRUTH_AND_EXPR, boolean_type_node, ret,
13015 : : fold_build2 (EQ_EXPR, boolean_type_node, arg1,
13016 : : fold_convert (TREE_TYPE (arg1), arg2)));
13017 : : }
13018 : :
13019 : : /* [basic.types] 8. True iff TYPE is an object type. */
13020 : :
13021 : : static bool
13022 : 1601597 : object_type_p (const_tree type)
13023 : : {
13024 : 1601597 : return (TREE_CODE (type) != FUNCTION_TYPE
13025 : 0 : && !TYPE_REF_P (type)
13026 : 1601597 : && !VOID_TYPE_P (type));
13027 : : }
13028 : :
13029 : : /* Actually evaluates the trait. */
13030 : :
13031 : : static bool
13032 : 8575433 : trait_expr_value (cp_trait_kind kind, tree type1, tree type2)
13033 : : {
13034 : 8575433 : enum tree_code type_code1;
13035 : 8575433 : tree t;
13036 : :
13037 : 8575433 : type_code1 = TREE_CODE (type1);
13038 : :
13039 : 8575433 : switch (kind)
13040 : : {
13041 : 317 : case CPTK_HAS_NOTHROW_ASSIGN:
13042 : 317 : type1 = strip_array_types (type1);
13043 : 601 : return (!CP_TYPE_CONST_P (type1) && type_code1 != REFERENCE_TYPE
13044 : 601 : && (trait_expr_value (CPTK_HAS_TRIVIAL_ASSIGN, type1, type2)
13045 : 173 : || (CLASS_TYPE_P (type1)
13046 : 129 : && classtype_has_nothrow_assign_or_copy_p (type1,
13047 : : true))));
13048 : :
13049 : 215 : case CPTK_HAS_NOTHROW_CONSTRUCTOR:
13050 : 215 : type1 = strip_array_types (type1);
13051 : 215 : return (trait_expr_value (CPTK_HAS_TRIVIAL_CONSTRUCTOR, type1, type2)
13052 : 215 : || (CLASS_TYPE_P (type1)
13053 : 93 : && (t = locate_ctor (type1))
13054 : 60 : && maybe_instantiate_noexcept (t)
13055 : 58 : && TYPE_NOTHROW_P (TREE_TYPE (t))));
13056 : :
13057 : 305 : case CPTK_HAS_NOTHROW_COPY:
13058 : 305 : type1 = strip_array_types (type1);
13059 : 305 : return (trait_expr_value (CPTK_HAS_TRIVIAL_COPY, type1, type2)
13060 : 305 : || (CLASS_TYPE_P (type1)
13061 : 150 : && classtype_has_nothrow_assign_or_copy_p (type1, false)));
13062 : :
13063 : 517 : case CPTK_HAS_TRIVIAL_ASSIGN:
13064 : : /* ??? The standard seems to be missing the "or array of such a class
13065 : : type" wording for this trait. */
13066 : 517 : type1 = strip_array_types (type1);
13067 : 1016 : return (!CP_TYPE_CONST_P (type1) && type_code1 != REFERENCE_TYPE
13068 : 1001 : && (trivial_type_p (type1)
13069 : 307 : || (CLASS_TYPE_P (type1)
13070 : 222 : && TYPE_HAS_TRIVIAL_COPY_ASSIGN (type1))));
13071 : :
13072 : 486 : case CPTK_HAS_TRIVIAL_CONSTRUCTOR:
13073 : 486 : type1 = strip_array_types (type1);
13074 : 486 : return (trivial_type_p (type1)
13075 : 486 : || (CLASS_TYPE_P (type1) && TYPE_HAS_TRIVIAL_DFLT (type1)));
13076 : :
13077 : 526 : case CPTK_HAS_TRIVIAL_COPY:
13078 : : /* ??? The standard seems to be missing the "or array of such a class
13079 : : type" wording for this trait. */
13080 : 526 : type1 = strip_array_types (type1);
13081 : 878 : return (trivial_type_p (type1) || type_code1 == REFERENCE_TYPE
13082 : 863 : || (CLASS_TYPE_P (type1) && TYPE_HAS_TRIVIAL_COPY_CTOR (type1)));
13083 : :
13084 : 24807 : case CPTK_HAS_TRIVIAL_DESTRUCTOR:
13085 : 24807 : type1 = strip_array_types (type1);
13086 : 27956 : return (trivial_type_p (type1) || type_code1 == REFERENCE_TYPE
13087 : 27949 : || (CLASS_TYPE_P (type1)
13088 : 3089 : && TYPE_HAS_TRIVIAL_DESTRUCTOR (type1)));
13089 : :
13090 : 14385 : case CPTK_HAS_UNIQUE_OBJ_REPRESENTATIONS:
13091 : 14385 : return type_has_unique_obj_representations (type1);
13092 : :
13093 : 264 : case CPTK_HAS_VIRTUAL_DESTRUCTOR:
13094 : 264 : return type_has_virtual_destructor (type1);
13095 : :
13096 : 56274 : case CPTK_IS_ABSTRACT:
13097 : 56274 : return ABSTRACT_CLASS_TYPE_P (type1);
13098 : :
13099 : 813 : case CPTK_IS_AGGREGATE:
13100 : 813 : return CP_AGGREGATE_TYPE_P (type1);
13101 : :
13102 : 178514 : case CPTK_IS_ARRAY:
13103 : 178514 : return (type_code1 == ARRAY_TYPE
13104 : : /* We don't want to report T[0] as being an array type.
13105 : : This is for compatibility with an implementation of
13106 : : std::is_array by template argument deduction, because
13107 : : compute_array_index_type_loc rejects a zero-size array
13108 : : in SFINAE context. */
13109 : 178514 : && !(TYPE_SIZE (type1) && integer_zerop (TYPE_SIZE (type1))));
13110 : :
13111 : 519689 : case CPTK_IS_ASSIGNABLE:
13112 : 519689 : return is_xible (MODIFY_EXPR, type1, type2);
13113 : :
13114 : 155935 : case CPTK_IS_BASE_OF:
13115 : 155844 : return (NON_UNION_CLASS_TYPE_P (type1) && NON_UNION_CLASS_TYPE_P (type2)
13116 : 292628 : && (same_type_ignoring_top_level_qualifiers_p (type1, type2)
13117 : 128152 : || DERIVED_FROM_P (type1, type2)));
13118 : :
13119 : 22092 : case CPTK_IS_BOUNDED_ARRAY:
13120 : 22092 : return type_code1 == ARRAY_TYPE && TYPE_DOMAIN (type1);
13121 : :
13122 : 151475 : case CPTK_IS_CLASS:
13123 : 151475 : return NON_UNION_CLASS_TYPE_P (type1);
13124 : :
13125 : 181436 : case CPTK_IS_CONST:
13126 : 181436 : return CP_TYPE_CONST_P (type1);
13127 : :
13128 : 980789 : case CPTK_IS_CONSTRUCTIBLE:
13129 : 980789 : return is_xible (INIT_EXPR, type1, type2);
13130 : :
13131 : 883400 : case CPTK_IS_CONVERTIBLE:
13132 : 883400 : return is_convertible (type1, type2);
13133 : :
13134 : 209251 : case CPTK_IS_EMPTY:
13135 : 209251 : return NON_UNION_CLASS_TYPE_P (type1) && CLASSTYPE_EMPTY_P (type1);
13136 : :
13137 : 352410 : case CPTK_IS_ENUM:
13138 : 352410 : return type_code1 == ENUMERAL_TYPE;
13139 : :
13140 : 374990 : case CPTK_IS_FINAL:
13141 : 374990 : return CLASS_TYPE_P (type1) && CLASSTYPE_FINAL (type1);
13142 : :
13143 : 498763 : case CPTK_IS_FUNCTION:
13144 : 498763 : return type_code1 == FUNCTION_TYPE;
13145 : :
13146 : 6206 : case CPTK_IS_INVOCABLE:
13147 : 6206 : return !error_operand_p (build_invoke (type1, type2, tf_none));
13148 : :
13149 : 189 : case CPTK_IS_LAYOUT_COMPATIBLE:
13150 : 189 : return layout_compatible_type_p (type1, type2);
13151 : :
13152 : 209 : case CPTK_IS_LITERAL_TYPE:
13153 : 209 : return literal_type_p (type1);
13154 : :
13155 : 85117 : case CPTK_IS_MEMBER_FUNCTION_POINTER:
13156 : 85117 : return TYPE_PTRMEMFUNC_P (type1);
13157 : :
13158 : 84997 : case CPTK_IS_MEMBER_OBJECT_POINTER:
13159 : 84997 : return TYPE_PTRDATAMEM_P (type1);
13160 : :
13161 : 23976 : case CPTK_IS_MEMBER_POINTER:
13162 : 23976 : return TYPE_PTRMEM_P (type1);
13163 : :
13164 : 240231 : case CPTK_IS_NOTHROW_ASSIGNABLE:
13165 : 240231 : return is_nothrow_xible (MODIFY_EXPR, type1, type2);
13166 : :
13167 : 477750 : case CPTK_IS_NOTHROW_CONSTRUCTIBLE:
13168 : 477750 : return is_nothrow_xible (INIT_EXPR, type1, type2);
13169 : :
13170 : 25649 : case CPTK_IS_NOTHROW_CONVERTIBLE:
13171 : 25649 : return is_nothrow_convertible (type1, type2);
13172 : :
13173 : 1046 : case CPTK_IS_NOTHROW_INVOCABLE:
13174 : 1046 : return expr_noexcept_p (build_invoke (type1, type2, tf_none), tf_none);
13175 : :
13176 : 109479 : case CPTK_IS_OBJECT:
13177 : 109479 : return object_type_p (type1);
13178 : :
13179 : 124 : case CPTK_IS_POINTER_INTERCONVERTIBLE_BASE_OF:
13180 : 124 : return pointer_interconvertible_base_of_p (type1, type2);
13181 : :
13182 : 11144 : case CPTK_IS_POD:
13183 : 11144 : return pod_type_p (type1);
13184 : :
13185 : 103835 : case CPTK_IS_POINTER:
13186 : 103835 : return TYPE_PTR_P (type1);
13187 : :
13188 : 261 : case CPTK_IS_POLYMORPHIC:
13189 : 261 : return CLASS_TYPE_P (type1) && TYPE_POLYMORPHIC_P (type1);
13190 : :
13191 : 673448 : case CPTK_IS_REFERENCE:
13192 : 673448 : return type_code1 == REFERENCE_TYPE;
13193 : :
13194 : 1593253 : case CPTK_IS_SAME:
13195 : 1593253 : return same_type_p (type1, type2);
13196 : :
13197 : 373 : case CPTK_IS_SCOPED_ENUM:
13198 : 373 : return SCOPED_ENUM_P (type1);
13199 : :
13200 : 47101 : case CPTK_IS_STD_LAYOUT:
13201 : 47101 : return std_layout_type_p (type1);
13202 : :
13203 : 28453 : case CPTK_IS_TRIVIAL:
13204 : 28453 : return trivial_type_p (type1);
13205 : :
13206 : 7164 : case CPTK_IS_TRIVIALLY_ASSIGNABLE:
13207 : 7164 : return is_trivially_xible (MODIFY_EXPR, type1, type2);
13208 : :
13209 : 53970 : case CPTK_IS_TRIVIALLY_CONSTRUCTIBLE:
13210 : 53970 : return is_trivially_xible (INIT_EXPR, type1, type2);
13211 : :
13212 : 60892 : case CPTK_IS_TRIVIALLY_COPYABLE:
13213 : 60892 : return trivially_copyable_p (type1);
13214 : :
13215 : 20945 : case CPTK_IS_UNBOUNDED_ARRAY:
13216 : 20945 : return array_of_unknown_bound_p (type1);
13217 : :
13218 : 34971 : case CPTK_IS_UNION:
13219 : 34971 : return type_code1 == UNION_TYPE;
13220 : :
13221 : 679 : case CPTK_IS_VIRTUAL_BASE_OF:
13222 : 616 : return (NON_UNION_CLASS_TYPE_P (type1) && NON_UNION_CLASS_TYPE_P (type2)
13223 : 1280 : && lookup_base (type2, type1, ba_require_virtual,
13224 : : NULL, tf_none) != NULL_TREE);
13225 : :
13226 : 180094 : case CPTK_IS_VOLATILE:
13227 : 180094 : return CP_TYPE_VOLATILE_P (type1);
13228 : :
13229 : 52922 : case CPTK_REF_CONSTRUCTS_FROM_TEMPORARY:
13230 : 52922 : return ref_xes_from_temporary (type1, type2, /*direct_init=*/true);
13231 : :
13232 : 43228 : case CPTK_REF_CONVERTS_FROM_TEMPORARY:
13233 : 43228 : return ref_xes_from_temporary (type1, type2, /*direct_init=*/false);
13234 : :
13235 : 74 : case CPTK_IS_DEDUCIBLE:
13236 : 74 : return type_targs_deducible_from (type1, type2);
13237 : :
13238 : : /* __array_rank is handled in finish_trait_expr. */
13239 : 0 : case CPTK_RANK:
13240 : 0 : gcc_unreachable ();
13241 : :
13242 : : #define DEFTRAIT_TYPE(CODE, NAME, ARITY) \
13243 : : case CPTK_##CODE:
13244 : : #include "cp-trait.def"
13245 : : #undef DEFTRAIT_TYPE
13246 : : /* Type-yielding traits are handled in finish_trait_type. */
13247 : : break;
13248 : : }
13249 : :
13250 : 0 : gcc_unreachable ();
13251 : : }
13252 : :
13253 : : /* Returns true if TYPE meets the requirements for the specified KIND,
13254 : : false otherwise.
13255 : :
13256 : : When KIND == 1, TYPE must be an array of unknown bound,
13257 : : or (possibly cv-qualified) void, or a complete type.
13258 : :
13259 : : When KIND == 2, TYPE must be a complete type, or array of complete type,
13260 : : or (possibly cv-qualified) void.
13261 : :
13262 : : When KIND == 3:
13263 : : If TYPE is a non-union class type, it must be complete.
13264 : :
13265 : : When KIND == 4:
13266 : : If TYPE is a class type, it must be complete. */
13267 : :
13268 : : static bool
13269 : 8143631 : check_trait_type (tree type, int kind = 1)
13270 : : {
13271 : 8143631 : if (type == NULL_TREE)
13272 : : return true;
13273 : :
13274 : 8143631 : if (TREE_CODE (type) == TREE_VEC)
13275 : : {
13276 : 2528404 : for (tree arg : tree_vec_range (type))
13277 : 1010921 : if (!check_trait_type (arg, kind))
13278 : 21 : return false;
13279 : 1517483 : return true;
13280 : : }
13281 : :
13282 : 6626127 : if (kind == 1 && TREE_CODE (type) == ARRAY_TYPE && !TYPE_DOMAIN (type))
13283 : : return true; // Array of unknown bound. Don't care about completeness.
13284 : :
13285 : 6625637 : if (kind == 3 && !NON_UNION_CLASS_TYPE_P (type))
13286 : : return true; // Not a non-union class type. Don't care about completeness.
13287 : :
13288 : 6527881 : if (kind == 4 && TREE_CODE (type) == ARRAY_TYPE)
13289 : : return true; // Not a class type. Don't care about completeness.
13290 : :
13291 : 6527456 : if (VOID_TYPE_P (type))
13292 : : return true;
13293 : :
13294 : 6526426 : type = complete_type (strip_array_types (type));
13295 : 6526426 : if (!COMPLETE_TYPE_P (type)
13296 : 149 : && cxx_incomplete_type_diagnostic (NULL_TREE, type, DK_PERMERROR)
13297 : 6526575 : && !flag_permissive)
13298 : : return false;
13299 : : return true;
13300 : : }
13301 : :
13302 : : /* True iff the conversion (if any) would be a direct reference
13303 : : binding, not requiring complete types. This is LWG2939. */
13304 : :
13305 : : static bool
13306 : 2525020 : same_type_ref_bind_p (cp_trait_kind kind, tree type1, tree type2)
13307 : : {
13308 : 2525020 : tree from, to;
13309 : 2525020 : switch (kind)
13310 : : {
13311 : : /* These put the target type first. */
13312 : : case CPTK_IS_CONSTRUCTIBLE:
13313 : : case CPTK_IS_NOTHROW_CONSTRUCTIBLE:
13314 : : case CPTK_IS_TRIVIALLY_CONSTRUCTIBLE:
13315 : : case CPTK_IS_INVOCABLE:
13316 : : case CPTK_IS_NOTHROW_INVOCABLE:
13317 : : case CPTK_REF_CONSTRUCTS_FROM_TEMPORARY:
13318 : : case CPTK_REF_CONVERTS_FROM_TEMPORARY:
13319 : : to = type1;
13320 : : from = type2;
13321 : : break;
13322 : :
13323 : : /* These put it second. */
13324 : 909049 : case CPTK_IS_CONVERTIBLE:
13325 : 909049 : case CPTK_IS_NOTHROW_CONVERTIBLE:
13326 : 909049 : to = type2;
13327 : 909049 : from = type1;
13328 : 909049 : break;
13329 : :
13330 : 0 : default:
13331 : 0 : gcc_unreachable ();
13332 : : }
13333 : :
13334 : 2525020 : if (TREE_CODE (to) != REFERENCE_TYPE || !from)
13335 : : return false;
13336 : 147777 : if (TREE_CODE (from) == TREE_VEC && TREE_VEC_LENGTH (from) == 1)
13337 : 4980 : from = TREE_VEC_ELT (from, 0);
13338 : 147777 : return (TYPE_P (from)
13339 : 292448 : && (same_type_ignoring_top_level_qualifiers_p
13340 : 144671 : (non_reference (to), non_reference (from))));
13341 : : }
13342 : :
13343 : : /* [defns.referenceable] True iff TYPE is a referenceable type. */
13344 : :
13345 : : static bool
13346 : 1643191 : referenceable_type_p (const_tree type)
13347 : : {
13348 : 1643191 : return (TYPE_REF_P (type)
13349 : 1643539 : || object_type_p (type)
13350 : 1643539 : || (FUNC_OR_METHOD_TYPE_P (type)
13351 : 289 : && (type_memfn_quals (type) == TYPE_UNQUALIFIED
13352 : 233 : && type_memfn_rqual (type) == REF_QUAL_NONE)));
13353 : : }
13354 : :
13355 : : /* Process a trait expression. */
13356 : :
13357 : : tree
13358 : 11370587 : finish_trait_expr (location_t loc, cp_trait_kind kind, tree type1, tree type2)
13359 : : {
13360 : 11370587 : if (type1 == error_mark_node
13361 : 11370584 : || type2 == error_mark_node)
13362 : : return error_mark_node;
13363 : :
13364 : 11370584 : if (processing_template_decl)
13365 : : {
13366 : 2795726 : tree trait_expr = make_node (TRAIT_EXPR);
13367 : 2795726 : if (kind == CPTK_RANK)
13368 : 28179 : TREE_TYPE (trait_expr) = size_type_node;
13369 : : else
13370 : 2767547 : TREE_TYPE (trait_expr) = boolean_type_node;
13371 : 2795726 : TRAIT_EXPR_TYPE1 (trait_expr) = type1;
13372 : 2795726 : TRAIT_EXPR_TYPE2 (trait_expr) = type2;
13373 : 2795726 : TRAIT_EXPR_KIND (trait_expr) = kind;
13374 : 2795726 : TRAIT_EXPR_LOCATION (trait_expr) = loc;
13375 : 2795726 : return trait_expr;
13376 : : }
13377 : :
13378 : 8574858 : switch (kind)
13379 : : {
13380 : 26390 : case CPTK_HAS_NOTHROW_ASSIGN:
13381 : 26390 : case CPTK_HAS_TRIVIAL_ASSIGN:
13382 : 26390 : case CPTK_HAS_NOTHROW_CONSTRUCTOR:
13383 : 26390 : case CPTK_HAS_TRIVIAL_CONSTRUCTOR:
13384 : 26390 : case CPTK_HAS_NOTHROW_COPY:
13385 : 26390 : case CPTK_HAS_TRIVIAL_COPY:
13386 : 26390 : case CPTK_HAS_TRIVIAL_DESTRUCTOR:
13387 : 26390 : if (!check_trait_type (type1))
13388 : 21 : return error_mark_node;
13389 : : break;
13390 : :
13391 : 162217 : case CPTK_IS_LITERAL_TYPE:
13392 : 162217 : case CPTK_IS_POD:
13393 : 162217 : case CPTK_IS_STD_LAYOUT:
13394 : 162217 : case CPTK_IS_TRIVIAL:
13395 : 162217 : case CPTK_IS_TRIVIALLY_COPYABLE:
13396 : 162217 : case CPTK_HAS_UNIQUE_OBJ_REPRESENTATIONS:
13397 : 162217 : if (!check_trait_type (type1, /* kind = */ 2))
13398 : 33 : return error_mark_node;
13399 : : break;
13400 : :
13401 : 266065 : case CPTK_IS_ABSTRACT:
13402 : 266065 : case CPTK_IS_EMPTY:
13403 : 266065 : case CPTK_IS_POLYMORPHIC:
13404 : 266065 : case CPTK_HAS_VIRTUAL_DESTRUCTOR:
13405 : 266065 : if (!check_trait_type (type1, /* kind = */ 3))
13406 : 15 : return error_mark_node;
13407 : : break;
13408 : :
13409 : : /* N.B. std::is_aggregate is kind=2 but we don't need a complete element
13410 : : type to know whether an array is an aggregate, so use kind=4 here. */
13411 : 375817 : case CPTK_IS_AGGREGATE:
13412 : 375817 : case CPTK_IS_FINAL:
13413 : 375817 : if (!check_trait_type (type1, /* kind = */ 4))
13414 : 14 : return error_mark_node;
13415 : : break;
13416 : :
13417 : 2525020 : case CPTK_IS_CONSTRUCTIBLE:
13418 : 2525020 : case CPTK_IS_CONVERTIBLE:
13419 : 2525020 : case CPTK_IS_INVOCABLE:
13420 : 2525020 : case CPTK_IS_NOTHROW_CONSTRUCTIBLE:
13421 : 2525020 : case CPTK_IS_NOTHROW_CONVERTIBLE:
13422 : 2525020 : case CPTK_IS_NOTHROW_INVOCABLE:
13423 : 2525020 : case CPTK_IS_TRIVIALLY_CONSTRUCTIBLE:
13424 : 2525020 : case CPTK_REF_CONSTRUCTS_FROM_TEMPORARY:
13425 : 2525020 : case CPTK_REF_CONVERTS_FROM_TEMPORARY:
13426 : 2525020 : /* Don't check completeness for direct reference binding. */;
13427 : 2525020 : if (same_type_ref_bind_p (kind, type1, type2))
13428 : : break;
13429 : 3151130 : gcc_fallthrough ();
13430 : :
13431 : 3151130 : case CPTK_IS_ASSIGNABLE:
13432 : 3151130 : case CPTK_IS_NOTHROW_ASSIGNABLE:
13433 : 3151130 : case CPTK_IS_TRIVIALLY_ASSIGNABLE:
13434 : 3151130 : if (!check_trait_type (type1)
13435 : 3151130 : || !check_trait_type (type2))
13436 : 63 : return error_mark_node;
13437 : : break;
13438 : :
13439 : 156090 : case CPTK_IS_BASE_OF:
13440 : 156090 : case CPTK_IS_POINTER_INTERCONVERTIBLE_BASE_OF:
13441 : 155988 : if (NON_UNION_CLASS_TYPE_P (type1) && NON_UNION_CLASS_TYPE_P (type2)
13442 : 136837 : && !same_type_ignoring_top_level_qualifiers_p (type1, type2)
13443 : 284355 : && !complete_type_or_else (type2, NULL_TREE))
13444 : : /* We already issued an error. */
13445 : 31 : return error_mark_node;
13446 : : break;
13447 : :
13448 : 682 : case CPTK_IS_VIRTUAL_BASE_OF:
13449 : 619 : if (NON_UNION_CLASS_TYPE_P (type1) && NON_UNION_CLASS_TYPE_P (type2)
13450 : 1286 : && !complete_type_or_else (type2, NULL_TREE))
13451 : : /* We already issued an error. */
13452 : 3 : return error_mark_node;
13453 : : break;
13454 : :
13455 : : case CPTK_IS_ARRAY:
13456 : : case CPTK_IS_BOUNDED_ARRAY:
13457 : : case CPTK_IS_CLASS:
13458 : : case CPTK_IS_CONST:
13459 : : case CPTK_IS_ENUM:
13460 : : case CPTK_IS_FUNCTION:
13461 : : case CPTK_IS_MEMBER_FUNCTION_POINTER:
13462 : : case CPTK_IS_MEMBER_OBJECT_POINTER:
13463 : : case CPTK_IS_MEMBER_POINTER:
13464 : : case CPTK_IS_OBJECT:
13465 : : case CPTK_IS_POINTER:
13466 : : case CPTK_IS_REFERENCE:
13467 : : case CPTK_IS_SAME:
13468 : : case CPTK_IS_SCOPED_ENUM:
13469 : : case CPTK_IS_UNBOUNDED_ARRAY:
13470 : : case CPTK_IS_UNION:
13471 : : case CPTK_IS_VOLATILE:
13472 : : case CPTK_RANK:
13473 : : break;
13474 : :
13475 : 198 : case CPTK_IS_LAYOUT_COMPATIBLE:
13476 : 198 : if (!array_of_unknown_bound_p (type1)
13477 : 181 : && TREE_CODE (type1) != VOID_TYPE
13478 : 372 : && !complete_type_or_else (type1, NULL_TREE))
13479 : : /* We already issued an error. */
13480 : 6 : return error_mark_node;
13481 : 192 : if (!array_of_unknown_bound_p (type2)
13482 : 167 : && TREE_CODE (type2) != VOID_TYPE
13483 : 352 : && !complete_type_or_else (type2, NULL_TREE))
13484 : : /* We already issued an error. */
13485 : 3 : return error_mark_node;
13486 : : break;
13487 : :
13488 : 74 : case CPTK_IS_DEDUCIBLE:
13489 : 74 : if (!DECL_TYPE_TEMPLATE_P (type1))
13490 : : {
13491 : 0 : error ("%qD is not a class or alias template", type1);
13492 : 0 : return error_mark_node;
13493 : : }
13494 : : break;
13495 : :
13496 : : #define DEFTRAIT_TYPE(CODE, NAME, ARITY) \
13497 : : case CPTK_##CODE:
13498 : : #include "cp-trait.def"
13499 : : #undef DEFTRAIT_TYPE
13500 : : /* Type-yielding traits are handled in finish_trait_type. */
13501 : 0 : gcc_unreachable ();
13502 : : }
13503 : :
13504 : 8574669 : tree val;
13505 : 8574669 : if (kind == CPTK_RANK)
13506 : : {
13507 : : size_t rank = 0;
13508 : 118 : for (; TREE_CODE (type1) == ARRAY_TYPE; type1 = TREE_TYPE (type1))
13509 : 78 : ++rank;
13510 : 40 : val = build_int_cst (size_type_node, rank);
13511 : : }
13512 : : else
13513 : 8574629 : val = (trait_expr_value (kind, type1, type2)
13514 : 8574629 : ? boolean_true_node : boolean_false_node);
13515 : :
13516 : 8574669 : return maybe_wrap_with_location (val, loc);
13517 : : }
13518 : :
13519 : : /* Process a trait type. */
13520 : :
13521 : : tree
13522 : 4012805 : finish_trait_type (cp_trait_kind kind, tree type1, tree type2,
13523 : : tsubst_flags_t complain)
13524 : : {
13525 : 4012805 : if (type1 == error_mark_node
13526 : 4012802 : || type2 == error_mark_node)
13527 : : return error_mark_node;
13528 : :
13529 : 4012802 : if (processing_template_decl)
13530 : : {
13531 : 197852 : tree type = cxx_make_type (TRAIT_TYPE);
13532 : 197852 : TRAIT_TYPE_TYPE1 (type) = type1;
13533 : 197852 : TRAIT_TYPE_TYPE2 (type) = type2;
13534 : 197852 : TRAIT_TYPE_KIND_RAW (type) = build_int_cstu (integer_type_node, kind);
13535 : : /* These traits are intended to be used in the definition of the ::type
13536 : : member of the corresponding standard library type trait and aren't
13537 : : mangleable (and thus won't appear directly in template signatures),
13538 : : so structural equality should suffice. */
13539 : 197852 : SET_TYPE_STRUCTURAL_EQUALITY (type);
13540 : 197852 : return type;
13541 : : }
13542 : :
13543 : 3814950 : switch (kind)
13544 : : {
13545 : 704431 : case CPTK_ADD_LVALUE_REFERENCE:
13546 : : /* [meta.trans.ref]. */
13547 : 704431 : if (referenceable_type_p (type1))
13548 : 704358 : return cp_build_reference_type (type1, /*rval=*/false);
13549 : : return type1;
13550 : :
13551 : 42033 : case CPTK_ADD_POINTER:
13552 : : /* [meta.trans.ptr]. */
13553 : 42033 : if (VOID_TYPE_P (type1) || referenceable_type_p (type1))
13554 : : {
13555 : 42001 : if (TYPE_REF_P (type1))
13556 : 40946 : type1 = TREE_TYPE (type1);
13557 : 42001 : return build_pointer_type (type1);
13558 : : }
13559 : : return type1;
13560 : :
13561 : 896743 : case CPTK_ADD_RVALUE_REFERENCE:
13562 : : /* [meta.trans.ref]. */
13563 : 896743 : if (referenceable_type_p (type1))
13564 : 896697 : return cp_build_reference_type (type1, /*rval=*/true);
13565 : : return type1;
13566 : :
13567 : 156625 : case CPTK_DECAY:
13568 : 156625 : if (TYPE_REF_P (type1))
13569 : 25153 : type1 = TREE_TYPE (type1);
13570 : :
13571 : 156625 : if (TREE_CODE (type1) == ARRAY_TYPE)
13572 : 680 : return finish_trait_type (CPTK_ADD_POINTER, TREE_TYPE (type1), type2,
13573 : 680 : complain);
13574 : 155945 : else if (TREE_CODE (type1) == FUNCTION_TYPE)
13575 : 151 : return finish_trait_type (CPTK_ADD_POINTER, type1, type2, complain);
13576 : : else
13577 : 155794 : return cv_unqualified (type1);
13578 : :
13579 : 23952 : case CPTK_REMOVE_ALL_EXTENTS:
13580 : 23952 : return strip_array_types (type1);
13581 : :
13582 : 560893 : case CPTK_REMOVE_CV:
13583 : 560893 : return cv_unqualified (type1);
13584 : :
13585 : 140126 : case CPTK_REMOVE_CVREF:
13586 : 140126 : if (TYPE_REF_P (type1))
13587 : 72397 : type1 = TREE_TYPE (type1);
13588 : 140126 : return cv_unqualified (type1);
13589 : :
13590 : 49853 : case CPTK_REMOVE_EXTENT:
13591 : 49853 : if (TREE_CODE (type1) == ARRAY_TYPE)
13592 : 174 : type1 = TREE_TYPE (type1);
13593 : : return type1;
13594 : :
13595 : 10189 : case CPTK_REMOVE_POINTER:
13596 : 10189 : if (TYPE_PTR_P (type1))
13597 : 8140 : type1 = TREE_TYPE (type1);
13598 : : return type1;
13599 : :
13600 : 1109042 : case CPTK_REMOVE_REFERENCE:
13601 : 1109042 : if (TYPE_REF_P (type1))
13602 : 688092 : type1 = TREE_TYPE (type1);
13603 : : return type1;
13604 : :
13605 : 81948 : case CPTK_TYPE_PACK_ELEMENT:
13606 : 81948 : return finish_type_pack_element (type1, type2, complain);
13607 : :
13608 : 39115 : case CPTK_UNDERLYING_TYPE:
13609 : 39115 : return finish_underlying_type (type1);
13610 : :
13611 : : #define DEFTRAIT_EXPR(CODE, NAME, ARITY) \
13612 : : case CPTK_##CODE:
13613 : : #include "cp-trait.def"
13614 : : #undef DEFTRAIT_EXPR
13615 : : /* Expression-yielding traits are handled in finish_trait_expr. */
13616 : : case CPTK_BASES:
13617 : : case CPTK_DIRECT_BASES:
13618 : : /* BASES and DIRECT_BASES are handled in finish_bases. */
13619 : : break;
13620 : : }
13621 : :
13622 : 0 : gcc_unreachable ();
13623 : : }
13624 : :
13625 : : /* Do-nothing variants of functions to handle pragma FLOAT_CONST_DECIMAL64,
13626 : : which is ignored for C++. */
13627 : :
13628 : : void
13629 : 0 : set_float_const_decimal64 (void)
13630 : : {
13631 : 0 : }
13632 : :
13633 : : void
13634 : 0 : clear_float_const_decimal64 (void)
13635 : : {
13636 : 0 : }
13637 : :
13638 : : bool
13639 : 1892383 : float_const_decimal64_p (void)
13640 : : {
13641 : 1892383 : return 0;
13642 : : }
13643 : :
13644 : :
13645 : : /* Return true if T designates the implied `this' parameter. */
13646 : :
13647 : : bool
13648 : 116010918 : is_this_parameter (tree t)
13649 : : {
13650 : 116010918 : if (!DECL_P (t) || DECL_NAME (t) != this_identifier)
13651 : : return false;
13652 : 37033584 : gcc_assert (TREE_CODE (t) == PARM_DECL
13653 : : || (VAR_P (t) && DECL_HAS_VALUE_EXPR_P (t))
13654 : : || (cp_binding_oracle && VAR_P (t)));
13655 : : return true;
13656 : : }
13657 : :
13658 : : /* As above, or a C++23 explicit object parameter. */
13659 : :
13660 : : bool
13661 : 456 : is_object_parameter (tree t)
13662 : : {
13663 : 456 : if (is_this_parameter (t))
13664 : : return true;
13665 : 91 : if (TREE_CODE (t) != PARM_DECL)
13666 : : return false;
13667 : 34 : tree ctx = DECL_CONTEXT (t);
13668 : 34 : return (ctx && DECL_XOBJ_MEMBER_FUNCTION_P (ctx)
13669 : 62 : && t == DECL_ARGUMENTS (ctx));
13670 : : }
13671 : :
13672 : : /* Insert the deduced return type for an auto function. */
13673 : :
13674 : : void
13675 : 608906 : apply_deduced_return_type (tree fco, tree return_type)
13676 : : {
13677 : 608906 : tree result;
13678 : :
13679 : 608906 : if (return_type == error_mark_node)
13680 : : return;
13681 : :
13682 : 608903 : if (DECL_CONV_FN_P (fco))
13683 : 24 : DECL_NAME (fco) = make_conv_op_name (return_type);
13684 : :
13685 : 608903 : TREE_TYPE (fco) = change_return_type (return_type, TREE_TYPE (fco));
13686 : :
13687 : 608903 : maybe_update_postconditions (fco);
13688 : :
13689 : : /* Apply the type to the result object. */
13690 : :
13691 : 608903 : result = DECL_RESULT (fco);
13692 : 608903 : if (result == NULL_TREE)
13693 : : return;
13694 : 606747 : if (TREE_TYPE (result) == return_type)
13695 : : return;
13696 : :
13697 : 606744 : if (!processing_template_decl && !VOID_TYPE_P (return_type)
13698 : 1014127 : && !complete_type_or_else (return_type, NULL_TREE))
13699 : : return;
13700 : :
13701 : : /* We already have a DECL_RESULT from start_preparsed_function.
13702 : : Now we need to redo the work it and allocate_struct_function
13703 : : did to reflect the new type. */
13704 : 606744 : result = build_decl (DECL_SOURCE_LOCATION (result), RESULT_DECL, NULL_TREE,
13705 : 606744 : TYPE_MAIN_VARIANT (return_type));
13706 : 606744 : DECL_ARTIFICIAL (result) = 1;
13707 : 606744 : DECL_IGNORED_P (result) = 1;
13708 : 606744 : cp_apply_type_quals_to_decl (cp_type_quals (return_type),
13709 : : result);
13710 : 606744 : DECL_RESULT (fco) = result;
13711 : :
13712 : 606744 : if (!processing_template_decl)
13713 : 606744 : if (function *fun = DECL_STRUCT_FUNCTION (fco))
13714 : : {
13715 : 606648 : bool aggr = aggregate_value_p (result, fco);
13716 : : #ifdef PCC_STATIC_STRUCT_RETURN
13717 : : fun->returns_pcc_struct = aggr;
13718 : : #endif
13719 : 606648 : fun->returns_struct = aggr;
13720 : : }
13721 : : }
13722 : :
13723 : : /* Build a unary fold expression of EXPR over OP. If IS_RIGHT is true,
13724 : : this is a right unary fold. Otherwise it is a left unary fold. */
13725 : :
13726 : : static tree
13727 : 551002 : finish_unary_fold_expr (location_t loc, tree expr, int op, tree_code dir)
13728 : : {
13729 : : /* Build a pack expansion (assuming expr has pack type). */
13730 : 551002 : if (!uses_parameter_packs (expr))
13731 : : {
13732 : 3 : error_at (location_of (expr), "operand of fold expression has no "
13733 : : "unexpanded parameter packs");
13734 : 3 : return error_mark_node;
13735 : : }
13736 : 550999 : tree pack = make_pack_expansion (expr);
13737 : :
13738 : : /* Build the fold expression. */
13739 : 550999 : tree code = build_int_cstu (integer_type_node, abs (op));
13740 : 550999 : tree fold = build_min_nt_loc (loc, dir, code, pack);
13741 : 550999 : FOLD_EXPR_MODIFY_P (fold) = (op < 0);
13742 : 550999 : TREE_TYPE (fold) = build_dependent_operator_type (NULL_TREE,
13743 : 550999 : FOLD_EXPR_OP (fold),
13744 : 550999 : FOLD_EXPR_MODIFY_P (fold));
13745 : 550999 : return fold;
13746 : : }
13747 : :
13748 : : tree
13749 : 16168 : finish_left_unary_fold_expr (location_t loc, tree expr, int op)
13750 : : {
13751 : 16168 : return finish_unary_fold_expr (loc, expr, op, UNARY_LEFT_FOLD_EXPR);
13752 : : }
13753 : :
13754 : : tree
13755 : 534834 : finish_right_unary_fold_expr (location_t loc, tree expr, int op)
13756 : : {
13757 : 534834 : return finish_unary_fold_expr (loc, expr, op, UNARY_RIGHT_FOLD_EXPR);
13758 : : }
13759 : :
13760 : : /* Build a binary fold expression over EXPR1 and EXPR2. The
13761 : : associativity of the fold is determined by EXPR1 and EXPR2 (whichever
13762 : : has an unexpanded parameter pack). */
13763 : :
13764 : : static tree
13765 : 12366 : finish_binary_fold_expr (location_t loc, tree pack, tree init,
13766 : : int op, tree_code dir)
13767 : : {
13768 : 12366 : pack = make_pack_expansion (pack);
13769 : 12366 : tree code = build_int_cstu (integer_type_node, abs (op));
13770 : 12366 : tree fold = build_min_nt_loc (loc, dir, code, pack, init);
13771 : 12366 : FOLD_EXPR_MODIFY_P (fold) = (op < 0);
13772 : 12366 : TREE_TYPE (fold) = build_dependent_operator_type (NULL_TREE,
13773 : 12366 : FOLD_EXPR_OP (fold),
13774 : 12366 : FOLD_EXPR_MODIFY_P (fold));
13775 : 12366 : return fold;
13776 : : }
13777 : :
13778 : : tree
13779 : 12366 : finish_binary_fold_expr (location_t loc, tree expr1, tree expr2, int op)
13780 : : {
13781 : : // Determine which expr has an unexpanded parameter pack and
13782 : : // set the pack and initial term.
13783 : 12366 : bool pack1 = uses_parameter_packs (expr1);
13784 : 12366 : bool pack2 = uses_parameter_packs (expr2);
13785 : 12366 : if (pack1 && !pack2)
13786 : 285 : return finish_binary_fold_expr (loc, expr1, expr2, op, BINARY_RIGHT_FOLD_EXPR);
13787 : 12081 : else if (pack2 && !pack1)
13788 : 12081 : return finish_binary_fold_expr (loc, expr2, expr1, op, BINARY_LEFT_FOLD_EXPR);
13789 : : else
13790 : : {
13791 : 0 : if (pack1)
13792 : 0 : error ("both arguments in binary fold have unexpanded parameter packs");
13793 : : else
13794 : 0 : error ("no unexpanded parameter packs in binary fold");
13795 : : }
13796 : 0 : return error_mark_node;
13797 : : }
13798 : :
13799 : : /* Finish __builtin_launder (arg). */
13800 : :
13801 : : tree
13802 : 12268 : finish_builtin_launder (location_t loc, tree arg, tsubst_flags_t complain)
13803 : : {
13804 : 12268 : tree orig_arg = arg;
13805 : 12268 : if (!type_dependent_expression_p (arg))
13806 : 84 : arg = decay_conversion (arg, complain);
13807 : 12268 : if (error_operand_p (arg))
13808 : 0 : return error_mark_node;
13809 : 12268 : if (!type_dependent_expression_p (arg) && !TYPE_PTROB_P (TREE_TYPE (arg)))
13810 : : {
13811 : 24 : error_at (loc, "type %qT of argument to %<__builtin_launder%> "
13812 : 24 : "is not a pointer to object type", TREE_TYPE (arg));
13813 : 24 : return error_mark_node;
13814 : : }
13815 : 12244 : if (processing_template_decl)
13816 : 12184 : arg = orig_arg;
13817 : 12244 : return build_call_expr_internal_loc (loc, IFN_LAUNDER,
13818 : 24488 : TREE_TYPE (arg), 1, arg);
13819 : : }
13820 : :
13821 : : /* Finish __builtin_convertvector (arg, type). */
13822 : :
13823 : : tree
13824 : 185 : cp_build_vec_convert (tree arg, location_t loc, tree type,
13825 : : tsubst_flags_t complain)
13826 : : {
13827 : 185 : if (error_operand_p (type))
13828 : 9 : return error_mark_node;
13829 : 176 : if (error_operand_p (arg))
13830 : 0 : return error_mark_node;
13831 : :
13832 : 176 : tree ret = NULL_TREE;
13833 : 176 : if (!type_dependent_expression_p (arg) && !dependent_type_p (type))
13834 : 194 : ret = c_build_vec_convert (cp_expr_loc_or_input_loc (arg),
13835 : : decay_conversion (arg, complain),
13836 : : loc, type, (complain & tf_error) != 0);
13837 : :
13838 : 176 : if (!processing_template_decl)
13839 : : return ret;
13840 : :
13841 : 24 : return build_call_expr_internal_loc (loc, IFN_VEC_CONVERT, type, 1, arg);
13842 : : }
13843 : :
13844 : : /* Finish __builtin_bit_cast (type, arg). */
13845 : :
13846 : : tree
13847 : 31822 : cp_build_bit_cast (location_t loc, tree type, tree arg,
13848 : : tsubst_flags_t complain)
13849 : : {
13850 : 31822 : if (error_operand_p (type))
13851 : 0 : return error_mark_node;
13852 : 31822 : if (!dependent_type_p (type))
13853 : : {
13854 : 22699 : if (!complete_type_or_maybe_complain (type, NULL_TREE, complain))
13855 : 9 : return error_mark_node;
13856 : 22690 : if (TREE_CODE (type) == ARRAY_TYPE)
13857 : : {
13858 : : /* std::bit_cast for destination ARRAY_TYPE is not possible,
13859 : : as functions may not return an array, so don't bother trying
13860 : : to support this (and then deal with VLAs etc.). */
13861 : 9 : error_at (loc, "%<__builtin_bit_cast%> destination type %qT "
13862 : : "is an array type", type);
13863 : 9 : return error_mark_node;
13864 : : }
13865 : 22681 : if (!trivially_copyable_p (type))
13866 : : {
13867 : 18 : error_at (loc, "%<__builtin_bit_cast%> destination type %qT "
13868 : : "is not trivially copyable", type);
13869 : 18 : return error_mark_node;
13870 : : }
13871 : : }
13872 : :
13873 : 31786 : if (error_operand_p (arg))
13874 : 0 : return error_mark_node;
13875 : :
13876 : 31786 : if (!type_dependent_expression_p (arg))
13877 : : {
13878 : 462 : if (TREE_CODE (TREE_TYPE (arg)) == ARRAY_TYPE)
13879 : : {
13880 : : /* Don't perform array-to-pointer conversion. */
13881 : 26 : arg = mark_rvalue_use (arg, loc, true);
13882 : 26 : if (!complete_type_or_maybe_complain (TREE_TYPE (arg), arg, complain))
13883 : 0 : return error_mark_node;
13884 : : }
13885 : : else
13886 : 436 : arg = decay_conversion (arg, complain);
13887 : :
13888 : 462 : if (error_operand_p (arg))
13889 : 12 : return error_mark_node;
13890 : :
13891 : 450 : if (!trivially_copyable_p (TREE_TYPE (arg)))
13892 : : {
13893 : 9 : error_at (cp_expr_loc_or_loc (arg, loc),
13894 : : "%<__builtin_bit_cast%> source type %qT "
13895 : 9 : "is not trivially copyable", TREE_TYPE (arg));
13896 : 9 : return error_mark_node;
13897 : : }
13898 : 441 : if (!dependent_type_p (type)
13899 : 870 : && !cp_tree_equal (TYPE_SIZE_UNIT (type),
13900 : 429 : TYPE_SIZE_UNIT (TREE_TYPE (arg))))
13901 : : {
13902 : 18 : error_at (loc, "%<__builtin_bit_cast%> source size %qE "
13903 : : "not equal to destination type size %qE",
13904 : 18 : TYPE_SIZE_UNIT (TREE_TYPE (arg)),
13905 : 18 : TYPE_SIZE_UNIT (type));
13906 : 18 : return error_mark_node;
13907 : : }
13908 : : }
13909 : :
13910 : 31747 : tree ret = build_min (BIT_CAST_EXPR, type, arg);
13911 : 31747 : SET_EXPR_LOCATION (ret, loc);
13912 : :
13913 : 31747 : if (!processing_template_decl && CLASS_TYPE_P (type))
13914 : 220 : ret = get_target_expr (ret, complain);
13915 : :
13916 : : return ret;
13917 : : }
13918 : :
13919 : : /* Diagnose invalid #pragma GCC unroll argument and adjust
13920 : : it if needed. */
13921 : :
13922 : : tree
13923 : 15496 : cp_check_pragma_unroll (location_t loc, tree unroll)
13924 : : {
13925 : 15496 : HOST_WIDE_INT lunroll = 0;
13926 : 15496 : if (type_dependent_expression_p (unroll))
13927 : : ;
13928 : 30920 : else if (!INTEGRAL_TYPE_P (TREE_TYPE (unroll))
13929 : 30874 : || (!value_dependent_expression_p (unroll)
13930 : 15384 : && (!tree_fits_shwi_p (unroll)
13931 : 15358 : || (lunroll = tree_to_shwi (unroll)) < 0
13932 : 15343 : || lunroll >= USHRT_MAX)))
13933 : : {
13934 : 90 : error_at (loc, "%<#pragma GCC unroll%> requires an"
13935 : : " assignment-expression that evaluates to a non-negative"
13936 : : " integral constant less than %u", USHRT_MAX);
13937 : 90 : unroll = integer_one_node;
13938 : : }
13939 : 15370 : else if (TREE_CODE (unroll) == INTEGER_CST)
13940 : : {
13941 : 15340 : unroll = fold_convert (integer_type_node, unroll);
13942 : 15340 : if (integer_zerop (unroll))
13943 : 12 : unroll = integer_one_node;
13944 : : }
13945 : 15496 : return unroll;
13946 : : }
13947 : :
13948 : : #include "gt-cp-semantics.h"
|
