Numeric.h

//===-- Numeric.h -- generate numeric intrinsics runtime calls --*- 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
//
//===----------------------------------------------------------------------===//
 
#ifndef FORTRAN_OPTIMIZER_BUILDER_RUNTIME_NUMERIC_H
#define FORTRAN_OPTIMIZER_BUILDER_RUNTIME_NUMERIC_H
 
#include "mlir/Dialect/Func/IR/FuncOps.h"
 
namespace fir {
class ExtendedValue;
class FirOpBuilder;
} // namespace fir
 
namespace fir::runtime {

mlir::Value genErfcScaled(fir::FirOpBuilder &builder, mlir::Location loc,
                          mlir::Value x);

mlir::Value genExponent(fir::FirOpBuilder &builder, mlir::Location loc,
                        mlir::Type resultType, mlir::Value x);

mlir::Value genFraction(fir::FirOpBuilder &builder, mlir::Location loc,
                        mlir::Value x);

mlir::Value genMod(fir::FirOpBuilder &builder, mlir::Location loc,
                   mlir::Value a, mlir::Value p);

mlir::Value genModulo(fir::FirOpBuilder &builder, mlir::Location loc,
                      mlir::Value a, mlir::Value p);

mlir::Value genNearest(fir::FirOpBuilder &builder, mlir::Location loc,
                       mlir::Value x, mlir::Value s);

mlir::Value genRRSpacing(fir::FirOpBuilder &builder, mlir::Location loc,
                         mlir::Value x);

mlir::Value genScale(fir::FirOpBuilder &builder, mlir::Location loc,
                     mlir::Value x, mlir::Value i);

mlir::Value genSelectedCharKind(fir::FirOpBuilder &builder, mlir::Location loc,
                                mlir::Value name, mlir::Value length);

mlir::Value genSelectedIntKind(fir::FirOpBuilder &builder, mlir::Location loc,
                               mlir::Value x);

mlir::Value genSelectedLogicalKind(fir::FirOpBuilder &builder,
                                   mlir::Location loc, mlir::Value x);

mlir::Value genSelectedRealKind(fir::FirOpBuilder &builder, mlir::Location loc,
                                mlir::Value precision, mlir::Value range,
                                mlir::Value radix);

mlir::Value genSetExponent(fir::FirOpBuilder &builder, mlir::Location loc,
                           mlir::Value x, mlir::Value i);

mlir::Value genSpacing(fir::FirOpBuilder &builder, mlir::Location loc,
                       mlir::Value x);
 
} // namespace fir::runtime
#endif // FORTRAN_OPTIMIZER_BUILDER_RUNTIME_NUMERIC_H