PrivateReductionUtils.h

//===-- Lower/OpenMP/PrivateReductionUtils.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
//
//===----------------------------------------------------------------------===//
//
// Coding style: https://mlir.llvm.org/getting_started/DeveloperGuide/
//
//===----------------------------------------------------------------------===//
 
#ifndef FORTRAN_LOWER_OPENMP_PRIVATEREDUCTIONUTILS_H
#define FORTRAN_LOWER_OPENMP_PRIVATEREDUCTIONUTILS_H
 
#include "mlir/IR/Location.h"
#include "mlir/IR/Value.h"
 
namespace mlir {
class Region;
} // namespace mlir
 
namespace fir {
class FirOpBuilder;
class ShapeShiftOp;
} // namespace fir
 
namespace Fortran {
namespace lower {
namespace omp {
 
void populateByRefInitAndCleanupRegions(fir::FirOpBuilder &builder,
                                        mlir::Location loc, mlir::Type argType,
                                        mlir::Value scalarInitValue,
                                        mlir::Block *initBlock,
                                        mlir::Value allocatedPrivVarArg,
                                        mlir::Value moldArg,
                                        mlir::Region &cleanupRegion);
 
fir::ShapeShiftOp getShapeShift(fir::FirOpBuilder &builder, mlir::Location loc,
                                mlir::Value box);
 
} // namespace omp
} // namespace lower
} // namespace Fortran
 
#endif // FORTRAN_LOWER_OPENMP_PRIVATEREDUCTIONUTILS_H