]>
Commit | Line | Data |
---|---|---|
629b3d75 MJ |
1 | /* General types and functions that are uselful for processing of OpenMP, |
2 | OpenACC and similar directivers at various stages of compilation. | |
3 | ||
8d9254fc | 4 | Copyright (C) 2005-2020 Free Software Foundation, Inc. |
629b3d75 MJ |
5 | |
6 | This file is part of GCC. | |
7 | ||
8 | GCC is free software; you can redistribute it and/or modify it under | |
9 | the terms of the GNU General Public License as published by the Free | |
10 | Software Foundation; either version 3, or (at your option) any later | |
11 | version. | |
12 | ||
13 | GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
14 | WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
15 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
16 | for more details. | |
17 | ||
18 | You should have received a copy of the GNU General Public License | |
19 | along with GCC; see the file COPYING3. If not see | |
20 | <http://www.gnu.org/licenses/>. */ | |
21 | ||
22 | #ifndef GCC_OMP_GENERAL_H | |
23 | #define GCC_OMP_GENERAL_H | |
24 | ||
25 | #include "gomp-constants.h" | |
26 | ||
27 | /* Flags for an OpenACC loop. */ | |
28 | ||
29 | enum oacc_loop_flags { | |
30 | OLF_SEQ = 1u << 0, /* Explicitly sequential */ | |
31 | OLF_AUTO = 1u << 1, /* Compiler chooses axes. */ | |
32 | OLF_INDEPENDENT = 1u << 2, /* Iterations are known independent. */ | |
33 | OLF_GANG_STATIC = 1u << 3, /* Gang partitioning is static (has op). */ | |
02889d23 CLT |
34 | OLF_TILE = 1u << 4, /* Tiled loop. */ |
35 | ||
629b3d75 | 36 | /* Explicitly specified loop axes. */ |
02889d23 | 37 | OLF_DIM_BASE = 5, |
629b3d75 MJ |
38 | OLF_DIM_GANG = 1u << (OLF_DIM_BASE + GOMP_DIM_GANG), |
39 | OLF_DIM_WORKER = 1u << (OLF_DIM_BASE + GOMP_DIM_WORKER), | |
40 | OLF_DIM_VECTOR = 1u << (OLF_DIM_BASE + GOMP_DIM_VECTOR), | |
41 | ||
42 | OLF_MAX = OLF_DIM_BASE + GOMP_DIM_MAX | |
43 | }; | |
44 | ||
45 | /* A structure holding the elements of: | |
1160ec9a JJ |
46 | for (V = N1; V cond N2; V += STEP) [...] |
47 | or for non-rectangular loops: | |
48 | for (V = M1 * W + N1; V cond M2 * W + N2; V += STEP; | |
49 | where W is V of the OUTER-th loop (e.g. for OUTER 1 it is the | |
aed3ab25 JJ |
50 | the index of the immediately surrounding loop). |
51 | NON_RECT_REFERENCED is true for loops referenced by loops | |
52 | with non-NULL M1 or M2. */ | |
629b3d75 MJ |
53 | |
54 | struct omp_for_data_loop | |
55 | { | |
1160ec9a | 56 | tree v, n1, n2, step, m1, m2; |
629b3d75 | 57 | enum tree_code cond_code; |
aed3ab25 JJ |
58 | int outer; |
59 | bool non_rect_referenced; | |
629b3d75 MJ |
60 | }; |
61 | ||
62 | /* A structure describing the main elements of a parallel loop. */ | |
63 | ||
64 | struct omp_for_data | |
65 | { | |
66 | struct omp_for_data_loop loop; | |
67 | tree chunk_size; | |
68 | gomp_for *for_stmt; | |
69 | tree pre, iter_type; | |
02889d23 CLT |
70 | tree tiling; /* Tiling values (if non null). */ |
71 | int collapse; /* Collapsed loops, 1 for a non-collapsed loop. */ | |
629b3d75 | 72 | int ordered; |
aed3ab25 | 73 | int first_nonrect, last_nonrect; |
28567c40 | 74 | bool have_nowait, have_ordered, simd_schedule, have_reductemp; |
2f6bb511 | 75 | bool have_pointer_condtemp, have_scantemp, have_nonctrl_scantemp; |
1160ec9a | 76 | bool non_rect; |
6c7ae8c5 | 77 | int lastprivate_conditional; |
629b3d75 MJ |
78 | unsigned char sched_modifiers; |
79 | enum omp_clause_schedule_kind sched_kind; | |
80 | struct omp_for_data_loop *loops; | |
81 | }; | |
82 | ||
83 | #define OACC_FN_ATTRIB "oacc function" | |
84 | ||
85 | extern tree omp_find_clause (tree clauses, enum omp_clause_code kind); | |
08c14aaa | 86 | extern bool omp_is_allocatable_or_ptr (tree decl); |
a2c26c50 | 87 | extern tree omp_check_optional_argument (tree decl, bool for_present_check); |
629b3d75 MJ |
88 | extern bool omp_is_reference (tree decl); |
89 | extern void omp_adjust_for_condition (location_t loc, enum tree_code *cond_code, | |
031c5c8b | 90 | tree *n2, tree v, tree step); |
629b3d75 MJ |
91 | extern tree omp_get_for_step_from_incr (location_t loc, tree incr); |
92 | extern void omp_extract_for_data (gomp_for *for_stmt, struct omp_for_data *fd, | |
93 | struct omp_for_data_loop *loops); | |
94 | extern gimple *omp_build_barrier (tree lhs); | |
f1f862ae | 95 | extern tree find_combined_omp_for (tree *, int *, void *); |
9d2f08ab | 96 | extern poly_uint64 omp_max_vf (void); |
629b3d75 | 97 | extern int omp_max_simt_vf (void); |
135df52c JJ |
98 | extern int omp_constructor_traits_to_codes (tree, enum tree_code *); |
99 | extern int omp_context_selector_matches (tree); | |
917dd789 | 100 | extern int omp_context_selector_set_compare (const char *, tree, tree); |
d0c464d2 | 101 | extern tree omp_get_context_selector (tree, const char *, const char *); |
135df52c | 102 | extern tree omp_resolve_declare_variant (tree); |
629b3d75 | 103 | extern tree oacc_launch_pack (unsigned code, tree device, unsigned op); |
68034b1b | 104 | extern tree oacc_replace_fn_attrib_attr (tree attribs, tree dims); |
629b3d75 | 105 | extern void oacc_replace_fn_attrib (tree fn, tree dims); |
25651634 | 106 | extern void oacc_set_fn_attrib (tree fn, tree clauses, vec<tree> *args); |
b48f44bf TS |
107 | extern int oacc_verify_routine_clauses (tree, tree *, location_t, |
108 | const char *); | |
629b3d75 MJ |
109 | extern tree oacc_build_routine_dims (tree clauses); |
110 | extern tree oacc_get_fn_attrib (tree fn); | |
46dbeb40 | 111 | extern bool offloading_function_p (tree fn); |
629b3d75 MJ |
112 | extern int oacc_get_fn_dim_size (tree fn, int axis); |
113 | extern int oacc_get_ifn_dim_arg (const gimple *stmt); | |
114 | ||
28567c40 JJ |
115 | enum omp_requires { |
116 | OMP_REQUIRES_ATOMIC_DEFAULT_MEM_ORDER = 0xf, | |
117 | OMP_REQUIRES_UNIFIED_ADDRESS = 0x10, | |
118 | OMP_REQUIRES_UNIFIED_SHARED_MEMORY = 0x20, | |
119 | OMP_REQUIRES_DYNAMIC_ALLOCATORS = 0x40, | |
120 | OMP_REQUIRES_REVERSE_OFFLOAD = 0x80, | |
121 | OMP_REQUIRES_ATOMIC_DEFAULT_MEM_ORDER_USED = 0x100, | |
122 | OMP_REQUIRES_TARGET_USED = 0x200 | |
123 | }; | |
124 | ||
125 | extern GTY(()) enum omp_requires omp_requires_mask; | |
126 | ||
629b3d75 | 127 | #endif /* GCC_OMP_GENERAL_H */ |