blob: 2f37f2fe66c3621293c8d9e8315546aeacf3aa40 [file] [log] [blame]
Alexey Bataeva769e072013-03-22 06:34:35 +00001//===--- OpenMPKinds.cpp - Token Kinds Support ----------------------------===//
2//
3// The LLVM Compiler Infrastructure
4//
5// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
7//
8//===----------------------------------------------------------------------===//
9/// \file
10/// \brief This file implements the OpenMP enum and support functions.
11///
12//===----------------------------------------------------------------------===//
13
14#include "clang/Basic/OpenMPKinds.h"
15#include "clang/Basic/IdentifierTable.h"
Matt Beaumont-Gay07544fa2013-03-25 21:32:02 +000016#include "llvm/ADT/StringRef.h"
Alexey Bataeva769e072013-03-22 06:34:35 +000017#include "llvm/ADT/StringSwitch.h"
18#include "llvm/Support/ErrorHandling.h"
19#include <cassert>
20
21using namespace clang;
22
23OpenMPDirectiveKind clang::getOpenMPDirectiveKind(StringRef Str) {
24 return llvm::StringSwitch<OpenMPDirectiveKind>(Str)
Alexey Bataev23b69422014-06-18 07:08:49 +000025#define OPENMP_DIRECTIVE(Name) .Case(#Name, OMPD_##Name)
Alexey Bataev4acb8592014-07-07 13:01:15 +000026#define OPENMP_DIRECTIVE_EXT(Name, Str) .Case(Str, OMPD_##Name)
Alexey Bataeva769e072013-03-22 06:34:35 +000027#include "clang/Basic/OpenMPKinds.def"
Alexey Bataev23b69422014-06-18 07:08:49 +000028 .Default(OMPD_unknown);
Alexey Bataeva769e072013-03-22 06:34:35 +000029}
30
31const char *clang::getOpenMPDirectiveName(OpenMPDirectiveKind Kind) {
Alexey Bataev4ca40ed2014-05-12 04:23:46 +000032 assert(Kind <= OMPD_unknown);
Alexey Bataeva769e072013-03-22 06:34:35 +000033 switch (Kind) {
34 case OMPD_unknown:
Alexey Bataev6f6f3b42013-05-13 04:18:18 +000035 return "unknown";
Alexey Bataev23b69422014-06-18 07:08:49 +000036#define OPENMP_DIRECTIVE(Name) \
37 case OMPD_##Name: \
38 return #Name;
Alexey Bataev4acb8592014-07-07 13:01:15 +000039#define OPENMP_DIRECTIVE_EXT(Name, Str) \
40 case OMPD_##Name: \
41 return Str;
Alexey Bataeva769e072013-03-22 06:34:35 +000042#include "clang/Basic/OpenMPKinds.def"
Alexey Bataeva769e072013-03-22 06:34:35 +000043 break;
44 }
45 llvm_unreachable("Invalid OpenMP directive kind");
46}
Alexey Bataev6f6f3b42013-05-13 04:18:18 +000047
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000048OpenMPClauseKind clang::getOpenMPClauseKind(StringRef Str) {
Alexey Bataev6125da92014-07-21 11:26:11 +000049 if (Str == "flush")
50 return OMPC_unknown;
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000051 return llvm::StringSwitch<OpenMPClauseKind>(Str)
Alexey Bataev23b69422014-06-18 07:08:49 +000052#define OPENMP_CLAUSE(Name, Class) .Case(#Name, OMPC_##Name)
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000053#include "clang/Basic/OpenMPKinds.def"
Alexey Bataev23b69422014-06-18 07:08:49 +000054 .Default(OMPC_unknown);
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000055}
56
57const char *clang::getOpenMPClauseName(OpenMPClauseKind Kind) {
Alexey Bataev4ca40ed2014-05-12 04:23:46 +000058 assert(Kind <= OMPC_unknown);
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000059 switch (Kind) {
60 case OMPC_unknown:
61 return "unknown";
Alexey Bataev23b69422014-06-18 07:08:49 +000062#define OPENMP_CLAUSE(Name, Class) \
63 case OMPC_##Name: \
64 return #Name;
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000065#include "clang/Basic/OpenMPKinds.def"
66 case OMPC_threadprivate:
67 return "threadprivate or thread local";
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000068 }
69 llvm_unreachable("Invalid OpenMP clause kind");
70}
71
72unsigned clang::getOpenMPSimpleClauseType(OpenMPClauseKind Kind,
73 StringRef Str) {
74 switch (Kind) {
75 case OMPC_default:
76 return llvm::StringSwitch<OpenMPDefaultClauseKind>(Str)
Alexey Bataev23b69422014-06-18 07:08:49 +000077#define OPENMP_DEFAULT_KIND(Name) .Case(#Name, OMPC_DEFAULT_##Name)
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000078#include "clang/Basic/OpenMPKinds.def"
Alexey Bataev23b69422014-06-18 07:08:49 +000079 .Default(OMPC_DEFAULT_unknown);
Alexey Bataevbcbadb62014-05-06 06:04:14 +000080 case OMPC_proc_bind:
81 return llvm::StringSwitch<OpenMPProcBindClauseKind>(Str)
Alexey Bataev23b69422014-06-18 07:08:49 +000082#define OPENMP_PROC_BIND_KIND(Name) .Case(#Name, OMPC_PROC_BIND_##Name)
Alexey Bataevbcbadb62014-05-06 06:04:14 +000083#include "clang/Basic/OpenMPKinds.def"
Alexey Bataev23b69422014-06-18 07:08:49 +000084 .Default(OMPC_PROC_BIND_unknown);
Alexey Bataev56dafe82014-06-20 07:16:17 +000085 case OMPC_schedule:
86 return llvm::StringSwitch<OpenMPScheduleClauseKind>(Str)
87#define OPENMP_SCHEDULE_KIND(Name) .Case(#Name, OMPC_SCHEDULE_##Name)
88#include "clang/Basic/OpenMPKinds.def"
89 .Default(OMPC_SCHEDULE_unknown);
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000090 case OMPC_unknown:
91 case OMPC_threadprivate:
Alexey Bataevaadd52e2014-02-13 05:29:23 +000092 case OMPC_if:
Alexey Bataev3778b602014-07-17 07:32:53 +000093 case OMPC_final:
Alexey Bataev568a8332014-03-06 06:15:19 +000094 case OMPC_num_threads:
Alexey Bataev62c87d22014-03-21 04:51:18 +000095 case OMPC_safelen:
Alexander Musman8bd31e62014-05-27 15:12:19 +000096 case OMPC_collapse:
Alexey Bataev5ec3eb12013-07-19 03:13:43 +000097 case OMPC_private:
Alexey Bataevd5af8e42013-10-01 05:32:34 +000098 case OMPC_firstprivate:
Alexander Musman1bb328c2014-06-04 13:06:39 +000099 case OMPC_lastprivate:
David Blaikie3e8aa9a2013-09-06 20:58:25 +0000100 case OMPC_shared:
Alexey Bataevc5e02582014-06-16 07:08:35 +0000101 case OMPC_reduction:
Alexander Musman8dba6642014-04-22 13:09:42 +0000102 case OMPC_linear:
Alexander Musmanf0d76e72014-05-29 14:36:25 +0000103 case OMPC_aligned:
Alexey Bataevd48bcd82014-03-31 03:36:38 +0000104 case OMPC_copyin:
Alexey Bataevbae9a792014-06-27 10:37:06 +0000105 case OMPC_copyprivate:
Alexey Bataev142e1fc2014-06-20 09:44:06 +0000106 case OMPC_ordered:
Alexey Bataev236070f2014-06-20 11:19:47 +0000107 case OMPC_nowait:
Alexey Bataev7aea99a2014-07-17 12:19:31 +0000108 case OMPC_untied:
Alexey Bataev74ba3a52014-07-17 12:47:03 +0000109 case OMPC_mergeable:
Alexey Bataev6125da92014-07-21 11:26:11 +0000110 case OMPC_flush:
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000111 break;
112 }
113 llvm_unreachable("Invalid OpenMP simple clause kind");
114}
115
116const char *clang::getOpenMPSimpleClauseTypeName(OpenMPClauseKind Kind,
117 unsigned Type) {
118 switch (Kind) {
119 case OMPC_default:
120 switch (Type) {
121 case OMPC_DEFAULT_unknown:
122 return "unknown";
Alexey Bataev23b69422014-06-18 07:08:49 +0000123#define OPENMP_DEFAULT_KIND(Name) \
124 case OMPC_DEFAULT_##Name: \
125 return #Name;
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000126#include "clang/Basic/OpenMPKinds.def"
127 }
128 llvm_unreachable("Invalid OpenMP 'default' clause type");
Alexey Bataevbcbadb62014-05-06 06:04:14 +0000129 case OMPC_proc_bind:
130 switch (Type) {
131 case OMPC_PROC_BIND_unknown:
132 return "unknown";
Alexey Bataev23b69422014-06-18 07:08:49 +0000133#define OPENMP_PROC_BIND_KIND(Name) \
134 case OMPC_PROC_BIND_##Name: \
135 return #Name;
Alexey Bataevbcbadb62014-05-06 06:04:14 +0000136#include "clang/Basic/OpenMPKinds.def"
137 }
138 llvm_unreachable("Invalid OpenMP 'proc_bind' clause type");
Alexey Bataev56dafe82014-06-20 07:16:17 +0000139 case OMPC_schedule:
140 switch (Type) {
141 case OMPC_SCHEDULE_unknown:
142 return "unknown";
143#define OPENMP_SCHEDULE_KIND(Name) \
144 case OMPC_SCHEDULE_##Name: \
145 return #Name;
146#include "clang/Basic/OpenMPKinds.def"
147 }
148 llvm_unreachable("Invalid OpenMP 'schedule' clause type");
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000149 case OMPC_unknown:
150 case OMPC_threadprivate:
Alexey Bataevaadd52e2014-02-13 05:29:23 +0000151 case OMPC_if:
Alexey Bataev3778b602014-07-17 07:32:53 +0000152 case OMPC_final:
Alexey Bataev568a8332014-03-06 06:15:19 +0000153 case OMPC_num_threads:
Alexey Bataev62c87d22014-03-21 04:51:18 +0000154 case OMPC_safelen:
Alexander Musman8bd31e62014-05-27 15:12:19 +0000155 case OMPC_collapse:
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000156 case OMPC_private:
Alexey Bataevd5af8e42013-10-01 05:32:34 +0000157 case OMPC_firstprivate:
Alexander Musman1bb328c2014-06-04 13:06:39 +0000158 case OMPC_lastprivate:
David Blaikie3e8aa9a2013-09-06 20:58:25 +0000159 case OMPC_shared:
Alexey Bataevc5e02582014-06-16 07:08:35 +0000160 case OMPC_reduction:
Alexander Musman8dba6642014-04-22 13:09:42 +0000161 case OMPC_linear:
Alexander Musmanf0d76e72014-05-29 14:36:25 +0000162 case OMPC_aligned:
Alexey Bataevd48bcd82014-03-31 03:36:38 +0000163 case OMPC_copyin:
Alexey Bataevbae9a792014-06-27 10:37:06 +0000164 case OMPC_copyprivate:
Alexey Bataev142e1fc2014-06-20 09:44:06 +0000165 case OMPC_ordered:
Alexey Bataev236070f2014-06-20 11:19:47 +0000166 case OMPC_nowait:
Alexey Bataev7aea99a2014-07-17 12:19:31 +0000167 case OMPC_untied:
Alexey Bataev74ba3a52014-07-17 12:47:03 +0000168 case OMPC_mergeable:
Alexey Bataev6125da92014-07-21 11:26:11 +0000169 case OMPC_flush:
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000170 break;
171 }
172 llvm_unreachable("Invalid OpenMP simple clause kind");
173}
174
175bool clang::isAllowedClauseForDirective(OpenMPDirectiveKind DKind,
176 OpenMPClauseKind CKind) {
Alexey Bataev4ca40ed2014-05-12 04:23:46 +0000177 assert(DKind <= OMPD_unknown);
178 assert(CKind <= OMPC_unknown);
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000179 switch (DKind) {
180 case OMPD_parallel:
181 switch (CKind) {
Alexey Bataev23b69422014-06-18 07:08:49 +0000182#define OPENMP_PARALLEL_CLAUSE(Name) \
183 case OMPC_##Name: \
184 return true;
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000185#include "clang/Basic/OpenMPKinds.def"
186 default:
187 break;
188 }
189 break;
Alexey Bataev1b59ab52014-02-27 08:29:12 +0000190 case OMPD_simd:
191 switch (CKind) {
Alexey Bataev23b69422014-06-18 07:08:49 +0000192#define OPENMP_SIMD_CLAUSE(Name) \
193 case OMPC_##Name: \
194 return true;
Alexey Bataev1b59ab52014-02-27 08:29:12 +0000195#include "clang/Basic/OpenMPKinds.def"
196 default:
197 break;
198 }
199 break;
Alexey Bataevf29276e2014-06-18 04:14:57 +0000200 case OMPD_for:
201 switch (CKind) {
Alexey Bataev23b69422014-06-18 07:08:49 +0000202#define OPENMP_FOR_CLAUSE(Name) \
203 case OMPC_##Name: \
204 return true;
Alexey Bataevf29276e2014-06-18 04:14:57 +0000205#include "clang/Basic/OpenMPKinds.def"
206 default:
207 break;
208 }
209 break;
Alexey Bataevd3f8dd22014-06-25 11:44:49 +0000210 case OMPD_sections:
211 switch (CKind) {
Alexey Bataevbae9a792014-06-27 10:37:06 +0000212#define OPENMP_SECTIONS_CLAUSE(Name) \
Alexey Bataevd3f8dd22014-06-25 11:44:49 +0000213 case OMPC_##Name: \
214 return true;
215#include "clang/Basic/OpenMPKinds.def"
216 default:
217 break;
218 }
219 break;
Alexey Bataevd1e40fb2014-06-26 12:05:45 +0000220 case OMPD_single:
221 switch (CKind) {
Alexey Bataevbae9a792014-06-27 10:37:06 +0000222#define OPENMP_SINGLE_CLAUSE(Name) \
Alexey Bataevd1e40fb2014-06-26 12:05:45 +0000223 case OMPC_##Name: \
224 return true;
225#include "clang/Basic/OpenMPKinds.def"
226 default:
227 break;
228 }
229 break;
Alexey Bataev4acb8592014-07-07 13:01:15 +0000230 case OMPD_parallel_for:
231 switch (CKind) {
232#define OPENMP_PARALLEL_FOR_CLAUSE(Name) \
233 case OMPC_##Name: \
234 return true;
235#include "clang/Basic/OpenMPKinds.def"
236 default:
237 break;
238 }
239 break;
Alexey Bataev84d0b3e2014-07-08 08:12:03 +0000240 case OMPD_parallel_sections:
241 switch (CKind) {
242#define OPENMP_PARALLEL_SECTIONS_CLAUSE(Name) \
243 case OMPC_##Name: \
244 return true;
245#include "clang/Basic/OpenMPKinds.def"
246 default:
247 break;
248 }
249 break;
Alexey Bataev9c2e8ee2014-07-11 11:25:16 +0000250 case OMPD_task:
251 switch (CKind) {
252#define OPENMP_TASK_CLAUSE(Name) \
253 case OMPC_##Name: \
254 return true;
255#include "clang/Basic/OpenMPKinds.def"
256 default:
257 break;
258 }
259 break;
Alexey Bataev6125da92014-07-21 11:26:11 +0000260 case OMPD_flush:
261 return CKind == OMPC_flush;
262 break;
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000263 case OMPD_unknown:
264 case OMPD_threadprivate:
Alexey Bataev1e0498a2014-06-26 08:21:58 +0000265 case OMPD_section:
Alexander Musman80c22892014-07-17 08:54:58 +0000266 case OMPD_master:
Alexander Musmand9ed09f2014-07-21 09:42:05 +0000267 case OMPD_critical:
Alexey Bataev68446b72014-07-18 07:47:19 +0000268 case OMPD_taskyield:
Alexey Bataev4d1dfea2014-07-18 09:11:51 +0000269 case OMPD_barrier:
Alexey Bataev2df347a2014-07-18 10:17:07 +0000270 case OMPD_taskwait:
Alexey Bataev9fb6e642014-07-22 06:45:04 +0000271 case OMPD_ordered:
Alexey Bataev5ec3eb12013-07-19 03:13:43 +0000272 break;
273 }
274 return false;
275}
Alexey Bataevf29276e2014-06-18 04:14:57 +0000276
277bool clang::isOpenMPLoopDirective(OpenMPDirectiveKind DKind) {
Alexey Bataev4acb8592014-07-07 13:01:15 +0000278 return DKind == OMPD_simd || DKind == OMPD_for ||
279 DKind == OMPD_parallel_for; // TODO add next directives.
Alexey Bataevf29276e2014-06-18 04:14:57 +0000280}
281
282bool clang::isOpenMPWorksharingDirective(OpenMPDirectiveKind DKind) {
Alexey Bataevd1e40fb2014-06-26 12:05:45 +0000283 return DKind == OMPD_for || DKind == OMPD_sections || DKind == OMPD_section ||
Alexey Bataev84d0b3e2014-07-08 08:12:03 +0000284 DKind == OMPD_single || DKind == OMPD_parallel_for ||
285 DKind == OMPD_parallel_sections; // TODO add next directives.
Alexey Bataevf29276e2014-06-18 04:14:57 +0000286}
287
288bool clang::isOpenMPParallelDirective(OpenMPDirectiveKind DKind) {
Alexey Bataev84d0b3e2014-07-08 08:12:03 +0000289 return DKind == OMPD_parallel || DKind == OMPD_parallel_for ||
290 DKind == OMPD_parallel_sections; // TODO add next directives.
Alexey Bataevf29276e2014-06-18 04:14:57 +0000291}
292
293bool clang::isOpenMPSimdDirective(OpenMPDirectiveKind DKind) {
294 return DKind == OMPD_simd; // TODO || DKind == OMPD_for_simd || ...
295}
296
297bool clang::isOpenMPPrivate(OpenMPClauseKind Kind) {
298 return Kind == OMPC_private || Kind == OMPC_firstprivate ||
299 Kind == OMPC_lastprivate || Kind == OMPC_linear ||
300 Kind == OMPC_reduction; // TODO add next clauses like 'reduction'.
301}
302
303bool clang::isOpenMPThreadPrivate(OpenMPClauseKind Kind) {
304 return Kind == OMPC_threadprivate ||
305 Kind == OMPC_copyin; // TODO add next clauses like 'copyprivate'.
306}
307