Reuse enum definitions from Fortran::parser

Author: kparzysz

flang/lib/Lower/OpenMP.cpp

@@ -361,8 +361,7 @@ struct DefinedOperator {
  using WrapperTrait = std::true_type;
  Object v;
  };
- ENUM_CLASS(IntrinsicOperator, Power, Multiply, Divide, Add, Subtract, Concat,
- LT, LE, EQ, NE, GE, GT, NOT, AND, OR, EQV, NEQV)
+ using IntrinsicOperator = Fortran::parser::DefinedOperator::IntrinsicOperator;
  using UnionTrait = std::true_type;
  std::variant<DefinedOpName, IntrinsicOperator> u;
 };
@@ -554,10 +553,10 @@ Copyprivate make(const parser::OmpClause::Copyprivate &inp,
 }
 
 struct Defaultmap {
- ENUM_CLASS(ImplicitBehavior, Alloc, To, From, Tofrom, Firstprivate, None,
-  Default)
- ENUM_CLASS(VariableCategory, Scalar, Aggregate, Allocatable, Pointer)
- using TupleTrait = std::true_type;
+ using ImplicitBehavior =
+ Fortran::parser::OmpDefaultmapClause::ImplicitBehavior;
+ using VariableCategory =
+  Fortran::parser::OmpDefaultmapClause::VariableCategory;
  std::tuple<ImplicitBehavior, std::optional<VariableCategory>> t;
 };
 
@@ -576,7 +575,7 @@ Defaultmap make(const parser::OmpClause::Defaultmap &inp,
 }
 
 struct Default {
- ENUM_CLASS(Type, Private, Firstprivate, Shared, None)
+ using Type = Fortran::parser::OmpDefaultClause::Type;
  using WrapperTrait = std::true_type;
  Type v;
 };
@@ -597,7 +596,7 @@ struct Depend {
  using WrapperTrait = std::true_type;
  List<Vec> v;
  };
- ENUM_CLASS(Type, In, Out, Inout, Source, Sink)
+ using Type = Fortran::parser::OmpDependenceType::Type;
  struct InOut {
  using TupleTrait = std::true_type;
  std::tuple<Type, ObjectList> t;
@@ -644,7 +643,7 @@ Depend make(const parser::OmpClause::Depend &inp,
 }
 
 struct Device {
- ENUM_CLASS(DeviceModifier, Ancestor, Device_Num)
+ using DeviceModifier = Fortran::parser::OmpDeviceClause::DeviceModifier;
  using TupleTrait = std::true_type;
  std::tuple<std::optional<DeviceModifier>, SomeExpr> t;
 };
@@ -663,7 +662,7 @@ Device make(const parser::OmpClause::Device &inp,
 }
 
 struct DeviceType {
- ENUM_CLASS(Type, Any, Host, Nohost)
+ using Type = Fortran::parser::OmpDeviceTypeClause::Type;
  using WrapperTrait = std::true_type;
  Type v;
 };
@@ -774,9 +773,8 @@ Hint make(const parser::OmpClause::Hint &inp,
 }
 
 struct If {
- ENUM_CLASS(DirectiveNameModifier, Parallel, Simd, Target, TargetData,
- TargetEnterData, TargetExitData, TargetUpdate, Task, Taskloop,
- Teams)
+ using DirectiveNameModifier =
+ Fortran::parser::OmpIfClause::DirectiveNameModifier;
  using TupleTrait = std::true_type;
  std::tuple<std::optional<DirectiveNameModifier>, SomeExpr> t;
 };
@@ -831,7 +829,7 @@ Lastprivate make(const parser::OmpClause::Lastprivate &inp,
 
 struct Linear {
  struct Modifier {
- ENUM_CLASS(Type, Ref, Val, Uval)
+ using Type = Fortran::parser::OmpLinearModifier::Type;
  using WrapperTrait = std::true_type;
  Type v;
  };
@@ -876,7 +874,7 @@ struct Map {
  struct Always {
  using EmptyTrait = std::true_type;
  };
- ENUM_CLASS(Type, To, From, Tofrom, Alloc, Release, Delete)
+ using Type = Fortran::parser::OmpMapType::Type;
  using TupleTrait = std::true_type;
  std::tuple<std::optional<Always>, Type> t;
  };
@@ -990,8 +988,8 @@ Ordered make(const parser::OmpClause::Ordered &inp,
 }
 
 struct Order {
- ENUM_CLASS(Kind, Reproducible, Unconstrained)
- ENUM_CLASS(Type, Concurrent)
+ using Kind = Fortran::parser::OmpOrderModifier::Kind;
+ using Type = Fortran::parser::OmpOrderClause::Type;
  using TupleTrait = std::true_type;
  std::tuple<std::optional<Kind>, Type> t;
 };
@@ -1043,7 +1041,7 @@ Private make(const parser::OmpClause::Private &inp,
 }
 
 struct ProcBind {
- ENUM_CLASS(Type, Close, Master, Spread, Primary)
+ using Type = Fortran::parser::OmpProcBindClause::Type;
  using WrapperTrait = std::true_type;
  Type v;
 };
@@ -1079,12 +1077,12 @@ Safelen make(const parser::OmpClause::Safelen &inp,
 }
 
 struct Schedule {
- ENUM_CLASS(ModType, Monotonic, Nonmonotonic, Simd)
+ using ModType = Fortran::parser::OmpScheduleModifierType::ModType;
  struct ScheduleModifier {
  using TupleTrait = std::true_type;
  std::tuple<ModType, std::optional<ModType>> t;
  };
- ENUM_CLASS(ScheduleType, Static, Dynamic, Guided, Auto, Runtime)
+ using ScheduleType = Fortran::parser::OmpScheduleClause::ScheduleType;
  using TupleTrait = std::true_type;
  std::tuple<std::optional<ScheduleModifier>, ScheduleType, MaybeExpr> t;
 };