LangOptions.h

//===-- include/flang/Support/LangOptions.h ---------------------*- C++ -*-===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
//
//  This file defines the LangOptions interface, which holds the
//  configuration for LLVM's middle-end and back-end. It controls LLVM's code
//  generation into assembly or machine code.
//
//===----------------------------------------------------------------------===//
 
#ifndef FORTRAN_SUPPORT_LANGOPTIONS_H_
#define FORTRAN_SUPPORT_LANGOPTIONS_H_
 
#include <string>
#include <vector>
 
#include "llvm/Frontend/OpenMP/OMPVersion.h"
#include "llvm/TargetParser/Triple.h"
 
namespace Fortran::common {

class LangOptionsBase {
 
public:
  enum SignedOverflowBehaviorTy {
    // -fno-wrapv (default behavior in Flang)
    SOB_Undefined,
 
    // -fwrapv
    SOB_Defined,
  };
 
  enum FPModeKind {
    // Do not fuse FP ops
    FPM_Off,
 
    // Aggressively fuse FP ops (E.g. FMA).
    FPM_Fast,
  };

  enum FPExceptionTrapKind : unsigned {
    FPE_Invalid = 1,
    FPE_Denormal = 2,
    FPE_DivByZero = 4,
    FPE_Overflow = 8,
    FPE_Underflow = 16,
    FPE_Inexact = 32,
  };
 
#define LANGOPT(Name, Bits, Default) unsigned Name : Bits;
#define ENUM_LANGOPT(Name, Type, Bits, Default)
#include "LangOptions.def"
 
protected:
#define LANGOPT(Name, Bits, Default)
#define ENUM_LANGOPT(Name, Type, Bits, Default) unsigned Name : Bits;
#include "LangOptions.def"
};

class LangOptions : public LangOptionsBase {
 
public:
  // Define accessors/mutators for code generation options of enumeration type.
#define LANGOPT(Name, Bits, Default)
#define ENUM_LANGOPT(Name, Type, Bits, Default) \
  Type get##Name() const { return static_cast<Type>(Name); } \
  void set##Name(Type Value) { \
    assert(static_cast<unsigned>(Value) < (1u << Bits)); \
    Name = static_cast<unsigned>(Value); \
  }
#include "LangOptions.def"

  std::string OMPHostIRFile;

  std::vector<llvm::Triple> OMPTargetTriples;
 
  llvm::omp::Version getOpenMPVersion() const {
    return llvm::omp::Version(OpenMPVersion);
  }
 
  LangOptions();
};
 
} // end namespace Fortran::common
 
#endif // FORTRAN_SUPPORT_LANGOPTIONS_H_