ConvertConstant.h

//===-- ConvertConstant.h -- lowering of constants --------------*- 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
//
//===----------------------------------------------------------------------===//
//
// Coding style: https://mlir.llvm.org/getting_started/DeveloperGuide/
//
//===----------------------------------------------------------------------===//
//===----------------------------------------------------------------------===//
 
#ifndef FORTRAN_LOWER_CONVERTCONSTANT_H
#define FORTRAN_LOWER_CONVERTCONSTANT_H
 
#include "flang/Evaluate/constant.h"
#include "flang/Lower/Support/Utils.h"
#include "flang/Optimizer/Builder/BoxValue.h"
#include "flang/Optimizer/Builder/FIRBuilder.h"
 
namespace Fortran::lower {
class AbstractConverter;

template <typename T>
class ConstantBuilder {
public:
  static fir::ExtendedValue gen(Fortran::lower::AbstractConverter &converter,
                                mlir::Location loc,
                                const evaluate::Constant<T> &constant,
                                bool outlineBigConstantsInReadOnlyMemory);
};
using namespace evaluate;
FOR_EACH_SPECIFIC_TYPE(extern template class ConstantBuilder, )
 
template <typename T>
fir::ExtendedValue convertConstant(Fortran::lower::AbstractConverter &converter,
                                   mlir::Location loc,
                                   const evaluate::Constant<T> &constant,
                                   bool outlineBigConstantsInReadOnlyMemory) {
  return ConstantBuilder<T>::gen(converter, loc, constant,
                                 outlineBigConstantsInReadOnlyMemory);
}

fir::GlobalOp tryCreatingDenseGlobal(fir::FirOpBuilder &builder,
                                     mlir::Location loc, mlir::Type symTy,
                                     llvm::StringRef globalName,
                                     mlir::StringAttr linkage, bool isConst,
                                     const Fortran::lower::SomeExpr &initExpr,
                                     cuf::DataAttributeAttr dataAttr = {});

fir::ExtendedValue
genInlinedStructureCtorLit(Fortran::lower::AbstractConverter &converter,
                           mlir::Location loc,
                           const Fortran::evaluate::StructureConstructor &ctor);
 
} // namespace Fortran::lower
 
#endif // FORTRAN_LOWER_CONVERTCONSTANT_H