2013-03-22 14:34:35 +08:00
|
|
|
//===--- OpenMPKinds.cpp - Token Kinds Support ----------------------------===//
|
|
|
|
//
|
|
|
|
// The LLVM Compiler Infrastructure
|
|
|
|
//
|
|
|
|
// This file is distributed under the University of Illinois Open Source
|
|
|
|
// License. See LICENSE.TXT for details.
|
|
|
|
//
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
/// \file
|
|
|
|
/// \brief This file implements the OpenMP enum and support functions.
|
|
|
|
///
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
|
|
|
|
#include "clang/Basic/OpenMPKinds.h"
|
|
|
|
#include "clang/Basic/IdentifierTable.h"
|
2013-03-26 05:32:02 +08:00
|
|
|
#include "llvm/ADT/StringRef.h"
|
2013-03-22 14:34:35 +08:00
|
|
|
#include "llvm/ADT/StringSwitch.h"
|
|
|
|
#include "llvm/Support/ErrorHandling.h"
|
|
|
|
#include <cassert>
|
|
|
|
|
|
|
|
using namespace clang;
|
|
|
|
|
|
|
|
OpenMPDirectiveKind clang::getOpenMPDirectiveKind(StringRef Str) {
|
|
|
|
return llvm::StringSwitch<OpenMPDirectiveKind>(Str)
|
|
|
|
#define OPENMP_DIRECTIVE(Name) \
|
|
|
|
.Case(#Name, OMPD_##Name)
|
|
|
|
#include "clang/Basic/OpenMPKinds.def"
|
|
|
|
.Default(OMPD_unknown);
|
|
|
|
}
|
|
|
|
|
|
|
|
const char *clang::getOpenMPDirectiveName(OpenMPDirectiveKind Kind) {
|
|
|
|
assert(Kind < NUM_OPENMP_DIRECTIVES);
|
|
|
|
switch (Kind) {
|
|
|
|
case OMPD_unknown:
|
2013-05-13 12:18:18 +08:00
|
|
|
return "unknown";
|
2013-03-22 14:34:35 +08:00
|
|
|
#define OPENMP_DIRECTIVE(Name) \
|
|
|
|
case OMPD_##Name : return #Name;
|
|
|
|
#include "clang/Basic/OpenMPKinds.def"
|
2013-07-19 11:13:43 +08:00
|
|
|
case NUM_OPENMP_DIRECTIVES:
|
2013-03-22 14:34:35 +08:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
llvm_unreachable("Invalid OpenMP directive kind");
|
|
|
|
}
|
2013-05-13 12:18:18 +08:00
|
|
|
|
2013-07-19 11:13:43 +08:00
|
|
|
OpenMPClauseKind clang::getOpenMPClauseKind(StringRef Str) {
|
|
|
|
return llvm::StringSwitch<OpenMPClauseKind>(Str)
|
|
|
|
#define OPENMP_CLAUSE(Name, Class) \
|
|
|
|
.Case(#Name, OMPC_##Name)
|
|
|
|
#include "clang/Basic/OpenMPKinds.def"
|
|
|
|
.Default(OMPC_unknown);
|
|
|
|
}
|
|
|
|
|
|
|
|
const char *clang::getOpenMPClauseName(OpenMPClauseKind Kind) {
|
|
|
|
assert(Kind < NUM_OPENMP_CLAUSES);
|
|
|
|
switch (Kind) {
|
|
|
|
case OMPC_unknown:
|
|
|
|
return "unknown";
|
|
|
|
#define OPENMP_CLAUSE(Name, Class) \
|
|
|
|
case OMPC_##Name : return #Name;
|
|
|
|
#include "clang/Basic/OpenMPKinds.def"
|
|
|
|
case OMPC_threadprivate:
|
|
|
|
return "threadprivate or thread local";
|
|
|
|
case NUM_OPENMP_CLAUSES:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
llvm_unreachable("Invalid OpenMP clause kind");
|
|
|
|
}
|
|
|
|
|
|
|
|
unsigned clang::getOpenMPSimpleClauseType(OpenMPClauseKind Kind,
|
|
|
|
StringRef Str) {
|
|
|
|
switch (Kind) {
|
|
|
|
case OMPC_default:
|
|
|
|
return llvm::StringSwitch<OpenMPDefaultClauseKind>(Str)
|
|
|
|
#define OPENMP_DEFAULT_KIND(Name) \
|
|
|
|
.Case(#Name, OMPC_DEFAULT_##Name)
|
|
|
|
#include "clang/Basic/OpenMPKinds.def"
|
|
|
|
.Default(OMPC_DEFAULT_unknown);
|
|
|
|
case OMPC_unknown:
|
|
|
|
case OMPC_threadprivate:
|
2014-02-13 13:29:23 +08:00
|
|
|
case OMPC_if:
|
2014-03-06 14:15:19 +08:00
|
|
|
case OMPC_num_threads:
|
2013-07-19 11:13:43 +08:00
|
|
|
case OMPC_private:
|
2013-10-01 13:32:34 +08:00
|
|
|
case OMPC_firstprivate:
|
2013-09-07 04:58:25 +08:00
|
|
|
case OMPC_shared:
|
2013-07-19 11:13:43 +08:00
|
|
|
case NUM_OPENMP_CLAUSES:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
llvm_unreachable("Invalid OpenMP simple clause kind");
|
|
|
|
}
|
|
|
|
|
|
|
|
const char *clang::getOpenMPSimpleClauseTypeName(OpenMPClauseKind Kind,
|
|
|
|
unsigned Type) {
|
|
|
|
switch (Kind) {
|
|
|
|
case OMPC_default:
|
|
|
|
switch (Type) {
|
|
|
|
case OMPC_DEFAULT_unknown:
|
|
|
|
return "unknown";
|
|
|
|
#define OPENMP_DEFAULT_KIND(Name) \
|
|
|
|
case OMPC_DEFAULT_##Name : return #Name;
|
|
|
|
#include "clang/Basic/OpenMPKinds.def"
|
|
|
|
}
|
|
|
|
llvm_unreachable("Invalid OpenMP 'default' clause type");
|
|
|
|
case OMPC_unknown:
|
|
|
|
case OMPC_threadprivate:
|
2014-02-13 13:29:23 +08:00
|
|
|
case OMPC_if:
|
2014-03-06 14:15:19 +08:00
|
|
|
case OMPC_num_threads:
|
2013-07-19 11:13:43 +08:00
|
|
|
case OMPC_private:
|
2013-10-01 13:32:34 +08:00
|
|
|
case OMPC_firstprivate:
|
2013-09-07 04:58:25 +08:00
|
|
|
case OMPC_shared:
|
2013-07-19 11:13:43 +08:00
|
|
|
case NUM_OPENMP_CLAUSES:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
llvm_unreachable("Invalid OpenMP simple clause kind");
|
|
|
|
}
|
|
|
|
|
|
|
|
bool clang::isAllowedClauseForDirective(OpenMPDirectiveKind DKind,
|
|
|
|
OpenMPClauseKind CKind) {
|
|
|
|
assert(DKind < NUM_OPENMP_DIRECTIVES);
|
|
|
|
assert(CKind < NUM_OPENMP_CLAUSES);
|
|
|
|
switch (DKind) {
|
|
|
|
case OMPD_parallel:
|
|
|
|
switch (CKind) {
|
|
|
|
#define OPENMP_PARALLEL_CLAUSE(Name) \
|
|
|
|
case OMPC_##Name: return true;
|
2014-02-27 16:29:12 +08:00
|
|
|
#include "clang/Basic/OpenMPKinds.def"
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case OMPD_simd:
|
|
|
|
switch (CKind) {
|
|
|
|
#define OPENMP_SIMD_CLAUSE(Name) \
|
|
|
|
case OMPC_##Name: return true;
|
2013-07-19 11:13:43 +08:00
|
|
|
#include "clang/Basic/OpenMPKinds.def"
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case OMPD_unknown:
|
|
|
|
case OMPD_threadprivate:
|
|
|
|
case OMPD_task:
|
|
|
|
case NUM_OPENMP_DIRECTIVES:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return false;
|
|
|
|
}
|