OpenMPToLLVMIRTranslation.cpp

Go to the documentation of this file.

//===- OpenMPToLLVMIRTranslation.cpp - Translate OpenMP dialect to LLVM IR-===//
//
// 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 implements a translation between the MLIR OpenMP dialect and LLVM
// IR.
//
//===----------------------------------------------------------------------===//
#include "mlir/Target/LLVMIR/Dialect/OpenMP/OpenMPToLLVMIRTranslation.h"
#include "mlir/Analysis/TopologicalSortUtils.h"
#include "mlir/Dialect/Arith/IR/Arith.h"
#include "mlir/Dialect/LLVMIR/LLVMDialect.h"
#include "mlir/Dialect/LLVMIR/LLVMTypes.h"
#include "mlir/Dialect/OpenMP/OpenMPDialect.h"
#include "mlir/Dialect/OpenMP/OpenMPInterfaces.h"
#include "mlir/Dialect/OpenMP/Utils/Utils.h"
#include "mlir/IR/Operation.h"
#include "mlir/Interfaces/SideEffectInterfaces.h"
#include "mlir/Support/LLVM.h"
#include "mlir/Target/LLVMIR/Dialect/OpenMPCommon.h"
#include "mlir/Target/LLVMIR/ModuleTranslation.h"
 
#include "llvm/ADT/ArrayRef.h"
#include "llvm/ADT/SmallVector.h"
#include "llvm/ADT/TypeSwitch.h"
#include "llvm/Frontend/OpenMP/OMPConstants.h"
#include "llvm/Frontend/OpenMP/OMPIRBuilder.h"
#include "llvm/IR/Constants.h"
#include "llvm/IR/DebugInfoMetadata.h"
#include "llvm/IR/DerivedTypes.h"
#include "llvm/IR/IRBuilder.h"
#include "llvm/IR/MDBuilder.h"
#include "llvm/IR/ReplaceConstant.h"
#include "llvm/Support/AMDGPUAddrSpace.h"
#include "llvm/Support/CommandLine.h"
#include "llvm/Support/FileSystem.h"
#include "llvm/Support/MathExtras.h"
#include "llvm/Support/NVPTXAddrSpace.h"
#include "llvm/Support/SaveAndRestore.h"
#include "llvm/Support/VirtualFileSystem.h"
#include "llvm/TargetParser/Triple.h"
#include "llvm/Transforms/Utils/ModuleUtils.h"
 
#include <cstdint>
#include <iterator>
#include <numeric>
#include <optional>
#include <utility>
 
using namespace mlir;
 
static llvm::Expected<llvm::Value *>
getPrivateDataAddress(llvm::IRBuilderBase &builder,
                      LLVM::ModuleTranslation &moduleTranslation,
                      omp::PrivateClauseOp privatizer, llvm::Value *var);
 
namespace {
/// Stores the option value so the OpenMP-to-LLVM IR translation can read it
/// outside registerOpenMPTranslationCLOptions(). The local cl::opt avoids a
/// global constructor in MLIR and writes to this variable through cl::location.
/// Without registration, false keeps Virtual enabled for eligible loops.
static bool disableVirtualCollapse = false;
 
static llvm::omp::ScheduleKind
convertToScheduleKind(std::optional<omp::ClauseScheduleKind> schedKind) {
  if (!schedKind.has_value())
    return llvm::omp::OMP_SCHEDULE_Default;
  switch (schedKind.value()) {
  case omp::ClauseScheduleKind::Static:
    return llvm::omp::OMP_SCHEDULE_Static;
  case omp::ClauseScheduleKind::Dynamic:
    return llvm::omp::OMP_SCHEDULE_Dynamic;
  case omp::ClauseScheduleKind::Guided:
    return llvm::omp::OMP_SCHEDULE_Guided;
  case omp::ClauseScheduleKind::Auto:
    return llvm::omp::OMP_SCHEDULE_Auto;
  case omp::ClauseScheduleKind::Runtime:
    return llvm::omp::OMP_SCHEDULE_Runtime;
  case omp::ClauseScheduleKind::Distribute:
    return llvm::omp::OMP_SCHEDULE_Distribute;
  }
  llvm_unreachable("unhandled schedule clause argument");
}
 
/// ModuleTranslation stack frame for OpenMP operations. This keeps track of the
/// blocks in which allocas are emitted.
class OpenMPAllocStackFrame
    : public StateStackFrameBase<OpenMPAllocStackFrame> {
public:
  MLIR_DEFINE_EXPLICIT_INTERNAL_INLINE_TYPE_ID(OpenMPAllocStackFrame)
 
  explicit OpenMPAllocStackFrame(
      llvm::BasicBlock *allocBlock,
      llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks)
      : allocBlock(allocBlock), deallocBlocks(deallocBlocks) {}
  llvm::BasicBlock *allocBlock;
  llvm::SmallVector<llvm::BasicBlock *> deallocBlocks;
};
 
/// Stack frame to hold a \see llvm::CanonicalLoopInfo representing the
/// collapsed canonical loop information corresponding to an \c omp.loop_nest
/// operation.
class OpenMPLoopInfoStackFrame
    : public StateStackFrameBase<OpenMPLoopInfoStackFrame> {
public:
  MLIR_DEFINE_EXPLICIT_INTERNAL_INLINE_TYPE_ID(OpenMPLoopInfoStackFrame)
  llvm::CanonicalLoopInfo *loopInfo = nullptr;
};
 
/// OpenMP state that lives as long as the module translation: the
/// OpenMPIRBuilder associated with the LLVM module being constructed and the
/// not yet consumed canonical loop handles.
class OpenMPTranslationState : public LLVM::ModuleTranslation::Extension {
public:
  MLIR_DEFINE_EXPLICIT_INTERNAL_INLINE_TYPE_ID(OpenMPTranslationState)
 
  explicit OpenMPTranslationState(llvm::Module &module) : ompBuilder(module) {
    // Flags represented as top-level OpenMP dialect attributes are set in
    // `OpenMPDialectLLVMIRTranslationInterface::amendOperation()`. Here we set
    // the default configuration.
    llvm::OpenMPIRBuilderConfig config(
        /* IsTargetDevice = */ false, /* IsGPU = */ false,
        /* OpenMPOffloadMandatory = */ false,
        /* HasRequiresReverseOffload = */ false,
        /* HasRequiresUnifiedAddress = */ false,
        /* HasRequiresUnifiedSharedMemory = */ false,
        /* HasRequiresDynamicAllocators = */ false);
    config.setDefaultTargetAS(module.getDataLayout().getProgramAddressSpace());
    config.setRuntimeCC(module.getTargetTriple().isSPIRV()
                            ? llvm::CallingConv::SPIR_FUNC
                            : llvm::CallingConv::C);
    ompBuilder.setConfig(std::move(config));
    ompBuilder.initialize();
  }
 
  ~OpenMPTranslationState() override {
    if (!ompBuilder.isFinalized())
      ompBuilder.finalize();
  }
 
  LogicalResult finalize() override {
    ompBuilder.finalize();
    return success();
  }
 
  /// Builder for LLVM IR generation of OpenMP constructs.
  llvm::OpenMPIRBuilder ompBuilder;
 
  /// List of not yet consumed MLIR loop handles (represented by an omp.new_cli
  /// operation which creates a value of type CanonicalLoopInfoType) and their
  /// LLVM-IR representation as CanonicalLoopInfo which is managed by the
  /// OpenMPIRBuilder.
  DenseMap<omp::NewCliOp, llvm::CanonicalLoopInfo *> loopMapping;
};
} // namespace
 
static OpenMPTranslationState &
getOpenMPState(LLVM::ModuleTranslation &moduleTranslation) {
  return moduleTranslation.getOrCreateExtension<OpenMPTranslationState>(
      *moduleTranslation.getLLVMModule());
}
 
/// Returns the OpenMP IR builder associated with the LLVM IR module being
/// constructed.
static llvm::OpenMPIRBuilder *
getOpenMPBuilder(LLVM::ModuleTranslation &moduleTranslation) {
  return &getOpenMPState(moduleTranslation).ompBuilder;
}
 
/// Find the LLVM-IR loop that represents an MLIR loop.
static llvm::CanonicalLoopInfo *
lookupOMPLoop(LLVM::ModuleTranslation &moduleTranslation, Value mlir) {
  auto cli = mlir.getDefiningOp<omp::NewCliOp>();
  llvm::CanonicalLoopInfo *result =
      getOpenMPState(moduleTranslation).loopMapping.lookup(cli);
  assert(result && "attempt to get non-existing loop");
  return result;
}
 
/// Mark an OpenMP loop as having been consumed.
static void invalidateOmpLoop(LLVM::ModuleTranslation &moduleTranslation,
                              Value mlir) {
  auto cli = mlir.getDefiningOp<omp::NewCliOp>();
  getOpenMPState(moduleTranslation).loopMapping.erase(cli);
}
 
/// Map an MLIR OpenMP dialect CanonicalLoopInfo to its lowered LLVM-IR
/// OpenMPIRBuilder CanonicalLoopInfo.
static void mapOmpLoop(LLVM::ModuleTranslation &moduleTranslation, Value mlir,
                       llvm::CanonicalLoopInfo *llvm) {
  assert(llvm && "argument must be non-null");
  auto cli = mlir.getDefiningOp<omp::NewCliOp>();
  llvm::CanonicalLoopInfo *&cur =
      getOpenMPState(moduleTranslation).loopMapping[cli];
  assert(cur == nullptr && "attempting to map a loop that is already mapped");
  cur = llvm;
}
 
namespace {
/// Custom error class to signal translation errors that don't need reporting,
/// since encountering them will have already triggered relevant error messages.
///
/// Its purpose is to serve as the glue between MLIR failures represented as
/// \see LogicalResult instances and \see llvm::Error instances used to
/// propagate errors through the \see llvm::OpenMPIRBuilder. Generally, when an
/// error of the first type is raised, a message is emitted directly (the \see
/// LogicalResult itself does not hold any information). If we need to forward
/// this error condition as an \see llvm::Error while avoiding triggering some
/// redundant error reporting later on, we need a custom \see llvm::ErrorInfo
/// class to just signal this situation has happened.
///
/// For example, this class should be used to trigger errors from within
/// callbacks passed to the \see OpenMPIRBuilder when they were triggered by the
/// translation of their own regions. This unclutters the error log from
/// redundant messages.
class PreviouslyReportedError
    : public llvm::ErrorInfo<PreviouslyReportedError> {
public:
  void log(raw_ostream &) const override {
    // Do not log anything.
  }
 
  std::error_code convertToErrorCode() const override {
    llvm_unreachable(
        "PreviouslyReportedError doesn't support ECError conversion");
  }
 
  // Used by ErrorInfo::classID.
  static char ID;
};
 
char PreviouslyReportedError::ID = 0;
 
/*
 * Custom class for processing linear clause for omp.wsloop
 * and omp.simd. Linear clause translation requires setup,
 * initialization, update, and finalization at varying
 * basic blocks in the IR. This class helps maintain
 * internal state to allow consistent translation in
 * each of these stages.
 */
 
class LinearClauseProcessor {
 
private:
  SmallVector<llvm::Type *> linearVarTypes;
  SmallVector<llvm::Value *> linearSteps;
  // The `linear` privatizer, original and private copy of each linear var.
  SmallVector<omp::PrivateClauseOp> linearPrivatizers;
  SmallVector<llvm::Value *> linearOrigVars;
  SmallVector<llvm::Value *> linearPrivateVars;
  // The value of each linear var on entry to the loop.
  SmallVector<llvm::Value *> linearStartVals;
  llvm::BasicBlock *linearFinalizationBB;
  llvm::BasicBlock *linearExitBB;
  llvm::BasicBlock *linearLastIterExitBB;
  std::optional<size_t> linearLoopIVIndex;
 
  // Address of the value of linear var `index` held by `var`.
  llvm::Expected<llvm::Value *>
  getAddress(llvm::IRBuilderBase &builder,
             LLVM::ModuleTranslation &moduleTranslation, size_t index,
             llvm::Value *var) {
    return getPrivateDataAddress(builder, moduleTranslation,
                                 linearPrivatizers[index], var);
  }
 
  // Copy the current value of each linear var back to the original.
  llvm::Error storeLinearVars(llvm::IRBuilderBase &builder,
                              LLVM::ModuleTranslation &moduleTranslation) {
    for (size_t index = 0; index < linearOrigVars.size(); index++) {
      llvm::Expected<llvm::Value *> from = getAddress(
          builder, moduleTranslation, index, linearPrivateVars[index]);
      if (!from)
        return from.takeError();
      llvm::LoadInst *linearVarTemp =
          builder.CreateLoad(linearVarTypes[index], *from);
      llvm::Expected<llvm::Value *> to =
          getAddress(builder, moduleTranslation, index, linearOrigVars[index]);
      if (!to)
        return to.takeError();
      builder.CreateStore(linearVarTemp, *to);
    }
    return llvm::Error::success();
  }
 
public:
  // Register type for the linear variables
  void registerType(LLVM::ModuleTranslation &moduleTranslation,
                    mlir::Attribute &ty) {
    linearVarTypes.push_back(moduleTranslation.convertType(
        mlir::cast<mlir::TypeAttr>(ty).getValue()));
  }
 
  // Register a linear var, allocating space for its start value at `allocaIP`
  void createLinearVar(llvm::IRBuilderBase &builder,
                       const llvm::OpenMPIRBuilder::InsertPointTy &allocaIP,
                       omp::PrivateClauseOp privatizer, llvm::Value *origVar,
                       llvm::Value *privateVar, int idx) {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    builder.SetInsertPoint(allocaIP.getNodeParent()->getTerminator());
    linearStartVals.push_back(
        builder.CreateAlloca(linearVarTypes[idx], nullptr, ".linear_var"));
    linearPrivatizers.push_back(privatizer);
    linearOrigVars.push_back(origVar);
    linearPrivateVars.push_back(privateVar);
  }
 
  // Initialize linear step
  inline void initLinearStep(LLVM::ModuleTranslation &moduleTranslation,
                             mlir::Value &linearStep) {
    linearSteps.push_back(moduleTranslation.lookupValue(linearStep));
  }
 
  // Emit IR for initialization of linear variables
  llvm::Error initLinearVar(llvm::IRBuilderBase &builder,
                            LLVM::ModuleTranslation &moduleTranslation,
                            llvm::BasicBlock *loopPreHeader) {
    builder.SetInsertPoint(loopPreHeader->getTerminator());
    for (size_t index = 0; index < linearOrigVars.size(); index++) {
      llvm::Expected<llvm::Value *> orig =
          getAddress(builder, moduleTranslation, index, linearOrigVars[index]);
      if (!orig)
        return orig.takeError();
      llvm::LoadInst *linearVarLoad =
          builder.CreateLoad(linearVarTypes[index], *orig);
      builder.CreateStore(linearVarLoad, linearStartVals[index]);
    }
    return llvm::Error::success();
  }
 
  // Find linear iteration variable and save it for later updates
  LogicalResult initLinearIV(omp::SimdOp simdOp) {
    auto loopOp = cast<omp::LoopNestOp>(simdOp.getWrappedLoop());
    // NOTE iteration variables can only be linear in non-nested loops.
    if (loopOp.getIVs().size() != 1)
      return success();
    // Currently, frontends using `omp.simd` always generate a store from the
    // `omp.loop_nest`'s IV to the corresponding iteration variable, possibly
    // through the data address of its private copy.
    //
    // TODO Add an attribute to `omp.loop_nest` that explicitly lists the
    //      variables that correspond to the loop induction variables.
    MutableArrayRef<BlockArgument> linearArgs =
        cast<omp::BlockArgOpenMPOpInterface>(*simdOp).getLinearBlockArgs();
    SmallVector<Value> ivValues{loopOp.getIVs().front()};
    for (Operation *user : loopOp.getIVs().front().getUsers())
      if (isa<LLVM::SExtOp, LLVM::ZExtOp, LLVM::TruncOp>(user))
        ivValues.push_back(user->getResult(0));
 
    for (Value ivValue : ivValues) {
      for (Operation *user : ivValue.getUsers()) {
        auto storeOp = dyn_cast<LLVM::StoreOp>(user);
        if (!storeOp || storeOp.getValue() != ivValue)
          continue;
        // Look through loads, GEPs and copies of a private copy, e.g. of a
        // descriptor, to find the linear block argument the IV is stored to.
        Value addr = storeOp.getAddr();
        while (true) {
          Operation *def = addr.getDefiningOp();
          if (auto load = dyn_cast_if_present<LLVM::LoadOp>(def)) {
            addr = load.getAddr();
          } else if (auto gep = dyn_cast_if_present<LLVM::GEPOp>(def)) {
            addr = gep.getBase();
          } else {
            auto copy = llvm::find_if(addr.getUsers(), [&](Operation *user) {
              auto memcpy = dyn_cast<LLVM::MemcpyOp>(user);
              return memcpy && memcpy.getDst() == addr &&
                     llvm::is_contained(linearArgs, memcpy.getSrc());
            });
            if (copy == addr.getUsers().end())
              break;
            addr = cast<LLVM::MemcpyOp>(*copy).getSrc();
          }
        }
        auto *it = llvm::find(linearArgs, addr);
        if (it == linearArgs.end())
          continue;
        size_t index = std::distance(linearArgs.begin(), it);
        if (linearLoopIVIndex && *linearLoopIVIndex != index)
          return simdOp.emitError(
              "Could not determine the linear variable associated with the "
              "loop nest induction variable");
        linearLoopIVIndex = index;
      }
    }
    return success();
  }
 
  // Emit IR for updating Linear variables
  llvm::Error updateLinearVar(llvm::IRBuilderBase &builder,
                              LLVM::ModuleTranslation &moduleTranslation,
                              llvm::BasicBlock *loopBody,
                              llvm::Value *loopInductionVar) {
    builder.SetInsertPoint(loopBody->getTerminator());
    for (size_t index = 0; index < linearStartVals.size(); index++) {
      llvm::Type *linearVarType = linearVarTypes[index];
      llvm::Value *iv = loopInductionVar;
      llvm::Value *step = linearSteps[index];
      llvm::Expected<llvm::Value *> result = getAddress(
          builder, moduleTranslation, index, linearPrivateVars[index]);
      if (!result)
        return result.takeError();
 
      if (!iv->getType()->isIntegerTy())
        llvm_unreachable("OpenMP loop induction variable must be an integer "
                         "type");
 
      if (linearVarType->isIntegerTy()) {
        // Integer path: normalize all arithmetic to linearVarType
        iv = builder.CreateSExtOrTrunc(iv, linearVarType);
        step = builder.CreateSExtOrTrunc(step, linearVarType);
 
        llvm::LoadInst *linearVarStart =
            builder.CreateLoad(linearVarType, linearStartVals[index]);
        llvm::Value *mulInst = builder.CreateMul(iv, step);
        llvm::Value *addInst = builder.CreateAdd(linearVarStart, mulInst);
        builder.CreateStore(addInst, *result);
      } else if (linearVarType->isFloatingPointTy()) {
        // Float path: perform multiply in integer, then convert to float
        step = builder.CreateSExtOrTrunc(step, iv->getType());
        llvm::Value *mulInst = builder.CreateMul(iv, step);
 
        llvm::LoadInst *linearVarStart =
            builder.CreateLoad(linearVarType, linearStartVals[index]);
        llvm::Value *mulFp = builder.CreateSIToFP(mulInst, linearVarType);
        llvm::Value *addInst = builder.CreateFAdd(linearVarStart, mulFp);
        builder.CreateStore(addInst, *result);
      } else {
        llvm_unreachable(
            "Linear variable must be of integer or floating-point type");
      }
    }
    return llvm::Error::success();
  }
 
  // Emit IR for updating linear iteration variables on loop exit
  llvm::Error updateLinearIV(llvm::IRBuilderBase &builder,
                             LLVM::ModuleTranslation &moduleTranslation) {
    if (!linearLoopIVIndex)
      return llvm::Error::success();
    size_t index = *linearLoopIVIndex;
 
    // Add one more step to the linear iteration variable
    llvm::Type *varType = linearVarTypes[index];
    if (!varType->isIntegerTy())
      llvm_unreachable("Linear iteration variable must be of integer type");
    llvm::Expected<llvm::Value *> var =
        getAddress(builder, moduleTranslation, index, linearPrivateVars[index]);
    if (!var)
      return var.takeError();
    llvm::Value *step = builder.CreateSExtOrTrunc(linearSteps[index], varType);
    llvm::Value *val = builder.CreateLoad(varType, *var);
    llvm::Value *addInst = builder.CreateAdd(val, step);
    builder.CreateStore(addInst, *var);
    return llvm::Error::success();
  }
 
  // Linear variable finalization is conditional on the last logical iteration.
  // Create BB splits to manage the same.
  void splitLinearFiniBB(llvm::IRBuilderBase &builder,
                         llvm::BasicBlock *loopExit) {
    linearFinalizationBB = loopExit->splitBasicBlock(
        loopExit->getTerminator(), "omp_loop.linear_finalization");
    linearExitBB = linearFinalizationBB->splitBasicBlock(
        linearFinalizationBB->getTerminator(), "omp_loop.linear_exit");
    linearLastIterExitBB = linearFinalizationBB->splitBasicBlock(
        linearFinalizationBB->getTerminator(), "omp_loop.linear_lastiter_exit");
  }
 
  // Finalize the linear vars
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy
  finalizeLinearVar(llvm::IRBuilderBase &builder,
                    LLVM::ModuleTranslation &moduleTranslation,
                    llvm::Value *lastIter) {
    // Emit condition to check whether last logical iteration is being executed
    builder.SetInsertPoint(linearFinalizationBB->getTerminator());
    llvm::Value *loopLastIterLoad = builder.CreateLoad(
        llvm::Type::getInt32Ty(builder.getContext()), lastIter);
    llvm::Value *isLast =
        builder.CreateCmp(llvm::CmpInst::ICMP_NE, loopLastIterLoad,
                          llvm::ConstantInt::get(
                              llvm::Type::getInt32Ty(builder.getContext()), 0));
    // Store the linear variable values to original variables.
    builder.SetInsertPoint(linearLastIterExitBB->getTerminator());
    if (llvm::Error err = storeLinearVars(builder, moduleTranslation))
      return std::move(err);
 
    // Create conditional branch such that the linear variable
    // values are stored to original variables only at the
    // last logical iteration
    builder.SetInsertPoint(linearFinalizationBB->getTerminator());
    builder.CreateCondBr(isLast, linearLastIterExitBB, linearExitBB);
    linearFinalizationBB->getTerminator()->eraseFromParent();
    // Emit barrier
    builder.SetInsertPoint(linearExitBB->getTerminator());
    return getOpenMPBuilder(moduleTranslation)
        ->createBarrier(builder, llvm::omp::OMPD_barrier);
  }
 
  // Emit stores for linear variables. Useful in case of SIMD
  // construct.
  llvm::Error
  emitStoresForLinearVar(llvm::IRBuilderBase &builder,
                         LLVM::ModuleTranslation &moduleTranslation) {
    return storeLinearVars(builder, moduleTranslation);
  }
};
} // namespace
 
/// Looks up from the operation from and returns the PrivateClauseOp with
/// name symbolName
static omp::PrivateClauseOp findPrivatizer(Operation *from,
                                           SymbolRefAttr symbolName) {
  omp::PrivateClauseOp privatizer =
      SymbolTable::lookupNearestSymbolFrom<omp::PrivateClauseOp>(from,
                                                                 symbolName);
  assert(privatizer && "privatizer not found in the symbol table");
  return privatizer;
}
 
/// Check whether translation to LLVM IR for the given operation is currently
/// supported. If not, descriptive diagnostics will be emitted to let users know
/// this is a not-yet-implemented feature.
///
/// \returns success if no unimplemented features are needed to translate the
///          given operation.
static LogicalResult checkImplementationStatus(Operation &op) {
  auto todo = [&op](StringRef clauseName) {
    return op.emitError() << "not yet implemented: Unhandled clause "
                          << clauseName << " in " << op.getName()
                          << " operation";
  };
 
  auto checkAllocate = [&todo](auto op, LogicalResult &result) {
    if (!op.getAllocateVars().empty() || !op.getAllocatorVars().empty())
      result = todo("allocate");
  };
  auto checkBare = [&todo](auto op, LogicalResult &result) {
    if (op.getKernelType() == omp::TargetExecMode::bare)
      result = todo("ompx_bare");
  };
  auto checkDepend = [&todo](auto op, LogicalResult &result) {
    if (!op.getDependVars().empty() || op.getDependKinds() ||
        !op.getDependIterated().empty() || op.getDependIteratedKinds())
      result = todo("depend");
  };
  auto checkHint = [](auto op, LogicalResult &) {
    if (op.getHint())
      op.emitWarning("hint clause discarded");
  };
  auto checkInReduction = [&todo](auto op, LogicalResult &result) {
    if (isa<omp::TargetOp, omp::TaskOp, omp::TaskloopContextOp>(
            op.getOperation())) {
      if (auto byrefAttr = op.getInReductionByref()) {
        for (bool isByRef : *byrefAttr) {
          if (isByRef) {
            result = todo("in_reduction with byref modifier");
            return;
          }
        }
      }
      if (isa<omp::TargetOp>(op.getOperation())) {
        if (auto inReductionSyms = op.getInReductionSyms()) {
          for (auto sym :
               (*inReductionSyms).template getAsRange<SymbolRefAttr>()) {
            auto decl =
                SymbolTable::lookupNearestSymbolFrom<omp::DeclareReductionOp>(
                    op, sym);
            assert(decl &&
                   "symbol resolution should be guaranteed by the op verifier");
            if (decl.getInitializerRegion().front().getNumArguments() != 1) {
              result = todo("in_reduction with two-argument initializer");
              return;
            }
            if (!decl.getCleanupRegion().empty()) {
              result = todo("in_reduction with cleanup region");
              return;
            }
          }
        }
      }
    } else if (!op.getInReductionVars().empty() || op.getInReductionByref() ||
               op.getInReductionSyms()) {
      result = todo("in_reduction");
    }
  };
  auto checkNowait = [&todo](auto op, LogicalResult &result) {
    if (op.getNowait())
      result = todo("nowait");
  };
  auto checkOrder = [&todo](auto op, LogicalResult &result) {
    if (op.getOrder() || op.getOrderMod())
      result = todo("order");
  };
  auto checkPrivate = [&todo](auto op, LogicalResult &result) {
    if (!op.getPrivateVars().empty() || op.getPrivateSyms())
      result = todo("privatization");
  };
  auto checkReduction = [&todo](auto op, LogicalResult &result) {
    if (isa<omp::TeamsOp>(op))
      if (!op.getReductionVars().empty() || op.getReductionByref() ||
          op.getReductionSyms())
        result = todo("reduction");
    for (unsigned i = 0, e = op.getNumReductionVars(); i != e; ++i) {
      omp::ReductionModifier mod = op.getReductionModifier(i);
      if (mod == omp::ReductionModifier::defaultmod)
        continue;
      // Task modifiers are supported only on parallel and worksharing
      // constructs, and only for non-byref reduction variables.
      bool taskModifierSupported =
          mod == omp::ReductionModifier::task &&
          isa<omp::ParallelOp, omp::WsloopOp, omp::SectionsOp>(op);
      if (!taskModifierSupported) {
        result = todo("reduction with modifier");
      } else if (auto byref = op.getReductionByref()) {
        if ((*byref)[i])
          result = todo("task reduction modifier with by-ref reduction");
      }
    }
  };
  auto checkTaskReductionByref = [&todo](auto op, LogicalResult &result) {
    if (auto byrefAttr = op.getTaskReductionByref())
      for (bool isByRef : *byrefAttr)
        if (isByRef) {
          result = todo("task_reduction with byref modifier");
          return;
        }
  };
  auto checkReductionByref = [&todo](auto op, LogicalResult &result) {
    if (auto byrefAttr = op.getReductionByref())
      for (bool isByRef : *byrefAttr)
        if (isByRef) {
          result = todo("reduction with byref modifier");
          return;
        }
  };
  auto checkNumTeams = [&todo](auto op, LogicalResult &result) {
    if (op.hasNumTeamsMultiDim())
      result = todo("num_teams with multi-dimensional values");
  };
  auto checkNumThreads = [&todo](auto op, LogicalResult &result) {
    if (op.hasNumThreadsMultiDim())
      result = todo("num_threads with multi-dimensional values");
  };
 
  auto checkThreadLimit = [&todo](auto op, LogicalResult &result) {
    if (op.hasThreadLimitMultiDim())
      result = todo("thread_limit with multi-dimensional values");
  };
  auto checkMap = [&todo](auto op, LogicalResult &result) {
    if (!op.getMapIterated().empty())
      result = todo("map/motion clause with iterator modifier");
  };
 
  auto checkDynGroupprivate = [&todo](auto op, LogicalResult &result) {
    if (op.getDynGroupprivateSize())
      result = todo("dyn_groupprivate");
  };
 
  LogicalResult result = success();
  llvm::TypeSwitch<Operation &>(op)
      .Case([&](omp::DistributeOp op) {
        checkAllocate(op, result);
        checkOrder(op, result);
      })
      .Case([&](omp::SectionsOp op) {
        checkAllocate(op, result);
        checkPrivate(op, result);
        checkReduction(op, result);
      })
      .Case([&](omp::ScopeOp op) { checkReduction(op, result); })
      .Case([&](omp::SingleOp op) {
        checkAllocate(op, result);
        checkPrivate(op, result);
      })
      .Case([&](omp::TeamsOp op) {
        checkAllocate(op, result);
        checkPrivate(op, result);
        checkNumTeams(op, result);
        checkThreadLimit(op, result);
        checkDynGroupprivate(op, result);
      })
      .Case([&](omp::TaskOp op) {
        checkAllocate(op, result);
        checkInReduction(op, result);
      })
      .Case([&](omp::TaskgroupOp op) {
        checkAllocate(op, result);
        checkTaskReductionByref(op, result);
      })
      .Case([&](omp::DispatchOp op) {
        // OpenMP 5.1 dispatch creates an explicit task; nowait controls whether
        // it is included. Diagnose unsupported asynchronous tasking before 5.2,
        // where the nowait property has no effect on dispatch.
        int64_t version = omp::getOpenMPVersionAttribute(
            op->getParentOfType<ModuleOp>(), /*fallback=*/51);
        if (version < 52)
          checkNowait(op, result);
      })
      .Case([&](omp::TaskloopContextOp op) {
        checkAllocate(op, result);
        checkInReduction(op, result);
        checkReduction(op, result);
        checkReductionByref(op, result);
      })
      .Case([&](omp::WsloopOp op) {
        checkAllocate(op, result);
        checkOrder(op, result);
        checkReduction(op, result);
      })
      .Case([&](omp::ParallelOp op) {
        checkReduction(op, result);
        checkNumThreads(op, result);
      })
      .Case([&](omp::SimdOp op) { checkReduction(op, result); })
      .Case<omp::AtomicReadOp, omp::AtomicWriteOp, omp::AtomicUpdateOp,
            omp::AtomicCaptureOp>([&](auto op) { checkHint(op, result); })
      .Case([&](omp::AtomicCompareOp op) {
        checkHint(op, result);
        Region &region = op.getRegion();
        if (region.empty())
          return;
        mlir::Type argType = region.front().getArgument(0).getType();
        auto structTy = dyn_cast<LLVM::LLVMStructType>(argType);
        if (!structTy)
          return;
        DataLayout dl = DataLayout(op->getParentOfType<ModuleOp>());
        unsigned totalBits = dl.getTypeSizeInBits(structTy);
        if (totalBits > 128)
          result = todo("compare for complex types wider than 128 bits");
      })
      .Case<omp::TargetEnterDataOp, omp::TargetExitDataOp>([&](auto op) {
        checkDepend(op, result);
        checkMap(op, result);
      })
      .Case([&](omp::TargetUpdateOp op) {
        checkDepend(op, result);
        checkMap(op, result);
      })
      .Case([&](omp::TargetOp op) {
        checkAllocate(op, result);
        checkBare(op, result);
        checkInReduction(op, result);
        checkMap(op, result);
        checkThreadLimit(op, result);
      })
      .Case([&](omp::TargetDataOp op) { checkMap(op, result); })
      .Case([&](omp::DeclareMapperInfoOp op) { checkMap(op, result); })
      .Default([](Operation &) {
        // Assume all clauses for an operation can be translated unless they are
        // checked above.
      });
  return result;
}
 
static LogicalResult handleError(llvm::Error error, Operation &op) {
  LogicalResult result = success();
  if (error) {
    llvm::handleAllErrors(
        std::move(error),
        [&](const PreviouslyReportedError &) { result = failure(); },
        [&](const llvm::ErrorInfoBase &err) {
          result = op.emitError(err.message());
        });
  }
  return result;
}
 
template <typename T>
static LogicalResult handleError(llvm::Expected<T> &result, Operation &op) {
  if (!result)
    return handleError(result.takeError(), op);
 
  return success();
}
 
/// Find the insertion point for allocas given the current insertion point for
/// normal operations in the builder.
static llvm::OpenMPIRBuilder::InsertPointTy findAllocInsertPoints(
    llvm::IRBuilderBase &builder, LLVM::ModuleTranslation &moduleTranslation,
    llvm::SmallVectorImpl<llvm::BasicBlock *> *deallocBlocks = nullptr) {
  // If there is an allocation insertion point on stack, i.e. we are in a nested
  // operation and a specific point was provided by some surrounding operation,
  // use it.
  llvm::OpenMPIRBuilder::InsertPointTy allocInsertPoint;
  llvm::ArrayRef<llvm::BasicBlock *> deallocInsertPoints;
  WalkResult walkResult = moduleTranslation.stackWalk<OpenMPAllocStackFrame>(
      [&](OpenMPAllocStackFrame &frame) {
        allocInsertPoint = frame.allocBlock->getFirstInsertionPt();
        deallocInsertPoints = frame.deallocBlocks;
        return WalkResult::interrupt();
      });
  // In cases with multiple levels of outlining, the tree walk might find an
  // insertion point that is inside the original function while the builder
  // insertion point is inside the outlined function. We need to make sure that
  // we do not use it in those cases.
  if (walkResult.wasInterrupted() &&
      allocInsertPoint.getNodeParent()->getParent() ==
          builder.GetInsertBlock()->getParent()) {
    if (deallocBlocks)
      deallocBlocks->insert(deallocBlocks->end(), deallocInsertPoints.begin(),
                            deallocInsertPoints.end());
    return allocInsertPoint;
  }
 
  // Otherwise, insert to the entry block of the surrounding function.
  // If the current IRBuilder InsertPoint is the function's entry, it cannot
  // also be used for alloca insertion which would result in insertion order
  // confusion. Create a new BasicBlock for the Builder and use the entry block
  // for the allocs.
  // TODO: Create a dedicated alloca BasicBlock at function creation such that
  // we do not need to move the current InsertPoint here.
  if (builder.GetInsertBlock() ==
      &builder.GetInsertBlock()->getParent()->getEntryBlock()) {
    assert(builder.GetInsertPoint() == builder.GetInsertBlock()->end() &&
           "Assuming end of basic block");
    llvm::BasicBlock *entryBB = llvm::BasicBlock::Create(
        builder.getContext(), "entry", builder.GetInsertBlock()->getParent(),
        builder.GetInsertBlock()->getNextNode());
    builder.CreateBr(entryBB);
    builder.SetInsertPoint(entryBB);
  }
 
  // Collect exit blocks, which is where explicit deallocations should happen in
  // this case.
  if (deallocBlocks) {
    for (llvm::BasicBlock &block : *builder.GetInsertBlock()->getParent()) {
      // TODO: This currently results in no blocks being added to the list when
      // all exit blocks of the enclosing function have not been lowered before
      // this is reached.
      llvm::Instruction *terminator = block.getTerminatorOrNull();
      if (isa_and_present<llvm::ReturnInst>(terminator))
        deallocBlocks->emplace_back(&block);
    }
  }
 
  llvm::BasicBlock &funcEntryBlock =
      builder.GetInsertBlock()->getParent()->getEntryBlock();
  return funcEntryBlock.getFirstInsertionPt();
}
 
/// Find the loop information structure for the loop nest being translated. It
/// will return a `null` value unless called from the translation function for
/// a loop wrapper operation after successfully translating its body.
static llvm::CanonicalLoopInfo *
findCurrentLoopInfo(LLVM::ModuleTranslation &moduleTranslation) {
  llvm::CanonicalLoopInfo *loopInfo = nullptr;
  moduleTranslation.stackWalk<OpenMPLoopInfoStackFrame>(
      [&](OpenMPLoopInfoStackFrame &frame) {
        loopInfo = frame.loopInfo;
        return WalkResult::interrupt();
      });
  return loopInfo;
}
 
/// Converts the given region that appears within an OpenMP dialect operation to
/// LLVM IR, creating a branch from the `sourceBlock` to the entry block of the
/// region, and a branch from any block with an successor-less OpenMP terminator
/// to `continuationBlock`. Populates `continuationBlockPHIs` with the PHI nodes
/// of the continuation block if provided.
static llvm::Expected<llvm::BasicBlock *> convertOmpOpRegions(
    Region &region, StringRef blockName, llvm::IRBuilderBase &builder,
    LLVM::ModuleTranslation &moduleTranslation,
    SmallVectorImpl<llvm::PHINode *> *continuationBlockPHIs = nullptr) {
  bool isLoopWrapper = isa<omp::LoopWrapperInterface>(region.getParentOp());
 
  llvm::BasicBlock *continuationBlock =
      splitBB(builder, true, "omp.region.cont");
  llvm::BasicBlock *sourceBlock = builder.GetInsertBlock();
 
  llvm::LLVMContext &llvmContext = builder.getContext();
  for (Block &bb : region) {
    llvm::BasicBlock *llvmBB = llvm::BasicBlock::Create(
        llvmContext, blockName, builder.GetInsertBlock()->getParent(),
        builder.GetInsertBlock()->getNextNode());
    moduleTranslation.mapBlock(&bb, llvmBB);
  }
 
  llvm::Instruction *sourceTerminator = sourceBlock->getTerminator();
 
  // Terminators (namely YieldOp) may be forwarding values to the region that
  // need to be available in the continuation block. Collect the types of these
  // operands in preparation of creating PHI nodes. This is skipped for loop
  // wrapper operations, for which we know in advance they have no terminators.
  SmallVector<llvm::Type *> continuationBlockPHITypes;
  unsigned numYields = 0;
 
  if (!isLoopWrapper) {
    bool operandsProcessed = false;
    for (Block &bb : region.getBlocks()) {
      if (omp::YieldOp yield = dyn_cast<omp::YieldOp>(bb.getTerminator())) {
        if (!operandsProcessed) {
          for (unsigned i = 0, e = yield->getNumOperands(); i < e; ++i) {
            continuationBlockPHITypes.push_back(
                moduleTranslation.convertType(yield->getOperand(i).getType()));
          }
          operandsProcessed = true;
        } else {
          assert(continuationBlockPHITypes.size() == yield->getNumOperands() &&
                 "mismatching number of values yielded from the region");
          for (unsigned i = 0, e = yield->getNumOperands(); i < e; ++i) {
            llvm::Type *operandType =
                moduleTranslation.convertType(yield->getOperand(i).getType());
            (void)operandType;
            assert(continuationBlockPHITypes[i] == operandType &&
                   "values of mismatching types yielded from the region");
          }
        }
        numYields++;
      }
    }
  }
 
  // Insert PHI nodes in the continuation block for any values forwarded by the
  // terminators in this region.
  if (!continuationBlockPHITypes.empty())
    assert(
        continuationBlockPHIs &&
        "expected continuation block PHIs if converted regions yield values");
  if (continuationBlockPHIs) {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    continuationBlockPHIs->reserve(continuationBlockPHITypes.size());
    builder.SetInsertPoint(continuationBlock->begin());
    for (llvm::Type *ty : continuationBlockPHITypes)
      continuationBlockPHIs->push_back(builder.CreatePHI(ty, numYields));
  }
 
  // Convert blocks one by one in topological order to ensure
  // defs are converted before uses.
  SetVector<Block *> blocks = getBlocksSortedByDominance(region);
  for (Block *bb : blocks) {
    llvm::BasicBlock *llvmBB = moduleTranslation.lookupBlock(bb);
    // Retarget the branch of the entry block to the entry block of the
    // converted region (regions are single-entry).
    if (bb->isEntryBlock()) {
      assert(sourceTerminator->getNumSuccessors() == 1 &&
             "provided entry block has multiple successors");
      assert(sourceTerminator->getSuccessor(0) == continuationBlock &&
             "ContinuationBlock is not the successor of the entry block");
      sourceTerminator->setSuccessor(0, llvmBB);
    }
 
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    if (failed(
            moduleTranslation.convertBlock(*bb, bb->isEntryBlock(), builder)))
      return llvm::make_error<PreviouslyReportedError>();
 
    // Create a direct branch here for loop wrappers to prevent their lack of a
    // terminator from causing a crash below.
    if (isLoopWrapper) {
      builder.CreateBr(continuationBlock);
      continue;
    }
 
    // Special handling for `omp.yield` and `omp.terminator` (we may have more
    // than one): they return the control to the parent OpenMP dialect operation
    // so replace them with the branch to the continuation block. We handle this
    // here to avoid relying inter-function communication through the
    // ModuleTranslation class to set up the correct insertion point. This is
    // also consistent with MLIR's idiom of handling special region terminators
    // in the same code that handles the region-owning operation.
    Operation *terminator = bb->getTerminator();
    if (isa<omp::TerminatorOp, omp::YieldOp>(terminator)) {
      builder.CreateBr(continuationBlock);
 
      for (unsigned i = 0, e = terminator->getNumOperands(); i < e; ++i)
        (*continuationBlockPHIs)[i]->addIncoming(
            moduleTranslation.lookupValue(terminator->getOperand(i)), llvmBB);
    }
  }
  // After all blocks have been traversed and values mapped, connect the PHI
  // nodes to the results of preceding blocks.
  LLVM::detail::connectPHINodes(region, moduleTranslation);
 
  // Remove the blocks and values defined in this region from the mapping since
  // they are not visible outside of this region. This allows the same region to
  // be converted several times, that is cloned, without clashes, and slightly
  // speeds up the lookups.
  moduleTranslation.forgetMapping(region);
 
  return continuationBlock;
}
 
/// Convert ProcBindKind from MLIR-generated enum to LLVM enum.
static llvm::omp::ProcBindKind getProcBindKind(omp::ClauseProcBindKind kind) {
  switch (kind) {
  case omp::ClauseProcBindKind::Close:
    return llvm::omp::ProcBindKind::OMP_PROC_BIND_close;
  case omp::ClauseProcBindKind::Master:
    return llvm::omp::ProcBindKind::OMP_PROC_BIND_master;
  case omp::ClauseProcBindKind::Primary:
    return llvm::omp::ProcBindKind::OMP_PROC_BIND_primary;
  case omp::ClauseProcBindKind::Spread:
    return llvm::omp::ProcBindKind::OMP_PROC_BIND_spread;
  }
  llvm_unreachable("Unknown ClauseProcBindKind kind");
}
 
/// Convert 'dispatch' operation into LLVM IR.
static LogicalResult
convertOmpDispatch(Operation &opInst, llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation) {
  auto dispatchOp = cast<omp::DispatchOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  auto &region = dispatchOp.getRegion();
  auto result = convertOmpOpRegions(region, "omp.dispatch.region", builder,
                                    moduleTranslation);
  if (!result)
    return handleError(result.takeError(), opInst);
  builder.SetInsertPoint(*result);
  return success();
}
 
/// Converts an OpenMP 'masked' operation into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpMasked(Operation &opInst, llvm::IRBuilderBase &builder,
                 LLVM::ModuleTranslation &moduleTranslation) {
  auto maskedOp = cast<omp::MaskedOp>(opInst);
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  auto bodyGenCB = [&](InsertPointTy allocaIP, InsertPointTy codeGenIP,
                       llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) {
    // MaskedOp has only one region associated with it.
    auto &region = maskedOp.getRegion();
    builder.restoreIP(codeGenIP);
    return convertOmpOpRegions(region, "omp.masked.region", builder,
                               moduleTranslation)
        .takeError();
  };
 
  // TODO: Perform finalization actions for variables. This has to be
  // called for variables which have destructors/finalizers.
  auto finiCB = [&](InsertPointTy codeGenIP) { return llvm::Error::success(); };
 
  llvm::Value *filterVal = nullptr;
  if (auto filterVar = maskedOp.getFilteredThreadId()) {
    filterVal = moduleTranslation.lookupValue(filterVar);
  } else {
    llvm::LLVMContext &llvmContext = builder.getContext();
    filterVal =
        llvm::ConstantInt::get(llvm::Type::getInt32Ty(llvmContext), /*V=*/0);
  }
  assert(filterVal != nullptr);
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createMasked(ompLoc, bodyGenCB, finiCB, filterVal);
 
  if (failed(handleError(afterIP, opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
/// Converts an OpenMP 'master' operation into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpMaster(Operation &opInst, llvm::IRBuilderBase &builder,
                 LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  auto masterOp = cast<omp::MasterOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  auto bodyGenCB = [&](InsertPointTy allocaIP, InsertPointTy codeGenIP,
                       llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) {
    // MasterOp has only one region associated with it.
    auto &region = masterOp.getRegion();
    builder.restoreIP(codeGenIP);
    return convertOmpOpRegions(region, "omp.master.region", builder,
                               moduleTranslation)
        .takeError();
  };
 
  // TODO: Perform finalization actions for variables. This has to be
  // called for variables which have destructors/finalizers.
  auto finiCB = [&](InsertPointTy codeGenIP) { return llvm::Error::success(); };
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createMaster(ompLoc, bodyGenCB, finiCB);
 
  if (failed(handleError(afterIP, opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
/// Converts an OpenMP 'critical' operation into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpCritical(Operation &opInst, llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  auto criticalOp = cast<omp::CriticalOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  auto bodyGenCB = [&](InsertPointTy allocaIP, InsertPointTy codeGenIP,
                       llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) {
    // CriticalOp has only one region associated with it.
    auto &region = cast<omp::CriticalOp>(opInst).getRegion();
    builder.restoreIP(codeGenIP);
    return convertOmpOpRegions(region, "omp.critical.region", builder,
                               moduleTranslation)
        .takeError();
  };
 
  // TODO: Perform finalization actions for variables. This has to be
  // called for variables which have destructors/finalizers.
  auto finiCB = [&](InsertPointTy codeGenIP) { return llvm::Error::success(); };
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::LLVMContext &llvmContext = moduleTranslation.getLLVMContext();
  llvm::Constant *hint = nullptr;
 
  // If it has a name, it probably has a hint too.
  if (criticalOp.getNameAttr()) {
    // The verifiers in OpenMP Dialect guarentee that all the pointers are
    // non-null
    auto symbolRef = cast<SymbolRefAttr>(criticalOp.getNameAttr());
    auto criticalDeclareOp =
        SymbolTable::lookupNearestSymbolFrom<omp::CriticalDeclareOp>(criticalOp,
                                                                     symbolRef);
    hint =
        llvm::ConstantInt::get(llvm::Type::getInt32Ty(llvmContext),
                               static_cast<int>(criticalDeclareOp.getHint()));
  }
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createCritical(ompLoc, bodyGenCB, finiCB,
                           criticalOp.getName().value_or(""), hint);
 
  if (failed(handleError(afterIP, opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
namespace {
/// A util to collect info needed to convert delayed privatizers from MLIR to
/// LLVM.
struct PrivateVarsInfo {
  struct AllocatorPrivateInfo {
    llvm::Value *allocatedPtr;
    llvm::Value *allocator;
  };
 
  template <typename OP>
  PrivateVarsInfo(OP op)
      : blockArgs(llvm::to_vector(
            cast<omp::BlockArgOpenMPOpInterface>(*op).getPrivateBlockArgs())) {
    mlirVars.reserve(blockArgs.size());
    llvmVars.reserve(blockArgs.size());
    collectPrivatizationDecls<OP>(op);
 
    for (mlir::Value privateVar : op.getPrivateVars())
      mlirVars.push_back(privateVar);
  }
 
  /// Adds the linear variables of `op`, which are privatized by their
  /// `linear` privatizers, after the private variables.
  template <typename OP>
  void addLinearVars(OP op) {
    numPrivateVars = blockArgs.size();
    llvm::append_range(
        blockArgs,
        cast<omp::BlockArgOpenMPOpInterface>(*op).getLinearBlockArgs());
    llvm::append_range(mlirVars, op.getLinearVars());
    if (std::optional<ArrayAttr> attr = op.getLinearSyms())
      for (auto symbolRef : attr->getAsRange<SymbolRefAttr>())
        privatizers.push_back(findPrivatizer(op, symbolRef));
  }
 
  /// Number of private variables before the linear ones.
  size_t numPrivateVars = 0;
  SmallVector<BlockArgument> blockArgs;
  SmallVector<mlir::Value> mlirVars;
  SmallVector<llvm::Value *> llvmVars;
  SmallVector<omp::PrivateClauseOp> privatizers;
  llvm::DenseMap<Value, llvm::Value *> convertedAllocators;
  SmallVector<AllocatorPrivateInfo> allocatorPrivates;
 
private:
  /// Populates `privatizations` with privatization declarations used for the
  /// given op.
  template <class OP>
  void collectPrivatizationDecls(OP op) {
    std::optional<ArrayAttr> attr = op.getPrivateSyms();
    if (!attr)
      return;
 
    privatizers.reserve(privatizers.size() + attr->size());
    for (auto symbolRef : attr->getAsRange<SymbolRefAttr>()) {
      privatizers.push_back(findPrivatizer(op, symbolRef));
    }
  }
};
} // namespace
 
/// Populates `reductions` with reduction declarations used in the given op.
template <typename T>
static void
collectReductionDecls(T op,
                      SmallVectorImpl<omp::DeclareReductionOp> &reductions) {
  std::optional<ArrayAttr> attr = op.getReductionSyms();
  if (!attr)
    return;
 
  reductions.reserve(reductions.size() + op.getNumReductionVars());
  for (auto symbolRef : attr->getAsRange<SymbolRefAttr>()) {
    reductions.push_back(
        SymbolTable::lookupNearestSymbolFrom<omp::DeclareReductionOp>(
            op, symbolRef));
  }
}
 
/// Look up and validate the declare_reduction ops referenced by a
/// reduction-like clause on the omp.taskloop.context translation path. Only
/// the non-byref, single-init-arg, no-cleanup form is supported in this
/// initial cut; richer shapes are rejected here with a diagnostic. \p syms
/// is the clause's symbol list (e.g. `getReductionSyms()` or
/// `getInReductionSyms()`), \p opName is the textual op name used in
/// diagnostics, and \p clauseName distinguishes "reduction" from
/// "in_reduction" in those diagnostics.
static LogicalResult collectAndValidateTaskloopRedDecls(
    Operation *contextOp, std::optional<ArrayAttr> syms, StringRef opName,
    StringRef clauseName, SmallVectorImpl<omp::DeclareReductionOp> &out) {
  if (!syms)
    return success();
  out.reserve(out.size() + syms->size());
  for (auto sym : syms->getAsRange<SymbolRefAttr>()) {
    auto decl = SymbolTable::lookupNearestSymbolFrom<omp::DeclareReductionOp>(
        contextOp, sym);
    if (!decl)
      return contextOp->emitError()
             << "failed to resolve " << clauseName
             << " declare_reduction symbol " << sym.getRootReference() << " in "
             << opName;
    if (decl.getInitializerRegion().front().getNumArguments() != 1)
      return contextOp->emitError()
             << "not yet implemented: " << clauseName
             << " with two-argument initializer in " << opName;
    if (!decl.getCleanupRegion().empty())
      return contextOp->emitError() << "not yet implemented: " << clauseName
                                    << " with cleanup region in " << opName;
    if (decl.getReductionRegion().empty())
      return contextOp->emitError()
             << clauseName << " declare_reduction is missing a combiner region";
    out.push_back(decl);
  }
  return success();
}
 
/// Translates the blocks contained in the given region and appends them to at
/// the current insertion point of `builder`. The operations of the entry block
/// are appended to the current insertion block. If set, `continuationBlockArgs`
/// is populated with translated values that correspond to the values
/// omp.yield'ed from the region.
static LogicalResult inlineConvertOmpRegions(
    Region &region, StringRef blockName, llvm::IRBuilderBase &builder,
    LLVM::ModuleTranslation &moduleTranslation,
    SmallVectorImpl<llvm::Value *> *continuationBlockArgs = nullptr) {
  if (region.empty())
    return success();
 
  // Special case for single-block regions that don't create additional blocks:
  // insert operations without creating additional blocks.
  if (region.hasOneBlock()) {
    llvm::BasicBlock *insertBlock = builder.GetInsertBlock();
    llvm::Instruction *potentialTerminator =
        insertBlock->empty() ? nullptr : &insertBlock->back();
 
    if (potentialTerminator && potentialTerminator->isTerminator()) {
      assert(builder.GetInsertPoint() == potentialTerminator->getIterator() &&
             "Insertion point should be the terminator");
      potentialTerminator->removeFromParent();
      // Reset insertion point to the end of the block.
      builder.SetInsertPoint(insertBlock);
    }
    moduleTranslation.mapBlock(&region.front(), insertBlock);
 
    // convertBlock leaves the location of the region's last op current. Restore
    // the caller's, as convertOmpOpRegions does for every block it converts.
    llvm::DebugLoc loc = builder.getCurrentDebugLocation();
    if (failed(moduleTranslation.convertBlock(
            region.front(), /*ignoreArguments=*/true, builder)))
      return failure();
    builder.SetCurrentDebugLocation(loc);
 
    // The continuation arguments are simply the translated terminator operands.
    if (continuationBlockArgs)
      llvm::append_range(
          *continuationBlockArgs,
          moduleTranslation.lookupValues(region.front().back().getOperands()));
 
    // Drop the mapping that is no longer necessary so that the same region can
    // be processed multiple times.
    moduleTranslation.forgetMapping(region);
 
    if (potentialTerminator && potentialTerminator->isTerminator()) {
      llvm::BasicBlock *block = builder.GetInsertBlock();
      if (block->empty()) {
        // this can happen for really simple reduction init regions e.g.
        // %0 = llvm.mlir.constant(0 : i32) : i32
        // omp.yield(%0 : i32)
        // because the llvm.mlir.constant (MLIR op) isn't converted into any
        // llvm op
        potentialTerminator->insertInto(block, block->begin());
      } else {
        potentialTerminator->insertAfter(&block->back());
      }
    }
 
    return success();
  }
 
  SmallVector<llvm::PHINode *> phis;
  llvm::Expected<llvm::BasicBlock *> continuationBlock =
      convertOmpOpRegions(region, blockName, builder, moduleTranslation, &phis);
 
  if (failed(handleError(continuationBlock, *region.getParentOp())))
    return failure();
 
  if (continuationBlockArgs)
    llvm::append_range(*continuationBlockArgs, phis);
  builder.SetInsertPoint((*continuationBlock)->getFirstInsertionPt());
  return success();
}
 
namespace {
/// Owning equivalents of OpenMPIRBuilder::(Atomic)ReductionGen that are used to
/// store lambdas with capture.
using OwningReductionGen =
    std::function<llvm::OpenMPIRBuilder::InsertPointOrErrorTy(
        llvm::OpenMPIRBuilder::InsertPointTy, llvm::Value *, llvm::Value *,
        llvm::Value *&)>;
using OwningAtomicReductionGen =
    std::function<llvm::OpenMPIRBuilder::InsertPointOrErrorTy(
        llvm::OpenMPIRBuilder::InsertPointTy, llvm::Type *, llvm::Value *,
        llvm::Value *)>;
using OwningDataPtrPtrReductionGen =
    std::function<llvm::OpenMPIRBuilder::InsertPointOrErrorTy(
        llvm::OpenMPIRBuilder::InsertPointTy, llvm::Value *, llvm::Value *&)>;
} // namespace
 
/// Create an OpenMPIRBuilder-compatible reduction generator for the given
/// reduction declaration. The generator uses `builder` but ignores its
/// insertion point.
static OwningReductionGen
makeReductionGen(omp::DeclareReductionOp decl, llvm::IRBuilderBase &builder,
                 LLVM::ModuleTranslation &moduleTranslation) {
  // The lambda is mutable because we need access to non-const methods of decl
  // (which aren't actually mutating it), and we must capture decl by-value to
  // avoid the dangling reference after the parent function returns.
  OwningReductionGen gen =
      [&, decl](llvm::OpenMPIRBuilder::InsertPointTy insertPoint,
                llvm::Value *lhs, llvm::Value *rhs,
                llvm::Value *&result) mutable
      -> llvm::OpenMPIRBuilder::InsertPointOrErrorTy {
    moduleTranslation.mapValue(decl.getReductionLhsArg(), lhs);
    moduleTranslation.mapValue(decl.getReductionRhsArg(), rhs);
    builder.restoreIP(insertPoint);
    SmallVector<llvm::Value *> phis;
    if (failed(inlineConvertOmpRegions(decl.getReductionRegion(),
                                       "omp.reduction.nonatomic.body", builder,
                                       moduleTranslation, &phis)))
      return llvm::createStringError(
          "failed to inline `combiner` region of `omp.declare_reduction`");
    result = llvm::getSingleElement(phis);
    return builder.saveIP();
  };
  return gen;
}
 
/// Create an OpenMPIRBuilder-compatible atomic reduction generator for the
/// given reduction declaration. The generator uses `builder` but ignores its
/// insertion point. Returns null if there is no atomic region available in the
/// reduction declaration.
static OwningAtomicReductionGen
makeAtomicReductionGen(omp::DeclareReductionOp decl,
                       llvm::IRBuilderBase &builder,
                       LLVM::ModuleTranslation &moduleTranslation) {
  if (decl.getAtomicReductionRegion().empty())
    return OwningAtomicReductionGen();
 
  // The lambda is mutable because we need access to non-const methods of decl
  // (which aren't actually mutating it), and we must capture decl by-value to
  // avoid the dangling reference after the parent function returns.
  OwningAtomicReductionGen atomicGen =
      [&, decl](llvm::OpenMPIRBuilder::InsertPointTy insertPoint, llvm::Type *,
                llvm::Value *lhs, llvm::Value *rhs) mutable
      -> llvm::OpenMPIRBuilder::InsertPointOrErrorTy {
    moduleTranslation.mapValue(decl.getAtomicReductionLhsArg(), lhs);
    moduleTranslation.mapValue(decl.getAtomicReductionRhsArg(), rhs);
    builder.restoreIP(insertPoint);
    SmallVector<llvm::Value *> phis;
    if (failed(inlineConvertOmpRegions(decl.getAtomicReductionRegion(),
                                       "omp.reduction.atomic.body", builder,
                                       moduleTranslation, &phis)))
      return llvm::createStringError(
          "failed to inline `atomic` region of `omp.declare_reduction`");
    assert(phis.empty());
    return builder.saveIP();
  };
  return atomicGen;
}
 
/// Create an OpenMPIRBuilder-compatible `data_ptr_ptr` reduction generator for
/// the given reduction declaration. The generator uses `builder` but ignores
/// its insertion point. Returns null if there is no `data_ptr_ptr` region
/// available in the reduction declaration.
static OwningDataPtrPtrReductionGen
makeRefDataPtrGen(omp::DeclareReductionOp decl, llvm::IRBuilderBase &builder,
                  LLVM::ModuleTranslation &moduleTranslation, bool isByRef) {
  if (!isByRef || decl.getDataPtrPtrRegion().empty())
    return OwningDataPtrPtrReductionGen();
 
  OwningDataPtrPtrReductionGen refDataPtrGen =
      [&, decl](llvm::OpenMPIRBuilder::InsertPointTy insertPoint,
                llvm::Value *byRefVal, llvm::Value *&result) mutable
      -> llvm::OpenMPIRBuilder::InsertPointOrErrorTy {
    moduleTranslation.mapValue(decl.getDataPtrPtrRegionArg(), byRefVal);
    builder.restoreIP(insertPoint);
    SmallVector<llvm::Value *> phis;
    if (failed(inlineConvertOmpRegions(decl.getDataPtrPtrRegion(),
                                       "omp.data_ptr_ptr.body", builder,
                                       moduleTranslation, &phis)))
      return llvm::createStringError(
          "failed to inline `data_ptr_ptr` region of `omp.declare_reduction`");
    result = llvm::getSingleElement(phis);
    return builder.saveIP();
  };
 
  return refDataPtrGen;
}
 
/// Converts an OpenMP 'ordered' operation into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpOrdered(Operation &opInst, llvm::IRBuilderBase &builder,
                  LLVM::ModuleTranslation &moduleTranslation) {
  auto orderedOp = cast<omp::OrderedOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  omp::ClauseDepend dependType = *orderedOp.getDoacrossDependType();
  bool isDependSource = dependType == omp::ClauseDepend::dependsource;
  unsigned numLoops = *orderedOp.getDoacrossNumLoops();
  SmallVector<llvm::Value *> vecValues =
      moduleTranslation.lookupValues(orderedOp.getDoacrossDependVars());
 
  size_t indexVecValues = 0;
  while (indexVecValues < vecValues.size()) {
    SmallVector<llvm::Value *> storeValues;
    storeValues.reserve(numLoops);
    for (unsigned i = 0; i < numLoops; i++) {
      storeValues.push_back(vecValues[indexVecValues]);
      indexVecValues++;
    }
    llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
        findAllocInsertPoints(builder, moduleTranslation);
    llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
    builder.restoreIP(getOpenMPBuilder(moduleTranslation)
                          ->createOrderedDepend(ompLoc, allocaIP, numLoops,
                                                storeValues, ".cnt.addr",
                                                isDependSource));
  }
  return success();
}
 
/// Converts an OpenMP 'ordered_region' operation into LLVM IR using
/// OpenMPIRBuilder.
static LogicalResult
convertOmpOrderedRegion(Operation &opInst, llvm::IRBuilderBase &builder,
                        LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  auto orderedRegionOp = cast<omp::OrderedRegionOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  auto bodyGenCB = [&](InsertPointTy allocaIP, InsertPointTy codeGenIP,
                       llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) {
    // OrderedOp has only one region associated with it.
    auto &region = cast<omp::OrderedRegionOp>(opInst).getRegion();
    builder.restoreIP(codeGenIP);
    return convertOmpOpRegions(region, "omp.ordered.region", builder,
                               moduleTranslation)
        .takeError();
  };
 
  // TODO: Perform finalization actions for variables. This has to be
  // called for variables which have destructors/finalizers.
  auto finiCB = [&](InsertPointTy codeGenIP) { return llvm::Error::success(); };
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createOrderedThreadsSimd(ompLoc, bodyGenCB, finiCB,
                                     !orderedRegionOp.getParLevelSimd());
 
  if (failed(handleError(afterIP, opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
namespace {
/// Contains the arguments for an LLVM store operation
struct DeferredStore {
  DeferredStore(llvm::Value *value, llvm::Value *address)
      : value(value), address(address) {}
 
  llvm::Value *value;
  llvm::Value *address;
};
} // namespace
 
/// Allocate space for privatized reduction variables.
/// `deferredStores` contains information to create store operations which needs
/// to be inserted after all allocas
template <typename T>
static LogicalResult
allocReductionVars(T op, ArrayRef<BlockArgument> reductionArgs,
                   llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation,
                   const llvm::OpenMPIRBuilder::InsertPointTy &allocaIP,
                   SmallVectorImpl<omp::DeclareReductionOp> &reductionDecls,
                   SmallVectorImpl<llvm::Value *> &privateReductionVariables,
                   DenseMap<Value, llvm::Value *> &reductionVariableMap,
                   SmallVectorImpl<DeferredStore> &deferredStores,
                   llvm::ArrayRef<bool> isByRefs) {
  llvm::IRBuilderBase::InsertPointGuard guard(builder);
  builder.SetInsertPoint(allocaIP.getNodeParent()->getTerminator());
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  bool useDeviceSharedMem = omp::opInSharedDeviceContext(*op);
 
  // delay creating stores until after all allocas
  deferredStores.reserve(op.getNumReductionVars());
 
  for (std::size_t i = 0; i < op.getNumReductionVars(); ++i) {
    Region &allocRegion = reductionDecls[i].getAllocRegion();
    if (isByRefs[i]) {
      if (allocRegion.empty())
        continue;
 
      SmallVector<llvm::Value *, 1> phis;
      if (failed(inlineConvertOmpRegions(allocRegion, "omp.reduction.alloc",
                                         builder, moduleTranslation, &phis)))
        return op.emitError(
            "failed to inline `alloc` region of `omp.declare_reduction`");
 
      assert(phis.size() == 1 && "expected one allocation to be yielded");
      builder.SetInsertPoint(allocaIP.getNodeParent()->getTerminator());
 
      // Allocate reduction variable (which is a pointer to the real reduction
      // variable allocated in the inlined region)
      llvm::Type *ptrTy = builder.getPtrTy();
      llvm::Type *varTy =
          moduleTranslation.convertType(reductionDecls[i].getType());
      llvm::Value *var;
      if (useDeviceSharedMem) {
        var = ompBuilder->createOMPAllocShared(builder, varTy);
      } else {
        var = builder.CreateAlloca(varTy);
        var = builder.CreatePointerBitCastOrAddrSpaceCast(var, ptrTy);
      }
 
      llvm::Value *castPhi =
          builder.CreatePointerBitCastOrAddrSpaceCast(phis[0], ptrTy);
 
      deferredStores.emplace_back(castPhi, var);
 
      privateReductionVariables[i] = var;
      moduleTranslation.mapValue(reductionArgs[i], castPhi);
      reductionVariableMap.try_emplace(op.getReductionVars()[i], castPhi);
    } else {
      assert(allocRegion.empty() &&
             "allocaction is implicit for by-val reduction");
 
      llvm::Type *ptrTy = builder.getPtrTy();
      llvm::Type *varTy =
          moduleTranslation.convertType(reductionDecls[i].getType());
      llvm::Value *var;
      if (useDeviceSharedMem) {
        var = ompBuilder->createOMPAllocShared(builder, varTy);
      } else {
        var = builder.CreateAlloca(varTy);
        var = builder.CreatePointerBitCastOrAddrSpaceCast(var, ptrTy);
      }
 
      moduleTranslation.mapValue(reductionArgs[i], var);
      privateReductionVariables[i] = var;
      reductionVariableMap.try_emplace(op.getReductionVars()[i], var);
    }
  }
 
  return success();
}
 
/// Map input arguments to reduction initialization region
template <typename T>
static void
mapInitializationArgs(T loop, LLVM::ModuleTranslation &moduleTranslation,
                      llvm::IRBuilderBase &builder,
                      SmallVectorImpl<omp::DeclareReductionOp> &reductionDecls,
                      DenseMap<Value, llvm::Value *> &reductionVariableMap,
                      unsigned i) {
  // map input argument to the initialization region
  mlir::omp::DeclareReductionOp &reduction = reductionDecls[i];
  Region &initializerRegion = reduction.getInitializerRegion();
  Block &entry = initializerRegion.front();
 
  mlir::Value mlirSource = loop.getReductionVars()[i];
  llvm::Value *llvmSource = moduleTranslation.lookupValue(mlirSource);
  llvm::Value *origVal = llvmSource;
  // If a non-pointer value is expected, load the value from the source pointer.
  if (!isa<LLVM::LLVMPointerType>(
          reduction.getInitializerMoldArg().getType()) &&
      isa<LLVM::LLVMPointerType>(mlirSource.getType())) {
    origVal =
        builder.CreateLoad(moduleTranslation.convertType(
                               reduction.getInitializerMoldArg().getType()),
                           llvmSource, "omp_orig");
  }
  moduleTranslation.mapValue(reduction.getInitializerMoldArg(), origVal);
 
  if (entry.getNumArguments() > 1) {
    llvm::Value *allocation =
        reductionVariableMap.lookup(loop.getReductionVars()[i]);
    moduleTranslation.mapValue(reduction.getInitializerAllocArg(), allocation);
  }
}
 
static void
setInsertPointForPossiblyEmptyBlock(llvm::IRBuilderBase &builder,
                                    llvm::BasicBlock *block = nullptr) {
  if (block == nullptr)
    block = builder.GetInsertBlock();
 
  if (!block->hasTerminator())
    builder.SetInsertPoint(block);
  else
    builder.SetInsertPoint(block->getTerminator());
}
 
/// Inline reductions' `init` regions. This functions assumes that the
/// `builder`'s insertion point is where the user wants the `init` regions to be
/// inlined; i.e. it does not try to find a proper insertion location for the
/// `init` regions. It also leaves the `builder's insertions point in a state
/// where the user can continue the code-gen directly afterwards.
template <typename OP>
static LogicalResult
initReductionVars(OP op, ArrayRef<BlockArgument> reductionArgs,
                  llvm::IRBuilderBase &builder,
                  LLVM::ModuleTranslation &moduleTranslation,
                  llvm::BasicBlock *latestAllocaBlock,
                  SmallVectorImpl<omp::DeclareReductionOp> &reductionDecls,
                  SmallVectorImpl<llvm::Value *> &privateReductionVariables,
                  DenseMap<Value, llvm::Value *> &reductionVariableMap,
                  llvm::ArrayRef<bool> isByRef,
                  SmallVectorImpl<DeferredStore> &deferredStores) {
  if (op.getNumReductionVars() == 0)
    return success();
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  bool useDeviceSharedMem = omp::opInSharedDeviceContext(*op);
 
  llvm::BasicBlock *initBlock = splitBB(builder, true, "omp.reduction.init");
  SmallVector<llvm::Value *> byRefVars(op.getNumReductionVars());
  {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    auto allocaIP = latestAllocaBlock->getTerminator()->getIterator();
    builder.restoreIP(allocaIP);
 
    for (unsigned i = 0; i < op.getNumReductionVars(); ++i) {
      if (isByRef[i]) {
        if (!reductionDecls[i].getAllocRegion().empty())
          continue;
 
        // TODO: remove after all users of by-ref are updated to use the alloc
        // region: Allocate reduction variable (which is a pointer to the real
        // reduciton variable allocated in the inlined region)
        llvm::Type *varTy =
            moduleTranslation.convertType(reductionDecls[i].getType());
        if (useDeviceSharedMem)
          byRefVars[i] = ompBuilder->createOMPAllocShared(builder, varTy);
        else
          byRefVars[i] = builder.CreateAlloca(varTy);
      }
    }
  }
 
  setInsertPointForPossiblyEmptyBlock(builder, initBlock);
 
  // store result of the alloc region to the allocated pointer to the real
  // reduction variable
  for (auto [data, addr] : deferredStores)
    builder.CreateStore(data, addr);
 
  // Before the loop, store the initial values of reductions into reduction
  // variables. Although this could be done after allocas, we don't want to mess
  // up with the alloca insertion point.
  for (unsigned i = 0; i < op.getNumReductionVars(); ++i) {
    SmallVector<llvm::Value *, 1> phis;
 
    // map block argument to initializer region
    mapInitializationArgs(op, moduleTranslation, builder, reductionDecls,
                          reductionVariableMap, i);
 
    // TODO In some cases (specially on the GPU), the init regions may
    // contains stack alloctaions. If the region is inlined in a loop, this is
    // problematic. Instead of just inlining the region, handle allocations by
    // hoisting fixed length allocations to the function entry and using
    // stacksave and restore for variable length ones.
    if (failed(inlineConvertOmpRegions(reductionDecls[i].getInitializerRegion(),
                                       "omp.reduction.neutral", builder,
                                       moduleTranslation, &phis)))
      return failure();
 
    assert(phis.size() == 1 && "expected one value to be yielded from the "
                               "reduction neutral element declaration region");
 
    setInsertPointForPossiblyEmptyBlock(builder);
 
    if (isByRef[i]) {
      if (!reductionDecls[i].getAllocRegion().empty())
        // done in allocReductionVars
        continue;
 
      // TODO: this path can be removed once all users of by-ref are updated to
      // use an alloc region
 
      // Store the result of the inlined region to the allocated reduction var
      // ptr
      builder.CreateStore(phis[0], byRefVars[i]);
 
      privateReductionVariables[i] = byRefVars[i];
      moduleTranslation.mapValue(reductionArgs[i], phis[0]);
      reductionVariableMap.try_emplace(op.getReductionVars()[i], phis[0]);
    } else {
      // for by-ref case the store is inside of the reduction region
      builder.CreateStore(phis[0], privateReductionVariables[i]);
      // the rest was handled in allocByValReductionVars
    }
 
    // forget the mapping for the initializer region because we might need a
    // different mapping if this reduction declaration is re-used for a
    // different variable
    moduleTranslation.forgetMapping(reductionDecls[i].getInitializerRegion());
  }
 
  return success();
}
 
/// Collect reduction info
template <typename T>
static void collectReductionInfo(
    T loop, llvm::IRBuilderBase &builder,
    LLVM::ModuleTranslation &moduleTranslation,
    SmallVectorImpl<omp::DeclareReductionOp> &reductionDecls,
    SmallVectorImpl<OwningReductionGen> &owningReductionGens,
    SmallVectorImpl<OwningAtomicReductionGen> &owningAtomicReductionGens,
    SmallVector<OwningDataPtrPtrReductionGen> &owningDataPtrPtrReductionGens,
    const ArrayRef<llvm::Value *> privateReductionVariables,
    SmallVectorImpl<llvm::OpenMPIRBuilder::ReductionInfo> &reductionInfos,
    ArrayRef<bool> isByRef) {
  unsigned numReductions = loop.getNumReductionVars();
 
  for (unsigned i = 0; i < numReductions; ++i) {
    owningReductionGens.push_back(
        makeReductionGen(reductionDecls[i], builder, moduleTranslation));
    owningAtomicReductionGens.push_back(
        makeAtomicReductionGen(reductionDecls[i], builder, moduleTranslation));
    owningDataPtrPtrReductionGens.push_back(makeRefDataPtrGen(
        reductionDecls[i], builder, moduleTranslation, isByRef[i]));
  }
 
  // Collect the reduction information.
  reductionInfos.reserve(numReductions);
  for (unsigned i = 0; i < numReductions; ++i) {
    llvm::OpenMPIRBuilder::ReductionGenAtomicCBTy atomicGen = nullptr;
    if (owningAtomicReductionGens[i])
      atomicGen = owningAtomicReductionGens[i];
    llvm::Value *variable =
        moduleTranslation.lookupValue(loop.getReductionVars()[i]);
    mlir::Type allocatedType;
    reductionDecls[i].getAllocRegion().walk([&](mlir::Operation *op) {
      if (auto alloca = mlir::dyn_cast<LLVM::AllocaOp>(op)) {
        allocatedType = alloca.getElemType();
        return mlir::WalkResult::interrupt();
      }
 
      return mlir::WalkResult::advance();
    });
 
    reductionInfos.push_back(
        {moduleTranslation.convertType(reductionDecls[i].getType()), variable,
         privateReductionVariables[i],
         /*EvaluationKind=*/llvm::OpenMPIRBuilder::EvalKind::Scalar,
         owningReductionGens[i],
         /*ReductionGenClang=*/nullptr, atomicGen,
         owningDataPtrPtrReductionGens[i],
         allocatedType ? moduleTranslation.convertType(allocatedType) : nullptr,
         reductionDecls[i].getByrefElementType()
             ? moduleTranslation.convertType(
                   *reductionDecls[i].getByrefElementType())
             : nullptr});
  }
}
 
/// handling of DeclareReductionOp's cleanup region
static LogicalResult
inlineOmpRegionCleanup(llvm::SmallVectorImpl<Region *> &cleanupRegions,
                       llvm::ArrayRef<llvm::Value *> privateVariables,
                       LLVM::ModuleTranslation &moduleTranslation,
                       llvm::IRBuilderBase &builder, StringRef regionName,
                       bool shouldLoadCleanupRegionArg = true) {
  for (auto [i, cleanupRegion] : llvm::enumerate(cleanupRegions)) {
    if (cleanupRegion->empty())
      continue;
 
    // map the argument to the cleanup region
    Block &entry = cleanupRegion->front();
 
    llvm::Instruction *potentialTerminator =
        builder.GetInsertBlock()->empty() ? nullptr
                                          : &builder.GetInsertBlock()->back();
    if (potentialTerminator && potentialTerminator->isTerminator())
      builder.SetInsertPoint(potentialTerminator);
    llvm::Value *privateVarValue =
        shouldLoadCleanupRegionArg
            ? builder.CreateLoad(
                  moduleTranslation.convertType(entry.getArgument(0).getType()),
                  privateVariables[i])
            : privateVariables[i];
 
    moduleTranslation.mapValue(entry.getArgument(0), privateVarValue);
 
    if (failed(inlineConvertOmpRegions(*cleanupRegion, regionName, builder,
                                       moduleTranslation)))
      return failure();
 
    // clear block argument mapping in case it needs to be re-created with a
    // different source for another use of the same reduction decl
    moduleTranslation.forgetMapping(*cleanupRegion);
  }
  return success();
}
 
// TODO: not used by ParallelOp
template <class OP>
static LogicalResult createReductionsAndCleanup(
    OP op, llvm::IRBuilderBase &builder,
    LLVM::ModuleTranslation &moduleTranslation,
    llvm::OpenMPIRBuilder::InsertPointTy &allocaIP,
    SmallVectorImpl<omp::DeclareReductionOp> &reductionDecls,
    ArrayRef<llvm::Value *> privateReductionVariables, ArrayRef<bool> isByRef,
    bool isNowait = false, bool isTeamsReduction = false) {
  // Process the reductions if required.
  if (op.getNumReductionVars() == 0)
    return success();
 
  SmallVector<OwningReductionGen> owningReductionGens;
  SmallVector<OwningAtomicReductionGen> owningAtomicReductionGens;
  SmallVector<OwningDataPtrPtrReductionGen> owningReductionGenRefDataPtrGens;
  SmallVector<llvm::OpenMPIRBuilder::ReductionInfo, 2> reductionInfos;
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  // Create the reduction generators. We need to own them here because
  // ReductionInfo only accepts references to the generators.
  collectReductionInfo(op, builder, moduleTranslation, reductionDecls,
                       owningReductionGens, owningAtomicReductionGens,
                       owningReductionGenRefDataPtrGens,
                       privateReductionVariables, reductionInfos, isByRef);
 
  // The call to createReductions below expects the block to have a
  // terminator. Create an unreachable instruction to serve as terminator
  // and remove it later.
  llvm::UnreachableInst *tempTerminator = builder.CreateUnreachable();
  builder.SetInsertPoint(tempTerminator);
  llvm::DebugLoc reductionLoc = builder.getCurrentDebugLocation();
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy contInsertPoint =
      ompBuilder->createReductions(builder, allocaIP, reductionInfos, isByRef,
                                   isNowait, isTeamsReduction);
 
  if (failed(handleError(contInsertPoint, *op)))
    return failure();
 
  if (!contInsertPoint->isValid())
    return op->emitOpError() << "failed to convert reductions";
 
  llvm::OpenMPIRBuilder::InsertPointTy afterIP = *contInsertPoint;
  if (!isTeamsReduction && !isNowait) {
    llvm::OpenMPIRBuilder::InsertPointOrErrorTy barrierIP =
        ompBuilder->createBarrier({*contInsertPoint, reductionLoc},
                                  llvm::omp::OMPD_for);
 
    if (failed(handleError(barrierIP, *op)))
      return failure();
    afterIP = *barrierIP;
  }
 
  tempTerminator->eraseFromParent();
  builder.restoreIP(afterIP);
 
  // after the construct, deallocate private reduction variables
  SmallVector<Region *> reductionRegions;
  llvm::transform(reductionDecls, std::back_inserter(reductionRegions),
                  [](omp::DeclareReductionOp reductionDecl) {
                    return &reductionDecl.getCleanupRegion();
                  });
  LogicalResult result = inlineOmpRegionCleanup(
      reductionRegions, privateReductionVariables, moduleTranslation, builder,
      "omp.reduction.cleanup");
 
  bool useDeviceSharedMem = omp::opInSharedDeviceContext(*op);
  if (useDeviceSharedMem) {
    for (auto [var, reductionDecl] :
         llvm::zip_equal(privateReductionVariables, reductionDecls))
      ompBuilder->createOMPFreeShared(
          builder, var, moduleTranslation.convertType(reductionDecl.getType()));
  }
 
  return result;
}
 
static ArrayRef<bool> getIsByRef(std::optional<ArrayRef<bool>> attr) {
  if (!attr)
    return {};
  return *attr;
}
 
// TODO: not used by omp.parallel
template <typename OP>
static LogicalResult allocAndInitializeReductionVars(
    OP op, ArrayRef<BlockArgument> reductionArgs, llvm::IRBuilderBase &builder,
    LLVM::ModuleTranslation &moduleTranslation,
    llvm::OpenMPIRBuilder::InsertPointTy &allocaIP,
    SmallVectorImpl<omp::DeclareReductionOp> &reductionDecls,
    SmallVectorImpl<llvm::Value *> &privateReductionVariables,
    DenseMap<Value, llvm::Value *> &reductionVariableMap,
    llvm::ArrayRef<bool> isByRef) {
  if (op.getNumReductionVars() == 0)
    return success();
 
  SmallVector<DeferredStore> deferredStores;
 
  if (failed(allocReductionVars(op, reductionArgs, builder, moduleTranslation,
                                allocaIP, reductionDecls,
                                privateReductionVariables, reductionVariableMap,
                                deferredStores, isByRef)))
    return failure();
 
  return initReductionVars(op, reductionArgs, builder, moduleTranslation,
                           allocaIP.getNodeParent(), reductionDecls,
                           privateReductionVariables, reductionVariableMap,
                           isByRef, deferredStores);
}
 
/// Return the llvm::Value * corresponding to the `privateVar` that
/// is being privatized. It isn't always as simple as looking up
/// moduleTranslation with privateVar. For instance, in case of
/// an allocatable, the descriptor for the allocatable is privatized.
/// This descriptor is mapped using an MapInfoOp. So, this function
/// will return a pointer to the llvm::Value corresponding to the
/// block argument for the mapped descriptor.
static llvm::Value *
findAssociatedValue(Value privateVar, llvm::IRBuilderBase &builder,
                    LLVM::ModuleTranslation &moduleTranslation,
                    llvm::DenseMap<Value, Value> *mappedPrivateVars = nullptr) {
  if (mappedPrivateVars == nullptr || !mappedPrivateVars->contains(privateVar))
    return moduleTranslation.lookupValue(privateVar);
 
  Value blockArg = (*mappedPrivateVars)[privateVar];
  Type privVarType = privateVar.getType();
  Type blockArgType = blockArg.getType();
  assert(isa<LLVM::LLVMPointerType>(blockArgType) &&
         "A block argument corresponding to a mapped var should have "
         "!llvm.ptr type");
 
  if (privVarType == blockArgType)
    return moduleTranslation.lookupValue(blockArg);
 
  // This typically happens when the privatized type is lowered from
  // boxchar<KIND> and gets lowered to !llvm.struct<(ptr, i64)>. That is the
  // struct/pair is passed by value. But, mapped values are passed only as
  // pointers, so before we privatize, we must load the pointer.
  if (!isa<LLVM::LLVMPointerType>(privVarType))
    return builder.CreateLoad(moduleTranslation.convertType(privVarType),
                              moduleTranslation.lookupValue(blockArg));
 
  return moduleTranslation.lookupValue(privateVar);
}
 
// Privatizer region arguments may be by-value even when the available LLVM
// value is storage for that value, e.g. lowered Fortran boxchar descriptors in
// task context structs. Materialize the value expected by the region argument
// while preserving the existing pointer mapping for pointer arguments.
static llvm::Value *
materializeRegionArgValue(llvm::IRBuilderBase &builder,
                          LLVM::ModuleTranslation &moduleTranslation,
                          BlockArgument regionArg, llvm::Value *value) {
  if (!regionArg)
    return value;
 
  llvm::Type *regionArgType =
      moduleTranslation.convertType(regionArg.getType());
  if (regionArgType->isPointerTy() || !value->getType()->isPointerTy())
    return value;
 
  return builder.CreateLoad(regionArgType, value);
}
 
/// Returns the address of the data in `var`, via the `data_address` region.
static llvm::Expected<llvm::Value *>
getPrivateDataAddress(llvm::IRBuilderBase &builder,
                      LLVM::ModuleTranslation &moduleTranslation,
                      omp::PrivateClauseOp privatizer, llvm::Value *var) {
  Region &region = privatizer.getDataAddressRegion();
  if (region.empty())
    return var;
 
  BlockArgument arg = privatizer.getDataAddressArg();
  moduleTranslation.mapValue(
      arg, materializeRegionArgValue(builder, moduleTranslation, arg, var));
  SmallVector<llvm::Value *, 1> address;
  if (failed(inlineConvertOmpRegions(region, "omp.private.data_address",
                                     builder, moduleTranslation, &address)))
    return llvm::make_error<PreviouslyReportedError>();
  setInsertPointForPossiblyEmptyBlock(builder);
  return address.front();
}
 
/// Initialize a single (first)private variable. You probably want to use
/// allocateAndInitPrivateVars instead of this.
/// This returns the private variable which has been initialized. This
/// variable should be mapped before constructing the body of the Op.
static llvm::Expected<llvm::Value *>
initPrivateVar(llvm::IRBuilderBase &builder,
               LLVM::ModuleTranslation &moduleTranslation,
               omp::PrivateClauseOp &privDecl, llvm::Value *nonPrivateVar,
               BlockArgument &blockArg, llvm::Value *llvmPrivateVar,
               llvm::BasicBlock *privInitBlock,
               llvm::DenseMap<Value, Value> *mappedPrivateVars = nullptr) {
  Region &initRegion = privDecl.getInitRegion();
  if (initRegion.empty())
    return llvmPrivateVar;
 
  assert(nonPrivateVar);
  moduleTranslation.mapValue(privDecl.getInitMoldArg(), nonPrivateVar);
  moduleTranslation.mapValue(privDecl.getInitPrivateArg(), llvmPrivateVar);
 
  // in-place convert the private initialization region
  SmallVector<llvm::Value *, 1> phis;
  if (failed(inlineConvertOmpRegions(initRegion, "omp.private.init", builder,
                                     moduleTranslation, &phis)))
    return llvm::createStringError(
        "failed to inline `init` region of `omp.private`");
 
  assert(phis.size() == 1 && "expected one allocation to be yielded");
 
  // clear init region block argument mapping in case it needs to be
  // re-created with a different source for another use of the same
  // reduction decl
  moduleTranslation.forgetMapping(initRegion);
 
  // Prefer the value yielded from the init region to the allocated private
  // variable in case the region is operating on arguments by-value (e.g.
  // Fortran character boxes).
  return phis[0];
}
 
/// Version of initPrivateVar which looks up the nonPrivateVar from mlirPrivVar.
static llvm::Expected<llvm::Value *> initPrivateVar(
    llvm::IRBuilderBase &builder, LLVM::ModuleTranslation &moduleTranslation,
    omp::PrivateClauseOp &privDecl, Value mlirPrivVar, BlockArgument &blockArg,
    llvm::Value *llvmPrivateVar, llvm::BasicBlock *privInitBlock,
    llvm::DenseMap<Value, Value> *mappedPrivateVars = nullptr) {
  return initPrivateVar(
      builder, moduleTranslation, privDecl,
      findAssociatedValue(mlirPrivVar, builder, moduleTranslation,
                          mappedPrivateVars),
      blockArg, llvmPrivateVar, privInitBlock, mappedPrivateVars);
}
 
static llvm::Error
initPrivateVars(llvm::IRBuilderBase &builder,
                LLVM::ModuleTranslation &moduleTranslation,
                PrivateVarsInfo &privateVarsInfo,
                llvm::DenseMap<Value, Value> *mappedPrivateVars = nullptr) {
  if (privateVarsInfo.blockArgs.empty())
    return llvm::Error::success();
 
  llvm::BasicBlock *privInitBlock = splitBB(builder, true, "omp.private.init");
  setInsertPointForPossiblyEmptyBlock(builder, privInitBlock);
 
  for (auto [idx, zip] : llvm::enumerate(llvm::zip_equal(
           privateVarsInfo.privatizers, privateVarsInfo.mlirVars,
           privateVarsInfo.blockArgs, privateVarsInfo.llvmVars))) {
    auto [privDecl, mlirPrivVar, blockArg, llvmPrivateVar] = zip;
    llvm::Expected<llvm::Value *> privVarOrErr = initPrivateVar(
        builder, moduleTranslation, privDecl, mlirPrivVar, blockArg,
        llvmPrivateVar, privInitBlock, mappedPrivateVars);
 
    if (!privVarOrErr)
      return privVarOrErr.takeError();
 
    llvmPrivateVar = privVarOrErr.get();
    moduleTranslation.mapValue(blockArg, llvmPrivateVar);
 
    setInsertPointForPossiblyEmptyBlock(builder);
  }
 
  return llvm::Error::success();
}
 
static LogicalResult
convertAllocatorVars(Operation &op, ValueRange allocatorVars,
                     llvm::IRBuilderBase &builder,
                     LLVM::ModuleTranslation &moduleTranslation,
                     PrivateVarsInfo &privateVarsInfo) {
  for (Value allocatorVar : allocatorVars) {
    if (privateVarsInfo.convertedAllocators.contains(allocatorVar))
      continue;
 
    llvm::Value *allocator = moduleTranslation.lookupValue(allocatorVar);
    if (!allocator)
      return op.emitError("failed to translate OpenMP allocator operand");
    if (allocator->getType()->isIntegerTy())
      allocator = builder.CreateIntToPtr(allocator, builder.getPtrTy());
    else if (allocator->getType()->isPointerTy())
      allocator = builder.CreatePointerBitCastOrAddrSpaceCast(
          allocator, builder.getPtrTy());
    else
      return op.emitError(
          "OpenMP allocator operand must have integer or pointer type");
 
    privateVarsInfo.convertedAllocators.try_emplace(allocatorVar, allocator);
  }
  return success();
}
 
/// Allocate and initialize delayed private variables. Returns the basic block
/// which comes after all of these allocations. llvm::Value * for each of these
/// private variables are populated in llvmPrivateVars.
template <typename T>
static llvm::Expected<llvm::BasicBlock *> allocatePrivateVars(
    T op, llvm::IRBuilderBase &builder,
    LLVM::ModuleTranslation &moduleTranslation,
    PrivateVarsInfo &privateVarsInfo,
    llvm::OpenMPIRBuilder::InsertPointTy &allocaIP,
    llvm::DenseMap<Value, Value> *mappedPrivateVars = nullptr,
    std::optional<llvm::OpenMPIRBuilder::InsertPointTy> allocatorIP =
        std::nullopt) {
  // Allocate private vars
  // Save blocks before splits since allocaIP/allocatorIP iterators may follow
  // spliced instructions to the new block.
  llvm::BasicBlock *allocaBB = allocaIP.getNodeParent();
  llvm::Instruction *allocaTerminator = allocaBB->getTerminator();
  splitBB(allocaTerminator->getIterator(), true,
          allocaTerminator->getDebugLoc(), "omp.region.after_alloca");
  // Update the allocaTerminator since the alloca block was split above.
  allocaTerminator = allocaBB->getTerminator();
  // The new terminator is an uncondition branch created by the splitBB above.
  assert(allocaTerminator->getNumSuccessors() == 1 &&
         "This is an unconditional branch created by splitBB");
  allocaIP = allocaTerminator->getIterator();
 
  llvm::Instruction *allocatorTerminator = nullptr;
  llvm::BasicBlock *afterAllocatorAllocations = nullptr;
  if (allocatorIP) {
    llvm::BasicBlock *allocatorBB = allocatorIP->getNodeParent();
    allocatorTerminator = allocatorBB->getTerminator();
    afterAllocatorAllocations = splitBB(
        allocatorTerminator->getIterator(), true,
        allocatorTerminator->getDebugLoc(), "omp.region.after_allocate");
    allocatorTerminator = allocatorBB->getTerminator();
    assert(allocatorTerminator->getNumSuccessors() == 1 &&
           "This is an unconditional branch created by splitBB");
  }
 
  std::optional<llvm::IRBuilderBase::InsertPointGuard> guard;
  if (!allocatorIP)
    guard.emplace(builder);
  builder.SetInsertPoint(allocaTerminator);
 
  llvm::DataLayout dataLayout = builder.getDataLayout();
  llvm::BasicBlock *afterAllocas = allocaTerminator->getSuccessor(0);
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  bool mightUseDeviceSharedMem = omp::opInSharedDeviceContext(*op);
  unsigned int allocaAS =
      moduleTranslation.getLLVMModule()->getDataLayout().getAllocaAddrSpace();
  unsigned int defaultAS = moduleTranslation.getLLVMModule()
                               ->getDataLayout()
                               .getProgramAddressSpace();
 
  SmallVector<int64_t> allocateItemForPrivate(privateVarsInfo.blockArgs.size(),
                                              -1);
  ValueRange allocatorVars;
  DenseI64ArrayAttr allocateAlignments;
  if constexpr (std::is_same_v<T, omp::ParallelOp> ||
                std::is_same_v<T, omp::ScopeOp>) {
    allocatorVars = op.getAllocatorVars();
    allocateAlignments = op.getAllocateAlignmentsAttr();
    if (auto privateIndices = op.getAllocatePrivateIndicesAttr())
      for (auto [allocateIndex, privateIndex] :
           llvm::enumerate(privateIndices.asArrayRef()))
        allocateItemForPrivate[privateIndex] = allocateIndex;
  }
 
  for (auto [privateIndex, tuple] : llvm::enumerate(llvm::zip_equal(
           privateVarsInfo.privatizers, privateVarsInfo.mlirVars,
           privateVarsInfo.blockArgs))) {
    auto [privDecl, mlirPrivVar, blockArg] = tuple;
    llvm::Type *llvmAllocType =
        moduleTranslation.convertType(privDecl.getType());
    llvm::Value *llvmPrivateVar = nullptr;
    int64_t allocateIndex = allocateItemForPrivate[privateIndex];
    builder.SetInsertPoint(allocateIndex >= 0 && allocatorTerminator
                               ? allocatorTerminator
                               : allocaTerminator);
    if (allocateIndex >= 0) {
      if (ompBuilder->Config.isTargetDevice() ||
          op->template getParentOfType<omp::TargetOp>())
        return llvm::createStringError(
            "allocate clause in an OpenMP device context is not supported");
      if (!llvmAllocType->isSized())
        return llvm::createStringError(
            "allocate clause private type must have a fixed size");
      llvm::TypeSize size = dataLayout.getTypeAllocSize(llvmAllocType);
      if (size.isScalable())
        return llvm::createStringError(
            "allocate clause private type must have a fixed size");
      llvm::IntegerType *sizeTy =
          moduleTranslation.getLLVMModule()->getDataLayout().getIntPtrType(
              moduleTranslation.getLLVMModule()->getContext());
      if (!llvm::isUIntN(sizeTy->getBitWidth(), size.getFixedValue()))
        return llvm::createStringError(
            "OpenMP allocation size cannot be represented by the target size "
            "type");
      llvm::Value *sizeValue =
          llvm::ConstantInt::get(sizeTy, size.getFixedValue());
 
      Value allocatorVar = allocatorVars[allocateIndex];
      auto allocator = privateVarsInfo.convertedAllocators.find(allocatorVar);
      if (allocator == privateVarsInfo.convertedAllocators.end())
        return llvm::createStringError(
            "failed to find converted OpenMP allocator operand");
      llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
      int64_t alignment =
          allocateAlignments ? allocateAlignments[allocateIndex] : 0;
      if (alignment != 0) {
        // The allocation must be aligned to at least the maximum of the
        // requested alignment and the alignment the base language requires
        // for the type being allocated.
        uint64_t alignmentValue = std::max<uint64_t>(
            static_cast<uint64_t>(alignment),
            dataLayout.getABITypeAlign(llvmAllocType).value());
        if (!llvm::isUIntN(sizeTy->getBitWidth(), alignmentValue))
          return llvm::createStringError(
              "OpenMP allocation alignment cannot be represented by the "
              "target size type");
        llvmPrivateVar = ompBuilder->createOMPAlignedAlloc(
            ompLoc, llvm::ConstantInt::get(sizeTy, alignmentValue), sizeValue,
            allocator->second, "omp.private.alloc");
      } else {
        llvmPrivateVar = ompBuilder->createOMPAlloc(
            ompLoc, sizeValue, allocator->second, "omp.private.alloc");
      }
      if (!llvmPrivateVar)
        return llvm::createStringError(
            "failed to create OpenMP private allocation");
      privateVarsInfo.allocatorPrivates.push_back(
          {llvmPrivateVar, allocator->second});
    } else if (mightUseDeviceSharedMem &&
               omp::allocaUsesRequireSharedMem(blockArg)) {
      llvmPrivateVar = ompBuilder->createOMPAllocShared(builder, llvmAllocType);
    } else {
      llvmPrivateVar = builder.CreateAlloca(
          llvmAllocType, /*ArraySize=*/nullptr, "omp.private.alloc");
      if (allocaAS != defaultAS)
        llvmPrivateVar = builder.CreateAddrSpaceCast(
            llvmPrivateVar, builder.getPtrTy(defaultAS));
    }
 
    privateVarsInfo.llvmVars.push_back(llvmPrivateVar);
  }
 
  return afterAllocatorAllocations ? afterAllocatorAllocations : afterAllocas;
}
 
/// A compiler-generated barrier is unsafe when only part of the current team
/// can reach it. This cannot always be determined statically (e.g. across a
/// function call), but the enclosing OpenMP constructs can rule it out.
static bool opMightBeSafeForBarriers(mlir::Operation *op) {
  for (mlir::Operation *parent = op; parent != nullptr;
       parent = parent->getParentOp()) {
    // An inner parallel construct creates a new team, even when it is nested
    // inside a construct that only some threads of the outer team encounter.
    if (mlir::isa<omp::ParallelOp>(parent))
      return true;
 
    if (mlir::isa<omp::SingleOp, omp::CriticalOp, omp::MaskedOp, omp::MasterOp,
                  omp::SectionOp>(parent))
      return false;
  }
  return true;
}
 
static LogicalResult
emitPrivatizationBarrier(mlir::Operation *op, llvm::IRBuilderBase &builder,
                         LLVM::ModuleTranslation &moduleTranslation) {
  if (!opMightBeSafeForBarriers(op))
    return success();
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy res =
      ompBuilder->createBarrier(builder, llvm::omp::OMPD_barrier);
  return handleError(res, *op);
}
 
static LogicalResult
completePrivateVars(mlir::Operation *op, llvm::IRBuilderBase &builder,
                    LLVM::ModuleTranslation &moduleTranslation,
                    SmallVectorImpl<llvm::Value *> &moldVars,
                    ArrayRef<llvm::Value *> llvmPrivateVars,
                    SmallVectorImpl<omp::PrivateClauseOp> &privateDecls,
                    bool insertBarrier,
                    llvm::DenseMap<Value, Value> *mappedPrivateVars = nullptr) {
  // Apply copy region for firstprivate.
  bool needsFirstprivate =
      llvm::any_of(privateDecls, [](omp::PrivateClauseOp &privOp) {
        return privOp.getDataSharingType() ==
               omp::DataSharingClauseType::FirstPrivate;
      });
 
  if (!needsFirstprivate)
    return insertBarrier
               ? emitPrivatizationBarrier(op, builder, moduleTranslation)
               : success();
 
  llvm::BasicBlock *copyBlock =
      splitBB(builder, /*CreateBranch=*/true, "omp.private.copy");
  setInsertPointForPossiblyEmptyBlock(builder, copyBlock);
 
  for (auto [decl, moldVar, llvmVar] :
       llvm::zip_equal(privateDecls, moldVars, llvmPrivateVars)) {
    if (decl.getDataSharingType() != omp::DataSharingClauseType::FirstPrivate)
      continue;
 
    // copyRegion implements `lhs = rhs`
    Region &copyRegion = decl.getCopyRegion();
 
    llvm::Value *copyMoldVar = materializeRegionArgValue(
        builder, moduleTranslation, decl.getCopyMoldArg(), moldVar);
    llvm::Value *copyPrivateVar = materializeRegionArgValue(
        builder, moduleTranslation, decl.getCopyPrivateArg(), llvmVar);
 
    moduleTranslation.mapValue(decl.getCopyMoldArg(), copyMoldVar);
 
    // map copyRegion lhs arg
    moduleTranslation.mapValue(decl.getCopyPrivateArg(), copyPrivateVar);
 
    // in-place convert copy region
    if (failed(inlineConvertOmpRegions(copyRegion, "omp.private.copy", builder,
                                       moduleTranslation)))
      return decl.emitError("failed to inline `copy` region of `omp.private`");
 
    setInsertPointForPossiblyEmptyBlock(builder);
 
    // ignore unused value yielded from copy region
 
    // clear copy region block argument mapping in case it needs to be
    // re-created with different sources for reuse of the same reduction
    // decl
    moduleTranslation.forgetMapping(copyRegion);
  }
 
  return insertBarrier
             ? emitPrivatizationBarrier(op, builder, moduleTranslation)
             : success();
}
 
static LogicalResult
completePrivateVars(mlir::Operation *op, llvm::IRBuilderBase &builder,
                    LLVM::ModuleTranslation &moduleTranslation,
                    SmallVectorImpl<mlir::Value> &mlirPrivateVars,
                    ArrayRef<llvm::Value *> llvmPrivateVars,
                    SmallVectorImpl<omp::PrivateClauseOp> &privateDecls,
                    bool insertBarrier,
                    llvm::DenseMap<Value, Value> *mappedPrivateVars = nullptr) {
  llvm::SmallVector<llvm::Value *> moldVars(mlirPrivateVars.size());
  llvm::transform(mlirPrivateVars, moldVars.begin(), [&](mlir::Value mlirVar) {
    // map copyRegion rhs arg
    llvm::Value *moldVar = findAssociatedValue(
        mlirVar, builder, moduleTranslation, mappedPrivateVars);
    assert(moldVar);
    return moldVar;
  });
  return completePrivateVars(op, builder, moduleTranslation, moldVars,
                             llvmPrivateVars, privateDecls, insertBarrier,
                             mappedPrivateVars);
}
 
template <typename T>
static LogicalResult
cleanupPrivateVars(T op, llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation, Location loc,
                   PrivateVarsInfo &privateVarsInfo) {
  // private variable deallocation
  SmallVector<Region *> privateCleanupRegions;
  llvm::transform(privateVarsInfo.privatizers,
                  std::back_inserter(privateCleanupRegions),
                  [](omp::PrivateClauseOp privatizer) {
                    return &privatizer.getDeallocRegion();
                  });
 
  if (failed(inlineOmpRegionCleanup(privateCleanupRegions,
                                    privateVarsInfo.llvmVars, moduleTranslation,
                                    builder, "omp.private.dealloc",
                                    /*shouldLoadCleanupRegionArg=*/false)))
    return mlir::emitError(loc, "failed to inline `dealloc` region of an "
                                "`omp.private` op in");
  setInsertPointForPossiblyEmptyBlock(builder);
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  bool mightUseDeviceSharedMem = omp::opInSharedDeviceContext(*op);
  for (auto [privDecl, llvmPrivVar, blockArg] :
       llvm::zip_equal(privateVarsInfo.privatizers, privateVarsInfo.llvmVars,
                       privateVarsInfo.blockArgs)) {
    if (mightUseDeviceSharedMem && omp::allocaUsesRequireSharedMem(blockArg)) {
      ompBuilder->createOMPFreeShared(
          builder, llvmPrivVar,
          moduleTranslation.convertType(privDecl.getType()));
    }
  }
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  for (const PrivateVarsInfo::AllocatorPrivateInfo &allocation :
       llvm::reverse(privateVarsInfo.allocatorPrivates))
    ompBuilder->createOMPFree(ompLoc, allocation.allocatedPtr,
                              allocation.allocator);
 
  return success();
}
 
/// Returns true if the construct contains omp.cancel or omp.cancellation_point
static bool constructIsCancellable(Operation *op) {
  // omp.cancel and omp.cancellation_point must be "closely nested" so they will
  // be visible and not inside of function calls. This is enforced by the
  // verifier.
  return op
      ->walk([](Operation *child) {
        if (mlir::isa<omp::CancelOp, omp::CancellationPointOp>(child))
          return WalkResult::interrupt();
        return WalkResult::advance();
      })
      .wasInterrupted();
}
 
// Forward declarations for the task-reduction helpers defined alongside the
// omp.taskgroup lowering further down in this file. These are shared by the
// `reduction(task, ...)` modifier lowering on the parallel/worksharing
// constructs and by the omp.taskgroup / omp.taskloop.context task_reduction
// lowering. When \p isModifier is set, `__kmpc_taskred_modifier_init` is
// emitted (opening a task-reduction scope) instead of `__kmpc_taskred_init`,
// with \p isWorksharing selecting the runtime `is_ws` argument.
static llvm::Value *emitTaskReductionInitCall(
    ArrayRef<omp::DeclareReductionOp> redDecls,
    ArrayRef<llvm::Value *> origPtrs, StringRef helperNamePrefix,
    llvm::IRBuilderBase &builder, llvm::OpenMPIRBuilder::InsertPointTy allocaIP,
    LLVM::ModuleTranslation &moduleTranslation, bool isModifier = false,
    bool isWorksharing = false);
static void
emitTaskReductionModifierFini(bool isWorksharing, llvm::IRBuilderBase &builder,
                              LLVM::ModuleTranslation &moduleTranslation);
 
/// Register only the task-modified items. All items still participate in the
/// enclosing construct's ordinary reduction combination and cleanup.
template <typename OpTy>
static llvm::Value *emitTaskReductionModifierInitCall(
    OpTy op, ArrayRef<omp::DeclareReductionOp> reductionDecls,
    ArrayRef<llvm::Value *> privateReductionVariables,
    llvm::IRBuilderBase &builder, llvm::OpenMPIRBuilder::InsertPointTy allocaIP,
    LLVM::ModuleTranslation &moduleTranslation, bool isWorksharing) {
  SmallVector<omp::DeclareReductionOp> taskDecls;
  SmallVector<llvm::Value *> taskVariables;
  for (unsigned i = 0, e = op.getNumReductionVars(); i != e; ++i) {
    if (op.getReductionModifier(i) != omp::ReductionModifier::task)
      continue;
    taskDecls.push_back(reductionDecls[i]);
    taskVariables.push_back(privateReductionVariables[i]);
  }
  return emitTaskReductionInitCall(
      taskDecls, taskVariables, "__omp_taskred_mod_", builder, allocaIP,
      moduleTranslation, /*isModifier=*/true, isWorksharing);
}
 
static LogicalResult
convertOmpSections(Operation &opInst, llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  using StorableBodyGenCallbackTy =
      llvm::OpenMPIRBuilder::StorableBodyGenCallbackTy;
 
  auto sectionsOp = cast<omp::SectionsOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  llvm::ArrayRef<bool> isByRef = getIsByRef(sectionsOp.getReductionByref());
  assert(isByRef.size() == sectionsOp.getNumReductionVars());
 
  SmallVector<omp::DeclareReductionOp> reductionDecls;
  collectReductionDecls(sectionsOp, reductionDecls);
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation);
 
  SmallVector<llvm::Value *> privateReductionVariables(
      sectionsOp.getNumReductionVars());
  DenseMap<Value, llvm::Value *> reductionVariableMap;
 
  MutableArrayRef<BlockArgument> reductionArgs =
      cast<omp::BlockArgOpenMPOpInterface>(opInst).getReductionBlockArgs();
 
  if (failed(allocAndInitializeReductionVars(
          sectionsOp, reductionArgs, builder, moduleTranslation, allocaIP,
          reductionDecls, privateReductionVariables, reductionVariableMap,
          isByRef)))
    return failure();
 
  bool isTaskReductionMod =
      sectionsOp.hasReductionModifier(omp::ReductionModifier::task);
 
  SmallVector<StorableBodyGenCallbackTy> sectionCBs;
 
  for (Operation &op : *sectionsOp.getRegion().begin()) {
    auto sectionOp = dyn_cast<omp::SectionOp>(op);
    if (!sectionOp) // omp.terminator
      continue;
 
    Region &region = sectionOp.getRegion();
    auto sectionCB = [&sectionsOp, &region, &builder, &moduleTranslation](
                         InsertPointTy allocaIP, InsertPointTy codeGenIP,
                         ArrayRef<llvm::BasicBlock *> deallocBlocks) {
      builder.restoreIP(codeGenIP);
 
      // map the omp.section reduction block argument to the omp.sections block
      // arguments
      // TODO: this assumes that the only block arguments are reduction
      // variables
      assert(region.getNumArguments() ==
             sectionsOp.getRegion().getNumArguments());
      for (auto [sectionsArg, sectionArg] : llvm::zip_equal(
               sectionsOp.getRegion().getArguments(), region.getArguments())) {
        llvm::Value *llvmVal = moduleTranslation.lookupValue(sectionsArg);
        assert(llvmVal);
        moduleTranslation.mapValue(sectionArg, llvmVal);
      }
 
      return convertOmpOpRegions(region, "omp.section.region", builder,
                                 moduleTranslation)
          .takeError();
    };
    sectionCBs.push_back(sectionCB);
  }
 
  // No sections within omp.sections operation - skip generation. This situation
  // is only possible if there is only a terminator operation inside the
  // sections operation
  if (sectionCBs.empty())
    return success();
 
  // For `reduction(task, ...)` open a task-reduction scope for the worksharing
  // region. Participating explicit tasks accumulate into the per-thread private
  // copies, which the worksharing reduction then combines across threads. This
  // is emitted only after the empty-sections early return above, so it stays
  // balanced with the matching fini emitted after the sections region.
  if (isTaskReductionMod &&
      !emitTaskReductionModifierInitCall(
          sectionsOp, reductionDecls, privateReductionVariables, builder,
          allocaIP, moduleTranslation, /*isWorksharing=*/true))
    return sectionsOp.emitError(
        "failed to emit task reduction modifier initialization");
 
  assert(isa<omp::SectionOp>(*sectionsOp.getRegion().op_begin()));
 
  // TODO: Perform appropriate actions according to the data-sharing
  // attribute (shared, private, firstprivate, ...) of variables.
  // Currently defaults to shared.
  auto privCB = [&](InsertPointTy, InsertPointTy codeGenIP, llvm::Value &,
                    llvm::Value &vPtr, llvm::Value *&replacementValue)
      -> llvm::OpenMPIRBuilder::InsertPointOrErrorTy {
    replacementValue = &vPtr;
    return codeGenIP;
  };
 
  // TODO: Perform finalization actions for variables. This has to be
  // called for variables which have destructors/finalizers.
  auto finiCB = [&](InsertPointTy codeGenIP) { return llvm::Error::success(); };
 
  allocaIP = findAllocInsertPoints(builder, moduleTranslation);
  bool isCancellable = constructIsCancellable(sectionsOp);
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createSections(ompLoc, allocaIP, sectionCBs, privCB, finiCB,
                           isCancellable, sectionsOp.getNowait());
 
  if (failed(handleError(afterIP, opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
 
  // Close the task-reduction scope before combining the worksharing copies.
  if (isTaskReductionMod)
    emitTaskReductionModifierFini(/*isWorksharing=*/true, builder,
                                  moduleTranslation);
 
  // Process the reductions if required.
  return createReductionsAndCleanup(
      sectionsOp, builder, moduleTranslation, allocaIP, reductionDecls,
      privateReductionVariables, isByRef, sectionsOp.getNowait());
}
 
/// Converts an OpenMP scope construct into LLVM IR.
static LogicalResult
convertOmpScope(omp::ScopeOp &scopeOp, llvm::IRBuilderBase &builder,
                LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  if (failed(checkImplementationStatus(*scopeOp)))
    return failure();
 
  llvm::ArrayRef<bool> isByRef = getIsByRef(scopeOp.getReductionByref());
  assert(isByRef.size() == scopeOp.getNumReductionVars());
 
  PrivateVarsInfo privateVarsInfo(scopeOp);
  if (failed(convertAllocatorVars(*scopeOp, scopeOp.getAllocatorVars(), builder,
                                  moduleTranslation, privateVarsInfo)))
    return failure();
 
  SmallVector<omp::DeclareReductionOp> reductionDecls;
  collectReductionDecls(scopeOp, reductionDecls);
  InsertPointTy privateAllocaIP =
      findAllocInsertPoints(builder, moduleTranslation);
 
  SmallVector<llvm::Value *> privateReductionVariables(
      scopeOp.getNumReductionVars());
  DenseMap<Value, llvm::Value *> reductionVariableMap;
 
  MutableArrayRef<BlockArgument> reductionArgs =
      cast<omp::BlockArgOpenMPOpInterface>(*scopeOp).getReductionBlockArgs();
 
  if (scopeOp.getAllocateVars().empty()) {
    llvm::Expected<llvm::BasicBlock *> afterAllocas = allocatePrivateVars(
        scopeOp, builder, moduleTranslation, privateVarsInfo, privateAllocaIP);
    if (failed(handleError(afterAllocas, *scopeOp)))
      return failure();
  }
 
  if (failed(allocAndInitializeReductionVars(
          scopeOp, reductionArgs, builder, moduleTranslation, privateAllocaIP,
          reductionDecls, privateReductionVariables, reductionVariableMap,
          isByRef)))
    return failure();
 
  auto bodyCB =
      [&](InsertPointTy allocaIP, InsertPointTy codeGenIP,
          llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) -> llvm::Error {
    if (!scopeOp.getAllocateVars().empty()) {
      // Runtime storage must be allocated on each dynamic Scope entry. Ordinary
      // private allocas still use the enclosing alloca insertion point.
      llvm::Expected<llvm::BasicBlock *> afterAllocas = allocatePrivateVars(
          scopeOp, builder, moduleTranslation, privateVarsInfo, privateAllocaIP,
          /*mappedPrivateVars=*/nullptr, codeGenIP);
      if (handleError(afterAllocas, *scopeOp).failed())
        return llvm::make_error<PreviouslyReportedError>();
      builder.SetInsertPoint(afterAllocas.get()->getTerminator());
    } else {
      builder.restoreIP(codeGenIP);
    }
 
    if (handleError(
            initPrivateVars(builder, moduleTranslation, privateVarsInfo),
            *scopeOp)
            .failed())
      return llvm::make_error<PreviouslyReportedError>();
 
    if (failed(completePrivateVars(
            scopeOp, builder, moduleTranslation, privateVarsInfo.mlirVars,
            privateVarsInfo.llvmVars, privateVarsInfo.privatizers,
            scopeOp.getPrivateNeedsBarrier())))
      return llvm::make_error<PreviouslyReportedError>();
 
    return convertOmpOpRegions(scopeOp.getRegion(), "omp.scope.region", builder,
                               moduleTranslation)
        .takeError();
  };
 
  auto finiCB = [&](InsertPointTy codeGenIP) -> llvm::Error {
    InsertPointTy oldIP = builder.saveIP();
    builder.restoreIP(codeGenIP);
    if (failed(cleanupPrivateVars(scopeOp, builder, moduleTranslation,
                                  scopeOp.getLoc(), privateVarsInfo)))
      return llvm::make_error<PreviouslyReportedError>();
    builder.restoreIP(oldIP);
    return llvm::Error::success();
  };
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      ompBuilder->createScope(ompLoc, bodyCB, finiCB, scopeOp.getNowait());
 
  if (failed(handleError(afterIP, *scopeOp)))
    return failure();
 
  builder.restoreIP(*afterIP);
 
  // Process the reductions if required.
  return createReductionsAndCleanup(
      scopeOp, builder, moduleTranslation, privateAllocaIP, reductionDecls,
      privateReductionVariables, isByRef, scopeOp.getNowait(),
      /*isTeamsReduction=*/false);
}
 
/// Converts an OpenMP single construct into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpSingle(omp::SingleOp &singleOp, llvm::IRBuilderBase &builder,
                 LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
 
  if (failed(checkImplementationStatus(*singleOp)))
    return failure();
 
  auto bodyCB = [&](InsertPointTy allocaIP, InsertPointTy codegenIP,
                    llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) {
    builder.restoreIP(codegenIP);
    return convertOmpOpRegions(singleOp.getRegion(), "omp.single.region",
                               builder, moduleTranslation)
        .takeError();
  };
  auto finiCB = [&](InsertPointTy codeGenIP) { return llvm::Error::success(); };
 
  // Handle copyprivate
  Operation::operand_range cpVars = singleOp.getCopyprivateVars();
  std::optional<ArrayAttr> cpFuncs = singleOp.getCopyprivateSyms();
  llvm::SmallVector<llvm::Value *> llvmCPVars;
  llvm::SmallVector<llvm::Function *> llvmCPFuncs;
  for (size_t i = 0, e = cpVars.size(); i < e; ++i) {
    llvmCPVars.push_back(moduleTranslation.lookupValue(cpVars[i]));
    auto llvmFuncOp = SymbolTable::lookupNearestSymbolFrom<LLVM::LLVMFuncOp>(
        singleOp, cast<SymbolRefAttr>((*cpFuncs)[i]));
    llvmCPFuncs.push_back(
        moduleTranslation.lookupFunction(llvmFuncOp.getName()));
  }
 
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createSingle(ompLoc, bodyCB, finiCB, singleOp.getNowait(),
                         llvmCPVars, llvmCPFuncs);
 
  if (failed(handleError(afterIP, *singleOp)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
static omp::DistributeOp
getDistributeCapturingTeamsReduction(omp::TeamsOp teamsOp) {
  // Early return if we found more than one distribute op or if we can't find
  // any distribute op in the teams region.
  omp::DistributeOp distOp;
  WalkResult walk = teamsOp.getRegion().walk([&](omp::DistributeOp op) {
    if (distOp)
      return WalkResult::interrupt();
    distOp = op;
    return WalkResult::skip();
  });
  if (walk.wasInterrupted() || !distOp)
    return {};
 
  auto iface =
      llvm::cast<mlir::omp::BlockArgOpenMPOpInterface>(teamsOp.getOperation());
  // Check that all uses of the reduction block arg has the same distribute op
  // parent.
  llvm::SmallVector<mlir::Operation *> debugUses;
  for (auto ra : iface.getReductionBlockArgs())
    for (auto &use : ra.getUses()) {
      auto *useOp = use.getOwner();
      // Ignore debug uses.
      if (mlir::isa<LLVM::DbgDeclareOp, LLVM::DbgValueOp>(useOp)) {
        debugUses.push_back(useOp);
        continue;
      }
      if (!distOp->isProperAncestor(useOp))
        return {};
    }
 
  // If we are going to use distribute reduction then remove any debug uses of
  // the reduction parameters in teamsOp. Otherwise they will be left without
  // any mapped value in moduleTranslation and will eventually error out.
  for (auto *use : debugUses)
    use->erase();
  return distOp;
}
 
// Convert an OpenMP Teams construct to LLVM IR using OpenMPIRBuilder
static LogicalResult
convertOmpTeams(omp::TeamsOp op, llvm::IRBuilderBase &builder,
                LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  if (failed(checkImplementationStatus(*op)))
    return failure();
 
  DenseMap<Value, llvm::Value *> reductionVariableMap;
  unsigned numReductionVars = op.getNumReductionVars();
  SmallVector<omp::DeclareReductionOp> reductionDecls;
  SmallVector<llvm::Value *> privateReductionVariables(numReductionVars);
  llvm::ArrayRef<bool> isByRef;
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation);
 
  // Only do teams reduction if there is no distribute op that captures the
  // reduction instead.
  bool doTeamsReduction = !getDistributeCapturingTeamsReduction(op);
  if (doTeamsReduction) {
    isByRef = getIsByRef(op.getReductionByref());
 
    assert(isByRef.size() == op.getNumReductionVars());
 
    MutableArrayRef<BlockArgument> reductionArgs =
        llvm::cast<omp::BlockArgOpenMPOpInterface>(*op).getReductionBlockArgs();
 
    collectReductionDecls(op, reductionDecls);
 
    if (failed(allocAndInitializeReductionVars(
            op, reductionArgs, builder, moduleTranslation, allocaIP,
            reductionDecls, privateReductionVariables, reductionVariableMap,
            isByRef)))
      return failure();
  }
 
  auto bodyCB = [&](InsertPointTy allocaIP, InsertPointTy codegenIP,
                    llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) {
    LLVM::ModuleTranslation::SaveStack<OpenMPAllocStackFrame> frame(
        moduleTranslation, allocaIP.getNodeParent(), deallocBlocks);
    builder.restoreIP(codegenIP);
    return convertOmpOpRegions(op.getRegion(), "omp.teams.region", builder,
                               moduleTranslation)
        .takeError();
  };
 
  llvm::Value *numTeamsLower = nullptr;
  if (Value numTeamsLowerVar = op.getNumTeamsLower())
    numTeamsLower = moduleTranslation.lookupValue(numTeamsLowerVar);
 
  llvm::Value *numTeamsUpper = nullptr;
  if (!op.getNumTeamsUpperVars().empty())
    numTeamsUpper = moduleTranslation.lookupValue(op.getNumTeams(0));
 
  llvm::Value *threadLimit = nullptr;
  if (!op.getThreadLimitVars().empty())
    threadLimit = moduleTranslation.lookupValue(op.getThreadLimit(0));
 
  llvm::Value *ifExpr = nullptr;
  if (Value ifVar = op.getIfExpr())
    ifExpr = moduleTranslation.lookupValue(ifVar);
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createTeams(ompLoc, bodyCB, numTeamsLower, numTeamsUpper,
                        threadLimit, ifExpr);
 
  if (failed(handleError(afterIP, *op)))
    return failure();
 
  builder.restoreIP(*afterIP);
  if (doTeamsReduction) {
    // Process the reductions if required.
    return createReductionsAndCleanup(
        op, builder, moduleTranslation, allocaIP, reductionDecls,
        privateReductionVariables, isByRef,
        /*isNoWait*/ false, /*isTeamsReduction*/ true);
  }
  return success();
}
 
static llvm::omp::RTLDependenceKindTy
convertDependKind(mlir::omp::ClauseTaskDepend kind) {
  switch (kind) {
  case mlir::omp::ClauseTaskDepend::taskdependin:
    return llvm::omp::RTLDependenceKindTy::DepIn;
  // The OpenMP runtime requires that the codegen for 'depend' clause for
  // 'out' dependency kind must be the same as codegen for 'depend' clause
  // with 'inout' dependency.
  case mlir::omp::ClauseTaskDepend::taskdependout:
  case mlir::omp::ClauseTaskDepend::taskdependinout:
    return llvm::omp::RTLDependenceKindTy::DepInOut;
  case mlir::omp::ClauseTaskDepend::taskdependmutexinoutset:
    return llvm::omp::RTLDependenceKindTy::DepMutexInOutSet;
  case mlir::omp::ClauseTaskDepend::taskdependinoutset:
    return llvm::omp::RTLDependenceKindTy::DepInOutSet;
  }
  llvm_unreachable("unhandled depend kind");
}
 
static void buildDependDataLocator(
    std::optional<ArrayAttr> dependKinds, OperandRange dependVars,
    LLVM::ModuleTranslation &moduleTranslation,
    SmallVectorImpl<llvm::OpenMPIRBuilder::DependData> &dds) {
  if (dependVars.empty())
    return;
  for (auto dep : llvm::zip(dependVars, dependKinds->getValue())) {
    auto kind =
        cast<mlir::omp::ClauseTaskDependAttr>(std::get<1>(dep)).getValue();
    llvm::omp::RTLDependenceKindTy type = convertDependKind(kind);
    llvm::Value *depVal = moduleTranslation.lookupValue(std::get<0>(dep));
    llvm::OpenMPIRBuilder::DependData dd(type, depVal->getType(), depVal);
    dds.emplace_back(dd);
  }
}
 
/// Shared implementation of a callback which adds a termiator for the new block
/// created for the branch taken when an openmp construct is cancelled. The
/// terminator is saved in \p cancelTerminators. This callback is invoked only
/// if there is cancellation inside of the taskgroup body.
/// The terminator will need to be fixed to branch to the correct block to
/// cleanup the construct.
static void pushCancelFinalizationCB(
    SmallVectorImpl<llvm::UncondBrInst *> &cancelTerminators,
    llvm::IRBuilderBase &llvmBuilder, llvm::OpenMPIRBuilder &ompBuilder,
    mlir::Operation *op, llvm::omp::Directive cancelDirective) {
  auto finiCB = [&](llvm::OpenMPIRBuilder::InsertPointTy ip) -> llvm::Error {
    llvm::IRBuilderBase::InsertPointGuard guard(llvmBuilder);
 
    // ip is currently in the block branched to if cancellation occurred.
    // We need to create a branch to terminate that block.
    llvmBuilder.restoreIP(ip);
 
    // We must still clean up the construct after cancelling it, so we need to
    // branch to the block that finalizes the taskgroup.
    // That block has not been created yet so use this block as a dummy for now
    // and fix this after creating the operation.
    cancelTerminators.push_back(llvmBuilder.CreateBr(ip.getNodeParent()));
    return llvm::Error::success();
  };
  // We have to add the cleanup to the OpenMPIRBuilder before the body gets
  // created in case the body contains omp.cancel (which will then expect to be
  // able to find this cleanup callback).
  ompBuilder.pushFinalizationCB(
      {finiCB, cancelDirective, constructIsCancellable(op)});
}
 
/// If we cancelled the construct, we should branch to the finalization block of
/// that construct. OMPIRBuilder structures the CFG such that the cleanup block
/// is immediately before the continuation block. Now this finalization has
/// been created we can fix the branch.
static void
popCancelFinalizationCB(const ArrayRef<llvm::UncondBrInst *> cancelTerminators,
                        llvm::OpenMPIRBuilder &ompBuilder,
                        llvm::BasicBlock *afterBB) {
  ompBuilder.popFinalizationCB();
  llvm::BasicBlock *constructFini = afterBB->getSinglePredecessor();
  for (llvm::UncondBrInst *cancelBranch : cancelTerminators)
    cancelBranch->setSuccessor(constructFini);
}
 
namespace {
/// TaskContextStructManager takes care of creating and freeing a structure
/// containing information needed by the task body to execute.
class TaskContextStructManager {
public:
  TaskContextStructManager(llvm::IRBuilderBase &builder,
                           LLVM::ModuleTranslation &moduleTranslation,
                           MutableArrayRef<omp::PrivateClauseOp> privateDecls)
      : builder{builder}, moduleTranslation{moduleTranslation},
        privateDecls{privateDecls} {}
 
  /// Creates a heap allocated struct containing space for each private
  /// variable. Invariant: privateVarTypes, privateDecls, and the elements of
  /// the structure should all have the same order (although privateDecls which
  /// do not read from the mold argument are skipped).
  void generateTaskContextStruct();
 
  /// Create GEPs to access each member of the structure representing a private
  /// variable, adding them to llvmPrivateVars. Null values are added where
  /// private decls were skipped so that the ordering continues to match the
  /// private decls.
  void createGEPsToPrivateVars();
 
  /// Given the address of the structure, return a GEP for each private variable
  /// in the structure. Null values are added where private decls were skipped
  /// so that the ordering continues to match the private decls.
  /// Must be called after generateTaskContextStruct().
  SmallVector<llvm::Value *>
  createGEPsToPrivateVars(llvm::Value *altStructPtr) const;
 
  /// De-allocate the task context structure.
  void freeStructPtr();
 
  MutableArrayRef<llvm::Value *> getLLVMPrivateVarGEPs() {
    return llvmPrivateVarGEPs;
  }
 
  llvm::Value *getStructPtr() { return structPtr; }
 
private:
  llvm::IRBuilderBase &builder;
  LLVM::ModuleTranslation &moduleTranslation;
  MutableArrayRef<omp::PrivateClauseOp> privateDecls;
 
  /// The type of each member of the structure, in order.
  SmallVector<llvm::Type *> privateVarTypes;
 
  /// LLVM values for each private variable, or null if that private variable is
  /// not included in the task context structure
  SmallVector<llvm::Value *> llvmPrivateVarGEPs;
 
  /// A pointer to the structure containing context for this task.
  llvm::Value *structPtr = nullptr;
  /// The type of the structure
  llvm::Type *structTy = nullptr;
};
 
/// IteratorInfo extracts and prepares loop bounds information from an
/// mlir::omp::IteratorOp for lowering to LLVM IR.
///
/// It computes the per-dimension trip counts and the total linearized trip
/// count as i64. Bounds and steps keep their declared type so that the
/// physical induction variables can be reconstructed in that type inside the
/// loop body.
class IteratorInfo {
private:
  llvm::SmallVector<llvm::Value *> lowerBounds;
  llvm::SmallVector<llvm::Value *> upperBounds;
  llvm::SmallVector<llvm::Value *> steps;
  llvm::SmallVector<llvm::Value *> trips;
  unsigned dims;
  llvm::Value *totalTrips;
 
public:
  IteratorInfo(mlir::omp::IteratorOp itersOp,
               mlir::LLVM::ModuleTranslation &moduleTranslation,
               llvm::IRBuilderBase &builder) {
    dims = itersOp.getLoopLowerBounds().size();
    lowerBounds.resize(dims);
    upperBounds.resize(dims);
    steps.resize(dims);
    trips.resize(dims);
 
    for (unsigned d = 0; d < dims; ++d) {
      llvm::Value *lb =
          moduleTranslation.lookupValue(itersOp.getLoopLowerBounds()[d]);
      llvm::Value *ub =
          moduleTranslation.lookupValue(itersOp.getLoopUpperBounds()[d]);
      llvm::Value *st =
          moduleTranslation.lookupValue(itersOp.getLoopSteps()[d]);
      assert(lb && ub && st &&
             "Expect lowerBounds, upperBounds, and steps in IteratorOp");
      assert(lb->getType() == ub->getType() && lb->getType() == st->getType() &&
             "Expect matching iterator range types");
      assert((!llvm::isa<llvm::ConstantInt>(st) ||
              !llvm::cast<llvm::ConstantInt>(st)->isZero()) &&
             "Expect non-zero step in IteratorOp");
 
      lowerBounds[d] = lb;
      upperBounds[d] = ub;
      steps[d] = st;
 
      // Use a direction-aware count so an empty range contributes no entries.
      // Widen by one bit so the span between the bounds cannot overflow.
      llvm::Type *countTy =
          builder.getIntNTy(lb->getType()->getIntegerBitWidth() + 1);
      llvm::Value *start = builder.CreateSExt(lb, countTy);
      llvm::Value *stop = builder.CreateSExt(ub, countTy);
      llvm::Value *step = builder.CreateSExt(st, countTy);
      llvm::Value *count =
          getOpenMPBuilder(moduleTranslation)
              ->calculateCanonicalLoopTripCount(
                  builder, start, stop, step,
                  /*IsSigned=*/true, itersOp.getLoopInclusive(), "iterator");
      trips[d] = builder.CreateZExtOrTrunc(count, builder.getInt64Ty());
    }
 
    totalTrips = llvm::ConstantInt::get(builder.getInt64Ty(), 1);
    for (unsigned d = 0; d < dims; ++d)
      totalTrips = builder.CreateMul(totalTrips, trips[d]);
  }
 
  unsigned getDims() const { return dims; }
  llvm::ArrayRef<llvm::Value *> getLowerBounds() const { return lowerBounds; }
  llvm::ArrayRef<llvm::Value *> getUpperBounds() const { return upperBounds; }
  llvm::ArrayRef<llvm::Value *> getSteps() const { return steps; }
  llvm::ArrayRef<llvm::Value *> getTrips() const { return trips; }
  llvm::Value *getTotalTrips() const { return totalTrips; }
};
} // namespace
 
void TaskContextStructManager::generateTaskContextStruct() {
  if (privateDecls.empty())
    return;
  privateVarTypes.reserve(privateDecls.size());
 
  for (omp::PrivateClauseOp &privOp : privateDecls) {
    // Skip private variables which can safely be allocated and initialised
    // inside of the task
    if (!privOp.readsFromMold())
      continue;
    Type mlirType = privOp.getType();
    privateVarTypes.push_back(moduleTranslation.convertType(mlirType));
  }
 
  if (privateVarTypes.empty())
    return;
 
  structTy = llvm::StructType::get(moduleTranslation.getLLVMContext(),
                                   privateVarTypes);
 
  llvm::DataLayout dataLayout = builder.getDataLayout();
  llvm::Type *intPtrTy = builder.getIntPtrTy(dataLayout);
  llvm::Value *allocSize =
      builder.CreateTypeSize(intPtrTy, dataLayout.getTypeAllocSize(structTy));
 
  // Heap allocate the structure
  structPtr = builder.CreateMalloc(intPtrTy, allocSize,
                                   /*ArraySize=*/nullptr, /*MallocF=*/nullptr,
                                   "omp.task.context_ptr");
}
 
SmallVector<llvm::Value *> TaskContextStructManager::createGEPsToPrivateVars(
    llvm::Value *altStructPtr) const {
  SmallVector<llvm::Value *> ret;
 
  // Create GEPs for each struct member
  ret.reserve(privateDecls.size());
  llvm::Value *zero = builder.getInt32(0);
  unsigned i = 0;
  for (auto privDecl : privateDecls) {
    if (!privDecl.readsFromMold()) {
      // Handle this inside of the task so we don't pass unnessecary vars in
      ret.push_back(nullptr);
      continue;
    }
    llvm::Value *iVal = builder.getInt32(i);
    llvm::Value *gep = builder.CreateGEP(structTy, altStructPtr, {zero, iVal});
    ret.push_back(gep);
    i += 1;
  }
  return ret;
}
 
void TaskContextStructManager::createGEPsToPrivateVars() {
  if (!structPtr)
    assert(privateVarTypes.empty());
  // Still need to run createGEPsToPrivateVars to populate llvmPrivateVarGEPs
  // with null values for skipped private decls
 
  llvmPrivateVarGEPs = createGEPsToPrivateVars(structPtr);
}
 
void TaskContextStructManager::freeStructPtr() {
  if (!structPtr)
    return;
 
  llvm::IRBuilderBase::InsertPointGuard guard{builder};
  // Ensure we don't put the call to free() after the terminator
  builder.SetInsertPoint(builder.GetInsertBlock()->getTerminator());
  builder.CreateFree(structPtr);
}
 
static void storeAffinityEntry(llvm::IRBuilderBase &builder,
                               llvm::OpenMPIRBuilder &ompBuilder,
                               llvm::Value *affinityList, llvm::Value *index,
                               llvm::Value *addr, llvm::Value *len) {
  llvm::StructType *kmpTaskAffinityInfoTy =
      ompBuilder.getKmpTaskAffinityInfoTy();
  llvm::Value *entry = builder.CreateInBoundsGEP(
      kmpTaskAffinityInfoTy, affinityList, index, "omp.affinity.entry");
 
  addr = builder.CreatePtrToInt(addr, kmpTaskAffinityInfoTy->getElementType(0));
  len = builder.CreateIntCast(len, kmpTaskAffinityInfoTy->getElementType(1),
                              /*isSigned=*/false);
  llvm::Value *flags = builder.getInt32(0);
 
  builder.CreateStore(addr,
                      builder.CreateStructGEP(kmpTaskAffinityInfoTy, entry, 0));
  builder.CreateStore(len,
                      builder.CreateStructGEP(kmpTaskAffinityInfoTy, entry, 1));
  builder.CreateStore(flags,
                      builder.CreateStructGEP(kmpTaskAffinityInfoTy, entry, 2));
}
 
static void fillAffinityLocators(Operation::operand_range affinityVars,
                                 llvm::IRBuilderBase &builder,
                                 LLVM::ModuleTranslation &moduleTranslation,
                                 llvm::Value *affinityList) {
  for (auto [i, affinityVar] : llvm::enumerate(affinityVars)) {
    auto entryOp = affinityVar.getDefiningOp<mlir::omp::AffinityEntryOp>();
    assert(entryOp && "affinity item must be omp.affinity_entry");
 
    llvm::Value *addr = moduleTranslation.lookupValue(entryOp.getAddr());
    llvm::Value *len = moduleTranslation.lookupValue(entryOp.getLen());
    assert(addr && len && "expect affinity addr and len to be non-null");
    storeAffinityEntry(builder, *getOpenMPBuilder(moduleTranslation),
                       affinityList, builder.getInt64(i), addr, len);
  }
}
 
static mlir::LogicalResult convertIteratorRegion(
    llvm::Value *linearIV, IteratorInfo &iterInfo, mlir::Region &iteratorRegion,
    llvm::IRBuilderBase &builder, LLVM::ModuleTranslation &moduleTranslation) {
  mlir::Block &entryBlock = iteratorRegion.front();
  llvm::Value *tmp = linearIV;
  for (int d = (int)iterInfo.getDims() - 1; d >= 0; --d) {
    llvm::Value *trip = iterInfo.getTrips()[d];
    llvm::Value *zero = llvm::ConstantInt::get(trip->getType(), 0);
    llvm::Value *one = llvm::ConstantInt::get(trip->getType(), 1);
    // A zero trip count makes the linearized loop empty. Use one in its
    // unreachable IV decoder so the generated IR contains no division by zero.
    llvm::Value *divisor =
        builder.CreateSelect(builder.CreateICmpEQ(trip, zero), one, trip);
    // idx_d = tmp % divisor_d
    llvm::Value *idx = builder.CreateURem(tmp, divisor);
    // tmp = tmp / divisor_d
    tmp = builder.CreateUDiv(tmp, divisor);
 
    // physIV_d = lb_d + idx_d * step_d
    idx =
        builder.CreateZExtOrTrunc(idx, iterInfo.getLowerBounds()[d]->getType());
    llvm::Value *physIV = builder.CreateAdd(
        iterInfo.getLowerBounds()[d],
        builder.CreateMul(idx, iterInfo.getSteps()[d]), "omp.it.phys_iv");
 
    moduleTranslation.mapValue(entryBlock.getArgument(d), physIV);
  }
 
  // Translate the iterator region into the loop body.
  if (iteratorRegion.hasOneBlock()) {
    moduleTranslation.mapBlock(&entryBlock, builder.GetInsertBlock());
    return moduleTranslation.convertBlock(entryBlock, /*ignoreArguments=*/true,
                                          builder);
  }
 
  // Unlike convertOmpOpRegions, do not forward the yielded value through a PHI:
  // it may have no LLVM type (e.g. `!omp.affinity_entry_ty`). The unique
  // `omp.yield` block is the continuation's only predecessor, so callers can
  // look up the yielded value directly.
  llvm::BasicBlock *continuation =
      splitBB(builder, true, "omp.iterator.region.cont");
  llvm::Instruction *sourceBranch = builder.GetInsertBlock()->getTerminator();
  for (mlir::Block &block : iteratorRegion)
    moduleTranslation.mapBlock(
        &block,
        llvm::BasicBlock::Create(builder.getContext(), "omp.iterator.region",
                                 continuation->getParent(), continuation));
  sourceBranch->setSuccessor(0, moduleTranslation.lookupBlock(&entryBlock));
 
  for (mlir::Block *block : getBlocksSortedByDominance(iteratorRegion)) {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    if (failed(moduleTranslation.convertBlock(*block, block->isEntryBlock(),
                                              builder)))
      return mlir::failure();
    if (isa<omp::YieldOp>(block->getTerminator()))
      builder.CreateBr(continuation);
  }
  LLVM::detail::connectPHINodes(iteratorRegion, moduleTranslation);
 
  builder.SetInsertPoint(continuation);
  return mlir::success();
}
 
using IteratorStoreEntryTy =
    llvm::function_ref<void(llvm::Value *linearIV, mlir::omp::YieldOp yield)>;
 
static mlir::LogicalResult
fillIteratorLoop(mlir::omp::IteratorOp itersOp, llvm::IRBuilderBase &builder,
                 mlir::LLVM::ModuleTranslation &moduleTranslation,
                 IteratorInfo &iterInfo, llvm::StringRef loopName,
                 IteratorStoreEntryTy genStoreEntry) {
  mlir::Region &itersRegion = itersOp.getRegion();
 
  llvm::OpenMPIRBuilder::LocationDescription loc(builder);
 
  auto bodyGen = [&](llvm::OpenMPIRBuilder::InsertPointTy bodyIP,
                     llvm::Value *linearIV) -> llvm::Error {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    builder.restoreIP(bodyIP);
 
    if (failed(convertIteratorRegion(linearIV, iterInfo, itersRegion, builder,
                                     moduleTranslation))) {
      return llvm::make_error<llvm::StringError>(
          "failed to convert iterator region", llvm::inconvertibleErrorCode());
    }
 
    mlir::omp::YieldOp yield = itersOp.getYieldOp();
    assert(yield && yield.getResults().size() == 1 &&
           "expect omp.yield in iterator region to have one result");
 
    genStoreEntry(linearIV, yield);
 
    // Iterator-region block/value mappings are temporary for this conversion,
    // clear them to avoid stale entries in ModuleTranslation.
    moduleTranslation.forgetMapping(itersRegion);
 
    return llvm::Error::success();
  };
 
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createIteratorLoop(loc, iterInfo.getTotalTrips(), bodyGen,
                               loopName);
  if (failed(handleError(afterIP, *itersOp)))
    return failure();
 
  builder.restoreIP(*afterIP);
 
  return mlir::success();
}
 
static mlir::LogicalResult
buildAffinityData(mlir::omp::TaskOp &taskOp, llvm::IRBuilderBase &builder,
                  mlir::LLVM::ModuleTranslation &moduleTranslation,
                  llvm::OpenMPIRBuilder::AffinityData &ad) {
 
  if (taskOp.getAffinityVars().empty() && taskOp.getIterated().empty()) {
    ad.Count = nullptr;
    ad.Info = nullptr;
    return mlir::success();
  }
 
  llvm::SmallVector<llvm::OpenMPIRBuilder::AffinityData> ads;
  llvm::StructType *kmpTaskAffinityInfoTy =
      getOpenMPBuilder(moduleTranslation)->getKmpTaskAffinityInfoTy();
 
  auto allocateAffinityList = [&](llvm::Value *count) -> llvm::Value * {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    if (llvm::isa<llvm::Constant>(count) || llvm::isa<llvm::Argument>(count))
      builder.restoreIP(findAllocInsertPoints(builder, moduleTranslation));
    return builder.CreateAlloca(kmpTaskAffinityInfoTy, count,
                                "omp.affinity_list");
  };
 
  auto createAffinity =
      [&](llvm::Value *count,
          llvm::Value *info) -> llvm::OpenMPIRBuilder::AffinityData {
    llvm::OpenMPIRBuilder::AffinityData ad{};
    ad.Count = builder.CreateTrunc(count, builder.getInt32Ty());
    ad.Info =
        builder.CreatePointerBitCastOrAddrSpaceCast(info, builder.getPtrTy(0));
    return ad;
  };
 
  if (!taskOp.getAffinityVars().empty()) {
    llvm::Value *count = llvm::ConstantInt::get(
        builder.getInt64Ty(), taskOp.getAffinityVars().size());
    llvm::Value *list = allocateAffinityList(count);
    fillAffinityLocators(taskOp.getAffinityVars(), builder, moduleTranslation,
                         list);
    ads.emplace_back(createAffinity(count, list));
  }
 
  if (!taskOp.getIterated().empty()) {
    for (auto [i, iter] : llvm::enumerate(taskOp.getIterated())) {
      auto itersOp = iter.getDefiningOp<omp::IteratorOp>();
      assert(itersOp && "iterated value must be defined by omp.iterator");
      IteratorInfo iterInfo(itersOp, moduleTranslation, builder);
      llvm::Value *affList = allocateAffinityList(iterInfo.getTotalTrips());
      if (failed(fillIteratorLoop(
              itersOp, builder, moduleTranslation, iterInfo, "iterator",
              [&](llvm::Value *linearIV, mlir::omp::YieldOp yield) {
                auto entryOp = yield.getResults()[0]
                                   .getDefiningOp<mlir::omp::AffinityEntryOp>();
                assert(entryOp && "expect yield produce an affinity entry");
                llvm::Value *addr =
                    moduleTranslation.lookupValue(entryOp.getAddr());
                llvm::Value *len =
                    moduleTranslation.lookupValue(entryOp.getLen());
                storeAffinityEntry(builder,
                                   *getOpenMPBuilder(moduleTranslation),
                                   affList, linearIV, addr, len);
              })))
        return llvm::failure();
      ads.emplace_back(createAffinity(iterInfo.getTotalTrips(), affList));
    }
  }
 
  llvm::Value *totalAffinityCount = builder.getInt32(0);
  for (const auto &affinity : ads)
    totalAffinityCount = builder.CreateAdd(
        totalAffinityCount,
        builder.CreateIntCast(affinity.Count, builder.getInt32Ty(),
                              /*isSigned=*/false));
 
  llvm::Value *affinityInfo = ads.front().Info;
  if (ads.size() > 1) {
    llvm::StructType *kmpTaskAffinityInfoTy =
        getOpenMPBuilder(moduleTranslation)->getKmpTaskAffinityInfoTy();
    llvm::Value *affinityInfoElemSize = builder.getInt64(
        moduleTranslation.getLLVMModule()->getDataLayout().getTypeAllocSize(
            kmpTaskAffinityInfoTy));
 
    llvm::Value *packedAffinityInfo = allocateAffinityList(totalAffinityCount);
    llvm::Value *packedAffinityInfoOffset = builder.getInt32(0);
    for (const auto &affinity : ads) {
      llvm::Value *affinityCount = builder.CreateIntCast(
          affinity.Count, builder.getInt32Ty(), /*isSigned=*/false);
      llvm::Value *affinityCountInt64 = builder.CreateIntCast(
          affinityCount, builder.getInt64Ty(), /*isSigned=*/false);
      llvm::Value *affinityInfoSize =
          builder.CreateMul(affinityCountInt64, affinityInfoElemSize);
 
      llvm::Value *packedAffinityInfoIndex = builder.CreateIntCast(
          packedAffinityInfoOffset, kmpTaskAffinityInfoTy->getElementType(0),
          /*isSigned=*/false);
      packedAffinityInfoIndex = builder.CreateInBoundsGEP(
          kmpTaskAffinityInfoTy, packedAffinityInfo, packedAffinityInfoIndex);
 
      builder.CreateMemCpy(
          packedAffinityInfoIndex, llvm::Align(1),
          builder.CreatePointerBitCastOrAddrSpaceCast(
              affinity.Info, builder.getPtrTy(packedAffinityInfoIndex->getType()
                                                  ->getPointerAddressSpace())),
          llvm::Align(1), affinityInfoSize);
 
      packedAffinityInfoOffset =
          builder.CreateAdd(packedAffinityInfoOffset, affinityCount);
    }
 
    affinityInfo = packedAffinityInfo;
  }
 
  ad.Count = totalAffinityCount;
  ad.Info = affinityInfo;
 
  return mlir::success();
}
 
// Allocates a single kmp_dep_info array sized to hold both locator
// (non-iterated) and iterated entries, fills the locator entries first, then
// runs an iterator loop for each iterator modifier object.
static mlir::LogicalResult
buildDependData(OperandRange dependVars, std::optional<ArrayAttr> dependKinds,
                OperandRange dependIterated,
                std::optional<ArrayAttr> dependIteratedKinds,
                llvm::IRBuilderBase &builder,
                mlir::LLVM::ModuleTranslation &moduleTranslation,
                llvm::OpenMPIRBuilder::DependenciesInfo &taskDeps) {
  if (dependIterated.empty()) {
    buildDependDataLocator(dependKinds, dependVars, moduleTranslation,
                           taskDeps.Deps);
    return mlir::success();
  }
 
  llvm::OpenMPIRBuilder &ompBuilder = *getOpenMPBuilder(moduleTranslation);
  llvm::Type *dependInfoTy = ompBuilder.DependInfo;
  unsigned numLocator = dependVars.size();
 
  // Compute total count: locator deps + sum of iterator trip counts.
  llvm::Value *totalCount =
      llvm::ConstantInt::get(builder.getInt64Ty(), numLocator);
 
  llvm::SmallVector<IteratorInfo, 2> iterInfos;
  for (auto iter : dependIterated) {
    auto itersOp = iter.getDefiningOp<mlir::omp::IteratorOp>();
    assert(itersOp && "depend_iterated value must be defined by omp.iterator");
    iterInfos.emplace_back(itersOp, moduleTranslation, builder);
    totalCount =
        builder.CreateAdd(totalCount, iterInfos.back().getTotalTrips());
  }
 
  // Heap-allocate the kmp_depend_info array so we don't risk
  // dynamic-sized alloca outside the entry block (e.g. inside loops).
  llvm::DataLayout dataLayout = builder.getDataLayout();
  llvm::Value *allocSize = builder.CreateTypeSize(
      ompBuilder.SizeTy, dataLayout.getTypeAllocSize(dependInfoTy));
  llvm::Value *depArray =
      builder.CreateMalloc(ompBuilder.SizeTy, allocSize, totalCount,
                           /*MallocF=*/nullptr, ".dep.arr.addr");
 
  // Fill non-iterated entries at indices [0, numLocator).
  if (numLocator > 0) {
    SmallVector<llvm::OpenMPIRBuilder::DependData> dds;
    buildDependDataLocator(dependKinds, dependVars, moduleTranslation, dds);
    for (auto [i, dd] : llvm::enumerate(dds)) {
      llvm::Value *idx = llvm::ConstantInt::get(builder.getInt64Ty(), i);
      llvm::Value *entry =
          builder.CreateInBoundsGEP(dependInfoTy, depArray, idx);
      ompBuilder.emitTaskDependency(builder, entry, dd);
    }
  }
 
  // Fill iterated entries starting at index numLocator.
  llvm::Value *offset =
      llvm::ConstantInt::get(builder.getInt64Ty(), numLocator);
  for (auto [i, iterInfo] : llvm::enumerate(iterInfos)) {
    auto kindAttr = cast<mlir::omp::ClauseTaskDependAttr>(
        dependIteratedKinds->getValue()[i]);
    llvm::omp::RTLDependenceKindTy rtlKind =
        convertDependKind(kindAttr.getValue());
 
    auto itersOp = dependIterated[i].getDefiningOp<mlir::omp::IteratorOp>();
    if (failed(fillIteratorLoop(
            itersOp, builder, moduleTranslation, iterInfo, "dep_iterator",
            [&](llvm::Value *linearIV, mlir::omp::YieldOp yield) {
              llvm::Value *addr =
                  moduleTranslation.lookupValue(yield.getResults()[0]);
              llvm::Value *idx = builder.CreateAdd(offset, linearIV);
              llvm::Value *entry =
                  builder.CreateInBoundsGEP(dependInfoTy, depArray, idx);
              ompBuilder.emitTaskDependency(
                  builder, entry,
                  llvm::OpenMPIRBuilder::DependData{rtlKind, addr->getType(),
                                                    addr});
            })))
      return mlir::failure();
 
    // Advance offset by the trip count of this iterator.
    offset = builder.CreateAdd(offset, iterInfo.getTotalTrips());
  }
 
  taskDeps.DepArray = depArray;
  taskDeps.NumDeps = builder.CreateTrunc(totalCount, builder.getInt32Ty());
  return mlir::success();
}
 
/// Converts an OpenMP task construct into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpTaskOp(omp::TaskOp taskOp, llvm::IRBuilderBase &builder,
                 LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  if (failed(checkImplementationStatus(*taskOp)))
    return failure();
 
  PrivateVarsInfo privateVarsInfo(taskOp);
  TaskContextStructManager taskStructMgr{builder, moduleTranslation,
                                         privateVarsInfo.privatizers};
 
  // Allocate and copy private variables before creating the task. This avoids
  // accessing invalid memory if (after this scope ends) the private variables
  // are initialized from host variables or if the variables are copied into
  // from host variables (firstprivate). The insertion point is just before
  // where the code for creating and scheduling the task will go. That puts this
  // code outside of the outlined task region, which is what we want because
  // this way the initialization and copy regions are executed immediately while
  // the host variable data are still live.
  llvm::SmallVector<llvm::BasicBlock *> deallocBlocks;
  InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation, &deallocBlocks);
 
  // Not using splitBB() because that requires the current block to have a
  // terminator.
  assert(builder.GetInsertPoint() == builder.GetInsertBlock()->end());
  llvm::BasicBlock *taskStartBlock = llvm::BasicBlock::Create(
      builder.getContext(), "omp.task.start",
      /*Parent=*/builder.GetInsertBlock()->getParent());
  llvm::Instruction *branchToTaskStartBlock = builder.CreateBr(taskStartBlock);
  builder.SetInsertPoint(branchToTaskStartBlock);
 
  // Now do this again to make the initialization and copy blocks
  llvm::BasicBlock *copyBlock =
      splitBB(builder, /*CreateBranch=*/true, "omp.private.copy");
  llvm::BasicBlock *initBlock =
      splitBB(builder, /*CreateBranch=*/true, "omp.private.init");
 
  // Now the control flow graph should look like
  // starter_block:
  //   <---- where we started when convertOmpTaskOp was called
  //   br %omp.private.init
  // omp.private.init:
  //   br %omp.private.copy
  // omp.private.copy:
  //   br %omp.task.start
  // omp.task.start:
  //   <---- where we want the insertion point to be when we call createTask()
 
  // Save the alloca insertion point on ModuleTranslation stack for use in
  // nested regions.
  LLVM::ModuleTranslation::SaveStack<OpenMPAllocStackFrame> frame(
      moduleTranslation, allocaIP.getNodeParent(), deallocBlocks);
 
  // Allocate and initialize private variables
  builder.SetInsertPoint(initBlock->getTerminator());
 
  // Create task variable structure
  taskStructMgr.generateTaskContextStruct();
  // GEPs so that we can initialize the variables. Don't use these GEPs inside
  // of the body otherwise it will be the GEP not the struct which is fowarded
  // to the outlined function. GEPs forwarded in this way are passed in a
  // stack-allocated (by OpenMPIRBuilder) structure which is not safe for tasks
  // which may not be executed until after the current stack frame goes out of
  // scope.
  taskStructMgr.createGEPsToPrivateVars();
 
  for (auto [privDecl, mlirPrivVar, blockArg, llvmPrivateVarAlloc] :
       llvm::zip_equal(privateVarsInfo.privatizers, privateVarsInfo.mlirVars,
                       privateVarsInfo.blockArgs,
                       taskStructMgr.getLLVMPrivateVarGEPs())) {
    // To be handled inside the task.
    if (!privDecl.readsFromMold())
      continue;
    assert(llvmPrivateVarAlloc &&
           "reads from mold so shouldn't have been skipped");
 
    llvm::Expected<llvm::Value *> privateVarOrErr =
        initPrivateVar(builder, moduleTranslation, privDecl, mlirPrivVar,
                       blockArg, llvmPrivateVarAlloc, initBlock);
    if (!privateVarOrErr)
      return handleError(privateVarOrErr, *taskOp.getOperation());
 
    setInsertPointForPossiblyEmptyBlock(builder);
 
    // TODO: this is a bit of a hack for Fortran character boxes.
    // Character boxes are passed by value into the init region and then the
    // initialized character box is yielded by value. Here we need to store the
    // yielded value into the private allocation, and load the private
    // allocation to match the type expected by region block arguments.
    [[maybe_unused]] llvm::Value *llvmPrivateVar = llvmPrivateVarAlloc;
    if ((privateVarOrErr.get() != llvmPrivateVarAlloc) &&
        !mlir::isa<LLVM::LLVMPointerType>(blockArg.getType())) {
      builder.CreateStore(privateVarOrErr.get(), llvmPrivateVarAlloc);
      // Load it so we have the value pointed to by the GEP
      llvmPrivateVar = builder.CreateLoad(privateVarOrErr.get()->getType(),
                                          llvmPrivateVarAlloc);
    }
    assert(llvmPrivateVar->getType() ==
           moduleTranslation.convertType(blockArg.getType()));
 
    // Mapping blockArg -> llvmPrivateVarAlloc is done inside the body callback
    // so that OpenMPIRBuilder doesn't try to pass each GEP address through a
    // stack allocated structure.
  }
 
  // firstprivate copy region
  setInsertPointForPossiblyEmptyBlock(builder, copyBlock);
  if (failed(completePrivateVars(
          taskOp, builder, moduleTranslation, privateVarsInfo.mlirVars,
          taskStructMgr.getLLVMPrivateVarGEPs(), privateVarsInfo.privatizers,
          taskOp.getPrivateNeedsBarrier())))
    return llvm::failure();
 
  llvm::OpenMPIRBuilder::AffinityData ad;
  if (failed(buildAffinityData(taskOp, builder, moduleTranslation, ad)))
    return llvm::failure();
 
  // Resolve and validate in_reduction declarations. Byref in_reduction has
  // already been rejected by checkImplementationStatus; the helper rejects the
  // remaining richer declare_reduction shapes (two-argument initializer,
  // cleanup region, missing combiner). This is pure MLIR symbol-table work and
  // emits no IR. The matching task_reduction descriptor is registered by an
  // enclosing taskgroup; here we only look the per-task storage up at runtime.
  SmallVector<omp::DeclareReductionOp> inRedDecls;
  if (failed(collectAndValidateTaskloopRedDecls(
          taskOp.getOperation(), taskOp.getInReductionSyms(), "omp.task",
          "in_reduction", inRedDecls)))
    return failure();
  SmallVector<llvm::Value *> inRedOrigPtrs;
  inRedOrigPtrs.reserve(inRedDecls.size());
  for (Value v : taskOp.getInReductionVars())
    inRedOrigPtrs.push_back(moduleTranslation.lookupValue(v));
 
  // Set up for call to createTask()
  builder.SetInsertPoint(taskStartBlock);
 
  auto bodyCB =
      [&](InsertPointTy allocaIP, InsertPointTy codegenIP,
          llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) -> llvm::Error {
    // Save the alloca insertion point on ModuleTranslation stack for use in
    // nested regions.
    LLVM::ModuleTranslation::SaveStack<OpenMPAllocStackFrame> frame(
        moduleTranslation, allocaIP.getNodeParent(), deallocBlocks);
 
    // translate the body of the task:
    builder.restoreIP(codegenIP);
 
    llvm::BasicBlock *privInitBlock = nullptr;
    privateVarsInfo.llvmVars.resize(privateVarsInfo.blockArgs.size());
    for (auto [i, zip] : llvm::enumerate(llvm::zip_equal(
             privateVarsInfo.blockArgs, privateVarsInfo.privatizers,
             privateVarsInfo.mlirVars))) {
      auto [blockArg, privDecl, mlirPrivVar] = zip;
      // This is handled before the task executes
      if (privDecl.readsFromMold())
        continue;
 
      llvm::IRBuilderBase::InsertPointGuard guard(builder);
      llvm::Type *llvmAllocType =
          moduleTranslation.convertType(privDecl.getType());
      builder.SetInsertPoint(allocaIP.getNodeParent()->getTerminator());
      llvm::Value *llvmPrivateVar = builder.CreateAlloca(
          llvmAllocType, /*ArraySize=*/nullptr, "omp.private.alloc");
 
      llvm::Expected<llvm::Value *> privateVarOrError =
          initPrivateVar(builder, moduleTranslation, privDecl, mlirPrivVar,
                         blockArg, llvmPrivateVar, privInitBlock);
      if (!privateVarOrError)
        return privateVarOrError.takeError();
      moduleTranslation.mapValue(blockArg, privateVarOrError.get());
      privateVarsInfo.llvmVars[i] = privateVarOrError.get();
    }
 
    taskStructMgr.createGEPsToPrivateVars();
    for (auto [i, llvmPrivVar] :
         llvm::enumerate(taskStructMgr.getLLVMPrivateVarGEPs())) {
      if (!llvmPrivVar) {
        assert(privateVarsInfo.llvmVars[i] &&
               "This is added in the loop above");
        continue;
      }
      privateVarsInfo.llvmVars[i] = llvmPrivVar;
    }
 
    // Find and map the addresses of each variable within the task context
    // structure
    for (auto [blockArg, llvmPrivateVar, privateDecl] :
         llvm::zip_equal(privateVarsInfo.blockArgs, privateVarsInfo.llvmVars,
                         privateVarsInfo.privatizers)) {
      // This was handled above.
      if (!privateDecl.readsFromMold())
        continue;
      // Fix broken pass-by-value case for Fortran character boxes
      if (!mlir::isa<LLVM::LLVMPointerType>(blockArg.getType())) {
        llvmPrivateVar = builder.CreateLoad(
            moduleTranslation.convertType(blockArg.getType()), llvmPrivateVar);
      }
      assert(llvmPrivateVar->getType() ==
             moduleTranslation.convertType(blockArg.getType()));
      moduleTranslation.mapValue(blockArg, llvmPrivateVar);
    }
 
    // Map in_reduction block arguments to the per-task private storage returned
    // by __kmpc_task_reduction_get_th_data. This call must be emitted inside
    // the to-be-outlined task body so that it returns the *executing* thread's
    // gtid (not the encountering thread's). The descriptor is NULL: the runtime
    // walks up enclosing taskgroups to find the matching task_reduction
    // registration for `origPtr`. The original pointers are auto-captured into
    // the task shareds aggregate by CodeExtractor during
    // OpenMPIRBuilder::finalize.
    if (!inRedDecls.empty()) {
      auto iface = cast<omp::BlockArgOpenMPOpInterface>(taskOp.getOperation());
      llvm::OpenMPIRBuilder &ompB = *getOpenMPBuilder(moduleTranslation);
      llvm::Module *m = moduleTranslation.getLLVMModule();
      llvm::LLVMContext &llvmCtx = m->getContext();
      llvm::OpenMPIRBuilder::LocationDescription bodyLoc(builder);
      uint32_t srcLocSize;
      llvm::Constant *srcLocStr =
          ompB.getOrCreateSrcLocStr(bodyLoc, srcLocSize);
      llvm::Value *bodyIdent = ompB.getOrCreateIdent(srcLocStr, srcLocSize);
      // Align OpenMPIRBuilder's internal IRBuilder with `builder` so the gtid
      // call lands inside the to-be-outlined task body.
      ompB.updateToLocation(bodyLoc);
      llvm::Value *bodyGtid = ompB.getOrCreateThreadID(bodyIdent);
      llvm::FunctionCallee getThData = ompB.getOrCreateRuntimeFunction(
          *m, llvm::omp::OMPRTL___kmpc_task_reduction_get_th_data);
      llvm::Type *ptrTy = llvm::PointerType::getUnqual(llvmCtx);
      llvm::Value *nullDesc = llvm::ConstantPointerNull::get(ptrTy);
      ArrayRef<BlockArgument> inRedBlockArgs = iface.getInReductionBlockArgs();
      for (auto [blockArg, origPtr] :
           llvm::zip_equal(inRedBlockArgs, inRedOrigPtrs)) {
        // __kmpc_task_reduction_get_th_data takes and returns a generic,
        // default-address-space `ptr`. Normalize a non-default-address-space
        // original pointer to the generic address space before the call, and
        // cast the returned private pointer back to the block argument's
        // address space when it differs (mirrors the taskloop reduction
        // remapping in convertOmpTaskloopContextOp).
        llvm::Value *lookupPtr = origPtr;
        if (auto *origPtrTy =
                llvm::dyn_cast<llvm::PointerType>(lookupPtr->getType());
            origPtrTy && origPtrTy->getAddressSpace() != 0)
          lookupPtr = builder.CreateAddrSpaceCast(lookupPtr, ptrTy);
        llvm::Value *priv = builder.CreateCall(
            getThData, {bodyGtid, nullDesc, lookupPtr}, "omp.inred.priv");
        if (auto *argPtrTy = llvm::dyn_cast<llvm::PointerType>(
                moduleTranslation.convertType(blockArg.getType()));
            argPtrTy && argPtrTy->getAddressSpace() != 0)
          priv = builder.CreateAddrSpaceCast(priv, argPtrTy);
        moduleTranslation.mapValue(blockArg, priv);
      }
    }
 
    auto continuationBlockOrError = convertOmpOpRegions(
        taskOp.getRegion(), "omp.task.region", builder, moduleTranslation);
    if (failed(handleError(continuationBlockOrError, *taskOp)))
      return llvm::make_error<PreviouslyReportedError>();
 
    builder.SetInsertPoint(continuationBlockOrError.get()->getTerminator());
 
    if (failed(cleanupPrivateVars(taskOp, builder, moduleTranslation,
                                  taskOp.getLoc(), privateVarsInfo)))
      return llvm::make_error<PreviouslyReportedError>();
 
    // Free heap allocated task context structure at the end of the task.
    taskStructMgr.freeStructPtr();
 
    return llvm::Error::success();
  };
 
  llvm::OpenMPIRBuilder &ompBuilder = *getOpenMPBuilder(moduleTranslation);
  SmallVector<llvm::UncondBrInst *> cancelTerminators;
  // The directive to match here is OMPD_taskgroup because it is the taskgroup
  // which is canceled. This is handled here because it is the task's cleanup
  // block which should be branched to.
  pushCancelFinalizationCB(cancelTerminators, builder, ompBuilder, taskOp,
                           llvm::omp::Directive::OMPD_taskgroup);
 
  llvm::OpenMPIRBuilder::DependenciesInfo dependencies;
  if (failed(buildDependData(taskOp.getDependVars(), taskOp.getDependKinds(),
                             taskOp.getDependIterated(),
                             taskOp.getDependIteratedKinds(), builder,
                             moduleTranslation, dependencies)))
    return failure();
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createTask(ompLoc, allocaIP, deallocBlocks, bodyCB,
                       !taskOp.getUntied(),
                       moduleTranslation.lookupValue(taskOp.getFinal()),
                       moduleTranslation.lookupValue(taskOp.getIfExpr()),
                       dependencies, ad, taskOp.getMergeable(),
                       moduleTranslation.lookupValue(taskOp.getEventHandle()),
                       moduleTranslation.lookupValue(taskOp.getPriority()),
                       taskOp.getThreadset() == omp::ThreadsetPolicy::omp_pool);
 
  if (failed(handleError(afterIP, *taskOp)))
    return failure();
 
  // Set the correct branch target for task cancellation
  popCancelFinalizationCB(cancelTerminators, ompBuilder,
                          afterIP->getNodeParent());
 
  builder.restoreIP(*afterIP);
 
  if (dependencies.DepArray)
    builder.CreateFree(dependencies.DepArray);
 
  return success();
}
 
/// The correct entry point is convertOmpTaskloopContextOp. This gets called
/// whilst lowering the body of the taskloop context (i.e. the task function).
static LogicalResult
convertOmpTaskloopWrapperOp(omp::TaskloopWrapperOp loopWrapperOp,
                            llvm::IRBuilderBase &builder,
                            LLVM::ModuleTranslation &moduleTranslation) {
  mlir::Operation &opInst = *loopWrapperOp.getOperation();
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  // Recurse into the loop body.
  auto continuationBlockOrError = convertOmpOpRegions(
      loopWrapperOp.getRegion(), "omp.taskloop.wrapper.region", builder,
      moduleTranslation);
 
  if (failed(handleError(continuationBlockOrError, opInst)))
    return failure();
 
  builder.SetInsertPoint(continuationBlockOrError.get());
  return success();
}
 
/// Look up the given value in the mapping, and if it's not there, translate its
/// defining operation at the current builder insertion point. Only pure,
/// regionless operations are supported because the same operation will later be
/// translated again when the taskloop body itself is lowered.
static llvm::Expected<llvm::Value *>
lookupOrTranslatePureValue(Value value,
                           LLVM::ModuleTranslation &moduleTranslation,
                           llvm::IRBuilderBase &builder) {
  if (llvm::Value *mapped = moduleTranslation.lookupValue(value))
    return mapped;
 
  Operation *defOp = value.getDefiningOp();
  if (!defOp)
    return llvm::make_error<llvm::StringError>(
        "value is a block argument and is not mapped",
        llvm::inconvertibleErrorCode());
  if (defOp->getNumRegions() != 0 || !isPure(defOp))
    return llvm::make_error<llvm::StringError>(
        "unsupported op defining taskloop loop bound",
        llvm::inconvertibleErrorCode());
 
  SmallVector<Value> mappingsToRemove;
  mappingsToRemove.reserve(defOp->getNumOperands() + defOp->getNumResults());
  for (Value operand : defOp->getOperands()) {
    if (moduleTranslation.lookupValue(operand))
      continue;
 
    llvm::Expected<llvm::Value *> operandOrError =
        lookupOrTranslatePureValue(operand, moduleTranslation, builder);
    if (!operandOrError)
      return operandOrError.takeError();
    moduleTranslation.mapValue(operand, *operandOrError);
    mappingsToRemove.push_back(operand);
  }
 
  if (failed(moduleTranslation.convertOperation(*defOp, builder)))
    return llvm::make_error<llvm::StringError>(
        "failed to convert op defining taskloop loop bound",
        llvm::inconvertibleErrorCode());
 
  llvm::Value *result = moduleTranslation.lookupValue(value);
  assert(result && "expected conversion of loop bound op to produce a value");
 
  for (Value resultValue : defOp->getResults()) {
    if (moduleTranslation.lookupValue(resultValue))
      mappingsToRemove.push_back(resultValue);
  }
  for (Value mappedValue : mappingsToRemove)
    moduleTranslation.forgetMapping(mappedValue);
 
  return result;
}
 
static llvm::Error
computeTaskloopBounds(omp::LoopNestOp loopOp, llvm::IRBuilderBase &builder,
                      LLVM::ModuleTranslation &moduleTranslation,
                      llvm::Value *&lbVal, llvm::Value *&ubVal,
                      llvm::Value *&stepVal) {
  Operation::operand_range lowerBounds = loopOp.getLoopLowerBounds();
  Operation::operand_range upperBounds = loopOp.getLoopUpperBounds();
  Operation::operand_range steps = loopOp.getLoopSteps();
 
  llvm::Expected<llvm::Value *> firstLbOrErr =
      lookupOrTranslatePureValue(lowerBounds[0], moduleTranslation, builder);
  if (!firstLbOrErr)
    return firstLbOrErr.takeError();
 
  llvm::Type *boundType = (*firstLbOrErr)->getType();
  ubVal = builder.getIntN(boundType->getIntegerBitWidth(), 1);
  if (loopOp.getCollapseNumLoops() > 1) {
    // In cases where Collapse is used with Taskloop, the upper bound of the
    // iteration space needs to be recalculated to cater for the collapsed loop.
    // The Collapsed Loop UpperBound is the product of all collapsed
    // loop's tripcount.
    // The LowerBound for collapsed loops is always 1. When the loops are
    // collapsed, it will reset the bounds and introduce processing to ensure
    // the index's are presented as expected. As this happens after creating
    // Taskloop, these bounds need predicting. Example:
    // !$omp taskloop collapse(2)
    //   do i = 1, 10
    //     do j = 1, 5
    //       ..
    //     end do
    //   end do
    // This loop above has a total of 50 iterations, so the lb will be 1, and
    // the ub will be 50. collapseLoops in OMPIRBuilder then handles ensuring
    // that i and j are properly presented when used in the loop.
    for (uint64_t i = 0; i < loopOp.getCollapseNumLoops(); i++) {
      llvm::Expected<llvm::Value *> lbOrErr =
          i == 0 ? std::move(firstLbOrErr)
                 : lookupOrTranslatePureValue(lowerBounds[i], moduleTranslation,
                                              builder);
      if (!lbOrErr)
        return lbOrErr.takeError();
      llvm::Expected<llvm::Value *> ubOrErr = lookupOrTranslatePureValue(
          upperBounds[i], moduleTranslation, builder);
      if (!ubOrErr)
        return ubOrErr.takeError();
      llvm::Expected<llvm::Value *> stepOrErr =
          lookupOrTranslatePureValue(steps[i], moduleTranslation, builder);
      if (!stepOrErr)
        return stepOrErr.takeError();
 
      llvm::Value *loopLb = *lbOrErr;
      llvm::Value *loopUb = *ubOrErr;
      llvm::Value *loopStep = *stepOrErr;
      // In some cases, such as where the ub is less than the lb so the loop
      // steps down, the calculation for the loopTripCount is swapped. To ensure
      // the correct value is found, calculate both UB - LB and LB - UB then
      // select which value to use depending on how the loop has been
      // configured.
      llvm::Value *loopLbMinusOne = builder.CreateSub(
          loopLb, builder.getIntN(boundType->getIntegerBitWidth(), 1));
      llvm::Value *loopUbMinusOne = builder.CreateSub(
          loopUb, builder.getIntN(boundType->getIntegerBitWidth(), 1));
      llvm::Value *boundsCmp = builder.CreateICmpSLT(loopLb, loopUb);
      llvm::Value *ubMinusLb = builder.CreateSub(loopUb, loopLbMinusOne);
      llvm::Value *lbMinusUb = builder.CreateSub(loopLb, loopUbMinusOne);
      llvm::Value *loopTripCount =
          builder.CreateSelect(boundsCmp, ubMinusLb, lbMinusUb);
      loopTripCount = builder.CreateBinaryIntrinsic(
          llvm::Intrinsic::abs, loopTripCount, builder.getFalse());
      // For loops that have a step value not equal to 1, we need to adjust the
      // trip count to ensure the correct number of iterations for the loop is
      // captured.
      llvm::Value *loopTripCountDivStep =
          builder.CreateSDiv(loopTripCount, loopStep);
      loopTripCountDivStep = builder.CreateBinaryIntrinsic(
          llvm::Intrinsic::abs, loopTripCountDivStep, builder.getFalse());
      llvm::Value *loopTripCountRem =
          builder.CreateSRem(loopTripCount, loopStep);
      loopTripCountRem = builder.CreateBinaryIntrinsic(
          llvm::Intrinsic::abs, loopTripCountRem, builder.getFalse());
      llvm::Value *needsRoundUp = builder.CreateICmpNE(
          loopTripCountRem,
          builder.getIntN(loopTripCountRem->getType()->getIntegerBitWidth(),
                          0));
      loopTripCount =
          builder.CreateAdd(loopTripCountDivStep,
                            builder.CreateZExtOrTrunc(
                                needsRoundUp, loopTripCountDivStep->getType()));
      ubVal = builder.CreateMul(ubVal, loopTripCount);
    }
    lbVal = builder.getIntN(boundType->getIntegerBitWidth(), 1);
    stepVal = builder.getIntN(boundType->getIntegerBitWidth(), 1);
  } else {
    llvm::Expected<llvm::Value *> ubOrErr =
        lookupOrTranslatePureValue(upperBounds[0], moduleTranslation, builder);
    if (!ubOrErr)
      return ubOrErr.takeError();
    llvm::Expected<llvm::Value *> stepOrErr =
        lookupOrTranslatePureValue(steps[0], moduleTranslation, builder);
    if (!stepOrErr)
      return stepOrErr.takeError();
    lbVal = *firstLbOrErr;
    ubVal = *ubOrErr;
    stepVal = *stepOrErr;
  }
 
  assert(lbVal != nullptr && "Expected value for lbVal");
  assert(ubVal != nullptr && "Expected value for ubVal");
  assert(stepVal != nullptr && "Expected value for stepVal");
  return llvm::Error::success();
}
 
// Converts an OpenMP taskloop construct into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpTaskloopContextOp(omp::TaskloopContextOp contextOp,
                            llvm::IRBuilderBase &builder,
                            LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  mlir::Operation &opInst = *contextOp.getOperation();
  omp::TaskloopWrapperOp loopWrapperOp = contextOp.getLoopOp();
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  // It stores the pointer of allocated firstprivate copies,
  // which can be used later for freeing the allocated space.
  SmallVector<llvm::Value *> llvmFirstPrivateVars;
  PrivateVarsInfo privateVarsInfo(contextOp);
  TaskContextStructManager taskStructMgr{builder, moduleTranslation,
                                         privateVarsInfo.privatizers};
 
  llvm::SmallVector<llvm::BasicBlock *> deallocBlocks;
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation, &deallocBlocks);
 
  assert(builder.GetInsertPoint() == builder.GetInsertBlock()->end());
  llvm::BasicBlock *taskloopStartBlock = llvm::BasicBlock::Create(
      builder.getContext(), "omp.taskloop.wrapper.start",
      /*Parent=*/builder.GetInsertBlock()->getParent());
  llvm::Instruction *branchToTaskloopStartBlock =
      builder.CreateBr(taskloopStartBlock);
  builder.SetInsertPoint(branchToTaskloopStartBlock);
 
  llvm::BasicBlock *copyBlock =
      splitBB(builder, /*CreateBranch=*/true, "omp.private.copy");
  llvm::BasicBlock *initBlock =
      splitBB(builder, /*CreateBranch=*/true, "omp.private.init");
 
  LLVM::ModuleTranslation::SaveStack<OpenMPAllocStackFrame> frame(
      moduleTranslation, allocaIP.getNodeParent(), deallocBlocks);
 
  // Allocate and initialize private variables
  builder.SetInsertPoint(initBlock->getTerminator());
 
  // TODO: don't allocate if the loop has zero iterations.
  taskStructMgr.generateTaskContextStruct();
  taskStructMgr.createGEPsToPrivateVars();
 
  llvmFirstPrivateVars.resize(privateVarsInfo.blockArgs.size());
 
  for (auto [i, zip] : llvm::enumerate(llvm::zip_equal(
           privateVarsInfo.privatizers, privateVarsInfo.mlirVars,
           privateVarsInfo.blockArgs, taskStructMgr.getLLVMPrivateVarGEPs()))) {
    auto [privDecl, mlirPrivVar, blockArg, llvmPrivateVarAlloc] = zip;
    // To be handled inside the taskloop.
    if (!privDecl.readsFromMold())
      continue;
    assert(llvmPrivateVarAlloc &&
           "reads from mold so shouldn't have been skipped");
 
    llvm::Expected<llvm::Value *> privateVarOrErr =
        initPrivateVar(builder, moduleTranslation, privDecl, mlirPrivVar,
                       blockArg, llvmPrivateVarAlloc, initBlock);
    if (!privateVarOrErr)
      return handleError(privateVarOrErr, *contextOp.getOperation());
 
    llvmFirstPrivateVars[i] = privateVarOrErr.get();
 
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    builder.SetInsertPoint(builder.GetInsertBlock()->getTerminator());
 
    [[maybe_unused]] llvm::Value *llvmPrivateVar = llvmPrivateVarAlloc;
    if ((privateVarOrErr.get() != llvmPrivateVarAlloc) &&
        !mlir::isa<LLVM::LLVMPointerType>(blockArg.getType())) {
      builder.CreateStore(privateVarOrErr.get(), llvmPrivateVarAlloc);
      // Load it so we have the value pointed to by the GEP
      llvmPrivateVar = builder.CreateLoad(privateVarOrErr.get()->getType(),
                                          llvmPrivateVarAlloc);
    }
    assert(llvmPrivateVar->getType() ==
           moduleTranslation.convertType(blockArg.getType()));
  }
 
  // firstprivate copy region
  setInsertPointForPossiblyEmptyBlock(builder, copyBlock);
  if (failed(completePrivateVars(
          contextOp, builder, moduleTranslation, privateVarsInfo.mlirVars,
          taskStructMgr.getLLVMPrivateVarGEPs(), privateVarsInfo.privatizers,
          contextOp.getPrivateNeedsBarrier())))
    return llvm::failure();
 
  // Resolve and validate reduction / in_reduction declarations up front.
  // This is pure MLIR symbol-table work and does not emit IR, so do it
  // before moving the builder to the taskloop start block. Richer
  // declare_reduction shapes (byref) have been rejected already by
  // checkImplementationStatus; the rest (two-argument initializer, cleanup
  // region, missing combiner) are rejected by the helper.
  SmallVector<omp::DeclareReductionOp> redDecls;
  if (failed(collectAndValidateTaskloopRedDecls(
          contextOp.getOperation(), contextOp.getReductionSyms(),
          "omp.taskloop.context", "reduction", redDecls)))
    return failure();
  SmallVector<omp::DeclareReductionOp> inRedDecls;
  if (failed(collectAndValidateTaskloopRedDecls(
          contextOp.getOperation(), contextOp.getInReductionSyms(),
          "omp.taskloop.context", "in_reduction", inRedDecls)))
    return failure();
 
  // The op verifier rejects nogroup + reduction, so no check is needed here.
 
  SmallVector<llvm::Value *> redOrigPtrs;
  redOrigPtrs.reserve(redDecls.size());
  for (Value v : contextOp.getReductionVars())
    redOrigPtrs.push_back(moduleTranslation.lookupValue(v));
  SmallVector<llvm::Value *> inRedOrigPtrs;
  inRedOrigPtrs.reserve(inRedDecls.size());
  for (Value v : contextOp.getInReductionVars())
    inRedOrigPtrs.push_back(moduleTranslation.lookupValue(v));
 
  // Set up insertion point for emitting the implicit-taskgroup reduction
  // setup (if any) and for the subsequent call to createTaskloop().
  builder.SetInsertPoint(taskloopStartBlock);
 
  llvm::OpenMPIRBuilder &ompBuilderRef = *getOpenMPBuilder(moduleTranslation);
  llvm::Module *module = moduleTranslation.getLLVMModule();
 
  // If we have task_reduction items, we must emit our own implicit
  // __kmpc_taskgroup so that the descriptor returned by __kmpc_taskred_init
  // is associated with that taskgroup. We then force NoGroup=true so that
  // OpenMPIRBuilder::createTaskloop does not emit a second taskgroup.
  bool implicitTaskgroup = !redDecls.empty();
  llvm::Value *redDesc = nullptr;
  if (implicitTaskgroup) {
    llvm::OpenMPIRBuilder::LocationDescription redLoc(builder);
    uint32_t srcLocSize;
    llvm::Constant *srcLocStr =
        ompBuilderRef.getOrCreateSrcLocStr(redLoc, srcLocSize);
    llvm::Value *ident = ompBuilderRef.getOrCreateIdent(srcLocStr, srcLocSize);
    // Align OpenMPIRBuilder's internal IRBuilder with `builder` so the
    // gtid call lands at our insertion point.
    ompBuilderRef.updateToLocation(redLoc);
    llvm::Value *outerGtid = ompBuilderRef.getOrCreateThreadID(ident);
    llvm::FunctionCallee taskgroupFn = ompBuilderRef.getOrCreateRuntimeFunction(
        *module, llvm::omp::OMPRTL___kmpc_taskgroup);
    builder.CreateCall(taskgroupFn, {ident, outerGtid});
 
    redDesc = emitTaskReductionInitCall(redDecls, redOrigPtrs,
                                        "__omp_taskloop_taskred_", builder,
                                        allocaIP, moduleTranslation);
    if (!redDesc)
      return failure();
  }
 
  auto loopOp = cast<omp::LoopNestOp>(loopWrapperOp.getWrappedLoop());
  llvm::Value *lbVal = nullptr;
  llvm::Value *ubVal = nullptr;
  llvm::Value *stepVal = nullptr;
  if (llvm::Error err = computeTaskloopBounds(
          loopOp, builder, moduleTranslation, lbVal, ubVal, stepVal))
    return handleError(std::move(err), opInst);
 
  auto bodyCB =
      [&](InsertPointTy allocaIP, InsertPointTy codegenIP,
          llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) -> llvm::Error {
    // Save the alloca insertion point on ModuleTranslation stack for use in
    // nested regions.
    LLVM::ModuleTranslation::SaveStack<OpenMPAllocStackFrame> frame(
        moduleTranslation, allocaIP.getNodeParent(), deallocBlocks);
 
    // translate the body of the taskloop:
    builder.restoreIP(codegenIP);
 
    llvm::BasicBlock *privInitBlock = nullptr;
    privateVarsInfo.llvmVars.resize(privateVarsInfo.blockArgs.size());
    for (auto [i, zip] : llvm::enumerate(llvm::zip_equal(
             privateVarsInfo.blockArgs, privateVarsInfo.privatizers,
             privateVarsInfo.mlirVars))) {
      auto [blockArg, privDecl, mlirPrivVar] = zip;
      // This is handled before the task executes
      if (privDecl.readsFromMold())
        continue;
 
      llvm::IRBuilderBase::InsertPointGuard guard(builder);
      llvm::Type *llvmAllocType =
          moduleTranslation.convertType(privDecl.getType());
      builder.SetInsertPoint(allocaIP.getNodeParent()->getTerminator());
      llvm::Value *llvmPrivateVar = builder.CreateAlloca(
          llvmAllocType, /*ArraySize=*/nullptr, "omp.private.alloc");
 
      llvm::Expected<llvm::Value *> privateVarOrError =
          initPrivateVar(builder, moduleTranslation, privDecl, mlirPrivVar,
                         blockArg, llvmPrivateVar, privInitBlock);
      if (!privateVarOrError)
        return privateVarOrError.takeError();
      moduleTranslation.mapValue(blockArg, privateVarOrError.get());
      privateVarsInfo.llvmVars[i] = privateVarOrError.get();
    }
 
    taskStructMgr.createGEPsToPrivateVars();
    for (auto [i, llvmPrivVar] :
         llvm::enumerate(taskStructMgr.getLLVMPrivateVarGEPs())) {
      if (!llvmPrivVar) {
        assert(privateVarsInfo.llvmVars[i] &&
               "This is added in the loop above");
        continue;
      }
      privateVarsInfo.llvmVars[i] = llvmPrivVar;
    }
 
    // Find and map the addresses of each variable within the taskloop context
    // structure
    for (auto [blockArg, llvmPrivateVar, privateDecl] :
         llvm::zip_equal(privateVarsInfo.blockArgs, privateVarsInfo.llvmVars,
                         privateVarsInfo.privatizers)) {
      // This was handled above.
      if (!privateDecl.readsFromMold())
        continue;
      // Fix broken pass-by-value case for Fortran character boxes
      if (!mlir::isa<LLVM::LLVMPointerType>(blockArg.getType())) {
        llvmPrivateVar = builder.CreateLoad(
            moduleTranslation.convertType(blockArg.getType()), llvmPrivateVar);
      }
      assert(llvmPrivateVar->getType() ==
             moduleTranslation.convertType(blockArg.getType()));
      moduleTranslation.mapValue(blockArg, llvmPrivateVar);
    }
 
    // Map reduction and in_reduction block arguments to the per-task private
    // storage returned by __kmpc_task_reduction_get_th_data. This call must
    // be emitted inside the to-be-outlined task body so that it returns the
    // *executing* thread's gtid (not the encountering thread's). The
    // taskgroup descriptor `redDesc` is computed in the outer scope and is
    // auto-captured into the task shareds aggregate by CodeExtractor during
    // OpenMPIRBuilder::finalize. For in_reduction the descriptor is NULL:
    // the runtime walks up enclosing taskgroups to find the matching
    // task_reduction registration for `origPtr`.
    if (!redDecls.empty() || !inRedDecls.empty()) {
      auto iface =
          cast<omp::BlockArgOpenMPOpInterface>(contextOp.getOperation());
      llvm::OpenMPIRBuilder &ompB = *getOpenMPBuilder(moduleTranslation);
      llvm::Module *m = moduleTranslation.getLLVMModule();
      llvm::LLVMContext &llvmCtx = m->getContext();
      llvm::OpenMPIRBuilder::LocationDescription bodyLoc(builder);
      uint32_t srcLocSize;
      llvm::Constant *srcLocStr =
          ompB.getOrCreateSrcLocStr(bodyLoc, srcLocSize);
      llvm::Value *bodyIdent = ompB.getOrCreateIdent(srcLocStr, srcLocSize);
      // Align OpenMPIRBuilder's internal IRBuilder with `builder` so the
      // gtid call lands inside the to-be-outlined task body.
      ompB.updateToLocation(bodyLoc);
      llvm::Value *bodyGtid = ompB.getOrCreateThreadID(bodyIdent);
      llvm::FunctionCallee getThData = ompB.getOrCreateRuntimeFunction(
          *m, llvm::omp::OMPRTL___kmpc_task_reduction_get_th_data);
      llvm::Type *ptrTy = llvm::PointerType::getUnqual(llvmCtx);
 
      // Emit one __kmpc_task_reduction_get_th_data lookup for a reduction /
      // in_reduction item and map its block argument to the per-task private
      // storage the runtime returns. The runtime entry point takes (and
      // returns) a generic, default-address-space `ptr`, so normalize a
      // non-default-address-space original pointer to the generic address
      // space before the call (mirroring the descriptor setup in
      // emitTaskReductionInitCall), and cast the returned private pointer back
      // to the block argument's address space when that differs.
      auto remapReductionArg = [&](BlockArgument blockArg, llvm::Value *desc,
                                   llvm::Value *origPtr,
                                   const llvm::Twine &name) {
        if (auto *origPtrTy =
                llvm::dyn_cast<llvm::PointerType>(origPtr->getType());
            origPtrTy && origPtrTy->getAddressSpace() != 0)
          origPtr = builder.CreateAddrSpaceCast(origPtr, ptrTy);
        llvm::Value *priv =
            builder.CreateCall(getThData, {bodyGtid, desc, origPtr}, name);
        if (auto *argPtrTy = llvm::dyn_cast<llvm::PointerType>(
                moduleTranslation.convertType(blockArg.getType()));
            argPtrTy && argPtrTy->getAddressSpace() != 0)
          priv = builder.CreateAddrSpaceCast(priv, argPtrTy);
        moduleTranslation.mapValue(blockArg, priv);
      };
 
      ArrayRef<BlockArgument> redBlockArgs = iface.getReductionBlockArgs();
      for (auto [blockArg, origPtr] :
           llvm::zip_equal(redBlockArgs, redOrigPtrs))
        remapReductionArg(blockArg, redDesc, origPtr, "omp.taskred.priv");
      ArrayRef<BlockArgument> inRedBlockArgs = iface.getInReductionBlockArgs();
      llvm::Value *nullDesc = llvm::ConstantPointerNull::get(ptrTy);
      for (auto [blockArg, origPtr] :
           llvm::zip_equal(inRedBlockArgs, inRedOrigPtrs))
        remapReductionArg(blockArg, nullDesc, origPtr, "omp.inred.priv");
    }
 
    // Lower the contents of the taskloop context region: this is the body of
    // the generated task, not the loop.
    auto continuationBlockOrError = convertOmpOpRegions(
        contextOp.getRegion(), "omp.taskloop.context.region", builder,
        moduleTranslation);
 
    if (failed(handleError(continuationBlockOrError, opInst)))
      return llvm::make_error<PreviouslyReportedError>();
 
    builder.SetInsertPoint(continuationBlockOrError.get()->getTerminator());
 
    // This is freeing the private variables as mapped inside of the task: these
    // will be per-task private copies possibly after task duplication. This is
    // handled transparently by how these are passed to the structure passed
    // into the outlined function. When the task is duplicated, that structure
    // is duplicated too.
    if (failed(cleanupPrivateVars(contextOp, builder, moduleTranslation,
                                  contextOp.getLoc(), privateVarsInfo)))
      return llvm::make_error<PreviouslyReportedError>();
    // Similarly, the task context structure freed inside the task is the
    // per-task copy after task duplication.
    taskStructMgr.freeStructPtr();
 
    return llvm::Error::success();
  };
 
  // Taskloop divides into an appropriate number of tasks by repeatedly
  // duplicating the original task. Each time this is done, the task context
  // structure must be duplicated too.
  auto taskDupCB = [&](InsertPointTy allocaIP, InsertPointTy codegenIP,
                       llvm::Value *destPtr, llvm::Value *srcPtr)
      -> llvm::Expected<llvm::IRBuilderBase::InsertPoint> {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    builder.restoreIP(codegenIP);
 
    llvm::Type *ptrTy =
        builder.getPtrTy(srcPtr->getType()->getPointerAddressSpace());
    llvm::Value *src =
        builder.CreateLoad(ptrTy, srcPtr, "omp.taskloop.context.src");
 
    TaskContextStructManager &srcStructMgr = taskStructMgr;
    TaskContextStructManager destStructMgr(builder, moduleTranslation,
                                           privateVarsInfo.privatizers);
    destStructMgr.generateTaskContextStruct();
    llvm::Value *dest = destStructMgr.getStructPtr();
    dest->setName("omp.taskloop.context.dest");
    builder.CreateStore(dest, destPtr);
 
    llvm::SmallVector<llvm::Value *> srcGEPs =
        srcStructMgr.createGEPsToPrivateVars(src);
    llvm::SmallVector<llvm::Value *> destGEPs =
        destStructMgr.createGEPsToPrivateVars(dest);
 
    // Inline init regions.
    for (auto [privDecl, mold, blockArg, llvmPrivateVarAlloc] :
         llvm::zip_equal(privateVarsInfo.privatizers, srcGEPs,
                         privateVarsInfo.blockArgs, destGEPs)) {
      // To be handled inside task body.
      if (!privDecl.readsFromMold())
        continue;
      assert(llvmPrivateVarAlloc &&
             "reads from mold so shouldn't have been skipped");
 
      llvm::Value *moldArg = materializeRegionArgValue(
          builder, moduleTranslation, privDecl.getInitMoldArg(), mold);
      llvm::Expected<llvm::Value *> privateVarOrErr = initPrivateVar(
          builder, moduleTranslation, privDecl, moldArg, blockArg,
          llvmPrivateVarAlloc, builder.GetInsertBlock());
      if (!privateVarOrErr)
        return privateVarOrErr.takeError();
 
      setInsertPointForPossiblyEmptyBlock(builder);
 
      // TODO: this is a bit of a hack for Fortran character boxes.
      // Character boxes are passed by value into the init region and then the
      // initialized character box is yielded by value. Here we need to store
      // the yielded value into the private allocation, and load the private
      // allocation to match the type expected by region block arguments.
      [[maybe_unused]] llvm::Value *llvmPrivateVar = llvmPrivateVarAlloc;
      if ((privateVarOrErr.get() != llvmPrivateVarAlloc) &&
          !mlir::isa<LLVM::LLVMPointerType>(blockArg.getType())) {
        builder.CreateStore(privateVarOrErr.get(), llvmPrivateVarAlloc);
        // Load it so we have the value pointed to by the GEP
        llvmPrivateVar = builder.CreateLoad(privateVarOrErr.get()->getType(),
                                            llvmPrivateVarAlloc);
      }
      assert(llvmPrivateVar->getType() ==
             moduleTranslation.convertType(blockArg.getType()));
 
      // Mapping blockArg -> llvmPrivateVarAlloc is done inside the body
      // callback so that OpenMPIRBuilder doesn't try to pass each GEP address
      // through a stack allocated structure.
    }
 
    if (failed(completePrivateVars(contextOp.getOperation(), builder,
                                   moduleTranslation, srcGEPs, destGEPs,
                                   privateVarsInfo.privatizers,
                                   contextOp.getPrivateNeedsBarrier())))
      return llvm::make_error<PreviouslyReportedError>();
 
    return builder.saveIP();
  };
 
  auto loopInfo = [&]() -> llvm::Expected<llvm::CanonicalLoopInfo *> {
    llvm::CanonicalLoopInfo *loopInfo = findCurrentLoopInfo(moduleTranslation);
    return loopInfo;
  };
 
  llvm::Value *ifCond = nullptr;
  llvm::Value *grainsize = nullptr;
  int sched = 0; // default
  mlir::Value grainsizeVal = contextOp.getGrainsize();
  mlir::Value numTasksVal = contextOp.getNumTasks();
  if (Value ifVar = contextOp.getIfExpr())
    ifCond = moduleTranslation.lookupValue(ifVar);
  if (grainsizeVal) {
    grainsize = moduleTranslation.lookupValue(grainsizeVal);
    sched = 1; // grainsize
  } else if (numTasksVal) {
    grainsize = moduleTranslation.lookupValue(numTasksVal);
    sched = 2; // num_tasks
  }
 
  llvm::OpenMPIRBuilder::TaskDupCallbackTy taskDupOrNull = nullptr;
  if (taskStructMgr.getStructPtr())
    taskDupOrNull = taskDupCB;
 
  llvm::OpenMPIRBuilder &ompBuilder = *getOpenMPBuilder(moduleTranslation);
  SmallVector<llvm::UncondBrInst *> cancelTerminators;
  // The directive to match here is OMPD_taskgroup because it is the
  // taskgroup which is canceled. This is handled here because it is the
  // task's cleanup block which should be branched to. It doesn't depend upon
  // nogroup because even in that case the taskloop might still be inside an
  // explicit taskgroup.
  pushCancelFinalizationCB(cancelTerminators, builder, ompBuilder, contextOp,
                           llvm::omp::Directive::OMPD_taskgroup);
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  bool effectiveNoGroup = contextOp.getNogroup() || implicitTaskgroup;
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createTaskloop(
              ompLoc, allocaIP, deallocBlocks, bodyCB, loopInfo, lbVal, ubVal,
              stepVal, contextOp.getUntied(), ifCond, grainsize,
              effectiveNoGroup, sched,
              moduleTranslation.lookupValue(contextOp.getFinal()),
              contextOp.getMergeable(),
              moduleTranslation.lookupValue(contextOp.getPriority()),
              loopOp.getCollapseNumLoops(), taskDupOrNull,
              taskStructMgr.getStructPtr(),
              contextOp.getThreadset() == omp::ThreadsetPolicy::omp_pool);
 
  if (failed(handleError(afterIP, opInst)))
    return failure();
 
  popCancelFinalizationCB(cancelTerminators, ompBuilder,
                          afterIP->getNodeParent());
 
  builder.restoreIP(*afterIP);
 
  // Close the implicit taskgroup we opened for task_reduction. The end call
  // must execute on the encountering thread, so use the outer-scope gtid.
  if (implicitTaskgroup) {
    llvm::OpenMPIRBuilder::LocationDescription endLoc(builder);
    uint32_t srcLocSize;
    llvm::Constant *srcLocStr =
        ompBuilder.getOrCreateSrcLocStr(endLoc, srcLocSize);
    llvm::Value *ident = ompBuilder.getOrCreateIdent(srcLocStr, srcLocSize);
    // Align OpenMPIRBuilder's internal IRBuilder with `builder` so the
    // gtid call lands at our insertion point.
    ompBuilder.updateToLocation(endLoc);
    llvm::Value *outerGtid = ompBuilder.getOrCreateThreadID(ident);
    llvm::FunctionCallee endTgFn = ompBuilder.getOrCreateRuntimeFunction(
        *moduleTranslation.getLLVMModule(),
        llvm::omp::OMPRTL___kmpc_end_taskgroup);
    builder.CreateCall(endTgFn, {ident, outerGtid});
  }
  return success();
}
 
/// Build an outlined init helper for a task_reduction declare_reduction op.
/// Signature: void(ptr %priv, ptr %orig). For non-byref reductions, the init
/// region's mold argument is mapped following the same rule as the regular
/// reduction path (`mapInitializationArgs`): a non-pointer mold loads the
/// value from %orig, while a pointer-typed mold receives %orig directly. The
/// yielded value is stored into %priv.
static llvm::Function *
emitTaskReductionInitFn(omp::DeclareReductionOp decl, StringRef baseName,
                        LLVM::ModuleTranslation &moduleTranslation) {
  llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
  llvm::LLVMContext &ctx = llvmModule->getContext();
  llvm::Type *voidTy = llvm::Type::getVoidTy(ctx);
  llvm::Type *ptrTy = llvm::PointerType::getUnqual(ctx);
  llvm::FunctionType *fty =
      llvm::FunctionType::get(voidTy, {ptrTy, ptrTy}, false);
  llvm::Function *fn =
      llvm::Function::Create(fty, llvm::GlobalValue::InternalLinkage,
                             baseName + ".red.init", llvmModule);
  fn->setDoesNotRecurse();
  fn->getArg(0)->setName("priv");
  fn->getArg(1)->setName("orig");
 
  llvm::BasicBlock *entry = llvm::BasicBlock::Create(ctx, "entry", fn);
  llvm::IRBuilder<> b(entry);
 
  // Map the initializer's mold argument the same way the regular reduction
  // path does in `mapInitializationArgs`: only load the original value when a
  // non-pointer mold is expected. For a pointer-typed mold the storage pointer
  // (%orig) is passed through directly, so a mold-yielding initializer lowers
  // to `store ptr %orig, ptr %priv` rather than emitting a spurious load.
  Value moldArg = decl.getInitializerMoldArg();
  llvm::Value *origVal = fn->getArg(1);
  if (!isa<LLVM::LLVMPointerType>(moldArg.getType()))
    origVal = b.CreateLoad(moduleTranslation.convertType(moldArg.getType()),
                           fn->getArg(1), "omp.orig");
  moduleTranslation.mapValue(moldArg, origVal);
  SmallVector<llvm::Value *, 1> phis;
  if (failed(inlineConvertOmpRegions(decl.getInitializerRegion(),
                                     "omp.taskred.init", b, moduleTranslation,
                                     &phis))) {
    fn->eraseFromParent();
    return nullptr;
  }
  assert(phis.size() == 1 &&
         "expected one value yielded from reduction initializer");
  b.CreateStore(phis[0], fn->getArg(0));
  b.CreateRetVoid();
 
  moduleTranslation.forgetMapping(decl.getInitializerRegion());
  return fn;
}
 
/// Build an outlined combiner helper for a task_reduction declare_reduction op.
/// Signature: void(ptr %lhs, ptr %rhs). For non-byref reductions, the values
/// at *%lhs and *%rhs are loaded, fed into the combiner region, and the
/// yielded scalar is stored back into *%lhs.
static llvm::Function *
emitTaskReductionCombFn(omp::DeclareReductionOp decl, StringRef baseName,
                        LLVM::ModuleTranslation &moduleTranslation) {
  llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
  llvm::LLVMContext &ctx = llvmModule->getContext();
  llvm::Type *voidTy = llvm::Type::getVoidTy(ctx);
  llvm::Type *ptrTy = llvm::PointerType::getUnqual(ctx);
  llvm::FunctionType *fty =
      llvm::FunctionType::get(voidTy, {ptrTy, ptrTy}, false);
  llvm::Function *fn =
      llvm::Function::Create(fty, llvm::GlobalValue::InternalLinkage,
                             baseName + ".red.comb", llvmModule);
  fn->setDoesNotRecurse();
  fn->getArg(0)->setName("lhs");
  fn->getArg(1)->setName("rhs");
 
  llvm::BasicBlock *entry = llvm::BasicBlock::Create(ctx, "entry", fn);
  llvm::IRBuilder<> b(entry);
 
  llvm::Type *elemTy = moduleTranslation.convertType(decl.getType());
  Block &combBlock = decl.getReductionRegion().front();
  assert(combBlock.getNumArguments() == 2 &&
         "expected two arguments in declare_reduction combiner");
  llvm::Value *lhsVal = b.CreateLoad(elemTy, fn->getArg(0), "omp.lhs");
  llvm::Value *rhsVal = b.CreateLoad(elemTy, fn->getArg(1), "omp.rhs");
  moduleTranslation.mapValue(combBlock.getArgument(0), lhsVal);
  moduleTranslation.mapValue(combBlock.getArgument(1), rhsVal);
 
  SmallVector<llvm::Value *, 1> phis;
  if (failed(inlineConvertOmpRegions(decl.getReductionRegion(),
                                     "omp.taskred.comb", b, moduleTranslation,
                                     &phis))) {
    fn->eraseFromParent();
    return nullptr;
  }
  assert(phis.size() == 1 &&
         "expected one value yielded from reduction combiner");
  b.CreateStore(phis[0], fn->getArg(0));
  b.CreateRetVoid();
 
  moduleTranslation.forgetMapping(decl.getReductionRegion());
  return fn;
}
 
/// Emit the per-taskgroup task_reduction descriptor array and the
/// `__kmpc_taskred_init` runtime call. \p origPtrs holds the LLVM values for
/// the original (shared) variables, one per declaration in \p redDecls.
/// `builder` must be set to the point at which the descriptor stores and the
/// init call should be emitted; the descriptor array itself is allocated at
/// \p allocaIP. \p helperNamePrefix is used to disambiguate the generated
/// init/combiner helper symbol names between taskgroup and taskloop callers.
///
/// When \p isModifier is false, emits `__kmpc_taskred_init` and returns the
/// `ptr` value it produces (the taskgroup reduction handle). When \p isModifier
/// is true, emits `__kmpc_taskred_modifier_init` instead to open a
/// task-reduction scope for a parallel or worksharing construct, passing
/// \p isWorksharing as the runtime `is_ws` argument. Returns null on failure.
///
/// Only the non-byref form is handled here. Byref reductions have already
/// been rejected by `checkImplementationStatus`.
static llvm::Value *emitTaskReductionInitCall(
    ArrayRef<omp::DeclareReductionOp> redDecls,
    ArrayRef<llvm::Value *> origPtrs, StringRef helperNamePrefix,
    llvm::IRBuilderBase &builder, llvm::OpenMPIRBuilder::InsertPointTy allocaIP,
    LLVM::ModuleTranslation &moduleTranslation, bool isModifier,
    bool isWorksharing) {
  assert(redDecls.size() == origPtrs.size() &&
         "expected one orig pointer per reduction decl");
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
  llvm::LLVMContext &ctx = llvmModule->getContext();
  const llvm::DataLayout &dl = llvmModule->getDataLayout();
 
  llvm::Type *ptrTy = llvm::PointerType::getUnqual(ctx);
  llvm::Type *i32Ty = llvm::Type::getInt32Ty(ctx);
  llvm::Type *sizeTy =
      llvm::Type::getIntNTy(ctx, dl.getPointerSizeInBits(/*AddrSpace=*/0));
 
  // Identified `kmp_taskred_input_t` struct, matching the layout used by
  // Clang's CGOpenMPRuntime::emitTaskReductionInit.
  llvm::StructType *redInputTy =
      llvm::StructType::getTypeByName(ctx, "kmp_taskred_input_t");
  if (!redInputTy)
    redInputTy = llvm::StructType::create(
        ctx, {ptrTy, ptrTy, sizeTy, ptrTy, ptrTy, ptrTy, i32Ty},
        "kmp_taskred_input_t");
 
  unsigned n = redDecls.size();
  llvm::ArrayType *arrTy = llvm::ArrayType::get(redInputTy, n);
 
  // Allocate the descriptor array in the enclosing function's alloca block.
  llvm::AllocaInst *arrAlloca;
  {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    builder.restoreIP(allocaIP);
    arrAlloca =
        builder.CreateAlloca(arrTy, /*ArraySize=*/nullptr, ".taskred.input");
  }
 
  // Fill each descriptor entry at the current builder insertion point.
  llvm::Value *zero = builder.getInt32(0);
  for (unsigned i = 0; i < n; ++i) {
    omp::DeclareReductionOp decl = redDecls[i];
    llvm::Value *orig = origPtrs[i];
    if (auto *origPtrTy = llvm::dyn_cast<llvm::PointerType>(orig->getType());
        origPtrTy && origPtrTy->getAddressSpace() != 0)
      orig = builder.CreateAddrSpaceCast(orig, ptrTy);
    llvm::Type *elemTy = moduleTranslation.convertType(decl.getType());
    uint64_t size = dl.getTypeAllocSize(elemTy).getFixedValue();
 
    std::string baseName =
        (llvm::Twine(helperNamePrefix) + decl.getSymName()).str();
    llvm::Function *initFn =
        emitTaskReductionInitFn(decl, baseName, moduleTranslation);
    llvm::Function *combFn =
        emitTaskReductionCombFn(decl, baseName, moduleTranslation);
    if (!initFn || !combFn)
      return nullptr;
    llvm::Value *elemPtr = builder.CreateInBoundsGEP(
        arrTy, arrAlloca, {zero, builder.getInt32(i)}, ".taskred.elem");
    auto storeField = [&](unsigned fieldIdx, llvm::Value *val) {
      llvm::Value *fieldPtr =
          builder.CreateStructGEP(redInputTy, elemPtr, fieldIdx);
      builder.CreateStore(val, fieldPtr);
    };
    storeField(0, orig);                                  // reduce_shar
    storeField(1, orig);                                  // reduce_orig
    storeField(2, llvm::ConstantInt::get(sizeTy, size));  // reduce_size
    storeField(3, initFn);                                // reduce_init
    storeField(4, llvm::ConstantPointerNull::get(ptrTy)); // reduce_fini
    storeField(5, combFn);                                // reduce_comb
    storeField(6, llvm::ConstantInt::get(i32Ty, 0));      // flags
  }
 
  // Emit the runtime call that registers the task reduction data.
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  uint32_t srcLocSize;
  llvm::Constant *srcLocStr =
      ompBuilder->getOrCreateSrcLocStr(ompLoc, srcLocSize);
  llvm::Value *ident = ompBuilder->getOrCreateIdent(srcLocStr, srcLocSize);
  ompBuilder->updateToLocation(ompLoc);
  llvm::Value *gtid = ompBuilder->getOrCreateThreadID(ident);
  if (isModifier) {
    // __kmpc_taskred_modifier_init(loc, gtid, is_ws, num, &arr) opens a
    // task-reduction scope for the enclosing parallel/worksharing region.
    llvm::FunctionCallee modInit = ompBuilder->getOrCreateRuntimeFunction(
        *llvmModule, llvm::omp::OMPRTL___kmpc_taskred_modifier_init);
    return builder.CreateCall(modInit,
                              {ident, gtid,
                               builder.getInt32(isWorksharing ? 1 : 0),
                               builder.getInt32(n), arrAlloca},
                              ".taskred.desc");
  }
  // __kmpc_taskred_init(gtid, num, &arr).
  llvm::FunctionCallee taskredInit = ompBuilder->getOrCreateRuntimeFunction(
      *llvmModule, llvm::omp::OMPRTL___kmpc_taskred_init);
  return builder.CreateCall(taskredInit, {gtid, builder.getInt32(n), arrAlloca},
                            ".taskred.desc");
}
 
/// Emits `__kmpc_task_reduction_modifier_fini(loc, gtid, is_ws)` at the current
/// builder insertion point, closing the task-reduction scope opened by the
/// `task` reduction modifier on a parallel or worksharing construct.
static void
emitTaskReductionModifierFini(bool isWorksharing, llvm::IRBuilderBase &builder,
                              LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  uint32_t srcLocSize;
  llvm::Constant *srcLocStr =
      ompBuilder->getOrCreateSrcLocStr(ompLoc, srcLocSize);
  llvm::Value *ident = ompBuilder->getOrCreateIdent(srcLocStr, srcLocSize);
  ompBuilder->updateToLocation(ompLoc);
  llvm::Value *gtid = ompBuilder->getOrCreateThreadID(ident);
  llvm::FunctionCallee fini = ompBuilder->getOrCreateRuntimeFunction(
      *llvmModule, llvm::omp::OMPRTL___kmpc_task_reduction_modifier_fini);
  builder.CreateCall(fini,
                     {ident, gtid, builder.getInt32(isWorksharing ? 1 : 0)});
}
 
/// Converts an OpenMP taskgroup construct into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpTaskgroupOp(omp::TaskgroupOp tgOp, llvm::IRBuilderBase &builder,
                      LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  if (failed(checkImplementationStatus(*tgOp)))
    return failure();
 
  // Resolve and validate task_reduction declarations up front. We only handle
  // declare_reduction ops shaped like a non-byref scalar reduction in this
  // first cut; richer shapes (two-argument initializer, cleanup region,
  // missing combiner) require additional infrastructure.
  SmallVector<omp::DeclareReductionOp> redDecls;
  if (auto syms = tgOp.getTaskReductionSyms()) {
    redDecls.reserve(syms->size());
    for (auto sym : syms->getAsRange<SymbolRefAttr>()) {
      auto decl = SymbolTable::lookupNearestSymbolFrom<omp::DeclareReductionOp>(
          tgOp, sym);
      if (!decl)
        return tgOp.emitError()
               << "failed to resolve task_reduction declare_reduction symbol "
               << sym.getRootReference() << " in omp.taskgroup";
      if (decl.getInitializerRegion().front().getNumArguments() != 1)
        return tgOp.emitError("not yet implemented: task_reduction with "
                              "two-argument initializer in omp.taskgroup");
      if (!decl.getCleanupRegion().empty())
        return tgOp.emitError("not yet implemented: task_reduction with "
                              "cleanup region in omp.taskgroup");
      if (decl.getReductionRegion().empty())
        return tgOp.emitError("task_reduction declare_reduction is missing a "
                              "combiner region");
      redDecls.push_back(decl);
    }
  }
 
  auto bodyCB =
      [&](InsertPointTy allocaIP, InsertPointTy codegenIP,
          llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) -> llvm::Error {
    builder.restoreIP(codegenIP);
 
    if (!redDecls.empty()) {
      SmallVector<llvm::Value *> origPtrs;
      origPtrs.reserve(redDecls.size());
      for (Value v : tgOp.getTaskReductionVars())
        origPtrs.push_back(moduleTranslation.lookupValue(v));
      if (!emitTaskReductionInitCall(redDecls, origPtrs, "__omp_taskred_",
                                     builder, allocaIP, moduleTranslation))
        return llvm::createStringError(
            llvm::inconvertibleErrorCode(),
            "failed to emit task_reduction initialization for omp.taskgroup");
    }
 
    // Inside the taskgroup body, each task_reduction block argument refers to
    // the same shared/original storage that the runtime now knows about via
    // the descriptor array. Inner tasks that declare in_reduction look up
    // per-task private copies through the runtime; the taskgroup body itself
    // uses the original variable.
    for (auto [i, blockArg] :
         llvm::enumerate(tgOp.getRegion().getArguments())) {
      llvm::Value *orig =
          moduleTranslation.lookupValue(tgOp.getTaskReductionVars()[i]);
      moduleTranslation.mapValue(blockArg, orig);
    }
 
    return convertOmpOpRegions(tgOp.getRegion(), "omp.taskgroup.region",
                               builder, moduleTranslation)
        .takeError();
  };
 
  llvm::SmallVector<llvm::BasicBlock *> deallocBlocks;
  InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation, &deallocBlocks);
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createTaskgroup(ompLoc, allocaIP, deallocBlocks, bodyCB);
 
  if (failed(handleError(afterIP, *tgOp)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
static LogicalResult
convertOmpInteropInitOp(omp::InteropInitOp initOp, llvm::IRBuilderBase &builder,
                        LLVM::ModuleTranslation &moduleTranslation) {
  if (!initOp.getDependVars().empty() || initOp.getDependKinds() ||
      !initOp.getDependIterated().empty() || initOp.getDependIteratedKinds())
    return initOp.emitError()
           << "not yet implemented: Unhandled clause depend in "
           << omp::InteropInitOp::getOperationName() << " operation";
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::Value *interopVar =
      moduleTranslation.lookupValue(initOp.getInteropVar());
  llvm::Value *device = initOp.getDevice()
                            ? moduleTranslation.lookupValue(initOp.getDevice())
                            : nullptr;
 
  // TODO: Handle depend clauses when supported.
  llvm::Value *numDeps = llvm::ConstantInt::get(builder.getInt32Ty(), 0);
  llvm::Value *depArray = llvm::ConstantPointerNull::get(builder.getPtrTy());
  bool hasNowait = initOp.getNowait();
 
  // A single `init` clause may list both `target` and `targetsync`, but the
  // runtime init call takes a single interop-type. Collapse the set to one
  // value, matching Clang: if `target` is present use Target, otherwise
  // TargetSync. The offload runtime object model supports only one type per
  // object; representing both would require a runtime change.
  bool hasTarget = false, hasTargetSync = false;
  for (mlir::Attribute typeAttr : initOp.getInteropTypes()) {
    switch (cast<omp::InteropTypeAttr>(typeAttr).getValue()) {
    case omp::InteropType::target:
      hasTarget = true;
      break;
    case omp::InteropType::targetsync:
      hasTargetSync = true;
      break;
    }
  }
  llvm::omp::OMPInteropType interopType =
      (!hasTarget && hasTargetSync) ? llvm::omp::OMPInteropType::TargetSync
                                    : llvm::omp::OMPInteropType::Target;
  ompBuilder->createOMPInteropInit(builder, interopVar, interopType, device,
                                   numDeps, depArray, hasNowait);
  return success();
}
 
static LogicalResult
convertOmpInteropDestroyOp(omp::InteropDestroyOp destroyOp,
                           llvm::IRBuilderBase &builder,
                           LLVM::ModuleTranslation &moduleTranslation) {
  if (!destroyOp.getDependVars().empty() || destroyOp.getDependKinds() ||
      !destroyOp.getDependIterated().empty() ||
      destroyOp.getDependIteratedKinds())
    return destroyOp.emitError()
           << "not yet implemented: Unhandled clause depend in "
           << omp::InteropDestroyOp::getOperationName() << " operation";
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::Value *interopVar =
      moduleTranslation.lookupValue(destroyOp.getInteropVar());
  llvm::Value *device =
      destroyOp.getDevice()
          ? moduleTranslation.lookupValue(destroyOp.getDevice())
          : nullptr;
 
  llvm::Value *numDeps = llvm::ConstantInt::get(builder.getInt32Ty(), 0);
  llvm::Value *depArray = llvm::ConstantPointerNull::get(builder.getPtrTy());
  bool hasNowait = destroyOp.getNowait();
 
  ompBuilder->createOMPInteropDestroy(builder, interopVar, device, numDeps,
                                      depArray, hasNowait);
  return success();
}
 
static LogicalResult
convertOmpInteropUseOp(omp::InteropUseOp useOp, llvm::IRBuilderBase &builder,
                       LLVM::ModuleTranslation &moduleTranslation) {
  if (!useOp.getDependVars().empty() || useOp.getDependKinds() ||
      !useOp.getDependIterated().empty() || useOp.getDependIteratedKinds())
    return useOp.emitError()
           << "not yet implemented: Unhandled clause depend in "
           << omp::InteropUseOp::getOperationName() << " operation";
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::Value *interopVar =
      moduleTranslation.lookupValue(useOp.getInteropVar());
  llvm::Value *device = useOp.getDevice()
                            ? moduleTranslation.lookupValue(useOp.getDevice())
                            : nullptr;
 
  llvm::Value *numDeps = llvm::ConstantInt::get(builder.getInt32Ty(), 0);
  llvm::Value *depArray = llvm::ConstantPointerNull::get(builder.getPtrTy());
  bool hasNowait = useOp.getNowait();
 
  ompBuilder->createOMPInteropUse(builder, interopVar, device, numDeps,
                                  depArray, hasNowait);
  return success();
}
 
static LogicalResult
convertOmpTaskwaitOp(omp::TaskwaitOp twOp, llvm::IRBuilderBase &builder,
                     LLVM::ModuleTranslation &moduleTranslation) {
  if (failed(checkImplementationStatus(*twOp)))
    return failure();
 
  llvm::OpenMPIRBuilder::DependenciesInfo dds;
  if (failed(buildDependData(
          twOp.getDependVars(), twOp.getDependKinds(), twOp.getDependIterated(),
          twOp.getDependIteratedKinds(), builder, moduleTranslation, dds))) {
    return failure();
  }
 
  getOpenMPBuilder(moduleTranslation)
      ->createTaskwait(builder, dds, twOp.getNowait());
  if (dds.DepArray) {
    builder.CreateFree(dds.DepArray);
  }
 
  return success();
}
 
/// Converts an OpenMP workshare loop into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpWsloop(Operation &opInst, llvm::IRBuilderBase &builder,
                 LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  auto wsloopOp = cast<omp::WsloopOp>(opInst);
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  auto loopOp = cast<omp::LoopNestOp>(wsloopOp.getWrappedLoop());
  llvm::ArrayRef<bool> isByRef = getIsByRef(wsloopOp.getReductionByref());
  assert(isByRef.size() == wsloopOp.getNumReductionVars());
 
  // Static is the default.
  auto schedule =
      wsloopOp.getScheduleKind().value_or(omp::ClauseScheduleKind::Static);
 
  // Find the loop configuration.
  llvm::Value *step = moduleTranslation.lookupValue(loopOp.getLoopSteps()[0]);
  llvm::Type *ivType = step->getType();
  llvm::Value *chunk = nullptr;
  if (wsloopOp.getScheduleChunk()) {
    llvm::Value *chunkVar =
        moduleTranslation.lookupValue(wsloopOp.getScheduleChunk());
    chunk = builder.CreateSExtOrTrunc(chunkVar, ivType);
  }
 
  omp::DistributeOp distributeOp = nullptr;
  llvm::Value *distScheduleChunk = nullptr;
  bool hasDistSchedule = false;
  if (llvm::isa_and_present<omp::DistributeOp>(opInst.getParentOp())) {
    distributeOp = cast<omp::DistributeOp>(opInst.getParentOp());
    hasDistSchedule = distributeOp.getDistScheduleStatic();
    if (distributeOp.getDistScheduleChunkSize()) {
      llvm::Value *chunkVar = moduleTranslation.lookupValue(
          distributeOp.getDistScheduleChunkSize());
      distScheduleChunk = builder.CreateSExtOrTrunc(chunkVar, ivType);
    }
  }
 
  PrivateVarsInfo privateVarsInfo(wsloopOp);
  privateVarsInfo.addLinearVars(wsloopOp);
 
  SmallVector<omp::DeclareReductionOp> reductionDecls;
  collectReductionDecls(wsloopOp, reductionDecls);
 
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation);
 
  llvm::BasicBlock *allocaBlock = allocaIP.getNodeParent();
  SmallVector<llvm::Value *> privateReductionVariables(
      wsloopOp.getNumReductionVars());
 
  llvm::Expected<llvm::BasicBlock *> afterAllocas = allocatePrivateVars(
      wsloopOp, builder, moduleTranslation, privateVarsInfo, allocaIP);
  if (handleError(afterAllocas, opInst).failed())
    return failure();
 
  DenseMap<Value, llvm::Value *> reductionVariableMap;
 
  MutableArrayRef<BlockArgument> reductionArgs =
      cast<omp::BlockArgOpenMPOpInterface>(opInst).getReductionBlockArgs();
 
  SmallVector<DeferredStore> deferredStores;
 
  if (failed(allocReductionVars(wsloopOp, reductionArgs, builder,
                                moduleTranslation, allocaIP, reductionDecls,
                                privateReductionVariables, reductionVariableMap,
                                deferredStores, isByRef)))
    return failure();
 
  if (handleError(initPrivateVars(builder, moduleTranslation, privateVarsInfo),
                  opInst)
          .failed())
    return failure();
 
  if (failed(completePrivateVars(
          wsloopOp, builder, moduleTranslation, privateVarsInfo.mlirVars,
          privateVarsInfo.llvmVars, privateVarsInfo.privatizers,
          wsloopOp.getPrivateNeedsBarrier())))
    return failure();
 
  assert(afterAllocas.get()->getSinglePredecessor());
  if (failed(initReductionVars(wsloopOp, reductionArgs, builder,
                               moduleTranslation,
                               afterAllocas.get()->getSinglePredecessor(),
                               reductionDecls, privateReductionVariables,
                               reductionVariableMap, isByRef, deferredStores)))
    return failure();
 
  // For `reduction(task, ...)` open a task-reduction scope for the worksharing
  // loop. Participating explicit tasks accumulate into the per-thread private
  // copies, which the worksharing reduction then combines across threads.
  bool isTaskReductionMod =
      wsloopOp.hasReductionModifier(omp::ReductionModifier::task);
  if (isTaskReductionMod &&
      !emitTaskReductionModifierInitCall(
          wsloopOp, reductionDecls, privateReductionVariables, builder,
          allocaIP, moduleTranslation, /*isWorksharing=*/true))
    return wsloopOp.emitError(
        "failed to emit task reduction modifier initialization");
 
  // TODO: Handle doacross loops when the ordered clause has a parameter.
  bool isOrdered = wsloopOp.getOrdered().has_value();
  std::optional<omp::ScheduleModifier> scheduleMod = wsloopOp.getScheduleMod();
  bool isSimd = wsloopOp.getScheduleSimd();
  bool loopNeedsBarrier = !wsloopOp.getNowait();
 
  // The only legal way for the direct parent to be omp.distribute is that this
  // represents 'distribute parallel do'. Otherwise, this is a regular
  // worksharing loop.
  llvm::omp::WorksharingLoopType workshareLoopType =
      llvm::isa_and_present<omp::DistributeOp>(opInst.getParentOp())
          ? llvm::omp::WorksharingLoopType::DistributeForStaticLoop
          : llvm::omp::WorksharingLoopType::ForStaticLoop;
 
  SmallVector<llvm::UncondBrInst *> cancelTerminators;
  pushCancelFinalizationCB(cancelTerminators, builder, *ompBuilder, wsloopOp,
                           llvm::omp::Directive::OMPD_for);
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
 
  // Initialize linear variables and linear step
  LinearClauseProcessor linearClauseProcessor;
 
  if (!wsloopOp.getLinearVars().empty()) {
    auto linearVarTypes = wsloopOp.getLinearVarTypes().value();
    for (mlir::Attribute linearVarType : linearVarTypes)
      linearClauseProcessor.registerType(moduleTranslation, linearVarType);
 
    for (auto [idx, linearVar] : llvm::enumerate(wsloopOp.getLinearVars())) {
      size_t privIdx = privateVarsInfo.numPrivateVars + idx;
      linearClauseProcessor.createLinearVar(
          builder, allocaIP, privateVarsInfo.privatizers[privIdx],
          moduleTranslation.lookupValue(linearVar),
          privateVarsInfo.llvmVars[privIdx], idx);
    }
    for (mlir::Value linearStep : wsloopOp.getLinearStepVars())
      linearClauseProcessor.initLinearStep(moduleTranslation, linearStep);
  }
 
  llvm::Expected<llvm::BasicBlock *> regionBlock = convertOmpOpRegions(
      wsloopOp.getRegion(), "omp.wsloop.region", builder, moduleTranslation);
 
  if (failed(handleError(regionBlock, opInst)))
    return failure();
 
  llvm::CanonicalLoopInfo *loopInfo = findCurrentLoopInfo(moduleTranslation);
 
  // Emit Initialization and Update IR for linear variables
  if (!wsloopOp.getLinearVars().empty()) {
    if (failed(handleError(
            linearClauseProcessor.initLinearVar(builder, moduleTranslation,
                                                loopInfo->getPreheader()),
            opInst)))
      return failure();
    llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterBarrierIP =
        getOpenMPBuilder(moduleTranslation)
            ->createBarrier(builder, llvm::omp::OMPD_barrier);
    if (failed(handleError(afterBarrierIP, *loopOp)))
      return failure();
    builder.restoreIP(*afterBarrierIP);
    if (failed(handleError(linearClauseProcessor.updateLinearVar(
                               builder, moduleTranslation, loopInfo->getBody(),
                               loopInfo->getIndVar()),
                           opInst)))
      return failure();
    linearClauseProcessor.splitLinearFiniBB(builder, loopInfo->getExit());
  }
 
  builder.SetInsertPoint((*regionBlock)->begin());
 
  // Check if we can generate no-loop kernel
  bool noLoopMode = false;
  omp::TargetOp targetOp = wsloopOp->getParentOfType<mlir::omp::TargetOp>();
  if (targetOp &&
      targetOp.getKernelType() == omp::TargetExecMode::spmd_no_loop) {
    Operation *targetCapturedOp =
        cast<omp::ComposableOpInterface>(*targetOp).findCapturedOp();
    // We need this check because, without it, noLoopMode would be set to true
    // for every omp.wsloop nested inside a no-loop SPMD target region, even if
    // that loop is not the top-level SPMD one.
    if (loopOp == targetCapturedOp)
      noLoopMode = true;
  }
 
  // Nested regions can move the instruction referenced by allocaIP.
  allocaIP = allocaBlock->getFirstInsertionPt();
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy wsloopIP =
      ompBuilder->applyWorkshareLoop(
          ompLoc.DL, loopInfo, allocaIP, loopNeedsBarrier,
          convertToScheduleKind(schedule), chunk, isSimd,
          scheduleMod == omp::ScheduleModifier::monotonic,
          scheduleMod == omp::ScheduleModifier::nonmonotonic, isOrdered,
          workshareLoopType, noLoopMode, hasDistSchedule, distScheduleChunk,
          !wsloopOp.getLinearVars().empty());
 
  if (failed(handleError(wsloopIP, opInst)))
    return failure();
 
  // Save the continuation block before linear var finalization, which may
  // invalidate the wsloopIP iterator.
  llvm::BasicBlock *wsloopContinuationBB = wsloopIP->getNodeParent();
 
  // Emit finalization and in-place rewrites for linear vars.
  if (!wsloopOp.getLinearVars().empty()) {
    llvm::OpenMPIRBuilder::InsertPointTy oldIP = builder.saveIP();
    assert(loopInfo->getLastIter() &&
           "`lastiter` in CanonicalLoopInfo is nullptr");
    llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterBarrierIP =
        linearClauseProcessor.finalizeLinearVar(builder, moduleTranslation,
                                                loopInfo->getLastIter());
    if (failed(handleError(afterBarrierIP, *loopOp)))
      return failure();
 
    builder.restoreIP(oldIP);
  }
 
  // Set the correct branch target for task cancellation
  popCancelFinalizationCB(cancelTerminators, *ompBuilder, wsloopContinuationBB);
 
  // Close the task-reduction scope before the worksharing reduction combine.
  if (isTaskReductionMod)
    emitTaskReductionModifierFini(/*isWorksharing=*/true, builder,
                                  moduleTranslation);
 
  // Process the reductions if required.
  if (failed(createReductionsAndCleanup(
          wsloopOp, builder, moduleTranslation, allocaIP, reductionDecls,
          privateReductionVariables, isByRef, wsloopOp.getNowait(),
          /*isTeamsReduction=*/false)))
    return failure();
 
  return cleanupPrivateVars(wsloopOp, builder, moduleTranslation,
                            wsloopOp.getLoc(), privateVarsInfo);
}
 
/// Converts the OpenMP parallel operation to LLVM IR.
static LogicalResult
convertOmpParallel(omp::ParallelOp opInst, llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation) {
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  ArrayRef<bool> isByRef = getIsByRef(opInst.getReductionByref());
  assert(isByRef.size() == opInst.getNumReductionVars());
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  bool isCancellable = constructIsCancellable(opInst);
 
  if (failed(checkImplementationStatus(*opInst)))
    return failure();
 
  PrivateVarsInfo privateVarsInfo(opInst);
  if (failed(convertAllocatorVars(*opInst, opInst.getAllocatorVars(), builder,
                                  moduleTranslation, privateVarsInfo)))
    return failure();
 
  // Collect reduction declarations
  SmallVector<omp::DeclareReductionOp> reductionDecls;
  collectReductionDecls(opInst, reductionDecls);
  SmallVector<llvm::Value *> privateReductionVariables(
      opInst.getNumReductionVars());
  SmallVector<DeferredStore> deferredStores;
  // Only open a task-reduction scope when the `task` modifier is present and
  // there are reduction variables to combine; otherwise the matching fini in
  // the reduction-combine path (guarded by getNumReductionVars() > 0) would be
  // skipped, leaving the modifier init unbalanced.
  bool isTaskReductionMod =
      opInst.hasReductionModifier(omp::ReductionModifier::task);
 
  auto bodyGenCB =
      [&](InsertPointTy allocaIP, InsertPointTy codeGenIP,
          llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) -> llvm::Error {
    llvm::Expected<llvm::BasicBlock *> afterAllocas = allocatePrivateVars(
        opInst, builder, moduleTranslation, privateVarsInfo, allocaIP);
    if (handleError(afterAllocas, *opInst).failed())
      return llvm::make_error<PreviouslyReportedError>();
 
    // Allocate reduction vars
    DenseMap<Value, llvm::Value *> reductionVariableMap;
 
    MutableArrayRef<BlockArgument> reductionArgs =
        cast<omp::BlockArgOpenMPOpInterface>(*opInst).getReductionBlockArgs();
 
    allocaIP = allocaIP.getNodeParent()->getTerminator()->getIterator();
 
    if (failed(allocReductionVars(
            opInst, reductionArgs, builder, moduleTranslation, allocaIP,
            reductionDecls, privateReductionVariables, reductionVariableMap,
            deferredStores, isByRef)))
      return llvm::make_error<PreviouslyReportedError>();
 
    assert(afterAllocas.get()->getSinglePredecessor());
    builder.restoreIP(codeGenIP);
 
    if (handleError(
            initPrivateVars(builder, moduleTranslation, privateVarsInfo),
            *opInst)
            .failed())
      return llvm::make_error<PreviouslyReportedError>();
 
    if (failed(completePrivateVars(
            opInst, builder, moduleTranslation, privateVarsInfo.mlirVars,
            privateVarsInfo.llvmVars, privateVarsInfo.privatizers,
            opInst.getPrivateNeedsBarrier())))
      return llvm::make_error<PreviouslyReportedError>();
 
    if (failed(
            initReductionVars(opInst, reductionArgs, builder, moduleTranslation,
                              afterAllocas.get()->getSinglePredecessor(),
                              reductionDecls, privateReductionVariables,
                              reductionVariableMap, isByRef, deferredStores)))
      return llvm::make_error<PreviouslyReportedError>();
 
    // For `reduction(task, ...)` open a task-reduction scope so participating
    // explicit tasks accumulate into the per-thread private copies; the
    // parallel reduction then combines those copies across the team.
    if (isTaskReductionMod &&
        !emitTaskReductionModifierInitCall(
            opInst, reductionDecls, privateReductionVariables, builder,
            allocaIP, moduleTranslation, /*isWorksharing=*/false))
      return llvm::createStringError(
          "failed to emit task reduction modifier initialization");
 
    // Save the alloca insertion point on ModuleTranslation stack for use in
    // nested regions.
    LLVM::ModuleTranslation::SaveStack<OpenMPAllocStackFrame> frame(
        moduleTranslation, allocaIP.getNodeParent(), deallocBlocks);
 
    // ParallelOp has only one region associated with it.
    llvm::Expected<llvm::BasicBlock *> regionBlock = convertOmpOpRegions(
        opInst.getRegion(), "omp.par.region", builder, moduleTranslation);
    if (!regionBlock)
      return regionBlock.takeError();
 
    // Process the reductions if required.
    if (opInst.getNumReductionVars() > 0) {
      // Collect reduction info
      SmallVector<OwningReductionGen> owningReductionGens;
      SmallVector<OwningAtomicReductionGen> owningAtomicReductionGens;
      SmallVector<OwningDataPtrPtrReductionGen>
          owningReductionGenRefDataPtrGens;
      SmallVector<llvm::OpenMPIRBuilder::ReductionInfo, 2> reductionInfos;
      collectReductionInfo(opInst, builder, moduleTranslation, reductionDecls,
                           owningReductionGens, owningAtomicReductionGens,
                           owningReductionGenRefDataPtrGens,
                           privateReductionVariables, reductionInfos, isByRef);
 
      // Move to region cont block
      builder.SetInsertPoint((*regionBlock)->getTerminator());
 
      // Close the task-reduction scope before the per-thread reduction
      // contributions are combined across the team.
      if (isTaskReductionMod)
        emitTaskReductionModifierFini(/*isWorksharing=*/false, builder,
                                      moduleTranslation);
 
      // Generate reductions from info
      llvm::UnreachableInst *tempTerminator = builder.CreateUnreachable();
      builder.SetInsertPoint(tempTerminator);
 
      llvm::OpenMPIRBuilder::InsertPointOrErrorTy contInsertPoint =
          ompBuilder->createReductions(builder, allocaIP, reductionInfos,
                                       isByRef,
                                       /*IsNoWait=*/false,
                                       /*IsTeamsReduction=*/false);
      if (!contInsertPoint)
        return contInsertPoint.takeError();
 
      if (!contInsertPoint->isValid())
        return llvm::make_error<PreviouslyReportedError>();
 
      tempTerminator->eraseFromParent();
      builder.restoreIP(*contInsertPoint);
    }
 
    return llvm::Error::success();
  };
 
  auto privCB = [](InsertPointTy allocaIP, InsertPointTy codeGenIP,
                   llvm::Value &, llvm::Value &val, llvm::Value *&replVal) {
    // tell OpenMPIRBuilder not to do anything. We handled Privatisation in
    // bodyGenCB.
    replVal = &val;
    return codeGenIP;
  };
 
  // TODO: Perform finalization actions for variables. This has to be
  // called for variables which have destructors/finalizers.
  auto finiCB = [&](InsertPointTy codeGenIP) -> llvm::Error {
    InsertPointTy oldIP = builder.saveIP();
    builder.restoreIP(codeGenIP);
 
    // if the reduction has a cleanup region, inline it here to finalize the
    // reduction variables
    SmallVector<Region *> reductionCleanupRegions;
    llvm::transform(reductionDecls, std::back_inserter(reductionCleanupRegions),
                    [](omp::DeclareReductionOp reductionDecl) {
                      return &reductionDecl.getCleanupRegion();
                    });
    if (failed(inlineOmpRegionCleanup(
            reductionCleanupRegions, privateReductionVariables,
            moduleTranslation, builder, "omp.reduction.cleanup")))
      return llvm::createStringError(
          "failed to inline `cleanup` region of `omp.declare_reduction`");
 
    if (failed(cleanupPrivateVars(opInst, builder, moduleTranslation,
                                  opInst.getLoc(), privateVarsInfo)))
      return llvm::make_error<PreviouslyReportedError>();
 
    // If we could be performing cancellation, add the cancellation barrier on
    // the way out of the outlined region.
    if (isCancellable) {
      auto IPOrErr = ompBuilder->createBarrier(
          llvm::OpenMPIRBuilder::LocationDescription(builder),
          llvm::omp::Directive::OMPD_unknown,
          /* ForceSimpleCall */ false,
          /* CheckCancelFlag */ false);
      if (!IPOrErr)
        return IPOrErr.takeError();
    }
 
    builder.restoreIP(oldIP);
    return llvm::Error::success();
  };
 
  llvm::Value *ifCond = nullptr;
  if (auto ifVar = opInst.getIfExpr())
    ifCond = moduleTranslation.lookupValue(ifVar);
  llvm::Value *numThreads = nullptr;
  if (!opInst.getNumThreadsVars().empty())
    numThreads = moduleTranslation.lookupValue(opInst.getNumThreads(0));
  auto pbKind = llvm::omp::OMP_PROC_BIND_default;
  if (auto bind = opInst.getProcBindKind())
    pbKind = getProcBindKind(*bind);
 
  llvm::SmallVector<llvm::BasicBlock *> deallocBlocks;
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation, &deallocBlocks);
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
 
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      ompBuilder->createParallel(ompLoc, allocaIP, deallocBlocks, bodyGenCB,
                                 privCB, finiCB, ifCond, numThreads, pbKind,
                                 isCancellable);
 
  if (failed(handleError(afterIP, *opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
/// Convert Order attribute to llvm::omp::OrderKind.
static llvm::omp::OrderKind
convertOrderKind(std::optional<omp::ClauseOrderKind> o) {
  if (!o)
    return llvm::omp::OrderKind::OMP_ORDER_unknown;
  switch (*o) {
  case omp::ClauseOrderKind::Concurrent:
    return llvm::omp::OrderKind::OMP_ORDER_concurrent;
  }
  llvm_unreachable("Unknown ClauseOrderKind kind");
}
 
/// Converts an OpenMP simd loop into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpSimd(Operation &opInst, llvm::IRBuilderBase &builder,
               LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  auto simdOp = cast<omp::SimdOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  PrivateVarsInfo privateVarsInfo(simdOp);
  privateVarsInfo.addLinearVars(simdOp);
 
  MutableArrayRef<BlockArgument> reductionArgs =
      cast<omp::BlockArgOpenMPOpInterface>(opInst).getReductionBlockArgs();
  DenseMap<Value, llvm::Value *> reductionVariableMap;
  SmallVector<llvm::Value *> privateReductionVariables(
      simdOp.getNumReductionVars());
  SmallVector<DeferredStore> deferredStores;
  SmallVector<omp::DeclareReductionOp> reductionDecls;
  collectReductionDecls(simdOp, reductionDecls);
  llvm::ArrayRef<bool> isByRef = getIsByRef(simdOp.getReductionByref());
  assert(isByRef.size() == simdOp.getNumReductionVars());
 
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation);
 
  llvm::Expected<llvm::BasicBlock *> afterAllocas = allocatePrivateVars(
      simdOp, builder, moduleTranslation, privateVarsInfo, allocaIP);
  if (handleError(afterAllocas, opInst).failed())
    return failure();
 
  if (failed(allocReductionVars(simdOp, reductionArgs, builder,
                                moduleTranslation, allocaIP, reductionDecls,
                                privateReductionVariables, reductionVariableMap,
                                deferredStores, isByRef)))
    return failure();
 
  if (handleError(initPrivateVars(builder, moduleTranslation, privateVarsInfo),
                  opInst)
          .failed())
    return failure();
 
  // No call to completePrivateVars because SIMD does not allow FIRSTPRIVATE and
  // is not a worksharing construct, so a privatization barrier here could
  // deadlock.
 
  // Initialize linear variables and linear step
  LinearClauseProcessor linearClauseProcessor;
  if (linearClauseProcessor.initLinearIV(simdOp).failed())
    return failure();
 
  if (!simdOp.getLinearVars().empty()) {
    auto linearVarTypes = simdOp.getLinearVarTypes().value();
    for (mlir::Attribute linearVarType : linearVarTypes)
      linearClauseProcessor.registerType(moduleTranslation, linearVarType);
    for (auto [idx, linearVar] : llvm::enumerate(simdOp.getLinearVars())) {
      size_t privIdx = privateVarsInfo.numPrivateVars + idx;
      linearClauseProcessor.createLinearVar(
          builder, allocaIP, privateVarsInfo.privatizers[privIdx],
          moduleTranslation.lookupValue(linearVar),
          privateVarsInfo.llvmVars[privIdx], idx);
    }
    for (mlir::Value linearStep : simdOp.getLinearStepVars())
      linearClauseProcessor.initLinearStep(moduleTranslation, linearStep);
  }
 
  assert(afterAllocas.get()->getSinglePredecessor());
  if (failed(initReductionVars(simdOp, reductionArgs, builder,
                               moduleTranslation,
                               afterAllocas.get()->getSinglePredecessor(),
                               reductionDecls, privateReductionVariables,
                               reductionVariableMap, isByRef, deferredStores)))
    return failure();
 
  llvm::ConstantInt *simdlen = nullptr;
  if (std::optional<uint64_t> simdlenVar = simdOp.getSimdlen())
    simdlen = builder.getInt64(simdlenVar.value());
 
  llvm::ConstantInt *safelen = nullptr;
  if (std::optional<uint64_t> safelenVar = simdOp.getSafelen())
    safelen = builder.getInt64(safelenVar.value());
 
  llvm::MapVector<llvm::Value *, llvm::Value *> alignedVars;
  llvm::omp::OrderKind order = convertOrderKind(simdOp.getOrder());
 
  llvm::BasicBlock *sourceBlock = builder.GetInsertBlock();
  std::optional<ArrayAttr> alignmentValues = simdOp.getAlignments();
  mlir::OperandRange operands = simdOp.getAlignedVars();
  for (size_t i = 0; i < operands.size(); ++i) {
    llvm::Value *alignment = nullptr;
    llvm::Value *llvmVal = moduleTranslation.lookupValue(operands[i]);
    llvm::Type *ty = llvmVal->getType();
 
    auto intAttr = cast<IntegerAttr>((*alignmentValues)[i]);
    alignment = builder.getInt64(intAttr.getInt());
    assert(ty->isPointerTy() && "Invalid type for aligned variable");
    assert(alignment && "Invalid alignment value");
 
    // Check if the alignment value is not a power of 2. If so, skip emitting
    // alignment.
    if (!intAttr.getValue().isPowerOf2())
      continue;
 
    auto curInsert = builder.saveIP();
    builder.SetInsertPoint(sourceBlock);
    llvmVal = builder.CreateLoad(ty, llvmVal);
    builder.restoreIP(curInsert);
    alignedVars[llvmVal] = alignment;
  }
 
  llvm::Expected<llvm::BasicBlock *> regionBlock = convertOmpOpRegions(
      simdOp.getRegion(), "omp.simd.region", builder, moduleTranslation);
 
  if (failed(handleError(regionBlock, opInst)))
    return failure();
 
  llvm::CanonicalLoopInfo *loopInfo = findCurrentLoopInfo(moduleTranslation);
  // Emit Initialization for linear variables
  if (simdOp.getLinearVars().size()) {
    if (failed(handleError(
            linearClauseProcessor.initLinearVar(builder, moduleTranslation,
                                                loopInfo->getPreheader()),
            opInst)))
      return failure();
 
    if (failed(handleError(linearClauseProcessor.updateLinearVar(
                               builder, moduleTranslation, loopInfo->getBody(),
                               loopInfo->getIndVar()),
                           opInst)))
      return failure();
  }
  builder.SetInsertPoint((*regionBlock)->begin());
 
  ompBuilder->applySimd(loopInfo, alignedVars,
                        simdOp.getIfExpr()
                            ? moduleTranslation.lookupValue(simdOp.getIfExpr())
                            : nullptr,
                        order, simdlen, safelen);
 
  if (failed(handleError(
          linearClauseProcessor.updateLinearIV(builder, moduleTranslation),
          opInst)))
    return failure();
  if (failed(handleError(linearClauseProcessor.emitStoresForLinearVar(
                             builder, moduleTranslation),
                         opInst)))
    return failure();
 
  // We now need to reduce the per-simd-lane reduction variable into the
  // original variable. This works a bit differently to other reductions (e.g.
  // wsloop) because we don't need to call into the OpenMP runtime to handle
  // threads: everything happened in this one thread.
  for (auto [i, tuple] : llvm::enumerate(
           llvm::zip(reductionDecls, isByRef, simdOp.getReductionVars(),
                     privateReductionVariables))) {
    auto [decl, byRef, reductionVar, privateReductionVar] = tuple;
 
    OwningReductionGen gen = makeReductionGen(decl, builder, moduleTranslation);
    llvm::Value *originalVariable = moduleTranslation.lookupValue(reductionVar);
    llvm::Type *reductionType = moduleTranslation.convertType(decl.getType());
 
    // We have one less load for by-ref case because that load is now inside of
    // the reduction region.
    llvm::Value *redValue = originalVariable;
    if (!byRef)
      redValue =
          builder.CreateLoad(reductionType, redValue, "red.value." + Twine(i));
    llvm::Value *privateRedValue = builder.CreateLoad(
        reductionType, privateReductionVar, "red.private.value." + Twine(i));
    llvm::Value *reduced;
 
    auto res = gen(builder.saveIP(), redValue, privateRedValue, reduced);
    if (failed(handleError(res, opInst)))
      return failure();
    builder.restoreIP(res.get());
 
    // For by-ref case, the store is inside of the reduction region.
    if (!byRef)
      builder.CreateStore(reduced, originalVariable);
  }
 
  // After the construct, deallocate private reduction variables.
  SmallVector<Region *> reductionRegions;
  llvm::transform(reductionDecls, std::back_inserter(reductionRegions),
                  [](omp::DeclareReductionOp reductionDecl) {
                    return &reductionDecl.getCleanupRegion();
                  });
  if (failed(inlineOmpRegionCleanup(reductionRegions, privateReductionVariables,
                                    moduleTranslation, builder,
                                    "omp.reduction.cleanup")))
    return failure();
 
  return cleanupPrivateVars(simdOp, builder, moduleTranslation, simdOp.getLoc(),
                            privateVarsInfo);
}
 
/// Select Virtual only for two constant-count host worksharing loops.
static llvm::OpenMPIRBuilder::CollapseIVMapping
selectCollapseIVMapping(omp::LoopNestOp loopOp, bool isTargetDevice,
                        ArrayRef<llvm::CanonicalLoopInfo *> loops) {
  using Mapping = llvm::OpenMPIRBuilder::CollapseIVMapping;
  if (isTargetDevice || loopOp.getCollapseNumLoops() != 2 ||
      disableVirtualCollapse)
    return Mapping::DivMod;
  auto wsloop = dyn_cast<omp::WsloopOp>(loopOp->getParentOp());
  if (!wsloop || isa<omp::LoopWrapperInterface>(wsloop->getParentOp()) ||
      wsloop.getScheduleKind().value_or(omp::ClauseScheduleKind::Static) !=
          omp::ClauseScheduleKind::Static ||
      wsloop.getScheduleChunk() || wsloop.getOrdered().has_value() ||
      !wsloop.getLinearVars().empty())
    return Mapping::DivMod;
  // Use the existing normalized counts; the builder also validates direct
  // API callers.
  if (llvm::any_of(loops, [](llvm::CanonicalLoopInfo *loop) {
        auto *count = llvm::dyn_cast<llvm::ConstantInt>(loop->getTripCount());
        return !count;
      }))
    return Mapping::DivMod;
  return Mapping::Virtual;
}
 
/// Converts an OpenMP loop nest into LLVM IR using OpenMPIRBuilder.
static LogicalResult
convertOmpLoopNest(Operation &opInst, llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  auto loopOp = cast<omp::LoopNestOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  // Set up the source location value for OpenMP runtime.
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
 
  // Generator of the canonical loop body.
  SmallVector<llvm::CanonicalLoopInfo *> loopInfos;
  SmallVector<llvm::OpenMPIRBuilder::InsertPointTy> bodyInsertPoints;
  auto bodyGen = [&](llvm::OpenMPIRBuilder::InsertPointTy ip,
                     llvm::Value *iv) -> llvm::Error {
    // Make sure further conversions know about the induction variable.
    moduleTranslation.mapValue(
        loopOp.getRegion().front().getArgument(loopInfos.size()), iv);
 
    // Capture the body insertion point for use in nested loops. BodyIP of the
    // CanonicalLoopInfo always points to the beginning of the entry block of
    // the body.
    bodyInsertPoints.push_back(ip);
 
    if (loopInfos.size() != loopOp.getNumLoops() - 1)
      return llvm::Error::success();
 
    // Convert the body of the loop.
    builder.restoreIP(ip);
    llvm::Expected<llvm::BasicBlock *> regionBlock = convertOmpOpRegions(
        loopOp.getRegion(), "omp.loop_nest.region", builder, moduleTranslation);
    if (!regionBlock)
      return regionBlock.takeError();
 
    builder.SetInsertPoint((*regionBlock)->begin());
    return llvm::Error::success();
  };
 
  // Delegate actual loop construction to the OpenMP IRBuilder.
  // TODO: this currently assumes omp.loop_nest is semantically similar to SCF
  // loop, i.e. it has a positive step, uses signed integer semantics.
  // Reconsider this code when the nested loop operation clearly supports more
  // cases.
  for (unsigned i = 0, e = loopOp.getNumLoops(); i < e; ++i) {
    llvm::Value *lowerBound =
        moduleTranslation.lookupValue(loopOp.getLoopLowerBounds()[i]);
    llvm::Value *upperBound =
        moduleTranslation.lookupValue(loopOp.getLoopUpperBounds()[i]);
    llvm::Value *step = moduleTranslation.lookupValue(loopOp.getLoopSteps()[i]);
 
    // Make sure loop trip count are emitted in the preheader of the outermost
    // loop at the latest so that they are all available for the new collapsed
    // loop will be created below.
    llvm::OpenMPIRBuilder::LocationDescription loc = ompLoc;
    llvm::OpenMPIRBuilder::InsertPointTy computeIP = ompLoc.IP;
    if (i != 0) {
      loc = llvm::OpenMPIRBuilder::LocationDescription(bodyInsertPoints.back(),
                                                       ompLoc.DL);
      computeIP = loopInfos.front()->getPreheaderIP();
    }
 
    llvm::Expected<llvm::CanonicalLoopInfo *> loopResult =
        ompBuilder->createCanonicalLoop(
            loc, bodyGen, lowerBound, upperBound, step,
            /*IsSigned=*/true, loopOp.getLoopInclusive(), computeIP);
 
    if (failed(handleError(loopResult, *loopOp)))
      return failure();
 
    loopInfos.push_back(*loopResult);
  }
 
  llvm::OpenMPIRBuilder::InsertPointTy afterIP =
      loopInfos.front()->getAfterIP();
 
  // Do tiling.
  if (const auto &tiles = loopOp.getTileSizes()) {
    llvm::Type *ivType = loopInfos.front()->getIndVarType();
    SmallVector<llvm::Value *> tileSizes;
 
    for (auto tile : tiles.value()) {
      llvm::Value *tileVal = llvm::ConstantInt::get(ivType, tile);
      tileSizes.push_back(tileVal);
    }
 
    std::vector<llvm::CanonicalLoopInfo *> newLoops =
        ompBuilder->tileLoops(ompLoc.DL, loopInfos, tileSizes);
 
    // Update afterIP to get the correct insertion point after
    // tiling.
    llvm::BasicBlock *afterBB = newLoops.front()->getAfter();
    llvm::BasicBlock *afterAfterBB = afterBB->getSingleSuccessor();
    afterIP = afterAfterBB->begin();
 
    // Update the loop infos.
    loopInfos.clear();
    for (const auto &newLoop : newLoops)
      loopInfos.push_back(newLoop);
  } // Tiling done.
 
  // Do collapse.
  const auto &numCollapse = loopOp.getCollapseNumLoops();
  SmallVector<llvm::CanonicalLoopInfo *> collapseLoopInfos(
      loopInfos.begin(), loopInfos.begin() + (numCollapse));
 
  llvm::SaveAndRestore<llvm::OpenMPIRBuilder::CollapseIVMapping> mappingGuard(
      ompBuilder->Config.CollapseMapping,
      selectCollapseIVMapping(loopOp, ompBuilder->Config.isTargetDevice(),
                              collapseLoopInfos));
  auto newTopLoopInfo =
      ompBuilder->collapseLoops(ompLoc.DL, collapseLoopInfos, {});
 
  assert(newTopLoopInfo && "New top loop information is missing");
  moduleTranslation.stackWalk<OpenMPLoopInfoStackFrame>(
      [&](OpenMPLoopInfoStackFrame &frame) {
        frame.loopInfo = newTopLoopInfo;
        return WalkResult::interrupt();
      });
 
  // Continue building IR after the loop. Note that the LoopInfo returned by
  // `collapseLoops` points inside the outermost loop and is intended for
  // potential further loop transformations. Use the insertion point stored
  // before collapsing loops instead.
  builder.restoreIP(afterIP);
  return success();
}
 
/// Convert an omp.canonical_loop to LLVM-IR
static LogicalResult
convertOmpCanonicalLoopOp(omp::CanonicalLoopOp op, llvm::IRBuilderBase &builder,
                          LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  llvm::OpenMPIRBuilder::LocationDescription loopLoc(builder);
  Value loopIV = op.getInductionVar();
  Value loopTC = op.getTripCount();
 
  llvm::Value *llvmTC = moduleTranslation.lookupValue(loopTC);
 
  llvm::Expected<llvm::CanonicalLoopInfo *> llvmOrError =
      ompBuilder->createCanonicalLoop(
          loopLoc,
          [&](llvm::OpenMPIRBuilder::InsertPointTy ip, llvm::Value *llvmIV) {
            // Register the mapping of MLIR induction variable to LLVM-IR
            // induction variable
            moduleTranslation.mapValue(loopIV, llvmIV);
 
            builder.restoreIP(ip);
            llvm::Expected<llvm::BasicBlock *> bodyGenStatus =
                convertOmpOpRegions(op.getRegion(), "omp.loop.region", builder,
                                    moduleTranslation);
 
            return bodyGenStatus.takeError();
          },
          llvmTC, "omp.loop");
  if (!llvmOrError)
    return op.emitError(llvm::toString(llvmOrError.takeError()));
 
  llvm::CanonicalLoopInfo *llvmCLI = *llvmOrError;
  llvm::IRBuilderBase::InsertPoint afterIP = llvmCLI->getAfterIP();
  builder.restoreIP(afterIP);
 
  // Register the mapping of MLIR loop to LLVM-IR OpenMPIRBuilder loop
  if (Value cli = op.getCli())
    mapOmpLoop(moduleTranslation, cli, llvmCLI);
 
  return success();
}
 
/// Apply a `#pragma omp unroll` / "!$omp unroll" transformation using the
/// OpenMPIRBuilder.
static LogicalResult
applyUnrollHeuristic(omp::UnrollHeuristicOp op, llvm::IRBuilderBase &builder,
                     LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  Value applyee = op.getApplyee();
  assert(applyee && "Loop to apply unrolling on required");
 
  llvm::CanonicalLoopInfo *consBuilderCLI =
      lookupOMPLoop(moduleTranslation, applyee);
  llvm::OpenMPIRBuilder::LocationDescription loc(builder);
  ompBuilder->unrollLoopHeuristic(loc.DL, consBuilderCLI);
 
  invalidateOmpLoop(moduleTranslation, applyee);
  return success();
}
 
/// Apply a `#pragma omp unroll full` / `!$omp unroll full` transformation
/// using the OpenMPIRBuilder.
static LogicalResult
applyUnrollFull(omp::UnrollFullOp op, llvm::IRBuilderBase &builder,
                LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  Value applyee = op.getApplyee();
  assert(applyee && "Loop to apply unrolling on required");
 
  llvm::CanonicalLoopInfo *consBuilderCLI =
      lookupOMPLoop(moduleTranslation, applyee);
  llvm::OpenMPIRBuilder::LocationDescription loc(builder);
  ompBuilder->unrollLoopFull(loc.DL, consBuilderCLI);
 
  invalidateOmpLoop(moduleTranslation, applyee);
  return success();
}
 
/// Apply a `#pragma omp unroll partial` / `!$omp unroll partial`
/// transformation using the OpenMPIRBuilder.
static LogicalResult
applyUnrollPartial(omp::UnrollPartialOp op, llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  Value applyee = op.getApplyee();
  assert(applyee && "Loop to apply unrolling on required");
 
  llvm::CanonicalLoopInfo *consBuilderCLI =
      lookupOMPLoop(moduleTranslation, applyee);
  llvm::OpenMPIRBuilder::LocationDescription loc(builder);
 
  // No generatee is supported yet, so the unrolled loop's CanonicalLoopInfo is
  // not requested and unrolling is deferred to LLVM's LoopUnroll pass.
  int32_t factor = static_cast<int32_t>(op.getUnrollFactor());
  ompBuilder->unrollLoopPartial(loc.DL, consBuilderCLI, factor,
                                /*UnrolledCLI=*/nullptr);
 
  invalidateOmpLoop(moduleTranslation, applyee);
  return success();
}
 
/// Apply a `#pragma omp tile` / `!$omp tile` transformation using the
/// OpenMPIRBuilder.
static LogicalResult applyTile(omp::TileOp op, llvm::IRBuilderBase &builder,
                               LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::OpenMPIRBuilder::LocationDescription loc(builder);
 
  SmallVector<llvm::CanonicalLoopInfo *> translatedLoops;
  SmallVector<llvm::Value *> translatedSizes;
 
  for (Value size : op.getSizes()) {
    llvm::Value *translatedSize = moduleTranslation.lookupValue(size);
    assert(translatedSize &&
           "sizes clause arguments must already be translated");
    translatedSizes.push_back(translatedSize);
  }
 
  for (Value applyee : op.getApplyees()) {
    llvm::CanonicalLoopInfo *consBuilderCLI =
        lookupOMPLoop(moduleTranslation, applyee);
    assert(applyee && "Canonical loop must already been translated");
    translatedLoops.push_back(consBuilderCLI);
  }
 
  auto generatedLoops =
      ompBuilder->tileLoops(loc.DL, translatedLoops, translatedSizes);
  if (!op.getGeneratees().empty()) {
    for (auto [mlirLoop, genLoop] :
         zip_equal(op.getGeneratees(), generatedLoops))
      mapOmpLoop(moduleTranslation, mlirLoop, genLoop);
  }
 
  // CLIs can only be consumed once
  for (Value applyee : op.getApplyees())
    invalidateOmpLoop(moduleTranslation, applyee);
 
  return success();
}
 
/// Apply a `#pragma omp fuse` / `!$omp fuse` transformation using the
/// OpenMPIRBuilder.
static LogicalResult applyFuse(omp::FuseOp op, llvm::IRBuilderBase &builder,
                               LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::OpenMPIRBuilder::LocationDescription loc(builder);
 
  // Select what CLIs are going to be fused
  SmallVector<llvm::CanonicalLoopInfo *> beforeFuse, toFuse, afterFuse;
  for (size_t i = 0; i < op.getApplyees().size(); i++) {
    Value applyee = op.getApplyees()[i];
    llvm::CanonicalLoopInfo *consBuilderCLI =
        lookupOMPLoop(moduleTranslation, applyee);
    assert(applyee && "Canonical loop must already been translated");
    if (op.getFirst().has_value() && i < op.getFirst().value() - 1)
      beforeFuse.push_back(consBuilderCLI);
    else if (op.getCount().has_value() &&
             i >= op.getFirst().value() + op.getCount().value() - 1)
      afterFuse.push_back(consBuilderCLI);
    else
      toFuse.push_back(consBuilderCLI);
  }
  assert(
      (op.getGeneratees().empty() ||
       beforeFuse.size() + afterFuse.size() + 1 == op.getGeneratees().size()) &&
      "Wrong number of generatees");
 
  // do the fuse
  auto generatedLoop = ompBuilder->fuseLoops(loc.DL, toFuse);
  if (!op.getGeneratees().empty()) {
    size_t i = 0;
    for (; i < beforeFuse.size(); i++)
      mapOmpLoop(moduleTranslation, op.getGeneratees()[i], beforeFuse[i]);
    mapOmpLoop(moduleTranslation, op.getGeneratees()[i++], generatedLoop);
    for (; i < afterFuse.size(); i++)
      mapOmpLoop(moduleTranslation, op.getGeneratees()[i], afterFuse[i]);
  }
 
  // CLIs can only be consumed once
  for (Value applyee : op.getApplyees())
    invalidateOmpLoop(moduleTranslation, applyee);
 
  return success();
}
 
/// Convert an Atomic Ordering attribute to llvm::AtomicOrdering.
static llvm::AtomicOrdering
convertAtomicOrdering(std::optional<omp::ClauseMemoryOrderKind> ao) {
  if (!ao)
    return llvm::AtomicOrdering::Monotonic; // Default Memory Ordering
 
  switch (*ao) {
  case omp::ClauseMemoryOrderKind::Seq_cst:
    return llvm::AtomicOrdering::SequentiallyConsistent;
  case omp::ClauseMemoryOrderKind::Acq_rel:
    return llvm::AtomicOrdering::AcquireRelease;
  case omp::ClauseMemoryOrderKind::Acquire:
    return llvm::AtomicOrdering::Acquire;
  case omp::ClauseMemoryOrderKind::Release:
    return llvm::AtomicOrdering::Release;
  case omp::ClauseMemoryOrderKind::Relaxed:
    return llvm::AtomicOrdering::Monotonic;
  }
  llvm_unreachable("Unknown ClauseMemoryOrderKind kind");
}
 
/// Compute the cmpxchg failure ordering for an atomic compare op: use the
/// `fail` clause ordering when present (the verifier guarantees it is a valid
/// cmpxchg failure ordering), otherwise the strongest failure ordering derived
/// from the success ordering (which matches the OpenMPIRBuilder default).
static llvm::AtomicOrdering
getAtomicCompareFailureOrdering(omp::AtomicCompareOp atomicCompareOp,
                                llvm::AtomicOrdering atomicOrdering) {
  if (atomicCompareOp.getFailMemoryOrder())
    return convertAtomicOrdering(atomicCompareOp.getFailMemoryOrder());
  return llvm::AtomicCmpXchgInst::getStrongestFailureOrdering(atomicOrdering);
}
 
/// Convert omp.atomic.read operation to LLVM IR.
static LogicalResult
convertOmpAtomicRead(Operation &opInst, llvm::IRBuilderBase &builder,
                     LLVM::ModuleTranslation &moduleTranslation) {
  auto readOp = cast<omp::AtomicReadOp>(opInst);
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation);
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
 
  llvm::AtomicOrdering AO = convertAtomicOrdering(readOp.getMemoryOrder());
  llvm::Value *x = moduleTranslation.lookupValue(readOp.getX());
  llvm::Value *v = moduleTranslation.lookupValue(readOp.getV());
 
  llvm::Type *elementType =
      moduleTranslation.convertType(readOp.getElementType());
 
  llvm::OpenMPIRBuilder::AtomicOpValue V = {v, elementType, false, false};
  llvm::OpenMPIRBuilder::AtomicOpValue X = {x, elementType, false, false};
  builder.restoreIP(ompBuilder->createAtomicRead(ompLoc, X, V, AO, allocaIP));
  return success();
}
 
/// Converts an omp.atomic.write operation to LLVM IR.
static LogicalResult
convertOmpAtomicWrite(Operation &opInst, llvm::IRBuilderBase &builder,
                      LLVM::ModuleTranslation &moduleTranslation) {
  auto writeOp = cast<omp::AtomicWriteOp>(opInst);
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation);
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::AtomicOrdering ao = convertAtomicOrdering(writeOp.getMemoryOrder());
  llvm::Value *expr = moduleTranslation.lookupValue(writeOp.getExpr());
  llvm::Value *dest = moduleTranslation.lookupValue(writeOp.getX());
  llvm::Type *ty = moduleTranslation.convertType(writeOp.getExpr().getType());
  llvm::OpenMPIRBuilder::AtomicOpValue x = {dest, ty, /*isSigned=*/false,
                                            /*isVolatile=*/false};
  builder.restoreIP(
      ompBuilder->createAtomicWrite(ompLoc, x, expr, ao, allocaIP));
  return success();
}
 
/// Converts an LLVM dialect binary operation to the corresponding enum value
/// for `atomicrmw` supported binary operation.
static llvm::AtomicRMWInst::BinOp convertBinOpToAtomic(Operation &op) {
  return llvm::TypeSwitch<Operation *, llvm::AtomicRMWInst::BinOp>(&op)
      .Case([&](LLVM::AddOp) { return llvm::AtomicRMWInst::BinOp::Add; })
      .Case([&](LLVM::SubOp) { return llvm::AtomicRMWInst::BinOp::Sub; })
      .Case([&](LLVM::AndOp) { return llvm::AtomicRMWInst::BinOp::And; })
      .Case([&](LLVM::OrOp) { return llvm::AtomicRMWInst::BinOp::Or; })
      .Case([&](LLVM::XOrOp) { return llvm::AtomicRMWInst::BinOp::Xor; })
      .Case([&](LLVM::SMaxOp) { return llvm::AtomicRMWInst::BinOp::Max; })
      .Case([&](LLVM::SMinOp) { return llvm::AtomicRMWInst::BinOp::Min; })
      .Case([&](LLVM::UMaxOp) { return llvm::AtomicRMWInst::BinOp::UMax; })
      .Case([&](LLVM::UMinOp) { return llvm::AtomicRMWInst::BinOp::UMin; })
      .Case([&](LLVM::FAddOp) { return llvm::AtomicRMWInst::BinOp::FAdd; })
      .Case([&](LLVM::FSubOp) { return llvm::AtomicRMWInst::BinOp::FSub; })
      .Case([&](LLVM::MaxNumOp) { return llvm::AtomicRMWInst::BinOp::FMax; })
      .Case([&](LLVM::MinNumOp) { return llvm::AtomicRMWInst::BinOp::FMin; })
      .Case(
          [&](LLVM::MaximumOp) { return llvm::AtomicRMWInst::BinOp::FMaximum; })
      .Case(
          [&](LLVM::MinimumOp) { return llvm::AtomicRMWInst::BinOp::FMinimum; })
      .Default(llvm::AtomicRMWInst::BinOp::BAD_BINOP);
}
 
static void extractAtomicControlFlags(omp::AtomicUpdateOp atomicUpdateOp,
                                      bool &isIgnoreDenormalMode,
                                      bool &isFineGrainedMemory,
                                      bool &isRemoteMemory) {
  isIgnoreDenormalMode = false;
  isFineGrainedMemory = false;
  isRemoteMemory = false;
  if (atomicUpdateOp && atomicUpdateOp.getAtomicControlAttr()) {
    mlir::omp::AtomicControlAttr atomicControlAttr =
        atomicUpdateOp.getAtomicControlAttr();
    isIgnoreDenormalMode = atomicControlAttr.getIgnoreDenormalMode();
    isFineGrainedMemory = atomicControlAttr.getFineGrainedMemory();
    isRemoteMemory = atomicControlAttr.getRemoteMemory();
  }
}
 
/// Converts an OpenMP atomic update operation using OpenMPIRBuilder.
static LogicalResult
convertOmpAtomicUpdate(omp::AtomicUpdateOp &opInst,
                       llvm::IRBuilderBase &builder,
                       LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  if (failed(checkImplementationStatus(*opInst)))
    return failure();
 
  // Convert values and types.
  auto &innerOpList = opInst.getRegion().front().getOperations();
  bool isXBinopExpr{false};
  llvm::AtomicRMWInst::BinOp binop;
  mlir::Value mlirExpr;
  llvm::Value *llvmExpr = nullptr;
  llvm::Value *llvmX = nullptr;
  llvm::Type *llvmXElementType = nullptr;
  if (innerOpList.size() == 2) {
    // The two operations here are the update and the terminator.
    // Since we can identify the update operation, there is a possibility
    // that we can generate the atomicrmw instruction.
    mlir::Operation &innerOp = *opInst.getRegion().front().begin();
    if (!llvm::is_contained(innerOp.getOperands(),
                            opInst.getRegion().getArgument(0))) {
      return opInst.emitError("no atomic update operation with region argument"
                              " as operand found inside atomic.update region");
    }
    binop = convertBinOpToAtomic(innerOp);
    isXBinopExpr = innerOp.getOperand(0) == opInst.getRegion().getArgument(0);
    mlirExpr = (isXBinopExpr ? innerOp.getOperand(1) : innerOp.getOperand(0));
    llvmExpr = moduleTranslation.lookupValue(mlirExpr);
  } else {
    // Since the update region includes more than one operation
    // we will resort to generating a cmpxchg loop.
    binop = llvm::AtomicRMWInst::BinOp::BAD_BINOP;
  }
  llvmX = moduleTranslation.lookupValue(opInst.getX());
  llvmXElementType = moduleTranslation.convertType(
      opInst.getRegion().getArgument(0).getType());
  llvm::OpenMPIRBuilder::AtomicOpValue llvmAtomicX = {llvmX, llvmXElementType,
                                                      /*isSigned=*/false,
                                                      /*isVolatile=*/false};
 
  llvm::AtomicOrdering atomicOrdering =
      convertAtomicOrdering(opInst.getMemoryOrder());
 
  // Generate update code.
  auto updateFn =
      [&opInst, &moduleTranslation](
          llvm::Value *atomicx,
          llvm::IRBuilder<> &builder) -> llvm::Expected<llvm::Value *> {
    Block &bb = *opInst.getRegion().begin();
    moduleTranslation.mapValue(*opInst.getRegion().args_begin(), atomicx);
    moduleTranslation.mapBlock(&bb, builder.GetInsertBlock());
    if (failed(moduleTranslation.convertBlock(bb, true, builder)))
      return llvm::make_error<PreviouslyReportedError>();
 
    omp::YieldOp yieldop = dyn_cast<omp::YieldOp>(bb.getTerminator());
    assert(yieldop && yieldop.getResults().size() == 1 &&
           "terminator must be omp.yield op and it must have exactly one "
           "argument");
    return moduleTranslation.lookupValue(yieldop.getResults()[0]);
  };
 
  bool isIgnoreDenormalMode;
  bool isFineGrainedMemory;
  bool isRemoteMemory;
  extractAtomicControlFlags(opInst, isIgnoreDenormalMode, isFineGrainedMemory,
                            isRemoteMemory);
  // Handle ambiguous alloca, if any.
  auto allocaIP = findAllocInsertPoints(builder, moduleTranslation);
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      ompBuilder->createAtomicUpdate(ompLoc, allocaIP, llvmAtomicX, llvmExpr,
                                     atomicOrdering, binop, updateFn,
                                     isXBinopExpr, isIgnoreDenormalMode,
                                     isFineGrainedMemory, isRemoteMemory);
 
  if (failed(handleError(afterIP, *opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
/// Helper to extract the OMPAtomicCompareOp from an integer comparison
/// predicate. Returns std::nullopt for unsupported predicates.
static std::optional<llvm::omp::OMPAtomicCompareOp>
convertICmpPredicateToAtomicCompareOp(LLVM::ICmpPredicate predicate) {
  switch (predicate) {
  case LLVM::ICmpPredicate::eq:
    return llvm::omp::OMPAtomicCompareOp::EQ;
  case LLVM::ICmpPredicate::slt:
  case LLVM::ICmpPredicate::ult:
    return llvm::omp::OMPAtomicCompareOp::MIN;
  case LLVM::ICmpPredicate::sgt:
  case LLVM::ICmpPredicate::ugt:
    return llvm::omp::OMPAtomicCompareOp::MAX;
  default:
    return std::nullopt;
  }
}
 
/// Helper to extract the OMPAtomicCompareOp from a floating-point comparison
/// predicate. Returns std::nullopt for unsupported predicates.
static std::optional<llvm::omp::OMPAtomicCompareOp>
convertFCmpPredicateToAtomicCompareOp(LLVM::FCmpPredicate predicate) {
  switch (predicate) {
  case LLVM::FCmpPredicate::oeq:
  case LLVM::FCmpPredicate::ueq:
    return llvm::omp::OMPAtomicCompareOp::EQ;
  case LLVM::FCmpPredicate::olt:
  case LLVM::FCmpPredicate::ult:
    return llvm::omp::OMPAtomicCompareOp::MIN;
  case LLVM::FCmpPredicate::ogt:
  case LLVM::FCmpPredicate::ugt:
    return llvm::omp::OMPAtomicCompareOp::MAX;
  default:
    return std::nullopt;
  }
}
 
/// Result of matching the decomposed complex equality pattern inside an atomic
/// compare region.
struct ComplexComparePattern {
  bool isComplex = false;
  bool isNE = false;         // `or` of the field compares => NE (unsupported).
  mlir::Value eAggregate;    // The complex expected value (`e`).
  bool isXBinopExpr = false; // True if x is the first fcmp operand.
};
 
/// Detect a decomposed complex equality comparison in an atomic compare region:
///   %re_x = llvm.extractvalue %xval[0]
///   %re_e = llvm.extractvalue %eStruct[0]
///   %cmp_re = llvm.fcmp "oeq" %re_x, %re_e
///   %im_x = llvm.extractvalue %xval[1]
///   %im_e = llvm.extractvalue %eStruct[1]
///   %cmp_im = llvm.fcmp "oeq" %im_x, %im_e
///   %cmp = llvm.and %cmp_re, %cmp_im   (llvm.or would be NE)
/// It is recognised by an and/or whose operands are both fcmps operating on
/// extractvalues, one chain rooted at the block argument (x) and the other at
/// the expected complex value (e).
static ComplexComparePattern detectComplexCompareEq(Block &block) {
  ComplexComparePattern result;
  auto traceToAggregate = [](mlir::Value v) -> mlir::Value {
    if (auto extractOp = v.getDefiningOp<LLVM::ExtractValueOp>())
      return extractOp.getContainer();
    return nullptr;
  };
  for (Operation &op : block.getOperations()) {
    if (!isa<LLVM::AndOp, LLVM::OrOp>(op))
      continue;
    auto lhsFcmp = op.getOperand(0).getDefiningOp<LLVM::FCmpOp>();
    auto rhsFcmp = op.getOperand(1).getDefiningOp<LLVM::FCmpOp>();
    if (!lhsFcmp || !rhsFcmp)
      continue;
    mlir::Value lhsAgg0 = traceToAggregate(lhsFcmp.getOperand(0));
    mlir::Value lhsAgg1 = traceToAggregate(lhsFcmp.getOperand(1));
    bool lhsXIsOp0 = (lhsAgg0 == block.getArgument(0));
    bool lhsXIsOp1 = (lhsAgg1 == block.getArgument(0));
    if (!lhsXIsOp0 && !lhsXIsOp1)
      continue;
    mlir::Value eAggregate = lhsXIsOp0 ? lhsAgg1 : lhsAgg0;
    if (!eAggregate)
      continue;
    result.isComplex = true;
    result.isNE = isa<LLVM::OrOp>(op);
    result.eAggregate = eAggregate;
    result.isXBinopExpr = lhsXIsOp0;
    break;
  }
  return result;
}
 
/// Emit an IEEE-754-correct `cmpxchg` for a complex (struct-typed) atomic
/// compare with `fcmp oeq`. The old value of X is returned (as the complex
/// struct type) in \p oldComplex and the success flag (i1) in \p cmpOk.
/// \p failOrdering is the memory ordering used when the compare-exchange does
/// not store; it must be a valid cmpxchg failure ordering.
static void emitComplexAtomicCmpXchg(llvm::IRBuilderBase &builder,
                                     llvm::Value *llvmX, llvm::Type *complexTy,
                                     llvm::Value *eVal, llvm::Value *dVal,
                                     llvm::AtomicOrdering atomicOrdering,
                                     llvm::AtomicOrdering failOrdering,
                                     bool isWeak, llvm::Value *&oldComplex,
                                     llvm::Value *&cmpOk) {
  const llvm::DataLayout &DL = builder.getDataLayout();
  unsigned totalBits = DL.getTypeStoreSizeInBits(complexTy).getFixedValue();
  llvm::IntegerType *intTy =
      llvm::IntegerType::get(builder.getContext(), totalBits);
  llvm::Align complexAlign = DL.getABITypeAlign(complexTy);
  llvm::Align intAlign = DL.getABITypeAlign(intTy);
  llvm::Align maxAlign = std::max(complexAlign, intAlign);
 
  // Spill D to obtain its integer bit pattern for the swap value.
  llvm::AllocaInst *dAlloca =
      builder.CreateAlloca(complexTy, nullptr, "cmplx.d");
  dAlloca->setAlignment(maxAlign);
  builder.CreateAlignedStore(dVal, dAlloca, maxAlign);
  llvm::Value *dInt =
      builder.CreateAlignedLoad(intTy, dAlloca, maxAlign, "cmplx.d.int");
 
  // Load X atomically and reinterpret as complex. Use the failure ordering: on
  // a failed component comparison we branch around the cmpxchg, so this load is
  // the only memory op on that path.
  llvm::LoadInst *xCurr =
      builder.CreateAlignedLoad(intTy, llvmX, maxAlign, "cmplx.x.load");
  xCurr->setAtomic(failOrdering);
  llvm::AllocaInst *xAlloca =
      builder.CreateAlloca(complexTy, nullptr, "cmplx.x");
  xAlloca->setAlignment(maxAlign);
  builder.CreateAlignedStore(xCurr, xAlloca, maxAlign);
  llvm::Value *xStruct =
      builder.CreateAlignedLoad(complexTy, xAlloca, maxAlign, "cmplx.x.val");
 
  // Component-wise IEEE-754 equality: `fcmp oeq` yields false for NaN (so a
  // NaN component correctly makes the compare fail) and true for +0.0 vs -0.0
  // (so a zero-sign difference does not spuriously fail the compare).
  llvm::Value *reX = builder.CreateExtractValue(xStruct, 0);
  llvm::Value *imX = builder.CreateExtractValue(xStruct, 1);
  llvm::Value *reE = builder.CreateExtractValue(eVal, 0);
  llvm::Value *imE = builder.CreateExtractValue(eVal, 1);
  llvm::Value *reEq = builder.CreateFCmpOEQ(reX, reE, "cmplx.re.eq");
  llvm::Value *imEq = builder.CreateFCmpOEQ(imX, imE, "cmplx.im.eq");
  llvm::Value *fpEqual = builder.CreateAnd(reEq, imEq, "cmplx.eq");
 
  // When the components compare equal, attempt the swap using X's own loaded
  // bit pattern as the comparand; otherwise the compare fails and X is left
  // unchanged (the captured old value is the value just loaded).
  llvm::BasicBlock *curBB = builder.GetInsertBlock();
  llvm::Function *fn = curBB->getParent();
  llvm::BasicBlock *swapBB =
      llvm::BasicBlock::Create(builder.getContext(), "cmplx.atomic.swap", fn);
  llvm::BasicBlock *exitBB =
      llvm::BasicBlock::Create(builder.getContext(), "cmplx.atomic.exit", fn);
  builder.CreateCondBr(fpEqual, swapBB, exitBB);
 
  builder.SetInsertPoint(swapBB);
  llvm::AtomicCmpXchgInst *cmpXchg = builder.CreateAtomicCmpXchg(
      llvmX, xCurr, dInt, maxAlign, atomicOrdering, failOrdering);
  cmpXchg->setWeak(isWeak);
  llvm::Value *oldSwap = builder.CreateExtractValue(cmpXchg, 0);
  llvm::Value *okSwap = builder.CreateExtractValue(cmpXchg, 1);
  builder.CreateBr(exitBB);
 
  // Merge the swap and no-swap paths.
  builder.SetInsertPoint(exitBB);
  llvm::PHINode *oldIntPHI = builder.CreatePHI(intTy, 2, "cmplx.old.int");
  oldIntPHI->addIncoming(oldSwap, swapBB);
  oldIntPHI->addIncoming(xCurr, curBB);
  llvm::PHINode *okPHI = builder.CreatePHI(builder.getInt1Ty(), 2, "cmplx.ok");
  okPHI->addIncoming(okSwap, swapBB);
  okPHI->addIncoming(builder.getFalse(), curBB);
 
  // Reinterpret the old integer value as the complex struct via memory.
  llvm::AllocaInst *oldAlloca =
      builder.CreateAlloca(complexTy, nullptr, "cmplx.old");
  oldAlloca->setAlignment(maxAlign);
  builder.CreateAlignedStore(oldIntPHI, oldAlloca, maxAlign);
  oldComplex = builder.CreateAlignedLoad(complexTy, oldAlloca, maxAlign,
                                         "cmplx.old.val");
  cmpOk = okPHI;
}
 
/// Holds the extracted comparison pattern information from an atomic compare
/// region.
struct AtomicComparePatternInfo {
  llvm::omp::OMPAtomicCompareOp compareOp = llvm::omp::OMPAtomicCompareOp::EQ;
  llvm::Value *eVal = nullptr;
  llvm::Value *dVal = nullptr;
  bool isXBinopExpr = false;
  bool isSigned = false;
};
/// Extract comparison predicate, expected value (e), desired value (d), and
/// related flags from an atomic compare region block by scanning for
/// icmp/fcmp/select/min/max operations.
static LogicalResult extractAtomicComparePattern(
    Block &block,
    llvm::function_ref<llvm::Value *(mlir::Value)> materializeValue,
    omp::AtomicCompareOp atomicCompareOp, AtomicComparePatternInfo &info) {
  // Complex equality is a decomposed per-field pattern (extractvalue + fcmp +
  // and) rather than a single scalar compare. Detect it first so the scalar
  // icmp/fcmp handling below does not mistake a real/imaginary field for the
  // whole expected value.
  if (ComplexComparePattern cplx = detectComplexCompareEq(block);
      cplx.isComplex) {
    if (cplx.isNE)
      return atomicCompareOp.emitError(
          "unsupported comparison predicate (NE) for complex atomic compare");
    info.compareOp = llvm::omp::OMPAtomicCompareOp::EQ;
    info.isXBinopExpr = cplx.isXBinopExpr;
    info.eVal = materializeValue(cplx.eAggregate);
    for (Operation &op : block.getOperations()) {
      if (auto selectOp = dyn_cast<LLVM::SelectOp>(op)) {
        info.dVal = materializeValue(selectOp.getTrueValue());
        break;
      }
    }
    return success();
  }
 
  for (Operation &op : block.getOperations()) {
    // Pre-filter: skip icmps that don't involve the block argument
    // (e.g., truthiness extractions from logical-to-integer conversion).
    if (auto icmpOp = dyn_cast<LLVM::ICmpOp>(op);
        icmpOp && icmpOp.getOperand(0) != block.getArgument(0) &&
        icmpOp.getOperand(1) != block.getArgument(0))
      continue;
 
    LogicalResult result =
        llvm::TypeSwitch<Operation *, LogicalResult>(&op)
            .Case<LLVM::ICmpOp>([&](LLVM::ICmpOp icmpOp) -> LogicalResult {
              auto maybeOp =
                  convertICmpPredicateToAtomicCompareOp(icmpOp.getPredicate());
              if (!maybeOp)
                return atomicCompareOp.emitError(
                    "unsupported comparison predicate in atomic compare");
              info.compareOp = *maybeOp;
              LLVM::ICmpPredicate pred = icmpOp.getPredicate();
              info.isSigned = (pred == LLVM::ICmpPredicate::slt ||
                               pred == LLVM::ICmpPredicate::sgt ||
                               pred == LLVM::ICmpPredicate::sle ||
                               pred == LLVM::ICmpPredicate::sge);
              info.isXBinopExpr =
                  (icmpOp.getOperand(0) == block.getArgument(0));
              mlir::Value eOperand = info.isXBinopExpr ? icmpOp.getOperand(1)
                                                       : icmpOp.getOperand(0);
              info.eVal = materializeValue(eOperand);
              return success();
            })
            .Case<LLVM::FCmpOp>([&](LLVM::FCmpOp fcmpOp) -> LogicalResult {
              auto maybeOp =
                  convertFCmpPredicateToAtomicCompareOp(fcmpOp.getPredicate());
              if (!maybeOp)
                return atomicCompareOp.emitError(
                    "unsupported comparison predicate in atomic compare");
              info.compareOp = *maybeOp;
              info.isXBinopExpr =
                  (fcmpOp.getOperand(0) == block.getArgument(0));
              mlir::Value eOperand = info.isXBinopExpr ? fcmpOp.getOperand(1)
                                                       : fcmpOp.getOperand(0);
              info.eVal = materializeValue(eOperand);
              return success();
            })
            .Case<LLVM::SelectOp>([&](LLVM::SelectOp selectOp) {
              if (!info.dVal)
                info.dVal = materializeValue(selectOp.getTrueValue());
              return success();
            })
            .Case<mlir::arith::MaxSIOp, mlir::arith::MinSIOp,
                  mlir::arith::MaxUIOp, mlir::arith::MinUIOp,
                  mlir::arith::MaximumFOp, mlir::arith::MinimumFOp,
                  LLVM::SMaxOp, LLVM::SMinOp, LLVM::UMaxOp, LLVM::UMinOp,
                  LLVM::MaxNumOp, LLVM::MinNumOp>([&](Operation *) {
              // Canonicalized min/max ops (arith or LLVM intrinsic form).
              // max(x,e) came from slt/ult/olt -> OMPAtomicCompareOp::MIN
              // min(x,e) came from sgt/ugt/ogt -> OMPAtomicCompareOp::MAX
              // (OMPIRBuilder inverts: MIN->atomicrmw max, MAX->atomicrmw min)
              bool isMax = isa<mlir::arith::MaxSIOp, mlir::arith::MaxUIOp,
                               mlir::arith::MaximumFOp, LLVM::SMaxOp,
                               LLVM::UMaxOp, LLVM::MaxNumOp>(op);
              info.compareOp = isMax ? llvm::omp::OMPAtomicCompareOp::MIN
                                     : llvm::omp::OMPAtomicCompareOp::MAX;
              info.isSigned = isa<mlir::arith::MaxSIOp, mlir::arith::MinSIOp,
                                  LLVM::SMaxOp, LLVM::SMinOp>(op);
              info.isXBinopExpr = (op.getOperand(0) == block.getArgument(0));
              mlir::Value eOperand =
                  info.isXBinopExpr ? op.getOperand(1) : op.getOperand(0);
              info.eVal = materializeValue(eOperand);
              info.dVal = info.eVal;
              return success();
            })
            .Default([](Operation *) { return success(); });
 
    if (failed(result))
      return result;
  }
  return success();
}
 
static LogicalResult
convertOmpAtomicCapture(omp::AtomicCaptureOp atomicCaptureOp,
                        llvm::IRBuilderBase &builder,
                        LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  if (failed(checkImplementationStatus(*atomicCaptureOp)))
    return failure();
 
  omp::AtomicUpdateOp atomicUpdateOp = atomicCaptureOp.getAtomicUpdateOp();
  omp::AtomicWriteOp atomicWriteOp = atomicCaptureOp.getAtomicWriteOp();
  omp::AtomicCompareOp atomicCompareOp = atomicCaptureOp.getAtomicCompareOp();
 
  // If the capture contains an atomic.compare, delegate to
  // createAtomicCompare with the capture variable (V) set.
  if (atomicCompareOp) {
    omp::AtomicReadOp atomicReadOp = atomicCaptureOp.getAtomicReadOp();
    assert(atomicReadOp && "expected atomic.read in capture+compare");
 
    Region &region = atomicCompareOp.getRegion();
    Block &block = region.front();
 
    llvm::Type *llvmXElementType =
        moduleTranslation.convertType(block.getArgument(0).getType());
    llvm::Value *llvmX = moduleTranslation.lookupValue(atomicCompareOp.getX());
    llvm::Value *llvmV = moduleTranslation.lookupValue(atomicReadOp.getV());
 
    bool isSigned = false;
    llvm::OpenMPIRBuilder::AtomicOpValue llvmAtomicX = {
        llvmX, llvmXElementType, isSigned, /*IsVolatile=*/false};
    llvm::OpenMPIRBuilder::AtomicOpValue llvmAtomicV = {
        llvmV, llvmXElementType, /*isSigned=*/false, /*IsVolatile=*/false};
    llvm::OpenMPIRBuilder::AtomicOpValue llvmAtomicR = {nullptr, nullptr, false,
                                                        false};
 
    llvm::AtomicOrdering atomicOrdering =
        convertAtomicOrdering(atomicCaptureOp.getMemoryOrder());
 
    // Pre-translate non-pattern operations inside the compare region.
    auto isAtomicComparePatternOp = [](Operation &op) {
      return llvm::isa<LLVM::ICmpOp, LLVM::FCmpOp, LLVM::SelectOp, LLVM::AndOp,
                       LLVM::OrOp, LLVM::SMaxOp, LLVM::SMinOp, LLVM::UMaxOp,
                       LLVM::UMinOp, LLVM::MaxNumOp, LLVM::MinNumOp,
                       mlir::arith::MaxSIOp, mlir::arith::MinSIOp,
                       mlir::arith::MaxUIOp, mlir::arith::MinUIOp,
                       mlir::arith::MaximumFOp, mlir::arith::MinimumFOp>(op);
    };
    for (Operation &op : block.without_terminator()) {
      if (isAtomicComparePatternOp(op))
        continue;
      bool allOperandsMapped =
          llvm::all_of(op.getOperands(), [&](mlir::Value v) {
            return moduleTranslation.lookupValue(v) != nullptr;
          });
      if (!allOperandsMapped)
        continue;
      if (failed(moduleTranslation.convertOperation(op, builder)))
        return atomicCompareOp.emitError(
            "failed to translate operation inside atomic compare region");
    }
 
    auto materializeValue = [&](mlir::Value val) -> llvm::Value * {
      if (llvm::Value *existing = moduleTranslation.lookupValue(val))
        return existing;
      if (auto loadOp = val.getDefiningOp<LLVM::LoadOp>()) {
        if (loadOp->getParentRegion() == &region) {
          llvm::Value *loadAddr =
              moduleTranslation.lookupValue(loadOp.getAddr());
          if (!loadAddr)
            return nullptr;
          llvm::Type *loadType =
              moduleTranslation.convertType(loadOp.getResult().getType());
          return builder.CreateLoad(loadType, loadAddr);
        }
      }
      return nullptr;
    };
 
    // Extract comparison predicate, eVal, and dVal from the region.
    AtomicComparePatternInfo patternInfo;
    if (failed(extractAtomicComparePattern(block, materializeValue,
                                           atomicCompareOp, patternInfo)))
      return failure();
 
    llvm::omp::OMPAtomicCompareOp compareOp = patternInfo.compareOp;
    llvm::Value *eVal = patternInfo.eVal;
    llvm::Value *dVal = patternInfo.dVal;
    bool isXBinopExpr = patternInfo.isXBinopExpr;
    isSigned = patternInfo.isSigned;
 
    if (!eVal)
      return atomicCompareOp.emitError(
          "failed to extract expected value (e) from atomic compare region");
    if (!dVal) {
      auto yieldOp = cast<omp::YieldOp>(block.getTerminator());
      if (yieldOp.getResults().empty())
        return atomicCompareOp.emitError(
            "failed to extract desired value (d) from atomic compare region");
      dVal = materializeValue(yieldOp.getResults()[0]);
    }
 
    llvmAtomicX.IsSigned = isSigned;
 
    llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
    bool isReadFirst = isa<omp::AtomicReadOp>(atomicCaptureOp.getFirstOp());
    bool isPostfixCapture = !isReadFirst;
    bool isFailOnly = atomicCaptureOp.getFailOnly();
 
    // Complex equality capture: x is struct-typed, which the OMPIRBuilder
    // cannot handle, so emit an IEEE-754-correct cmpxchg (as in the non-capture
    // complex path) and reconstruct the captured value from its result. The
    // helper compares components with `fcmp oeq` so `-0.0 == +0.0` and `NaN`
    // are handled as in the scalar float path. Complex only supports the ==
    // comparison.
    if (llvmXElementType->isStructTy()) {
      llvm::Value *oldComplex = nullptr;
      llvm::Value *cmpOk = nullptr;
      llvm::AtomicOrdering failOrdering =
          getAtomicCompareFailureOrdering(atomicCompareOp, atomicOrdering);
      emitComplexAtomicCmpXchg(builder, llvmX, llvmXElementType, eVal, dVal,
                               atomicOrdering, failOrdering,
                               atomicCompareOp.getWeak(), oldComplex, cmpOk);
 
      if (isFailOnly) {
        // v is written only when the compare fails (cmpOk == false).
        llvm::Value *cmpFailed = builder.CreateNot(cmpOk);
        llvm::BasicBlock *curBB = builder.GetInsertBlock();
        llvm::Function *fn = curBB->getParent();
        llvm::BasicBlock *contBB = llvm::BasicBlock::Create(
            builder.getContext(), "omp.atomic.cont", fn);
        llvm::BasicBlock *exitBB = llvm::BasicBlock::Create(
            builder.getContext(), "omp.atomic.exit", fn);
        builder.CreateCondBr(cmpFailed, contBB, exitBB);
        builder.SetInsertPoint(contBB);
        builder.CreateStore(oldComplex, llvmAtomicV.Var,
                            llvmAtomicV.IsVolatile);
        builder.CreateBr(exitBB);
        builder.SetInsertPoint(exitBB);
      } else if (isPostfixCapture) {
        // v gets the new value of x: d on success, old x otherwise.
        llvm::Value *newComplex = builder.CreateSelect(cmpOk, dVal, oldComplex);
        builder.CreateStore(newComplex, llvmAtomicV.Var,
                            llvmAtomicV.IsVolatile);
      } else {
        // Prefix: v gets the old value of x.
        builder.CreateStore(oldComplex, llvmAtomicV.Var,
                            llvmAtomicV.IsVolatile);
      }
 
      // Emit flush after atomic compare if needed (release/acq_rel/seq_cst).
      if (atomicOrdering == llvm::AtomicOrdering::Release ||
          atomicOrdering == llvm::AtomicOrdering::AcquireRelease ||
          atomicOrdering == llvm::AtomicOrdering::SequentiallyConsistent) {
        llvm::OpenMPIRBuilder::LocationDescription flushLoc(builder);
        ompBuilder->createFlush(flushLoc);
      }
      return success();
    }
 
    // Min/max (<, >) comparisons lower to an atomicrmw. The OMPIRBuilder has no
    // notion of a failed compare for an atomicrmw, so the fail-only capture
    // form (v written only when the compare fails) has no valid mapping and is
    // Min/max (<, >) comparisons lower to an atomicrmw. The OMPIRBuilder has no
    // notion of a failed compare for an atomicrmw (it asserts on IsFailOnly),
    // so for min/max the fail-only capture is reconstructed manually below.
    bool isMinMax = compareOp != llvm::omp::OMPAtomicCompareOp::EQ;
 
    llvm::OpenMPIRBuilder::AtomicOpValue llvmAtomicVForCall = llvmAtomicV;
    // Capture into V is reconstructed manually below for:
    //   * postfix capture (v gets the new value of x): equality from the
    //     cmpxchg result, min/max from the atomicrmw result;
    //   * min/max fail-only capture (the OMPIRBuilder cannot express it).
    // Bypass V in the OMPIRBuilder for those cases so it does not also emit its
    // own (for min/max, incorrect or unsupported) capture store.
    bool minMaxManualCapture = isMinMax && (isPostfixCapture || isFailOnly);
    bool eqPostfixManualCapture = !isMinMax && isPostfixCapture && !isFailOnly;
    if (minMaxManualCapture || eqPostfixManualCapture)
      llvmAtomicVForCall = {nullptr, nullptr, false, false};
 
    // The OMPIRBuilder only understands IsFailOnly for the equality (cmpxchg)
    // path; for min/max it would assert. Min/max fail-only is handled here.
    bool builderFailOnly = isFailOnly && !isMinMax;
 
    // IsPostfixUpdate selects which value the OMPIRBuilder captures into V:
    //   * min/max prefix and equality prefix: a direct store of the old value
    //     (IsPostfixUpdate=true).
    //   * equality fail-only: a conditional store (IsPostfixUpdate=false).
    // Manually-reconstructed captures bypass V above.
    bool isPostfixUpdate = !builderFailOnly;
 
    bool isWeak = atomicCompareOp.getWeak();
    bool savedHandleFPNegZero = ompBuilder->setHandleFPNegZero(true);
    llvm::AtomicOrdering failureOrdering =
        getAtomicCompareFailureOrdering(atomicCompareOp, atomicOrdering);
    llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
        ompBuilder->createAtomicCompare(
            ompLoc, llvmAtomicX, llvmAtomicVForCall, llvmAtomicR, eVal, dVal,
            atomicOrdering, compareOp, isXBinopExpr, isPostfixUpdate,
            builderFailOnly, failureOrdering, isWeak);
    ompBuilder->setHandleFPNegZero(savedHandleFPNegZero);
 
    if (failed(handleError(afterIP, *atomicCaptureOp)))
      return failure();
 
    builder.restoreIP(*afterIP);
 
    // Min/max capture is reconstructed from the atomicrmw the OMPIRBuilder
    // emits (its result is the old value of x). V was bypassed above.
    //   * postfix: v gets the new value min/max(old, e);
    //   * fail-only: v gets the old value, but only when the compare failed
    //     (i.e. the atomicrmw did not change x).
    // (Prefix min/max captures the old value directly through V, so nothing
    // extra is needed there.)
    if (isMinMax && (isPostfixCapture || isFailOnly)) {
      llvm::BasicBlock *curBB = builder.GetInsertBlock();
      llvm::AtomicRMWInst *rmw = nullptr;
      for (auto &inst : llvm::reverse(*curBB)) {
        if (auto *r = dyn_cast<llvm::AtomicRMWInst>(&inst)) {
          rmw = r;
          break;
        }
      }
      assert(rmw && "expected atomicrmw for min/max compare capture");
      llvm::Value *oldVal = rmw;
      llvm::Value *rhs = rmw->getValOperand();
 
      if (isFailOnly) {
        // The compare "failed" (the else branch runs) exactly when the
        // atomicrmw did not change x. Recompute the original update condition
        // on the old value and negate it. v is stored only in that case.
        llvm::CmpInst::Predicate updatePred;
        switch (rmw->getOperation()) {
        case llvm::AtomicRMWInst::Min:
          updatePred = llvm::CmpInst::ICMP_SGT;
          break;
        case llvm::AtomicRMWInst::Max:
          updatePred = llvm::CmpInst::ICMP_SLT;
          break;
        case llvm::AtomicRMWInst::UMin:
          updatePred = llvm::CmpInst::ICMP_UGT;
          break;
        case llvm::AtomicRMWInst::UMax:
          updatePred = llvm::CmpInst::ICMP_ULT;
          break;
        case llvm::AtomicRMWInst::FMin:
          updatePred = llvm::CmpInst::FCMP_OGT;
          break;
        case llvm::AtomicRMWInst::FMax:
          updatePred = llvm::CmpInst::FCMP_OLT;
          break;
        default:
          llvm_unreachable(
              "unexpected atomicrmw op for min/max compare capture");
        }
        llvm::Value *updated = builder.CreateCmp(updatePred, oldVal, rhs);
        llvm::Value *failed = builder.CreateNot(updated);
        llvm::Function *fn = curBB->getParent();
        llvm::BasicBlock *contBB = llvm::BasicBlock::Create(
            builder.getContext(), "omp.atomic.cont", fn);
        llvm::BasicBlock *exitBB = llvm::BasicBlock::Create(
            builder.getContext(), "omp.atomic.exit", fn);
        builder.CreateCondBr(failed, contBB, exitBB);
        builder.SetInsertPoint(contBB);
        builder.CreateStore(oldVal, llvmAtomicV.Var, llvmAtomicV.IsVolatile);
        builder.CreateBr(exitBB);
        builder.SetInsertPoint(exitBB);
      } else {
        llvm::Intrinsic::ID id;
        switch (rmw->getOperation()) {
        case llvm::AtomicRMWInst::Min:
          id = llvm::Intrinsic::smin;
          break;
        case llvm::AtomicRMWInst::Max:
          id = llvm::Intrinsic::smax;
          break;
        case llvm::AtomicRMWInst::UMin:
          id = llvm::Intrinsic::umin;
          break;
        case llvm::AtomicRMWInst::UMax:
          id = llvm::Intrinsic::umax;
          break;
        case llvm::AtomicRMWInst::FMin:
          id = llvm::Intrinsic::minnum;
          break;
        case llvm::AtomicRMWInst::FMax:
          id = llvm::Intrinsic::maxnum;
          break;
        default:
          llvm_unreachable(
              "unexpected atomicrmw op for min/max compare capture");
        }
        llvm::Value *newVal = builder.CreateBinaryIntrinsic(id, oldVal, rhs);
        builder.CreateStore(newVal, llvmAtomicV.Var, llvmAtomicV.IsVolatile);
      }
    }
 
    // Equality postfix: v = select(success, D, old) — reconstructs the new
    // value of x from the cmpxchg result.
    if (!isMinMax && isPostfixCapture && !isFailOnly) {
      llvm::BasicBlock *curBB = builder.GetInsertBlock();
      llvm::Value *oldVal = nullptr;
      llvm::Value *successVal = nullptr;
 
      // Integer path (and non-HandleFPNegZero FP path): a single cmpxchg
      // lives in the current block.
      for (auto &inst : llvm::reverse(*curBB)) {
        if (isa<llvm::AtomicCmpXchgInst>(&inst)) {
          oldVal = builder.CreateExtractValue(&inst, /*Idxs=*/0);
          successVal = builder.CreateExtractValue(&inst, /*Idxs=*/1);
          break;
        }
      }
 
      // FP HandleFPNegZero path: the OMPIRBuilder emits a multi-block
      // structure (NaN / ±0.0 handling) with cmpxchg in predecessor
      // blocks. Results are merged via PHI nodes in the current (exit)
      // block: an i1 PHI for success and a bitcast of an integer PHI
      // for the old FP value.
      if (!oldVal) {
        for (auto &inst : *curBB) {
          auto *phi = dyn_cast<llvm::PHINode>(&inst);
          if (!phi)
            break;
          if (phi->getType()->isIntegerTy(1))
            successVal = phi;
        }
        for (auto &inst : *curBB) {
          if (auto *bc = dyn_cast<llvm::BitCastInst>(&inst)) {
            oldVal = bc;
            break;
          }
        }
      }
 
      assert(oldVal && "expected cmpxchg or PHI+bitcast for compare capture");
      assert(successVal && "expected success flag for compare capture");
      llvm::Value *newVal = builder.CreateSelect(successVal, dVal, oldVal);
      builder.CreateStore(newVal, llvmAtomicV.Var, llvmAtomicV.IsVolatile);
    }
 
    return success();
  }
 
  mlir::Value mlirExpr;
  bool isXBinopExpr = false, isPostfixUpdate = false;
  llvm::AtomicRMWInst::BinOp binop = llvm::AtomicRMWInst::BinOp::BAD_BINOP;
 
  assert((atomicUpdateOp || atomicWriteOp) &&
         "internal op must be an atomic.update or atomic.write op");
 
  if (atomicWriteOp) {
    isPostfixUpdate = true;
    mlirExpr = atomicWriteOp.getExpr();
  } else {
    isPostfixUpdate = atomicCaptureOp.getSecondOp() ==
                      atomicCaptureOp.getAtomicUpdateOp().getOperation();
    auto &innerOpList = atomicUpdateOp.getRegion().front().getOperations();
    // Find the binary update operation that uses the region argument
    // and get the expression to update
    if (innerOpList.size() == 2) {
      mlir::Operation &innerOp = *atomicUpdateOp.getRegion().front().begin();
      if (!llvm::is_contained(innerOp.getOperands(),
                              atomicUpdateOp.getRegion().getArgument(0))) {
        return atomicUpdateOp.emitError(
            "no atomic update operation with region argument"
            " as operand found inside atomic.update region");
      }
      binop = convertBinOpToAtomic(innerOp);
      isXBinopExpr =
          innerOp.getOperand(0) == atomicUpdateOp.getRegion().getArgument(0);
      mlirExpr = (isXBinopExpr ? innerOp.getOperand(1) : innerOp.getOperand(0));
    } else {
      binop = llvm::AtomicRMWInst::BinOp::BAD_BINOP;
    }
  }
 
  llvm::Value *llvmExpr = moduleTranslation.lookupValue(mlirExpr);
  llvm::Value *llvmX =
      moduleTranslation.lookupValue(atomicCaptureOp.getAtomicReadOp().getX());
  llvm::Value *llvmV =
      moduleTranslation.lookupValue(atomicCaptureOp.getAtomicReadOp().getV());
  llvm::Type *llvmXElementType = moduleTranslation.convertType(
      atomicCaptureOp.getAtomicReadOp().getElementType());
  llvm::OpenMPIRBuilder::AtomicOpValue llvmAtomicX = {llvmX, llvmXElementType,
                                                      /*isSigned=*/false,
                                                      /*isVolatile=*/false};
  llvm::OpenMPIRBuilder::AtomicOpValue llvmAtomicV = {llvmV, llvmXElementType,
                                                      /*isSigned=*/false,
                                                      /*isVolatile=*/false};
 
  llvm::AtomicOrdering atomicOrdering =
      convertAtomicOrdering(atomicCaptureOp.getMemoryOrder());
 
  auto updateFn =
      [&](llvm::Value *atomicx,
          llvm::IRBuilder<> &builder) -> llvm::Expected<llvm::Value *> {
    if (atomicWriteOp)
      return moduleTranslation.lookupValue(atomicWriteOp.getExpr());
    Block &bb = *atomicUpdateOp.getRegion().begin();
    moduleTranslation.mapValue(*atomicUpdateOp.getRegion().args_begin(),
                               atomicx);
    moduleTranslation.mapBlock(&bb, builder.GetInsertBlock());
    if (failed(moduleTranslation.convertBlock(bb, true, builder)))
      return llvm::make_error<PreviouslyReportedError>();
 
    omp::YieldOp yieldop = dyn_cast<omp::YieldOp>(bb.getTerminator());
    assert(yieldop && yieldop.getResults().size() == 1 &&
           "terminator must be omp.yield op and it must have exactly one "
           "argument");
    return moduleTranslation.lookupValue(yieldop.getResults()[0]);
  };
 
  bool isIgnoreDenormalMode;
  bool isFineGrainedMemory;
  bool isRemoteMemory;
  extractAtomicControlFlags(atomicUpdateOp, isIgnoreDenormalMode,
                            isFineGrainedMemory, isRemoteMemory);
  // Handle ambiguous alloca, if any.
  auto allocaIP = findAllocInsertPoints(builder, moduleTranslation);
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      ompBuilder->createAtomicCapture(
          ompLoc, allocaIP, llvmAtomicX, llvmAtomicV, llvmExpr, atomicOrdering,
          binop, updateFn, atomicUpdateOp, isPostfixUpdate, isXBinopExpr,
          isIgnoreDenormalMode, isFineGrainedMemory, isRemoteMemory);
 
  if (failed(handleError(afterIP, *atomicCaptureOp)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
/// Converts an omp.atomic.compare operation to LLVM IR.
///
///      if (x == e) x = d
/// The region contains a comparison + select pattern:
///   ^bb0(%xval: T):
///     %cmp = llvm.icmp/fcmp <pred> %xval, %e : T
///     %sel = llvm.select %cmp, %d, %xval : i1, T
///     omp.yield(%sel : T)
///
/// From MLIR extract:
///   1) comparison operator
///   2) expected value (e)
///   3) desired value (d)
/// These are passed to OpenMPIRBuilder::createAtomicCompare which generates
/// the actual cmpxchg / atomicrmw instruction.
///
static LogicalResult
convertOmpAtomicCompare(omp::AtomicCompareOp atomicCompareOp,
                        llvm::IRBuilderBase &builder,
                        LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  if (failed(checkImplementationStatus(*atomicCompareOp)))
    return failure();
 
  Region &region = atomicCompareOp.getRegion();
  Block &block = region.front();
 
  // Determine element type from the region block argument
  llvm::Type *llvmXElementType =
      moduleTranslation.convertType(block.getArgument(0).getType());
  if (!llvmXElementType)
    return atomicCompareOp.emitError(
        "unable to determine element type for atomic compare");
 
  llvm::Value *llvmX = moduleTranslation.lookupValue(atomicCompareOp.getX());
 
  // IsSigned is determined from the comparison predicate in the region.
  // Signed ICmp predicates (slt/sgt) set this to true; unsigned (ult/ugt)
  // leave it false. For EQ and float comparisons, signedness is irrelevant.
  bool isSigned = false;
  llvm::OpenMPIRBuilder::AtomicOpValue llvmAtomicX = {llvmX, llvmXElementType,
                                                      isSigned,
                                                      /*IsVolatile=*/false};
 
  llvm::AtomicOrdering atomicOrdering =
      convertAtomicOrdering(atomicCompareOp.getMemoryOrder());
 
  auto isAtomicComparePatternOp = [](Operation &op) {
    return llvm::isa<LLVM::ICmpOp, LLVM::FCmpOp, LLVM::SelectOp, LLVM::AndOp,
                     LLVM::OrOp, LLVM::SMaxOp, LLVM::SMinOp, LLVM::UMaxOp,
                     LLVM::UMinOp, LLVM::MaxNumOp, LLVM::MinNumOp,
                     mlir::arith::MaxSIOp, mlir::arith::MinSIOp,
                     mlir::arith::MaxUIOp, mlir::arith::MinUIOp,
                     mlir::arith::MaximumFOp, mlir::arith::MinimumFOp>(op);
  };
 
  // Pre-translate operations inside the region that compute e and d (e.g.,
  // GEP, loads for dereferencing Fortran pointers) but are not part of the
  // atomic compare-and-swap pattern (icmp/fcmp, select, and/or).
  //
  // 1) Validity: The OpenMP spec requires e and d to be evaluated before the
  //    atomic operation, so emitting their computation here is correct.
  // 2) Memory effects: These ops only depend on values defined outside the
  //    region. They cannot observe the block argument (%xval), which is the
  //    value loaded atomically by cmpxchg and does not exist yet.
  // 3) Invariant enforcement: The `allOperandsMapped` check below skips any
  //    op whose operands include the unmapped block argument, guaranteeing
  //    only region-external-dependent ops are pre-translated.
  for (Operation &op : block.without_terminator()) {
    // Skip operations that form the atomic compare pattern — these are
    // not emitted as individual instructions but are analyzed below to
    // extract the comparison predicate, expected value (e), and desired
    // value (d) for generating a single cmpxchg/atomicrmw.
    if (isAtomicComparePatternOp(op))
      continue;
 
    // Avoid translating ops that depend on the unmapped block argument.
    bool allOperandsMapped = llvm::all_of(op.getOperands(), [&](mlir::Value v) {
      return moduleTranslation.lookupValue(v) != nullptr;
    });
    if (!allOperandsMapped)
      continue;
 
    if (failed(moduleTranslation.convertOperation(op, builder)))
      return atomicCompareOp.emitError(
          "failed to translate operation inside atomic compare region");
  }
 
  // Look up a value that may have been pre-translated or defined outside the
  // region.
  auto materializeValue = [&](mlir::Value val) -> llvm::Value * {
    // Check if the value is already mapped (pre-translated or defined outside).
    if (llvm::Value *existing = moduleTranslation.lookupValue(val))
      return existing;
    // Fallback for a single LoadOp whose address is mapped but whose result
    // was not pre-translated.
    if (auto loadOp = val.getDefiningOp<LLVM::LoadOp>()) {
      if (loadOp->getParentRegion() == &region) {
        llvm::Value *loadAddr = moduleTranslation.lookupValue(loadOp.getAddr());
        if (!loadAddr)
          return nullptr;
        llvm::Type *loadType =
            moduleTranslation.convertType(loadOp.getResult().getType());
        return builder.CreateLoad(loadType, loadAddr);
      }
    }
    return nullptr;
  };
 
  // Walk the region to extract comparison predicate, eVal, and dVal.
  // if (x == eVal) x = dVal
  llvm::omp::OMPAtomicCompareOp compareOp = llvm::omp::OMPAtomicCompareOp::EQ;
  llvm::Value *eVal = nullptr;
  llvm::Value *dVal = nullptr;
  bool isXBinopExpr = false;
 
  // Check for a decomposed complex comparison pattern (extractvalue + fcmp +
  // and/or of the real/imaginary fields).
  ComplexComparePattern cplx = detectComplexCompareEq(block);
  bool isComplexPattern = cplx.isComplex;
  if (isComplexPattern) {
    if (cplx.isNE)
      // OrOp corresponds to NE, which is not a valid atomic compare op.
      return atomicCompareOp.emitError(
          "unsupported comparison predicate (NE) for complex atomic compare");
    compareOp = llvm::omp::OMPAtomicCompareOp::EQ;
    isXBinopExpr = cplx.isXBinopExpr;
    eVal = materializeValue(cplx.eAggregate);
  }
 
  if (isComplexPattern) {
    // dVal from SelectOp or YieldOp.
    for (Operation &op : block.getOperations()) {
      if (auto selectOp = dyn_cast<LLVM::SelectOp>(op)) {
        dVal = materializeValue(selectOp.getTrueValue());
        break;
      }
    }
    if (!dVal) {
      auto yieldOp = cast<omp::YieldOp>(block.getTerminator());
      if (yieldOp.getResults().empty())
        return atomicCompareOp.emitError(
            "failed to extract desired value (d) from atomic compare region");
      dVal = materializeValue(yieldOp.getResults()[0]);
    }
 
    llvm::Value *oldComplex = nullptr;
    llvm::Value *cmpOk = nullptr;
    llvm::AtomicOrdering failOrdering =
        getAtomicCompareFailureOrdering(atomicCompareOp, atomicOrdering);
    emitComplexAtomicCmpXchg(builder, llvmX, llvmXElementType, eVal, dVal,
                             atomicOrdering, failOrdering,
                             atomicCompareOp.getWeak(), oldComplex, cmpOk);
    (void)oldComplex;
    (void)cmpOk;
 
    // Emit flush after atomic compare if needed (for release, acq_rel,
    // seq_cst orderings).
    if (atomicOrdering == llvm::AtomicOrdering::Release ||
        atomicOrdering == llvm::AtomicOrdering::AcquireRelease ||
        atomicOrdering == llvm::AtomicOrdering::SequentiallyConsistent) {
      llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
      ompBuilder->createFlush(ompLoc);
    }
    return success();
  } else {
    AtomicComparePatternInfo patternInfo;
    if (failed(extractAtomicComparePattern(block, materializeValue,
                                           atomicCompareOp, patternInfo)))
      return failure();
    compareOp = patternInfo.compareOp;
    eVal = patternInfo.eVal;
    dVal = patternInfo.dVal;
    isXBinopExpr = patternInfo.isXBinopExpr;
    isSigned = patternInfo.isSigned;
  }
 
  if (!eVal)
    return atomicCompareOp.emitError(
        "failed to extract expected value (e) from atomic compare region");
  if (!dVal) {
    // Fall back to the yield operand.
    auto yieldOp = cast<omp::YieldOp>(block.getTerminator());
    if (yieldOp.getResults().empty())
      return atomicCompareOp.emitError(
          "failed to extract desired value (d) from atomic compare region");
    dVal = materializeValue(yieldOp.getResults()[0]);
  }
 
  llvmAtomicX.IsSigned = isSigned;
 
  llvm::OpenMPIRBuilder::AtomicOpValue vOpVal = {nullptr, nullptr, false,
                                                 false};
  llvm::OpenMPIRBuilder::AtomicOpValue rOpVal = {nullptr, nullptr, false,
                                                 false};
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
 
  bool isWeak = atomicCompareOp.getWeak();
 
  bool savedHandleFPNegZero = ompBuilder->setHandleFPNegZero(true);
  llvm::AtomicOrdering failureOrdering =
      getAtomicCompareFailureOrdering(atomicCompareOp, atomicOrdering);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      ompBuilder->createAtomicCompare(
          ompLoc, llvmAtomicX, vOpVal, rOpVal, eVal, dVal, atomicOrdering,
          compareOp, isXBinopExpr, /*IsPostfixUpdate=*/false,
          /*IsFailOnly=*/false, failureOrdering, isWeak);
  ompBuilder->setHandleFPNegZero(savedHandleFPNegZero);
 
  if (failed(handleError(afterIP, *atomicCompareOp)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
static llvm::omp::Directive convertCancellationConstructType(
    omp::ClauseCancellationConstructType directive) {
  switch (directive) {
  case omp::ClauseCancellationConstructType::Loop:
    return llvm::omp::Directive::OMPD_for;
  case omp::ClauseCancellationConstructType::Parallel:
    return llvm::omp::Directive::OMPD_parallel;
  case omp::ClauseCancellationConstructType::Sections:
    return llvm::omp::Directive::OMPD_sections;
  case omp::ClauseCancellationConstructType::Taskgroup:
    return llvm::omp::Directive::OMPD_taskgroup;
  }
  llvm_unreachable("Unhandled cancellation construct type");
}
 
static LogicalResult
convertOmpCancel(omp::CancelOp op, llvm::IRBuilderBase &builder,
                 LLVM::ModuleTranslation &moduleTranslation) {
  if (failed(checkImplementationStatus(*op.getOperation())))
    return failure();
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  llvm::Value *ifCond = nullptr;
  if (Value ifVar = op.getIfExpr())
    ifCond = moduleTranslation.lookupValue(ifVar);
 
  llvm::omp::Directive cancelledDirective =
      convertCancellationConstructType(op.getCancelDirective());
 
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      ompBuilder->createCancel(ompLoc, ifCond, cancelledDirective);
 
  if (failed(handleError(afterIP, *op.getOperation())))
    return failure();
 
  builder.restoreIP(afterIP.get());
 
  return success();
}
 
static LogicalResult
convertOmpCancellationPoint(omp::CancellationPointOp op,
                            llvm::IRBuilderBase &builder,
                            LLVM::ModuleTranslation &moduleTranslation) {
  if (failed(checkImplementationStatus(*op.getOperation())))
    return failure();
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  llvm::omp::Directive cancelledDirective =
      convertCancellationConstructType(op.getCancelDirective());
 
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      ompBuilder->createCancellationPoint(ompLoc, cancelledDirective);
 
  if (failed(handleError(afterIP, *op.getOperation())))
    return failure();
 
  builder.restoreIP(afterIP.get());
 
  return success();
}
 
/// Converts an OpenMP Threadprivate operation into LLVM IR using
/// OpenMPIRBuilder.
static LogicalResult
convertOmpThreadprivate(Operation &opInst, llvm::IRBuilderBase &builder,
                        LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  auto threadprivateOp = cast<omp::ThreadprivateOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  Value symAddr = threadprivateOp.getSymAddr();
  auto *symOp = symAddr.getDefiningOp();
 
  if (auto asCast = dyn_cast<LLVM::AddrSpaceCastOp>(symOp))
    symOp = asCast.getOperand().getDefiningOp();
 
  if (!isa<LLVM::AddressOfOp>(symOp))
    return opInst.emitError("Addressing symbol not found");
  LLVM::AddressOfOp addressOfOp = dyn_cast<LLVM::AddressOfOp>(symOp);
 
  LLVM::GlobalOp global =
      addressOfOp.getGlobal(moduleTranslation.symbolTable());
  llvm::GlobalValue *globalValue = moduleTranslation.lookupGlobal(global);
  llvm::Type *type = globalValue->getValueType();
  llvm::TypeSize typeSize = builder.getDataLayout().getTypeStoreSize(type);
  llvm::ConstantInt *size = builder.getInt64(typeSize.getFixedValue());
  llvm::Value *callInst = ompBuilder->createCachedThreadPrivate(
      ompLoc, globalValue, size, global.getSymName() + ".cache");
  moduleTranslation.mapValue(opInst.getResult(0), callInst);
 
  return success();
}
 
static llvm::OffloadEntriesInfoManager::OMPTargetDeviceClauseKind
convertToDeviceClauseKind(mlir::omp::DeclareTargetDeviceType deviceClause) {
  switch (deviceClause) {
  case mlir::omp::DeclareTargetDeviceType::host:
    return llvm::OffloadEntriesInfoManager::OMPTargetDeviceClauseHost;
    break;
  case mlir::omp::DeclareTargetDeviceType::nohost:
    return llvm::OffloadEntriesInfoManager::OMPTargetDeviceClauseNoHost;
    break;
  case mlir::omp::DeclareTargetDeviceType::any:
    return llvm::OffloadEntriesInfoManager::OMPTargetDeviceClauseAny;
    break;
  }
  llvm_unreachable("unhandled device clause");
}
 
static llvm::OffloadEntriesInfoManager::OMPTargetGlobalVarEntryKind
convertToCaptureClauseKind(
    mlir::omp::DeclareTargetCaptureClause captureClause) {
  switch (captureClause) {
  case mlir::omp::DeclareTargetCaptureClause::to:
    return llvm::OffloadEntriesInfoManager::OMPTargetGlobalVarEntryTo;
  case mlir::omp::DeclareTargetCaptureClause::link:
    return llvm::OffloadEntriesInfoManager::OMPTargetGlobalVarEntryLink;
  case mlir::omp::DeclareTargetCaptureClause::enter:
    return llvm::OffloadEntriesInfoManager::OMPTargetGlobalVarEntryEnter;
  case mlir::omp::DeclareTargetCaptureClause::none:
    return llvm::OffloadEntriesInfoManager::OMPTargetGlobalVarEntryNone;
  }
  llvm_unreachable("unhandled capture clause");
}
 
static Operation *getGlobalOpFromValue(Value value) {
  Operation *op = value.getDefiningOp();
  if (auto addrCast = dyn_cast_if_present<LLVM::AddrSpaceCastOp>(op))
    op = addrCast->getOperand(0).getDefiningOp();
  if (auto addressOfOp = dyn_cast_if_present<LLVM::AddressOfOp>(op)) {
    auto modOp = addressOfOp->getParentOfType<mlir::ModuleOp>();
    return modOp.lookupSymbol(addressOfOp.getGlobalName());
  }
  return nullptr;
}
 
static Value getBaseValueForTypeLookup(Value value) {
  while (Operation *op = value.getDefiningOp()) {
    if (auto addrCast = dyn_cast_if_present<LLVM::AddrSpaceCastOp>(op))
      value = addrCast.getOperand();
    // Traces through hlfir.declare, fir.declare to reach the base address and
    // use for type lookup.
    else if (op->getName().getIdentifier() &&
             (op->getName().getIdentifier().str() == "hlfir.declare" ||
              op->getName().getIdentifier().str() == "fir.declare")) {
      if (op->getNumOperands() > 0)
        value = op->getOperand(0);
      else
        break;
    } else {
      break;
    }
  }
  return value;
}
 
// Determine the LLVM type whose storage size should be allocated for an
// OpenMP allocate directive list item. Opaque pointers lose element type, so
// trace through declare wrappers to the underlying global or stack allocation.
static llvm::Type *
getAllocatedLlvmTypeForVariable(Value var, Value baseVar,
                                LLVM::ModuleTranslation &moduleTranslation) {
  llvm::Type *llvmVarTy = moduleTranslation.convertType(var.getType());
  if (!llvmVarTy->isPointerTy())
    return llvmVarTy;
 
  if (Operation *globalOp = getGlobalOpFromValue(baseVar))
    if (auto gop = dyn_cast<LLVM::GlobalOp>(globalOp))
      return moduleTranslation.convertType(gop.getGlobalType());
 
  if (auto allocaOp =
          dyn_cast_if_present<LLVM::AllocaOp>(baseVar.getDefiningOp()))
    return moduleTranslation.convertType(allocaOp.getElemType());
 
  if (llvm::Value *baseLlvm = moduleTranslation.lookupValue(baseVar))
    if (auto *allocaInst = dyn_cast<llvm::AllocaInst>(baseLlvm))
      return allocaInst->getAllocatedType();
 
  return llvmVarTy;
}
 
// For dynamically-sized stack allocations, compute the allocation size from
// the alloca's element count at runtime.
static std::optional<llvm::Value *> getDynamicAllocatedSize(
    Value var, Value baseVar, LLVM::ModuleTranslation &moduleTranslation,
    llvm::IRBuilderBase &builder, const llvm::DataLayout &dataLayout) {
  if (auto allocaOp =
          dyn_cast_if_present<LLVM::AllocaOp>(baseVar.getDefiningOp())) {
    if (Value arraySize = allocaOp.getArraySize()) {
      llvm::Type *elemTy =
          moduleTranslation.convertType(allocaOp.getElemType());
      llvm::Value *numElems = moduleTranslation.lookupValue(arraySize);
      if (!numElems->getType()->isIntegerTy(64))
        numElems = builder.CreateZExt(numElems, builder.getInt64Ty());
      uint64_t elemSize = dataLayout.getTypeAllocSize(elemTy).getFixedValue();
      return builder.CreateMul(numElems, builder.getInt64(elemSize));
    }
  }
  if (llvm::Value *baseLlvm = moduleTranslation.lookupValue(baseVar)) {
    if (auto *allocaInst = dyn_cast<llvm::AllocaInst>(baseLlvm)) {
      if (allocaInst->isArrayAllocation() &&
          !llvm::isa<llvm::ArrayType>(allocaInst->getAllocatedType())) {
        uint64_t elemSize =
            dataLayout.getTypeAllocSize(allocaInst->getAllocatedType())
                .getFixedValue();
        return builder.CreateMul(allocaInst->getArraySize(),
                                 builder.getInt64(elemSize));
      }
    }
  }
  return std::nullopt;
}
 
static llvm::SmallString<64>
getDeclareTargetRefPtrSuffix(LLVM::GlobalOp globalOp,
                             llvm::OpenMPIRBuilder &ompBuilder,
                             llvm::vfs::FileSystem &vfs) {
  llvm::SmallString<64> suffix;
  llvm::raw_svector_ostream os(suffix);
  if (globalOp.getVisibility() == mlir::SymbolTable::Visibility::Private) {
    auto loc = globalOp->getLoc()->findInstanceOf<FileLineColLoc>();
    auto fileInfoCallBack = [&loc]() {
      return std::pair<std::string, uint64_t>(
          llvm::StringRef(loc.getFilename()), loc.getLine());
    };
 
    os << llvm::format(
        "_%x",
        ompBuilder.getTargetEntryUniqueInfo(fileInfoCallBack, vfs).FileID);
  }
  os << "_decl_tgt_ref_ptr";
 
  return suffix;
}
 
static bool isDeclareTargetLink(Value value) {
  if (auto declareTargetGlobal =
          dyn_cast_if_present<omp::DeclareTargetInterface>(
              getGlobalOpFromValue(value))) {
    omp::DeclareTargetAttr declareTargetAttr =
        declareTargetGlobal.getDeclareTarget();
    if (declareTargetAttr && declareTargetAttr.getCaptureClause() ==
                                 omp::DeclareTargetCaptureClause::link)
      return true;
  }
  return false;
}
 
static bool isDeclareTargetTo(Value value) {
  if (auto declareTargetGlobal =
          dyn_cast_if_present<omp::DeclareTargetInterface>(
              getGlobalOpFromValue(value))) {
    omp::DeclareTargetAttr declareTargetAttr =
        declareTargetGlobal.getDeclareTarget();
    if (declareTargetAttr && (declareTargetAttr.getCaptureClause() ==
                                  omp::DeclareTargetCaptureClause::to ||
                              declareTargetAttr.getCaptureClause() ==
                                  omp::DeclareTargetCaptureClause::enter))
      return true;
  }
  return false;
}
 
// Returns the reference pointer generated by the lowering of the declare
// target operation in cases where the link clause is used or the to clause is
// used in USM mode.
static llvm::Value *
getRefPtrIfDeclareTarget(Value value,
                         LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  if (auto gOp =
          dyn_cast_or_null<LLVM::GlobalOp>(getGlobalOpFromValue(value))) {
    // In this case, we must utilise the reference pointer generated by
    // the declare target operation, similar to Clang
    if (isDeclareTargetLink(value) ||
        (isDeclareTargetTo(value) &&
         ompBuilder->Config.hasRequiresUnifiedSharedMemory())) {
      llvm::SmallString<64> suffix = getDeclareTargetRefPtrSuffix(
          gOp, *ompBuilder, moduleTranslation.getFileSystem());
 
      if (gOp.getSymName().contains(suffix))
        return moduleTranslation.getLLVMModule()->getNamedValue(
            gOp.getSymName());
 
      return moduleTranslation.getLLVMModule()->getNamedValue(
          (gOp.getSymName().str() + suffix.str()).str());
    }
  }
  return nullptr;
}
 
namespace {
// Append customMappers information to existing MapInfosTy
struct MapInfosTy : llvm::OpenMPIRBuilder::MapInfosTy {
  SmallVector<Operation *, 4> Mappers;
 
  /// Append arrays in \a CurInfo.
  void append(MapInfosTy &curInfo) {
    Mappers.append(curInfo.Mappers.begin(), curInfo.Mappers.end());
    llvm::OpenMPIRBuilder::MapInfosTy::append(curInfo);
  }
};
// A small helper structure to contain data gathered
// for map lowering and coalese it into one area and
// avoiding extra computations such as searches in the
// llvm module for lowered mapped variables or checking
// if something is declare target (and retrieving the
// value) more than neccessary.
struct MapInfoData : MapInfosTy {
  llvm::SmallVector<bool, 4> IsDeclareTarget;
  llvm::SmallVector<bool, 4> IsAMember;
  // Identify if mapping was added by mapClause or use_device clauses.
  llvm::SmallVector<bool, 4> IsAMapping;
  llvm::SmallVector<mlir::Operation *, 4> MapClause;
  llvm::SmallVector<llvm::Value *, 4> OriginalValue;
  // Stripped off array/pointer to get the underlying
  // element type
  llvm::SmallVector<llvm::Type *, 4> BaseType;
 
  /// Append arrays in \a CurInfo.
  void append(MapInfoData &CurInfo) {
    IsDeclareTarget.append(CurInfo.IsDeclareTarget.begin(),
                           CurInfo.IsDeclareTarget.end());
    MapClause.append(CurInfo.MapClause.begin(), CurInfo.MapClause.end());
    OriginalValue.append(CurInfo.OriginalValue.begin(),
                         CurInfo.OriginalValue.end());
    BaseType.append(CurInfo.BaseType.begin(), CurInfo.BaseType.end());
    MapInfosTy::append(CurInfo);
  }
};
 
enum class TargetDirectiveEnumTy : uint32_t {
  None = 0,
  Target = 1,
  TargetData = 2,
  TargetEnterData = 3,
  TargetExitData = 4,
  TargetUpdate = 5
};
 
static TargetDirectiveEnumTy getTargetDirectiveEnumTyFromOp(Operation *op) {
  return llvm::TypeSwitch<Operation *, TargetDirectiveEnumTy>(op)
      .Case([](omp::TargetDataOp) { return TargetDirectiveEnumTy::TargetData; })
      .Case([](omp::TargetEnterDataOp) {
        return TargetDirectiveEnumTy::TargetEnterData;
      })
      .Case([&](omp::TargetExitDataOp) {
        return TargetDirectiveEnumTy::TargetExitData;
      })
      .Case([&](omp::TargetUpdateOp) {
        return TargetDirectiveEnumTy::TargetUpdate;
      })
      .Case([&](omp::TargetOp) { return TargetDirectiveEnumTy::Target; })
      .Default([&](Operation *op) { return TargetDirectiveEnumTy::None; });
}
} // namespace
 
static uint64_t getArrayElementSizeInBits(LLVM::LLVMArrayType arrTy,
                                          DataLayout &dl) {
  if (auto nestedArrTy = llvm::dyn_cast_if_present<LLVM::LLVMArrayType>(
          arrTy.getElementType()))
    return getArrayElementSizeInBits(nestedArrTy, dl);
  return dl.getTypeSizeInBits(arrTy.getElementType());
}
 
// The intent is to verify if the mapped data being passed is a
// pointer -> pointee that requires special handling in certain cases,
// e.g. applying the OMP_MAP_PTR_AND_OBJ map type.
//
// There may be a better way to verify this, but unfortunately with
// opaque pointers we lose the ability to easily check if something is
// a pointer whilst maintaining access to the underlying type.
static bool checkIfPointerMap(omp::MapInfoOp mapOp) {
  // If we have a varPtrPtr field assigned then the underlying type is a pointer
  if (mapOp.getVarPtrPtr())
    return true;
 
  // If the map data is declare target with a link clause, then it's represented
  // as a pointer when we lower it to LLVM-IR even if at the MLIR level it has
  // no relation to pointers.
  if (isDeclareTargetLink(mapOp.getVarPtr()))
    return true;
 
  return false;
}
 
// A privatizeable attach map is a pointer/descriptor that is privatized and
// passed directly as a kernel argument (target_param) rather than undergoing
// the standard attach/parent mapping. These are handled specially in a couple
// of places in map lowering.
static bool isPrivatizeableAttachMap(omp::ClauseMapFlags mapType) {
  return bitEnumContainsAll(mapType, omp::ClauseMapFlags::priv |
                                         omp::ClauseMapFlags::target_param |
                                         omp::ClauseMapFlags::attach);
}
 
// This function calculates the size to be offloaded for a specified type, given
// its associated map clause (which can contain bounds information which affects
// the total size), this size is calculated based on the underlying element type
// e.g. given a 1-D array of ints, we will calculate the size from the integer
// type * number of elements in the array. This size can be used in other
// calculations but is ultimately used as an argument to the OpenMP runtimes
// kernel argument structure which is generated through the combinedInfo data
// structures.
// This function is somewhat equivalent to Clang's getExprTypeSize inside of
// CGOpenMPRuntime.cpp.
static llvm::Value *getSizeInBytes(DataLayout &dl, const mlir::Type &type,
                                   Operation *clauseOp,
                                   llvm::Value *basePointer,
                                   llvm::Type *baseType,
                                   llvm::IRBuilderBase &builder,
                                   LLVM::ModuleTranslation &moduleTranslation) {
  if (auto memberClause =
          mlir::dyn_cast_if_present<mlir::omp::MapInfoOp>(clauseOp)) {
    // This calculates the size to transfer based on bounds and the underlying
    // element type, provided bounds have been specified (Fortran
    // pointers/allocatables/target and arrays that have sections specified fall
    // into this as well)
    if (!memberClause.getBounds().empty()) {
      llvm::Value *elementCount = builder.getInt64(1);
      for (auto bounds : memberClause.getBounds()) {
        if (auto boundOp = mlir::dyn_cast_if_present<mlir::omp::MapBoundsOp>(
                bounds.getDefiningOp())) {
          // The below calculation for the size to be mapped calculated from the
          // map.info's bounds is: (elemCount * [UB - LB] + 1), later we
          // multiply by the underlying element types byte size to get the full
          // size to be offloaded based on the bounds
          elementCount = builder.CreateMul(
              elementCount,
              builder.CreateAdd(
                  builder.CreateSub(
                      moduleTranslation.lookupValue(boundOp.getUpperBound()),
                      moduleTranslation.lookupValue(boundOp.getLowerBound())),
                  builder.getInt64(1)));
        }
      }
 
      // utilising getTypeSizeInBits instead of getTypeSize as getTypeSize gives
      // the size in inconsistent byte or bit format.
      uint64_t underlyingTypeSzInBits = dl.getTypeSizeInBits(type);
      if (auto arrTy = llvm::dyn_cast_if_present<LLVM::LLVMArrayType>(type))
        underlyingTypeSzInBits = getArrayElementSizeInBits(arrTy, dl);
 
      // The size in bytes x number of elements, the sizeInBytes stored is
      // the underyling types size, e.g. if ptr<i32>, it'll be the i32's
      // size, so we do some on the fly runtime math to get the size in
      // bytes from the extent (ub - lb) * sizeInBytes. NOTE: This may need
      // some adjustment for members with more complex types.
      llvm::Value *sizeCalc = builder.CreateMul(
          elementCount, builder.getInt64(underlyingTypeSzInBits / 8),
          "element_count");
 
      // This is a part of a "complicated" bit of size calculation logic that is
      // in place to handle a couple of scenarios, one specific to Fortran and
      // the other a more general OpenMP issue. The other piece of the
      // calculation can be found as the final size calculation within the
      // processIndividualMap function. Ideally we would move it here, but due
      // to the complexity of calculating the final base address of some
      // constructs (required for a nullary check), it's left as the final step.
      // So, in the below 2 cases, the nullary check is in processIndividualMap
      // and the size equality check is here. The cases this modifications help
      // cover are:
      //
      // 1) If an argument has a null base pointer, then the size must be set to
      //    0 to avoid the runtime exploding/complaining about an illegal
      //    pointer map. The size returning non-zero is feasible in certain
      //    cases if for example someone has specified there own bounds/range.
      // 2) We wish to support a very specific OpenMP Fortran edge-case where a
      //    size zero array can be legally presence checked and found to be on
      //    device when it has been mapped. In these rare occasions the
      //    allocatable/pointer will have a size of 1 allocated for the
      //    underlying data, but this wall not be represented within the size of
      //    the descriptor, so we get a non-nullary pointer and a size of 0,
      //    allowing us to specify a size of 1 in these cases registering it on
      //    the device mapping table as present.
      //
      // The default fall through case is just returning the size calculation
      // above, if we are not nullary and the size we calculate is non-zero,
      // which is basically any pointer type that is allocated in someway
      // (providing you are not running on a rare system that allows malloc's of
      // size 0 with whatever caveats that may come with).
      //
      // Later in the nullary check in processIndividualMap it just devolves to
      // selecting a size of 0 if we are nullary, if we are not, we will return
      // either 1 or the calculated size, depending on the outcome of this
      // select.
      if (checkIfPointerMap(memberClause)) {
        return builder.CreateSelect(
            builder.CreateICmpEQ(sizeCalc, builder.getInt64(0)),
            builder.getInt64(1), sizeCalc);
      }
 
      return sizeCalc;
    }
  }
 
  return builder.getInt64(dl.getTypeSizeInBits(type) / 8);
}
 
// Convert the MLIR map flag set to the runtime map flag set for embedding
// in LLVM-IR. This is important as the two bit-flag lists do not correspond
// 1-to-1 as there's flags the runtime doesn't care about and vice versa.
// Certain flags are discarded here such as RefPtee and co.
static llvm::omp::OpenMPOffloadMappingFlags
convertClauseMapFlags(omp::ClauseMapFlags mlirFlags) {
  const bool hasExplicitMap =
      (mlirFlags & ~omp::ClauseMapFlags::is_device_ptr) !=
      omp::ClauseMapFlags::none;
 
  llvm::omp::OpenMPOffloadMappingFlags mapType =
      llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_NONE;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::to))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_TO;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::from))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_FROM;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::always))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ALWAYS;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::del))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_DELETE;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::return_param))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_RETURN_PARAM;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::priv))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_PRIVATE;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::literal))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_LITERAL;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::implicit))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_IMPLICIT;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::close))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_CLOSE;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::present))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_PRESENT;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::ompx_hold))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_OMPX_HOLD;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::attach))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ATTACH;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::target_param))
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_TARGET_PARAM;
 
  if (bitEnumContainsAll(mlirFlags, omp::ClauseMapFlags::is_device_ptr)) {
    mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_TARGET_PARAM;
    if (!hasExplicitMap)
      mapType |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_LITERAL;
  }
 
  return mapType;
}
 
static StringRef getMapClauseName(omp::MapInfoOp mapOp) {
  if (StringAttr name = mapOp.getNameAttr())
    return name.getValue();
  return {};
}
 
static void collectMapDataFromMapOperands(
    MapInfoData &mapData, SmallVectorImpl<Value> &mapVars,
    LLVM::ModuleTranslation &moduleTranslation, DataLayout &dl,
    llvm::IRBuilderBase &builder, ArrayRef<Value> useDevPtrOperands = {},
    ArrayRef<Value> useDevAddrOperands = {},
    ArrayRef<Value> hasDevAddrOperands = {}) {
 
  auto checkRefPtrOrPteeMapWithAttach = [](omp::ClauseMapFlags mapType) {
    bool hasRefType =
        bitEnumContainsAll(mapType, omp::ClauseMapFlags::ref_ptr) ||
        bitEnumContainsAll(mapType, omp::ClauseMapFlags::ref_ptee);
    return hasRefType &&
           bitEnumContainsAll(mapType, omp::ClauseMapFlags::attach);
  };
 
  auto checkIsAMember = [](const auto &mapVars, auto mapOp) {
    // Check if this is a member mapping and correctly assign that it is, if
    // it is a member of a larger object.
    // TODO: Need better handling of members, and distinguishing of members
    // that are implicitly allocated on device vs explicitly passed in as
    // arguments.
    // TODO: May require some further additions to support nested record
    // types, i.e. member maps that can have member maps.
    for (Value mapValue : mapVars) {
      auto map = cast<omp::MapInfoOp>(mapValue.getDefiningOp());
      for (auto member : map.getMembers())
        if (member == mapOp)
          return true;
    }
    return false;
  };
 
  // Process MapOperands
  for (Value mapValue : mapVars) {
    auto mapOp = cast<omp::MapInfoOp>(mapValue.getDefiningOp());
    bool isAttachStyleMap =
        checkRefPtrOrPteeMapWithAttach(mapOp.getMapType()) ||
        isPrivatizeableAttachMap(mapOp.getMapType());
    Value offloadPtr = (mapOp.getVarPtrPtr() && !isAttachStyleMap)
                           ? mapOp.getVarPtrPtr()
                           : mapOp.getVarPtr();
    mapData.OriginalValue.push_back(moduleTranslation.lookupValue(offloadPtr));
    mapData.Pointers.push_back(
        isAttachStyleMap ? moduleTranslation.lookupValue(mapOp.getVarPtrPtr())
                         : mapData.OriginalValue.back());
 
    if (llvm::Value *refPtr =
            getRefPtrIfDeclareTarget(offloadPtr, moduleTranslation)) {
      mapData.IsDeclareTarget.push_back(true);
      mapData.BasePointers.push_back(refPtr);
    } else if (isDeclareTargetTo(offloadPtr)) {
      mapData.IsDeclareTarget.push_back(true);
      mapData.BasePointers.push_back(mapData.OriginalValue.back());
    } else { // regular mapped variable
      mapData.IsDeclareTarget.push_back(false);
      mapData.BasePointers.push_back(mapData.OriginalValue.back());
    }
 
    // In every situation we currently have if we have a varPtrPtr present
    // we wish to utilise it's type for the base type, main cases are
    // currently Fortran descriptor base address maps and attach maps.
    mapData.BaseType.push_back(moduleTranslation.convertType(
        mapOp.getVarPtrPtr() ? mapOp.getVarPtrPtrType().value()
                             : mapOp.getVarPtrType()));
 
    // For the attach map cases, it's a little odd, as we effectively have to
    // utilise the base address (including all bounds offsets) for the pointer
    // field, the pointer address for the base address field, and the pointer
    // not the data (base addresses) size. So we end up with a mix of base
    // types and sizes we wish to insert here.
    mlir::Type sizeType = (isAttachStyleMap || !mapOp.getVarPtrPtr())
                              ? mapOp.getVarPtrType()
                              : mapOp.getVarPtrPtrType().value();
    mapData.Sizes.push_back(getSizeInBytes(
        dl, sizeType, isAttachStyleMap ? nullptr : mapOp,
        mapData.Pointers.back(), moduleTranslation.convertType(sizeType),
        builder, moduleTranslation));
    mapData.MapClause.push_back(mapOp.getOperation());
    mapData.Types.push_back(convertClauseMapFlags(mapOp.getMapType()));
    // TODO: set HasAttachPtr from Flang for pointee-storage entries.
    mapData.HasAttachPtr.push_back(false);
    mapData.Names.push_back(LLVM::createMappingInformation(
        mapOp.getLoc(), *getOpenMPBuilder(moduleTranslation),
        getMapClauseName(mapOp)));
    mapData.DevicePointers.push_back(llvm::OpenMPIRBuilder::DeviceInfoTy::None);
    if (mapOp.getMapperId())
      mapData.Mappers.push_back(
          SymbolTable::lookupNearestSymbolFrom<omp::DeclareMapperOp>(
              mapOp, mapOp.getMapperIdAttr()));
    else
      mapData.Mappers.push_back(nullptr);
    mapData.IsAMapping.push_back(true);
    mapData.IsAMember.push_back(checkIsAMember(mapVars, mapOp));
  }
 
  auto findMapInfo = [&mapData](llvm::Value *val,
                                llvm::OpenMPIRBuilder::DeviceInfoTy devInfoTy,
                                size_t memberCount) {
    unsigned index = 0;
    bool found = false;
    for (llvm::Value *basePtr : mapData.OriginalValue) {
      auto mapOp = cast<omp::MapInfoOp>(mapData.MapClause[index]);
      // TODO: Currently we define an equivalent mapping as
      // the same base pointer and an equivalent member count, but
      // that is a loose definition. We may have to extend to check
      // for other fields (varPtrPtr/individual members being mapped).
      // Note: Attach maps are not the same as a normal data transfer
      // they specify to the runtime to perform an attach map and they
      // (at least at the moment) are never something we would aim to
      // return in a use_dev_* clause, so they are skipped in terms of
      // duplicate maps.
      bool isAttachMap =
          (mapData.Types[index] &
           llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ATTACH) ==
          llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ATTACH;
      if (!isAttachMap && basePtr == val && mapData.IsAMapping[index] &&
          memberCount == mapOp.getMembers().size()) {
        found = true;
        mapData.Types[index] |=
            llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_RETURN_PARAM;
        mapData.DevicePointers[index] = devInfoTy;
      }
      index++;
    }
    return found;
  };
 
  // Process useDevPtr(Addr)Operands
  auto addDevInfos = [&](const llvm::ArrayRef<Value> &useDevOperands,
                         llvm::OpenMPIRBuilder::DeviceInfoTy devInfoTy) {
    for (Value mapValue : useDevOperands) {
      auto mapOp = cast<omp::MapInfoOp>(mapValue.getDefiningOp());
      Value offloadPtr =
          mapOp.getVarPtrPtr() ? mapOp.getVarPtrPtr() : mapOp.getVarPtr();
      llvm::Value *origValue = moduleTranslation.lookupValue(offloadPtr);
 
      // Check if map info is already present for this entry.
      if (!findMapInfo(origValue, devInfoTy, mapOp.getMembers().size())) {
        mapData.OriginalValue.push_back(origValue);
        mapData.Pointers.push_back(mapData.OriginalValue.back());
        mapData.IsDeclareTarget.push_back(false);
        mapData.BasePointers.push_back(mapData.OriginalValue.back());
        mlir::Type baseTy = mapOp.getVarPtrPtr()
                                ? mapOp.getVarPtrPtrType().value()
                                : mapOp.getVarPtrType();
        mapData.BaseType.push_back(moduleTranslation.convertType(baseTy));
        mapData.Sizes.push_back(builder.getInt64(0));
        mapData.MapClause.push_back(mapOp.getOperation());
        mapData.Types.push_back(
            llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_RETURN_PARAM);
        // TODO: set HasAttachPtr from Flang for pointee-storage entries.
        mapData.HasAttachPtr.push_back(false);
        mapData.Names.push_back(LLVM::createMappingInformation(
            mapOp.getLoc(), *getOpenMPBuilder(moduleTranslation),
            getMapClauseName(mapOp)));
        mapData.DevicePointers.push_back(devInfoTy);
        mapData.Mappers.push_back(nullptr);
        mapData.IsAMapping.push_back(false);
        mapData.IsAMember.push_back(checkIsAMember(useDevOperands, mapOp));
      }
    }
  };
 
  addDevInfos(useDevAddrOperands, llvm::OpenMPIRBuilder::DeviceInfoTy::Address);
  addDevInfos(useDevPtrOperands, llvm::OpenMPIRBuilder::DeviceInfoTy::Pointer);
 
  for (Value mapValue : hasDevAddrOperands) {
    auto mapOp = cast<omp::MapInfoOp>(mapValue.getDefiningOp());
    Value offloadPtr =
        mapOp.getVarPtrPtr() ? mapOp.getVarPtrPtr() : mapOp.getVarPtr();
    llvm::Value *origValue = moduleTranslation.lookupValue(offloadPtr);
    auto mapType = convertClauseMapFlags(mapOp.getMapType());
    auto mapTypeAlways = llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ALWAYS;
    bool isDevicePtr =
        (mapOp.getMapType() & omp::ClauseMapFlags::is_device_ptr) !=
        omp::ClauseMapFlags::none;
 
    mapData.OriginalValue.push_back(origValue);
    mapData.BasePointers.push_back(origValue);
    mapData.Pointers.push_back(origValue);
    mapData.IsDeclareTarget.push_back(false);
 
    mlir::Type baseTy = mapOp.getVarPtrPtr() ? mapOp.getVarPtrPtrType().value()
                                             : mapOp.getVarPtrType();
    mapData.BaseType.push_back(moduleTranslation.convertType(baseTy));
    mapData.Sizes.push_back(builder.getInt64(dl.getTypeSize(baseTy)));
 
    mapData.MapClause.push_back(mapOp.getOperation());
    if (llvm::to_underlying(mapType & mapTypeAlways)) {
      // Descriptors are mapped with the ALWAYS flag, since they can get
      // rematerialized, so the address of the decriptor for a given object
      // may change from one place to another.
      mapData.Types.push_back(mapType);
      // TODO: set HasAttachPtr from Flang for pointee-storage entries.
      mapData.HasAttachPtr.push_back(false);
      // Technically it's possible for a non-descriptor mapping to have
      // both has-device-addr and ALWAYS, so lookup the mapper in case it
      // exists.
      if (mapOp.getMapperId()) {
        mapData.Mappers.push_back(
            SymbolTable::lookupNearestSymbolFrom<omp::DeclareMapperOp>(
                mapOp, mapOp.getMapperIdAttr()));
      } else {
        mapData.Mappers.push_back(nullptr);
      }
    } else {
      // For is_device_ptr we need the map type to propagate so the runtime
      // can materialize the device-side copy of the pointer container.
      mapData.Types.push_back(
          isDevicePtr ? mapType
                      : llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_LITERAL);
      // TODO: set HasAttachPtr from Flang for pointee-storage entries.
      mapData.HasAttachPtr.push_back(false);
      mapData.Mappers.push_back(nullptr);
    }
    mapData.Names.push_back(LLVM::createMappingInformation(
        mapOp.getLoc(), *getOpenMPBuilder(moduleTranslation),
        getMapClauseName(mapOp)));
    mapData.DevicePointers.push_back(
        isDevicePtr ? llvm::OpenMPIRBuilder::DeviceInfoTy::Pointer
                    : llvm::OpenMPIRBuilder::DeviceInfoTy::Address);
    mapData.IsAMapping.push_back(false);
    mapData.IsAMember.push_back(checkIsAMember(hasDevAddrOperands, mapOp));
  }
}
 
static int getMapDataMemberIdx(MapInfoData &mapData, omp::MapInfoOp memberOp) {
  auto *res = llvm::find(mapData.MapClause, memberOp);
  assert(res != mapData.MapClause.end() &&
         "MapInfoOp for member not found in MapData, cannot return index");
  return std::distance(mapData.MapClause.begin(), res);
}
 
static void sortMapIndices(llvm::SmallVectorImpl<size_t> &indices,
                           omp::MapInfoOp mapInfo, bool first = true) {
  ArrayAttr indexAttr = mapInfo.getMembersIndexAttr();
  llvm::SmallVector<size_t> occludedChildren;
  llvm::sort(
      indices.begin(), indices.end(), [&](const size_t a, const size_t b) {
        // Bail early if we are asked to look at the same index. If we do not
        // bail early, we can end up mistakenly adding indices to
        // occludedChildren. This can occur with some types of libc++ hardening.
        if (a == b)
          return false;
 
        auto memberIndicesA = cast<ArrayAttr>(indexAttr[a]);
        auto memberIndicesB = cast<ArrayAttr>(indexAttr[b]);
 
        for (auto it : llvm::zip(memberIndicesA, memberIndicesB)) {
          int64_t aIndex = mlir::cast<IntegerAttr>(std::get<0>(it)).getInt();
          int64_t bIndex = mlir::cast<IntegerAttr>(std::get<1>(it)).getInt();
 
          if (aIndex == bIndex)
            continue;
 
          if (aIndex < bIndex)
            return first;
 
          if (aIndex > bIndex)
            return !first;
        }
 
        // Iterated up until the end of the smallest member and
        // they were found to be equal up to that point, so select
        // the member with the lowest index count, so the "parent"
        bool memberAParent = memberIndicesA.size() < memberIndicesB.size();
        if (memberAParent)
          occludedChildren.push_back(b);
        else
          occludedChildren.push_back(a);
        return memberAParent;
      });
 
  for (auto v : occludedChildren)
    indices.erase(std::remove(indices.begin(), indices.end(), v),
                  indices.end());
}
 
static omp::MapInfoOp getFirstOrLastMappedMemberPtr(omp::MapInfoOp mapInfo,
                                                    bool first) {
  ArrayAttr indexAttr = mapInfo.getMembersIndexAttr();
  // Only 1 member has been mapped, we can return it.
  if (indexAttr.size() == 1)
    return cast<omp::MapInfoOp>(mapInfo.getMembers()[0].getDefiningOp());
  llvm::SmallVector<size_t> indices(indexAttr.size());
  std::iota(indices.begin(), indices.end(), 0);
  sortMapIndices(indices, mapInfo, first);
  return llvm::cast<omp::MapInfoOp>(
      mapInfo.getMembers()[indices.front()].getDefiningOp());
}
 
/// This function calculates the array/pointer offset for map data provided
/// with bounds operations, e.g. when provided something like the following:
///
/// Fortran
///     map(tofrom: array(2:5, 3:2))
///
/// We must calculate the initial pointer offset to pass across, this function
/// performs this using bounds.
///
/// TODO/WARNING: This only supports Fortran's column major indexing currently
/// as is noted in the note below and comments in the function, we must extend
/// this function when we add a C++ frontend.
/// NOTE: which while specified in row-major order it currently needs to be
/// flipped for Fortran's column order array allocation and access (as
/// opposed to C++'s row-major, hence the backwards processing where order is
/// important). This is likely important to keep in mind for the future when
/// we incorporate a C++ frontend, both frontends will need to agree on the
/// ordering of generated bounds operations (one may have to flip them) to
/// make the below lowering frontend agnostic. The offload size
/// calcualtion may also have to be adjusted for C++.
static std::vector<llvm::Value *>
calculateBoundsOffset(LLVM::ModuleTranslation &moduleTranslation,
                      llvm::IRBuilderBase &builder, bool isArrayTy,
                      OperandRange bounds, bool &isByteOffset) {
  std::vector<llvm::Value *> idx;
  isByteOffset = false;
  // There's no bounds to calculate an offset from, we can safely
  // ignore and return no indices.
  if (bounds.empty())
    return idx;
 
  // If we have an array type, then we have its type so can treat it as a
  // normal GEP instruction where the bounds operations are simply indexes
  // into the array. We currently do reverse order of the bounds, which
  // I believe leans more towards Fortran's column-major in memory.
  if (isArrayTy) {
    idx.push_back(builder.getInt64(0));
    for (int i = bounds.size() - 1; i >= 0; --i) {
      if (auto boundOp = dyn_cast_if_present<omp::MapBoundsOp>(
              bounds[i].getDefiningOp())) {
        idx.push_back(moduleTranslation.lookupValue(boundOp.getLowerBound()));
      }
    }
  } else {
    // Check if Fortran descriptors provide strides in bytes
    llvm::Value *offset = builder.getInt64(0);
    for (Value bound : bounds) {
      auto boundOp =
          dyn_cast_if_present<omp::MapBoundsOp>(bound.getDefiningOp());
      if (!boundOp || !boundOp.getStride())
        continue;
      // Fortran descriptors provide strides in bytes; when that's the case the
      // accumulated offset is a byte offset and must be consumed with a byte
      // (i8) GEP at the call site to avoid double-scaling by the element size.
      isByteOffset = boundOp.getStrideInBytes();
    }
    if (isByteOffset) {
      for (Value bound : bounds) {
        auto boundOp =
            dyn_cast_if_present<omp::MapBoundsOp>(bound.getDefiningOp());
        if (!boundOp || !boundOp.getStride())
          continue;
        // If we do not have an array type, but we have bounds, then we're
        // dealing with a pointer that's being treated like an array
        // and we have the underlying type e.g. an i32, or f64 etc,
        // e.g. a fortran descriptor base address (pointer pointing to
        // the actual data) and we know that the offset stride is expressed
        // in bytes, so we must calculate the offset to the first mapped
        // element as a single linear index into that data.
        //
        // Each bound carries the stride between consecutive elements along its
        // dimension, so the linear offset to the section's origin is:
        //
        //   offset += lower_bound[d] * stride[d]
        llvm::Value *lb =
            moduleTranslation.lookupValue(boundOp.getLowerBound());
        llvm::Value *stride =
            moduleTranslation.lookupValue(boundOp.getStride());
        offset = builder.CreateAdd(offset, builder.CreateMul(lb, stride));
      }
      idx.push_back(offset);
    } else {
      for (int i = bounds.size() - 1; i >= 0; --i) {
        if (auto boundOp = dyn_cast_if_present<omp::MapBoundsOp>(
                bounds[i].getDefiningOp())) {
          // If the stride in bytes is unknown, so we must calculate the
          // offset using a single index which the following loop attempts to
          // compute using the standard column-major algorithm e.g for a 3D
          // array:
          //
          // ((((c_idx * b_len) + b_idx) * a_len) + a_idx)
          //
          // It is of note that it's doing column-major rather than row-major at
          // the moment, but having a way for the frontend to indicate which
          // major format to use or standardizing/canonicalizing the order of
          // the bounds to compute the offset may be useful in the future when
          // there's other frontends with different formats.
          if (i == ((int)bounds.size() - 1))
            idx.emplace_back(
                moduleTranslation.lookupValue(boundOp.getLowerBound()));
          else
            idx.back() = builder.CreateAdd(
                builder.CreateMul(idx.back(), moduleTranslation.lookupValue(
                                                  boundOp.getExtent())),
                moduleTranslation.lookupValue(boundOp.getLowerBound()));
        }
      }
    }
  }
 
  return idx;
}
 
static void getAsIntegers(ArrayAttr values, llvm::SmallVector<int64_t> &ints) {
  llvm::transform(values, std::back_inserter(ints), [](Attribute value) {
    return cast<IntegerAttr>(value).getInt();
  });
}
 
// Gathers members that are overlapping in the parent, excluding members that
// themselves overlap, keeping the top-most (closest to parents level) map.
static void
getOverlappedMembers(llvm::SmallVectorImpl<size_t> &overlapMapDataIdxs,
                     omp::MapInfoOp parentOp) {
  // No members mapped, no overlaps.
  if (parentOp.getMembers().empty())
    return;
 
  // Single member, we can insert and return early.
  if (parentOp.getMembers().size() == 1) {
    overlapMapDataIdxs.push_back(0);
    return;
  }
 
  ArrayAttr indexAttr = parentOp.getMembersIndexAttr();
  size_t numMembers = indexAttr.size();
 
  // Pre-convert all member indices to integer arrays for efficient comparison.
  llvm::SmallVector<llvm::SmallVector<int64_t>> memberIndices(numMembers);
  for (auto [i, indicesAttr] : llvm::enumerate(indexAttr))
    getAsIntegers(cast<ArrayAttr>(indicesAttr), memberIndices[i]);
 
  // For each member, check if it's superseded by another (shorter prefix)
  // member. If member j's indices are a prefix of member i's indices, then
  // i is a child of j and should be skipped. e.g. if member [0] is mapped,
  // we skip members [0,1], [0,2], etc.
  llvm::SmallDenseSet<size_t> skipIndices;
  for (size_t i = 0; i < numMembers; ++i) {
    const auto &iIndices = memberIndices[i];
    for (size_t j = 0; j < numMembers; ++j) {
      if (i == j)
        continue;
      const auto &jIndices = memberIndices[j];
      // If j's indices are a strict prefix of i's indices, skip i
      if (jIndices.size() < iIndices.size() &&
          std::equal(jIndices.begin(), jIndices.end(), iIndices.begin())) {
        skipIndices.insert(i);
        break; // No need to check other potential parents
      }
    }
  }
 
  // Collect indices of members that are not superseded by a parent.
  for (size_t i = 0; i < numMembers; ++i)
    if (!skipIndices.contains(i))
      overlapMapDataIdxs.push_back(i);
}
 
/// Describe a bounded update as a set of contiguous pieces. Bounds follow the
/// dialect's normalized fastest-to-slowest varying order, which matches
/// Fortran's column-major dimension order. Frontends for row-major languages
/// such as C/C++ must normalize their source dimensions to this order.
/// OpenMPIRBuilder reverses the vectors when emitting the runtime descriptor,
/// which uses byte offsets and strides with the slowest varying dimension
/// first.
static void addNonContiguousUpdate(LLVM::ModuleTranslation &moduleTranslation,
                                   llvm::IRBuilderBase &builder,
                                   MapInfoData &mapData, size_t mapDataIdx,
                                   MapInfosTy &combinedInfo) {
  auto mapOp = cast<omp::MapInfoOp>(mapData.MapClause[mapDataIdx]);
  if (mapOp.getBounds().empty() || mapOp.getMapperId() ||
      mapOp->getParentOfType<omp::DeclareMapperOp>() ||
      bitEnumContainsAll(mapOp.getMapType(), omp::ClauseMapFlags::attach))
    return;
 
  llvm::Type *elementType = mapData.BaseType[mapDataIdx];
  // Bounds extents may be absent, and a scalar subscript has extent one.
  // Preserve the full source shape: for a(4,5), a(2,:) still needs a
  // second-dimension stride of four elements.
  SmallVector<uint64_t> arrayExtents;
  while (auto *arrayType = dyn_cast<llvm::ArrayType>(elementType)) {
    arrayExtents.push_back(arrayType->getNumElements());
    elementType = arrayType->getElementType();
  }
  llvm::Value *elementSize = builder.getInt64(
      builder.GetInsertBlock()->getModule()->getDataLayout().getTypeAllocSize(
          elementType));
 
  // Include a byte dimension so that a non-unit descriptor stride in the
  // innermost array dimension still transfers one element at a time.
  llvm::OpenMPIRBuilder::MapValuesArrayTy offsets{builder.getInt64(0)};
  llvm::OpenMPIRBuilder::MapValuesArrayTy counts{elementSize};
  llvm::OpenMPIRBuilder::MapValuesArrayTy strides{builder.getInt64(1)};
  llvm::Value *sourceStride = elementSize;
  llvm::Value *contiguousSize = elementSize;
  // Unknown descriptor strides conservatively use a descriptor. The runtime
  // merges contiguous dimensions from their actual values.
  bool isContiguous = true;
  for (auto [dim, bound] : llvm::enumerate(mapOp.getBounds())) {
    auto bounds = cast<omp::MapBoundsOp>(bound.getDefiningOp());
    auto getInt64 = [&](Value value) {
      return builder.CreateSExtOrTrunc(moduleTranslation.lookupValue(value),
                                       builder.getInt64Ty());
    };
    llvm::Value *lower = bounds.getLowerBound()
                             ? getInt64(bounds.getLowerBound())
                             : builder.getInt64(0);
    llvm::Value *count = builder.CreateAdd(
        builder.CreateSub(getInt64(bounds.getUpperBound()), lower),
        builder.getInt64(1));
    count =
        builder.CreateSelect(builder.CreateICmpSGT(count, builder.getInt64(0)),
                             count, builder.getInt64(0));
    llvm::Value *stride = sourceStride;
    if (bounds.getStrideInBytes() && bounds.getStride())
      stride = getInt64(bounds.getStride());
    else if (arrayExtents.empty() && bounds.getStride())
      stride = builder.CreateMul(getInt64(bounds.getStride()), elementSize);
    offsets.push_back(builder.CreateMul(lower, stride));
    counts.push_back(count);
    strides.push_back(stride);
    isContiguous &= stride == contiguousSize;
    contiguousSize = builder.CreateMul(contiguousSize, count);
 
    // Static array types carry the full source shape, including dimensions
    // selected with scalar subscripts. Otherwise the frontend supplies the
    // physical stride in elements (or descriptor bytes) for every dimension.
    if (dim < arrayExtents.size())
      sourceStride = builder.CreateMul(
          sourceStride,
          builder.getInt64(arrayExtents[arrayExtents.size() - dim - 1]));
    else if (bounds.getExtent())
      sourceStride =
          builder.CreateMul(sourceStride, getInt64(bounds.getExtent()));
  }
  if (isContiguous)
    return;
 
  llvm::Value *base = mapData.OriginalValue[mapDataIdx];
  if (mapOp.getVarPtrPtr())
    base = builder.CreateLoad(builder.getPtrTy(), base);
  // Absent optional arrays and unallocated descriptors must not issue
  // transfers, including sections with explicit nonempty bounds.
  counts[1] = builder.CreateSelect(builder.CreateIsNull(base),
                                   builder.getInt64(0), counts[1]);
  // The descriptor offsets already locate the first selected element. The
  // runtime needs the pointee base, not the descriptor or a section address.
  combinedInfo.BasePointers.back() = base;
  combinedInfo.Types.back() |=
      llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_NON_CONTIG;
  auto &nonContig = combinedInfo.NonContigInfo;
  nonContig.IsNonContiguous = true;
  nonContig.Dims.resize(combinedInfo.Types.size(), 1);
  nonContig.Dims.back() = counts.size();
  nonContig.Offsets.push_back(std::move(offsets));
  nonContig.Counts.push_back(std::move(counts));
  nonContig.Strides.push_back(std::move(strides));
}
 
/// This function handles the insertion of a single item of map data from
/// MapInfoData into the OMPIRBuilder's MapInfo list. Utilising this function
/// means the map being inserted can be treated as a non-parent map entity,
/// if the memberOfFlag is set then the map being inserted is treated as
/// a member map of a larger entity. The insertion into the MapInfo list of
/// the OMPIRBuilder can vary based on a number of factors, such as if it's
/// a ref_ptr or ref_ptee map, if it's a member of a record, what construct
/// the map belongs to and the various map type bit flags that are set for
/// the map.
static void processIndividualMap(
    LLVM::ModuleTranslation &moduleTranslation, llvm::IRBuilderBase &builder,
    llvm::OpenMPIRBuilder &ompBuilder, MapInfoData &mapData, size_t mapDataIdx,
    MapInfosTy &combinedInfo, TargetDirectiveEnumTy targetDirective,
    llvm::omp::OpenMPOffloadMappingFlags memberOfFlag =
        llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_NONE,
    bool isTargetParam = true, int mapDataParentIdx = -1) {
  auto mapFlag = mapData.Types[mapDataIdx];
  auto mapInfoOp = llvm::cast<omp::MapInfoOp>(mapData.MapClause[mapDataIdx]);
 
  bool isPtrTy = checkIfPointerMap(mapInfoOp);
  bool isAttachMap = ((convertClauseMapFlags(mapInfoOp.getMapType()) &
                       llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ATTACH) ==
                      llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ATTACH);
 
  // Declare target variables are not passed to the kernel, and for the moment
  // attach maps are not passed to the kernel. However, it is possible to create
  // attach maps that transfer data and thus can be kernel arguments, but our
  // existing frontend does not do this.
  if (isTargetParam &&
      (targetDirective == TargetDirectiveEnumTy::Target &&
       !mapData.IsDeclareTarget[mapDataIdx]) &&
      !isAttachMap)
    mapFlag |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_TARGET_PARAM;
 
  if (mapInfoOp.getMapCaptureType() == omp::VariableCaptureKind::ByCopy &&
      !isPtrTy)
    mapFlag |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_LITERAL;
 
  // If we have a pointer and it's part of a MEMBER_OF mapping we do not apply
  // MEMBER_OF, as the runtime currently has a work-around that utilises
  // MEMBER_OF to prevent reference updating in certain scenarios instead of
  // target_param. However, this causes a noticeable issue in cases where we
  // map some data (Fortran descriptor primarily at the moment), alter it on
  // the host, and then expect it to not be updated in a subsequent implicit map
  // (such as an implicit map on a target).
  if (memberOfFlag != llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_NONE) {
    if (!isPtrTy && !isAttachMap)
      ompBuilder.setCorrectMemberOfFlag(mapFlag, memberOfFlag);
 
    // The return parameter should be the over-riding parent in cases where we
    // have a return parameter that is echoed to all members, the main case of
    // this currently is with fortran descriptors. It may need more finessing
    // for C/C++ in the future or descriptors that are members of derived
    // types.
    mapFlag &= ~llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_RETURN_PARAM;
  }
 
  // We apply MAP_PTR_AND_OBJ when within a declare mapper object as it enforces
  // MEMBER_OF mappings on maps that are passed the initial nesting depth, which
  // includes pointed to data and attach members, both of which are technically
  // not part of the main object. This has the side effect of causing early
  // map-backs in certain cases where an implicit declare mapper has been
  // emitted for a target region. Applying MAP_PTR_AND_OBJ in these situations
  // circumvents this.
  if (isPtrTy && !isAttachMap && mapData.IsDeclareTarget[mapDataIdx])
    mapFlag |= llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_PTR_AND_OBJ;
 
  // if we're provided a mapDataParentIdx, then the data being mapped is
  // part of a larger object (in a parent <-> member mapping) and in this
  // case our BasePointer should be the parent. Except in the edge case
  // where we are mapping pointee data, where we try staying close to
  // what Clang currently does and utilise the regular base pointer of the
  // data.
  bool isRefPtee =
      !bitEnumContainsAll(mapInfoOp.getMapType(),
                          omp::ClauseMapFlags::ref_ptr) &&
      bitEnumContainsAll(mapInfoOp.getMapType(), omp::ClauseMapFlags::ref_ptee);
  bool isRefPtrPtee = bitEnumContainsAll(mapInfoOp.getMapType(),
                                         omp::ClauseMapFlags::ref_ptr |
                                             omp::ClauseMapFlags::ref_ptee);
 
  if (!mapInfoOp->getParentOfType<omp::DeclareMapperOp>() &&
      mapDataParentIdx >= 0 && !(isRefPtee || (isRefPtrPtee && isPtrTy))) {
    combinedInfo.BasePointers.emplace_back(
        mapData.BasePointers[mapDataParentIdx]);
  } else {
    combinedInfo.BasePointers.emplace_back(mapData.BasePointers[mapDataIdx]);
  }
 
  combinedInfo.Pointers.emplace_back(mapData.Pointers[mapDataIdx]);
  combinedInfo.DevicePointers.emplace_back(
      memberOfFlag != llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_NONE
          ? llvm::OpenMPIRBuilder::DeviceInfoTy::None
          : mapData.DevicePointers[mapDataIdx]);
  combinedInfo.Mappers.emplace_back(mapData.Mappers[mapDataIdx]);
  combinedInfo.Names.emplace_back(mapData.Names[mapDataIdx]);
  combinedInfo.Types.emplace_back(mapFlag);
  // TODO: set HasAttachPtr from Flang for pointee-storage entries.
  combinedInfo.HasAttachPtr.emplace_back(false);
  // A privatized attach map needs storage for the pointer or descriptor even
  // when its pointee is null. Its size describes that storage, not the pointee,
  // and is needed by the runtime for corresponding-pointer-initialization.
  combinedInfo.Sizes.emplace_back(
      isPtrTy && !isPrivatizeableAttachMap(mapInfoOp.getMapType())
          ? builder.CreateSelect(
                builder.CreateIsNull(mapData.Pointers[mapDataIdx]),
                builder.getInt64(0), mapData.Sizes[mapDataIdx])
          : mapData.Sizes[mapDataIdx]);
  if (targetDirective == TargetDirectiveEnumTy::TargetUpdate)
    addNonContiguousUpdate(moduleTranslation, builder, mapData, mapDataIdx,
                           combinedInfo);
}
 
// This creates two insertions into the MapInfosTy data structure for the
// "parent" of a set of members, (usually a container e.g.
// class/structure/derived type) when subsequent members have also been
// explicitly mapped on the same map clause. Certain types, such as Fortran
// descriptors are mapped like this as well, however, the members are
// implicit as far as a user is concerned, but we must explicitly map them
// internally.
//
// This function also returns the memberOfFlag for this particular parent,
// which is utilised in subsequent member mappings (by modifying there map type
// with it) to indicate that a member is part of this parent and should be
// treated by the runtime as such. Important to achieve the correct mapping.
//
// This function borrows a lot from Clang's emitCombinedEntry function
// inside of CGOpenMPRuntime.cpp
static void mapParentWithMembers(
    LLVM::ModuleTranslation &moduleTranslation, llvm::IRBuilderBase &builder,
    llvm::OpenMPIRBuilder &ompBuilder, DataLayout &dl, MapInfosTy &combinedInfo,
    MapInfoData &mapData, uint64_t mapDataIndex,
    llvm::omp::OpenMPOffloadMappingFlags memberOfFlag,
    TargetDirectiveEnumTy targetDirective) {
  using MapFlags = llvm::omp::OpenMPOffloadMappingFlags;
  assert(!ompBuilder.Config.isTargetDevice() &&
         "function only supported for host device codegen");
  auto parentClause =
      llvm::cast<omp::MapInfoOp>(mapData.MapClause[mapDataIndex]);
  auto *parentMapper = mapData.Mappers[mapDataIndex];
 
  // Map the first segment of the parent. If a user-defined mapper is attached,
  // include the parent's to/from-style bits (and common modifiers) in this
  // base entry so the mapper receives correct copy semantics via its 'type'
  // parameter. Also keep TARGET_PARAM when required for kernel arguments.
  MapFlags baseFlag = (targetDirective == TargetDirectiveEnumTy::Target &&
                       !mapData.IsDeclareTarget[mapDataIndex])
                          ? MapFlags::OMP_MAP_TARGET_PARAM
                          : MapFlags::OMP_MAP_NONE;
 
  if (parentMapper) {
    // Preserve relevant map-type bits from the parent clause. These include
    // the copy direction (TO/FROM), as well as commonly used modifiers that
    // should be visible to the mapper for correct behaviour.
    MapFlags parentFlags = mapData.Types[mapDataIndex];
    MapFlags preserve = MapFlags::OMP_MAP_TO | MapFlags::OMP_MAP_FROM |
                        MapFlags::OMP_MAP_ALWAYS | MapFlags::OMP_MAP_CLOSE |
                        MapFlags::OMP_MAP_PRESENT |
                        MapFlags::OMP_MAP_OMPX_HOLD |
                        MapFlags::OMP_MAP_IMPLICIT;
    baseFlag |= (parentFlags & preserve);
  } else {
    MapFlags parentFlags = mapData.Types[mapDataIndex];
    MapFlags preserve = MapFlags::OMP_MAP_TO | MapFlags::OMP_MAP_FROM |
                        MapFlags::OMP_MAP_PRESENT |
                        MapFlags::OMP_MAP_RETURN_PARAM |
                        MapFlags::OMP_MAP_IMPLICIT;
    baseFlag |= (parentFlags & preserve);
  }
 
  combinedInfo.Types.emplace_back(baseFlag);
  // TODO: set HasAttachPtr from Flang for pointee-storage entries.
  combinedInfo.HasAttachPtr.emplace_back(false);
  combinedInfo.DevicePointers.emplace_back(
      mapData.DevicePointers[mapDataIndex]);
  // Only attach the mapper to the base entry when we are mapping the whole
  // parent. Combined/segment entries must not carry a mapper; otherwise the
  // mapper can be invoked with a partial size, which is undefined behaviour.
  combinedInfo.Mappers.emplace_back(
      parentMapper && !parentClause.getPartialMap() ? parentMapper : nullptr);
  combinedInfo.Names.emplace_back(LLVM::createMappingInformation(
      mapData.MapClause[mapDataIndex]->getLoc(), ompBuilder,
      getMapClauseName(cast<omp::MapInfoOp>(mapData.MapClause[mapDataIndex]))));
  combinedInfo.BasePointers.emplace_back(mapData.BasePointers[mapDataIndex]);
 
  // Calculate size of the parent object being mapped based on the
  // addresses at runtime, highAddr - lowAddr = size. This of course
  // doesn't factor in allocated data like pointers, hence the further
  // processing of members specified by users, or in the case of
  // Fortran pointers and allocatables, the mapping of the pointed to
  // data by the descriptor (which itself, is a structure containing
  // runtime information on the dynamically allocated data).
  llvm::Value *lowAddr, *highAddr;
  if (!parentClause.getPartialMap()) {
    lowAddr = builder.CreatePointerCast(mapData.Pointers[mapDataIndex],
                                        builder.getPtrTy());
    highAddr = builder.CreatePointerCast(
        builder.CreateConstGEP1_32(mapData.BaseType[mapDataIndex],
                                   mapData.Pointers[mapDataIndex], 1),
        builder.getPtrTy());
    combinedInfo.Pointers.emplace_back(mapData.Pointers[mapDataIndex]);
  } else {
    auto mapOp = dyn_cast<omp::MapInfoOp>(mapData.MapClause[mapDataIndex]);
    int firstMemberIdx = getMapDataMemberIdx(
        mapData, getFirstOrLastMappedMemberPtr(mapOp, true));
    lowAddr = builder.CreatePointerCast(mapData.BasePointers[firstMemberIdx],
                                        builder.getPtrTy());
 
    int lastMemberIdx = getMapDataMemberIdx(
        mapData, getFirstOrLastMappedMemberPtr(mapOp, false));
    auto lastMemberMapInfo =
        cast<omp::MapInfoOp>(mapData.MapClause[lastMemberIdx]);
 
    // NOTE: Currently, for RefPtee the BaseType is set to the varPtrPtr field,
    // which is the pointer datas type and not the member within the structure
    // that it's part of, so we have to make sure we use the member type in this
    // case when calculating the parents size offsets.
    // TODO: May be good to extend MapInfoData to support tracking of both
    // VarPtr/VarPtrPtr BaseType's to better distinguish what's being used more
    // consistently.
    bool isRefPteeMap = bitEnumContainsAll(lastMemberMapInfo.getMapType(),
                                           omp::ClauseMapFlags::ref_ptee) &&
                        !bitEnumContainsAll(lastMemberMapInfo.getMapType(),
                                            omp::ClauseMapFlags::ref_ptr);
    llvm::Type *castType = mapData.BaseType[lastMemberIdx];
    if (isRefPteeMap)
      castType =
          moduleTranslation.convertType(lastMemberMapInfo.getVarPtrType());
    highAddr = builder.CreatePointerCast(
        builder.CreateGEP(castType, mapData.BasePointers[lastMemberIdx],
                          builder.getInt64(1)),
        builder.getPtrTy());
    combinedInfo.Pointers.emplace_back(mapData.BasePointers[firstMemberIdx]);
  }
 
  llvm::Value *size = builder.CreateIntCast(
      builder.CreatePtrDiff(builder.getInt8Ty(), highAddr, lowAddr),
      builder.getInt64Ty(),
      /*isSigned=*/false);
  combinedInfo.Sizes.push_back(size);
 
  // This creates the initial MEMBER_OF mapping that consists of
  // the parent/top level container (same as above effectively, except
  // with a fixed initial compile time size and separate maptype which
  // indicates the true mape type (tofrom etc.). This parent mapping is
  // only relevant if the structure in its totality is being mapped,
  // otherwise the above suffices.
  if (!parentClause.getPartialMap()) {
    // TODO: This will need to be expanded to include the whole host of logic
    // for the map flags that Clang currently supports (e.g. it should do some
    // further case specific flag modifications). For the moment, it handles
    // what we support as expected.
    MapFlags mapFlag = mapData.Types[mapDataIndex];
    bool hasMapClose = (MapFlags(mapFlag) & MapFlags::OMP_MAP_CLOSE) ==
                       MapFlags::OMP_MAP_CLOSE;
    ompBuilder.setCorrectMemberOfFlag(mapFlag, memberOfFlag);
 
    llvm::SmallVector<size_t> overlapIdxs;
    // Find all of the members that "overlap", i.e. occlude other members that
    // were mapped alongside the parent, e.g. member [0], occludes [0,1] and
    // [0,2], but not [1,0].
    getOverlappedMembers(overlapIdxs, parentClause);
 
    // When we only have one overlap we skip the case that tries to segment the
    // mapping as best it can without creating holes, as the calculation is more
    // likely to have more overhead than anything we gain from mapping a smaller
    // chunk of data. This can be seen in cases where we are mapping Fortran
    // descriptors which are a special case of record type mapping.
    //
    // The cases for close and update are unique edge cases where the segmenting
    // does not play well with the runtime currently.
    if (targetDirective == TargetDirectiveEnumTy::TargetUpdate || hasMapClose ||
        overlapIdxs.size() == 1) {
      combinedInfo.Types.emplace_back(mapFlag);
      // TODO: set HasAttachPtr from Flang for pointee-storage entries.
      combinedInfo.HasAttachPtr.emplace_back(false);
      combinedInfo.DevicePointers.emplace_back(
          mapData.DevicePointers[mapDataIndex]);
      combinedInfo.Names.emplace_back(LLVM::createMappingInformation(
          mapData.MapClause[mapDataIndex]->getLoc(), ompBuilder,
          getMapClauseName(
              cast<omp::MapInfoOp>(mapData.MapClause[mapDataIndex]))));
      combinedInfo.BasePointers.emplace_back(
          mapData.BasePointers[mapDataIndex]);
      combinedInfo.Pointers.emplace_back(mapData.Pointers[mapDataIndex]);
      combinedInfo.Sizes.emplace_back(mapData.Sizes[mapDataIndex]);
      combinedInfo.Mappers.emplace_back(nullptr);
    } else {
      // We need to make sure the overlapped members are sorted in order of
      // lowest address to highest address.
      sortMapIndices(overlapIdxs, parentClause);
 
      lowAddr = builder.CreatePointerCast(mapData.Pointers[mapDataIndex],
                                          builder.getPtrTy());
      highAddr = builder.CreatePointerCast(
          builder.CreateConstGEP1_32(mapData.BaseType[mapDataIndex],
                                     mapData.Pointers[mapDataIndex], 1),
          builder.getPtrTy());
 
      // Currently, the return parameter should be the over-riding parent in
      // cases where we have a return parameter that is echoed to all members,
      // the main case of this currently is with fortran descriptors. It may
      // need more finessing for C/C++ in the future or descriptors that are
      // members of derived types.
      mapFlag &= ~llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_RETURN_PARAM;
 
      // TODO: We may want to skip arrays/array sections in this as Clang does.
      // It appears to be an optimisation rather than a necessity though,
      // but this requires further investigation. However, we would have to make
      // sure to not exclude maps with bounds that ARE pointers, as these are
      // processed as separate components, i.e. pointer + data.
      for (auto v : overlapIdxs) {
        auto mapDataOverlapIdx = getMapDataMemberIdx(
            mapData,
            cast<omp::MapInfoOp>(parentClause.getMembers()[v].getDefiningOp()));
        auto isPtrMap = checkIfPointerMap(
            llvm::cast<omp::MapInfoOp>(mapData.MapClause[mapDataOverlapIdx]));
        combinedInfo.Types.emplace_back(mapFlag);
        // TODO: set HasAttachPtr from Flang for pointee-storage entries.
        combinedInfo.HasAttachPtr.emplace_back(false);
        combinedInfo.DevicePointers.emplace_back(
            llvm::OpenMPIRBuilder::DeviceInfoTy::None);
        combinedInfo.Names.emplace_back(LLVM::createMappingInformation(
            mapData.MapClause[mapDataIndex]->getLoc(), ompBuilder,
            getMapClauseName(
                cast<omp::MapInfoOp>(mapData.MapClause[mapDataIndex]))));
        combinedInfo.BasePointers.emplace_back(
            mapData.BasePointers[mapDataIndex]);
        combinedInfo.Mappers.emplace_back(nullptr);
        combinedInfo.Pointers.emplace_back(lowAddr);
        auto sizeCalc = builder.CreateIntCast(
            builder.CreatePtrDiff(builder.getInt8Ty(),
                                  mapData.OriginalValue[mapDataOverlapIdx],
                                  lowAddr),
            builder.getInt64Ty(), /*isSigned=*/true);
        // In certain cases, we'll generate a size of 0 if we're not careful
        // (e.g. if lowAddr happens to be the first member), which isn't
        // correct, even if the runtimes is sometimes fine with it so, in these
        // scenarios we select the types size instead.
        llvm::DataLayout dataLayout = builder.getDataLayout();
        auto sizeSel = builder.CreateSelect(
            builder.CreateICmpNE(builder.getInt64(0), sizeCalc), sizeCalc,
            isPtrMap ? builder.getInt64(dataLayout.getPointerSize())
                     : mapData.Sizes[mapDataOverlapIdx]);
        combinedInfo.Sizes.emplace_back(sizeSel);
        lowAddr = builder.CreateConstGEP1_32(
            isPtrMap ? builder.getPtrTy() : mapData.BaseType[mapDataOverlapIdx],
            mapData.BasePointers[mapDataOverlapIdx], 1);
      }
 
      combinedInfo.Types.emplace_back(mapFlag);
      // TODO: set HasAttachPtr from Flang for pointee-storage entries.
      combinedInfo.HasAttachPtr.emplace_back(false);
      combinedInfo.DevicePointers.emplace_back(
          llvm::OpenMPIRBuilder::DeviceInfoTy::None);
      combinedInfo.Names.emplace_back(LLVM::createMappingInformation(
          mapData.MapClause[mapDataIndex]->getLoc(), ompBuilder,
          getMapClauseName(
              cast<omp::MapInfoOp>(mapData.MapClause[mapDataIndex]))));
      combinedInfo.BasePointers.emplace_back(
          mapData.BasePointers[mapDataIndex]);
      combinedInfo.Mappers.emplace_back(nullptr);
      combinedInfo.Pointers.emplace_back(lowAddr);
      combinedInfo.Sizes.emplace_back(builder.CreateIntCast(
          builder.CreatePtrDiff(builder.getInt8Ty(), highAddr, lowAddr),
          builder.getInt64Ty(), true));
    }
  }
}
 
static void processMapWithMembersOf(LLVM::ModuleTranslation &moduleTranslation,
                                    llvm::IRBuilderBase &builder,
                                    llvm::OpenMPIRBuilder &ompBuilder,
                                    DataLayout &dl, MapInfosTy &combinedInfo,
                                    MapInfoData &mapData, uint64_t mapDataIndex,
                                    TargetDirectiveEnumTy targetDirective) {
  assert(!ompBuilder.Config.isTargetDevice() &&
         "function only supported for host device codegen");
 
  auto parentClause =
      llvm::cast<omp::MapInfoOp>(mapData.MapClause[mapDataIndex]);
 
  // If we have a partial map (no parent referenced in the map clauses of the
  // directive, only members) and only a single member, we do not need to bind
  // the map of the member to the parent, we can pass the member separately.
  if (parentClause.getMembers().size() == 1 && parentClause.getPartialMap()) {
    auto memberClause = llvm::cast<omp::MapInfoOp>(
        parentClause.getMembers()[0].getDefiningOp());
    int memberDataIdx = getMapDataMemberIdx(mapData, memberClause);
    // Note: Clang treats arrays with explicit bounds that fall into this
    // category as a parent with map case, however, it seems this isn't a
    // requirement, and processing them as an individual map is fine. So,
    // we will handle them as individual maps for the moment, as it's
    // difficult for us to check this as we always require bounds to be
    // specified currently and it's also marginally more optimal (single
    // map rather than two). The difference may come from the fact that
    // Clang maps array without bounds as pointers (which we do not
    // currently do), whereas we treat them as arrays in all cases
    // currently.
    processIndividualMap(
        moduleTranslation, builder, ompBuilder, mapData, memberDataIdx,
        combinedInfo, targetDirective,
        /*MemberOfFlag=*/llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_NONE,
        /*isTargetParam=*/true, mapDataIndex);
    return;
  }
 
  auto collectMapInfoIdxs =
      [&](llvm::SmallVectorImpl<int64_t> &mapsAndInfoIdx) {
        auto parentClause =
            llvm::cast<omp::MapInfoOp>(mapData.MapClause[mapDataIndex]);
        mapsAndInfoIdx.push_back(getMapDataMemberIdx(mapData, parentClause));
        for (auto member : parentClause.getMembers())
          mapsAndInfoIdx.push_back(getMapDataMemberIdx(
              mapData, llvm::cast<omp::MapInfoOp>(member.getDefiningOp())));
      };
 
  llvm::SmallVector<int64_t> mapInfoIdx;
  collectMapInfoIdxs(mapInfoIdx);
 
  llvm::omp::OpenMPOffloadMappingFlags memberOfFlag =
      ompBuilder.getMemberOfFlag(combinedInfo.Types.size());
 
  // The first index is the parent map, the rest are its members. The parent
  // normally undergoes the standard parent-with-members mapping, contributing
  // the MEMBER_OF flag that binds each member to it. The one exception is a
  // privatizeable attach map (a privatized pointer/descriptor passed directly
  // as a kernel argument): here the parent is emitted as an individual map
  // instead, for the time being, as it's used only in pointer/allocatable to
  // array cases for the moment. This only ever applies to the parent, so it is
  // checked once here rather than inside the loop below.
  bool parentIsPrivatizeableAttach =
      isPrivatizeableAttachMap(parentClause.getMapType());
  for (auto [i, idx] : llvm::enumerate(mapInfoIdx)) {
    bool emitParentMap = i == 0 && !parentIsPrivatizeableAttach;
    if (emitParentMap) {
      mapParentWithMembers(moduleTranslation, builder, ompBuilder, dl,
                           combinedInfo, mapData, idx, memberOfFlag,
                           targetDirective);
    } else {
      processIndividualMap(
          moduleTranslation, builder, ompBuilder, mapData, idx, combinedInfo,
          targetDirective,
          parentIsPrivatizeableAttach
              ? llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_NONE
              : memberOfFlag,
          /*isTargetParam=*/false, mapDataIndex);
    }
  }
}
 
// This is a variation on Clang's GenerateOpenMPCapturedVars, which
// generates different operation (e.g. load/store) combinations for
// arguments to the kernel, based on map capture kinds which are then
// utilised in the combinedInfo in place of the original Map value.
static void
createAlteredByCaptureMap(MapInfoData &mapData,
                          LLVM::ModuleTranslation &moduleTranslation,
                          llvm::IRBuilderBase &builder) {
  assert(!getOpenMPBuilder(moduleTranslation)->Config.isTargetDevice() &&
         "function only supported for host device codegen");
  for (size_t i = 0; i < mapData.MapClause.size(); ++i) {
    auto mapOp = cast<omp::MapInfoOp>(mapData.MapClause[i]);
    bool isAttachMap =
        ((convertClauseMapFlags(mapOp.getMapType()) &
          llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ATTACH) ==
         llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_ATTACH);
 
    // If it's declare target, skip it, it's handled separately. However, if
    // it's declare target, and an attach map, we want to calculate the exact
    // address offset so that we attach correctly.
    if (!mapData.IsDeclareTarget[i] ||
        (mapData.IsDeclareTarget[i] && isAttachMap)) {
      omp::VariableCaptureKind captureKind = mapOp.getMapCaptureType();
      bool isPtrTy = checkIfPointerMap(mapOp);
 
      // Currently handles array sectioning lowerbound case, but more
      // logic may be required in the future. Clang invokes EmitLValue,
      // which has specialised logic for special Clang types such as user
      // defines, so it is possible we will have to extend this for
      // structures or other complex types. As the general idea is that this
      // function mimics some of the logic from Clang that we require for
      // kernel argument passing from host -> device.
      switch (captureKind) {
      case omp::VariableCaptureKind::ByRef: {
        llvm::Value *newV = mapData.Pointers[i];
        bool isByteOffset = false;
        std::vector<llvm::Value *> offsetIdx = calculateBoundsOffset(
            moduleTranslation, builder, mapData.BaseType[i]->isArrayTy(),
            mapOp.getBounds(), isByteOffset);
        if (isPtrTy)
          newV = builder.CreateLoad(builder.getPtrTy(), newV);
 
        if (!offsetIdx.empty())
          newV = builder.CreateInBoundsGEP(isByteOffset ? builder.getInt8Ty()
                                                        : mapData.BaseType[i],
                                           newV, offsetIdx, "array_offset");
        mapData.Pointers[i] = newV;
      } break;
      case omp::VariableCaptureKind::ByCopy: {
        llvm::Type *type = mapData.BaseType[i];
        llvm::Value *newV;
        if (mapData.Pointers[i]->getType()->isPointerTy())
          newV = builder.CreateLoad(type, mapData.Pointers[i]);
        else
          newV = mapData.Pointers[i];
 
        if (!isPtrTy) {
          auto curInsert = builder.saveIP();
          llvm::DebugLoc DbgLoc = builder.getCurrentDebugLocation();
          builder.restoreIP(findAllocInsertPoints(builder, moduleTranslation));
          auto *memTempAlloc =
              builder.CreateAlloca(builder.getPtrTy(), nullptr, ".casted");
          builder.SetCurrentDebugLocation(DbgLoc);
          builder.restoreIP(curInsert);
 
          builder.CreateStore(newV, memTempAlloc);
          newV = builder.CreateLoad(builder.getPtrTy(), memTempAlloc);
        }
 
        mapData.Pointers[i] = newV;
        mapData.BasePointers[i] = newV;
      } break;
      case omp::VariableCaptureKind::This:
      case omp::VariableCaptureKind::VLAType:
        mapData.MapClause[i]->emitOpError("Unhandled capture kind");
        break;
      }
    }
  }
}
 
// Generate all map related information and fill the combinedInfo.
static void genMapInfos(llvm::IRBuilderBase &builder,
                        LLVM::ModuleTranslation &moduleTranslation,
                        DataLayout &dl, MapInfosTy &combinedInfo,
                        MapInfoData &mapData,
                        TargetDirectiveEnumTy targetDirective) {
  assert(!getOpenMPBuilder(moduleTranslation)->Config.isTargetDevice() &&
         "function only supported for host device codegen");
  // We wish to modify some of the methods in which arguments are
  // passed based on their capture type by the target region, this can
  // involve generating new loads and stores, which changes the
  // MLIR value to LLVM value mapping, however, we only wish to do this
  // locally for the current function/target and also avoid altering
  // ModuleTranslation, so we remap the base pointer or pointer stored
  // in the map infos corresponding MapInfoData, which is later accessed
  // by genMapInfos and createTarget to help generate the kernel and
  // kernel arg structure. It primarily becomes relevant in cases like
  // bycopy, or byref range'd arrays. In the default case, we simply
  // pass thee pointer byref as both basePointer and pointer.
  createAlteredByCaptureMap(mapData, moduleTranslation, builder);
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  // We operate under the assumption that all vectors that are
  // required in MapInfoData are of equal lengths (either filled with
  // default constructed data or appropiate information) so we can
  // utilise the size from any component of MapInfoData, if we can't
  // something is missing from the initial MapInfoData construction.
  for (size_t i = 0; i < mapData.MapClause.size(); ++i) {
    if (mapData.IsAMember[i])
      continue;
 
    auto mapInfoOp = dyn_cast<omp::MapInfoOp>(mapData.MapClause[i]);
    if (!mapInfoOp.getMembers().empty()) {
      processMapWithMembersOf(moduleTranslation, builder, *ompBuilder, dl,
                              combinedInfo, mapData, i, targetDirective);
      continue;
    }
 
    processIndividualMap(moduleTranslation, builder, *ompBuilder, mapData, i,
                         combinedInfo, targetDirective);
  }
  if (!combinedInfo.NonContigInfo.Dims.empty())
    combinedInfo.NonContigInfo.Dims.resize(combinedInfo.Types.size(), 1);
}
 
static llvm::Expected<llvm::Function *>
emitUserDefinedMapper(Operation *declMapperOp, llvm::IRBuilderBase &builder,
                      LLVM::ModuleTranslation &moduleTranslation,
                      llvm::StringRef mapperFuncName,
                      TargetDirectiveEnumTy targetDirective);
 
static llvm::Expected<llvm::Function *>
getOrCreateUserDefinedMapperFunc(Operation *op, llvm::IRBuilderBase &builder,
                                 LLVM::ModuleTranslation &moduleTranslation,
                                 TargetDirectiveEnumTy targetDirective) {
  assert(!getOpenMPBuilder(moduleTranslation)->Config.isTargetDevice() &&
         "function only supported for host device codegen");
  auto declMapperOp = cast<omp::DeclareMapperOp>(op);
  std::string mapperFuncName =
      getOpenMPBuilder(moduleTranslation)
          ->createPlatformSpecificName(
              {"omp_mapper", declMapperOp.getSymName()});
 
  if (auto *lookupFunc = moduleTranslation.lookupFunction(mapperFuncName))
    return lookupFunc;
 
  // Recursive types can cause re-entrant mapper emission. The mapper function
  // is created by OpenMPIRBuilder before the callbacks run, so it may already
  // exist in the LLVM module even though it is not yet registered in the
  // ModuleTranslation mapping table. Reuse and register it to break the
  // recursion.
  if (llvm::Function *existingFunc =
          moduleTranslation.getLLVMModule()->getFunction(mapperFuncName)) {
    moduleTranslation.mapFunction(mapperFuncName, existingFunc);
    return existingFunc;
  }
 
  return emitUserDefinedMapper(declMapperOp, builder, moduleTranslation,
                               mapperFuncName, targetDirective);
}
 
static llvm::Expected<llvm::Function *>
emitUserDefinedMapper(Operation *op, llvm::IRBuilderBase &builder,
                      LLVM::ModuleTranslation &moduleTranslation,
                      llvm::StringRef mapperFuncName,
                      TargetDirectiveEnumTy targetDirective) {
  assert(!getOpenMPBuilder(moduleTranslation)->Config.isTargetDevice() &&
         "function only supported for host device codegen");
  auto declMapperOp = cast<omp::DeclareMapperOp>(op);
  auto declMapperInfoOp = declMapperOp.getDeclareMapperInfo();
  if (failed(checkImplementationStatus(*declMapperInfoOp)))
    return llvm::make_error<PreviouslyReportedError>();
 
  DataLayout dl = DataLayout(declMapperOp->getParentOfType<ModuleOp>());
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::Type *varType = moduleTranslation.convertType(declMapperOp.getType());
  SmallVector<Value> mapVars = declMapperInfoOp.getMapVars();
 
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
 
  // Fill up the arrays with all the mapped variables.
  MapInfosTy combinedInfo;
  auto genMapInfoCB =
      [&](InsertPointTy codeGenIP, llvm::Value *ptrPHI,
          llvm::Value *unused2) -> llvm::OpenMPIRBuilder::MapInfosOrErrorTy {
    builder.restoreIP(codeGenIP);
    moduleTranslation.mapValue(declMapperOp.getSymVal(), ptrPHI);
    moduleTranslation.mapBlock(&declMapperOp.getRegion().front(),
                               builder.GetInsertBlock());
    if (failed(moduleTranslation.convertBlock(declMapperOp.getRegion().front(),
                                              /*ignoreArguments=*/true,
                                              builder)))
      return llvm::make_error<PreviouslyReportedError>();
    MapInfoData mapData;
    collectMapDataFromMapOperands(mapData, mapVars, moduleTranslation, dl,
                                  builder);
    genMapInfos(builder, moduleTranslation, dl, combinedInfo, mapData,
                targetDirective);
 
    // Drop the mapping that is no longer necessary so that the same region
    // can be processed multiple times.
    moduleTranslation.forgetMapping(declMapperOp.getRegion());
    return combinedInfo;
  };
 
  auto customMapperCB = [&](unsigned i) -> llvm::Expected<llvm::Function *> {
    if (!combinedInfo.Mappers[i])
      return nullptr;
    return getOrCreateUserDefinedMapperFunc(combinedInfo.Mappers[i], builder,
                                            moduleTranslation, targetDirective);
  };
 
  llvm::Expected<llvm::Function *> newFn = ompBuilder->emitUserDefinedMapper(
      genMapInfoCB, varType, mapperFuncName, customMapperCB,
      /*PreserveMemberOfFlags=*/true, /*PropagatePresentToPointeeStorage=*/true,
      /*PropagatePresentToNonPointeeStorage=*/true);
  if (!newFn)
    return newFn.takeError();
  if ([[maybe_unused]] llvm::Function *mappedFunc =
          moduleTranslation.lookupFunction(mapperFuncName)) {
    assert(mappedFunc == *newFn &&
           "mapper function mapping disagrees with emitted function");
  } else {
    moduleTranslation.mapFunction(mapperFuncName, *newFn);
  }
  return *newFn;
}
 
static llvm::Value *getSourceLocIdentFromOp(llvm::IRBuilderBase &builder,
                                            llvm::OpenMPIRBuilder &ompBuilder,
                                            Operation *op) {
  auto fileLoc = op->getLoc()->findInstanceOf<FileLineColLoc>();
  if (!fileLoc)
    return nullptr;
  uint32_t strSize;
  llvm::Function *parentFn = builder.GetInsertBlock()->getParent();
  llvm::StringRef fnName = parentFn ? parentFn->getName() : "";
  llvm::Constant *srcStr = LLVM::createSourceLocStrFromLocation(
      fileLoc, ompBuilder, fnName, strSize);
  return ompBuilder.getOrCreateIdent(srcStr, strSize);
}
 
static LogicalResult
convertOmpTargetData(Operation *op, llvm::IRBuilderBase &builder,
                     LLVM::ModuleTranslation &moduleTranslation) {
  llvm::Value *ifCond = nullptr;
  llvm::Value *deviceID = builder.getInt64(llvm::omp::OMP_DEVICEID_UNDEF);
  SmallVector<Value> mapVars;
  SmallVector<Value> useDevicePtrVars;
  SmallVector<Value> useDeviceAddrVars;
  llvm::omp::RuntimeFunction RTLFn;
  DataLayout DL = DataLayout(op->getParentOfType<ModuleOp>());
  TargetDirectiveEnumTy targetDirective = getTargetDirectiveEnumTyFromOp(op);
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::OpenMPIRBuilder::TargetDataInfo info(
      /*RequiresDevicePointerInfo=*/true,
      /*SeparateBeginEndCalls=*/true);
 
  if (ompBuilder->Config.isTargetDevice())
    return op->emitOpError() << "not allowed in a target device";
 
  bool isOffloadEntry = !ompBuilder->Config.TargetTriples.empty();
 
  auto getDeviceID = [&](mlir::Value dev) -> llvm::Value * {
    llvm::Value *v = moduleTranslation.lookupValue(dev);
    return builder.CreateIntCast(v, builder.getInt64Ty(), /*isSigned=*/true);
  };
 
  LogicalResult result =
      llvm::TypeSwitch<Operation *, LogicalResult>(op)
          .Case([&](omp::TargetDataOp dataOp) {
            if (failed(checkImplementationStatus(*dataOp)))
              return failure();
 
            if (auto ifVar = dataOp.getIfExpr())
              ifCond = moduleTranslation.lookupValue(ifVar);
 
            if (mlir::Value devId = dataOp.getDevice())
              deviceID = getDeviceID(devId);
 
            mapVars = dataOp.getMapVars();
            useDevicePtrVars = dataOp.getUseDevicePtrVars();
            useDeviceAddrVars = dataOp.getUseDeviceAddrVars();
            return success();
          })
          .Case([&](omp::TargetEnterDataOp enterDataOp) -> LogicalResult {
            if (failed(checkImplementationStatus(*enterDataOp)))
              return failure();
 
            if (auto ifVar = enterDataOp.getIfExpr())
              ifCond = moduleTranslation.lookupValue(ifVar);
 
            if (mlir::Value devId = enterDataOp.getDevice())
              deviceID = getDeviceID(devId);
 
            RTLFn =
                enterDataOp.getNowait()
                    ? llvm::omp::OMPRTL___tgt_target_data_begin_nowait_mapper
                    : llvm::omp::OMPRTL___tgt_target_data_begin_mapper;
            mapVars = enterDataOp.getMapVars();
            info.HasNoWait = enterDataOp.getNowait();
            return success();
          })
          .Case([&](omp::TargetExitDataOp exitDataOp) -> LogicalResult {
            if (failed(checkImplementationStatus(*exitDataOp)))
              return failure();
 
            if (auto ifVar = exitDataOp.getIfExpr())
              ifCond = moduleTranslation.lookupValue(ifVar);
 
            if (mlir::Value devId = exitDataOp.getDevice())
              deviceID = getDeviceID(devId);
 
            RTLFn = exitDataOp.getNowait()
                        ? llvm::omp::OMPRTL___tgt_target_data_end_nowait_mapper
                        : llvm::omp::OMPRTL___tgt_target_data_end_mapper;
            mapVars = exitDataOp.getMapVars();
            info.HasNoWait = exitDataOp.getNowait();
            return success();
          })
          .Case([&](omp::TargetUpdateOp updateDataOp) -> LogicalResult {
            if (failed(checkImplementationStatus(*updateDataOp)))
              return failure();
 
            if (auto ifVar = updateDataOp.getIfExpr())
              ifCond = moduleTranslation.lookupValue(ifVar);
 
            if (mlir::Value devId = updateDataOp.getDevice())
              deviceID = getDeviceID(devId);
 
            RTLFn =
                updateDataOp.getNowait()
                    ? llvm::omp::OMPRTL___tgt_target_data_update_nowait_mapper
                    : llvm::omp::OMPRTL___tgt_target_data_update_mapper;
            mapVars = updateDataOp.getMapVars();
            info.HasNoWait = updateDataOp.getNowait();
            return success();
          })
          .DefaultUnreachable("unexpected operation");
 
  if (failed(result))
    return failure();
  // Pretend we have IF(false) if we're not doing offload.
  if (!isOffloadEntry)
    ifCond = builder.getFalse();
 
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  MapInfoData mapData;
  collectMapDataFromMapOperands(mapData, mapVars, moduleTranslation, DL,
                                builder, useDevicePtrVars, useDeviceAddrVars);
 
  // Fill up the arrays with all the mapped variables.
  MapInfosTy combinedInfo;
  auto genMapInfoCB = [&](InsertPointTy codeGenIP) -> MapInfosTy & {
    builder.restoreIP(codeGenIP);
    genMapInfos(builder, moduleTranslation, DL, combinedInfo, mapData,
                targetDirective);
    return combinedInfo;
  };
 
  // Define a lambda to apply mappings between use_device_addr and
  // use_device_ptr base pointers, and their associated block arguments.
  auto mapUseDevice =
      [&moduleTranslation](
          llvm::OpenMPIRBuilder::DeviceInfoTy type,
          llvm::ArrayRef<BlockArgument> blockArgs,
          llvm::SmallVectorImpl<Value> &useDeviceVars, MapInfoData &mapInfoData,
          llvm::function_ref<llvm::Value *(llvm::Value *)> mapper = nullptr) {
        for (auto [arg, useDevVar] :
             llvm::zip_equal(blockArgs, useDeviceVars)) {
 
          auto getMapBasePtr = [](omp::MapInfoOp mapInfoOp) {
            return mapInfoOp.getVarPtrPtr() ? mapInfoOp.getVarPtrPtr()
                                            : mapInfoOp.getVarPtr();
          };
 
          auto useDevMap = cast<omp::MapInfoOp>(useDevVar.getDefiningOp());
          for (auto [mapClause, devicePointer, basePointer] : llvm::zip_equal(
                   mapInfoData.MapClause, mapInfoData.DevicePointers,
                   mapInfoData.BasePointers)) {
            auto mapOp = cast<omp::MapInfoOp>(mapClause);
            if (getMapBasePtr(mapOp) != getMapBasePtr(useDevMap) ||
                devicePointer != type)
              continue;
 
            if (llvm::Value *devPtrInfoMap =
                    mapper ? mapper(basePointer) : basePointer) {
              moduleTranslation.mapValue(arg, devPtrInfoMap);
              break;
            }
          }
        }
      };
 
  using BodyGenTy = llvm::OpenMPIRBuilder::BodyGenTy;
  auto bodyGenCB = [&](InsertPointTy codeGenIP, BodyGenTy bodyGenType)
      -> llvm::OpenMPIRBuilder::InsertPointOrErrorTy {
    // We must always restoreIP regardless of doing anything the caller
    // does not restore it, leading to incorrect (no) branch generation.
    builder.restoreIP(codeGenIP);
    assert(isa<omp::TargetDataOp>(op) &&
           "BodyGen requested for non TargetDataOp");
    auto blockArgIface = cast<omp::BlockArgOpenMPOpInterface>(op);
    Region &region = cast<omp::TargetDataOp>(op).getRegion();
    switch (bodyGenType) {
    case BodyGenTy::Priv:
      // Check if any device ptr/addr info is available
      if (!info.DevicePtrInfoMap.empty()) {
        mapUseDevice(llvm::OpenMPIRBuilder::DeviceInfoTy::Address,
                     blockArgIface.getUseDeviceAddrBlockArgs(),
                     useDeviceAddrVars, mapData,
                     [&](llvm::Value *basePointer) -> llvm::Value * {
                       if (!info.DevicePtrInfoMap[basePointer].second)
                         return nullptr;
                       return builder.CreateLoad(
                           builder.getPtrTy(),
                           info.DevicePtrInfoMap[basePointer].second);
                     });
        mapUseDevice(llvm::OpenMPIRBuilder::DeviceInfoTy::Pointer,
                     blockArgIface.getUseDevicePtrBlockArgs(), useDevicePtrVars,
                     mapData, [&](llvm::Value *basePointer) {
                       return info.DevicePtrInfoMap[basePointer].second;
                     });
 
        if (failed(inlineConvertOmpRegions(region, "omp.data.region", builder,
                                           moduleTranslation)))
          return llvm::make_error<PreviouslyReportedError>();
      }
      break;
    case BodyGenTy::DupNoPriv:
      if (info.DevicePtrInfoMap.empty()) {
        // For host device we still need to do the mapping for codegen,
        // otherwise it may try to lookup a missing value.
        mapUseDevice(llvm::OpenMPIRBuilder::DeviceInfoTy::Address,
                     blockArgIface.getUseDeviceAddrBlockArgs(),
                     useDeviceAddrVars, mapData);
        mapUseDevice(llvm::OpenMPIRBuilder::DeviceInfoTy::Pointer,
                     blockArgIface.getUseDevicePtrBlockArgs(), useDevicePtrVars,
                     mapData);
      }
      break;
    case BodyGenTy::NoPriv:
      // If device info is available then region has already been generated
      if (info.DevicePtrInfoMap.empty()) {
        if (failed(inlineConvertOmpRegions(region, "omp.data.region", builder,
                                           moduleTranslation)))
          return llvm::make_error<PreviouslyReportedError>();
      }
      break;
    }
    return builder.saveIP();
  };
 
  auto customMapperCB =
      [&](unsigned int i) -> llvm::Expected<llvm::Function *> {
    if (!combinedInfo.Mappers[i])
      return nullptr;
    info.HasMapper = true;
    return getOrCreateUserDefinedMapperFunc(combinedInfo.Mappers[i], builder,
                                            moduleTranslation, targetDirective);
  };
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::SmallVector<llvm::BasicBlock *> deallocBlocks;
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation, &deallocBlocks);
 
  // Pass the region's source location to the runtime, taken from the op's own
  // location; only offloading entries emit the mapper calls that consume it.
  // No need to also guard on !isTargetDevice here: this function bails out
  // earlier for the target device, so isOffloadEntry alone is sufficient.
  llvm::Value *srcLocOverride =
      isOffloadEntry ? getSourceLocIdentFromOp(builder, *ompBuilder, op)
                     : nullptr;
 
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP = [&]() {
    if (isa<omp::TargetDataOp>(op))
      return ompBuilder->createTargetData(
          ompLoc, allocaIP, builder.saveIP(), deallocBlocks, deviceID, ifCond,
          info, genMapInfoCB, customMapperCB,
          /*MapperFunc=*/nullptr, bodyGenCB,
          /*DeviceAddrCB=*/nullptr, srcLocOverride);
    return ompBuilder->createTargetData(
        ompLoc, allocaIP, builder.saveIP(), deallocBlocks, deviceID, ifCond,
        info, genMapInfoCB, customMapperCB, &RTLFn,
        /*BodyGenCB=*/nullptr,
        /*DeviceAddrCB=*/nullptr, srcLocOverride);
  }();
 
  if (failed(handleError(afterIP, *op)))
    return failure();
 
  builder.restoreIP(*afterIP);
  return success();
}
 
static LogicalResult
convertOmpDistribute(Operation &opInst, llvm::IRBuilderBase &builder,
                     LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  auto distributeOp = cast<omp::DistributeOp>(opInst);
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  /// Process teams op reduction in distribute if the reduction is contained in
  /// this specific distribute op.
  omp::TeamsOp teamsOp = opInst.getParentOfType<omp::TeamsOp>();
  bool doDistributeReduction =
      teamsOp && getDistributeCapturingTeamsReduction(teamsOp) == distributeOp;
 
  DenseMap<Value, llvm::Value *> reductionVariableMap;
  unsigned numReductionVars = teamsOp ? teamsOp.getNumReductionVars() : 0;
  SmallVector<omp::DeclareReductionOp> reductionDecls;
  SmallVector<llvm::Value *> privateReductionVariables(numReductionVars);
  llvm::ArrayRef<bool> isByRef;
 
  if (doDistributeReduction) {
    isByRef = getIsByRef(teamsOp.getReductionByref());
    assert(isByRef.size() == teamsOp.getNumReductionVars());
 
    collectReductionDecls(teamsOp, reductionDecls);
    llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
        findAllocInsertPoints(builder, moduleTranslation);
 
    MutableArrayRef<BlockArgument> reductionArgs =
        llvm::cast<omp::BlockArgOpenMPOpInterface>(*teamsOp)
            .getReductionBlockArgs();
 
    if (failed(allocAndInitializeReductionVars(
            teamsOp, reductionArgs, builder, moduleTranslation, allocaIP,
            reductionDecls, privateReductionVariables, reductionVariableMap,
            isByRef)))
      return failure();
  }
 
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  auto bodyGenCB =
      [&](InsertPointTy allocaIP, InsertPointTy codeGenIP,
          llvm::ArrayRef<llvm::BasicBlock *> deallocBlocks) -> llvm::Error {
    llvm::BasicBlock *allocaBlock = allocaIP.getNodeParent();
    // DistributeOp has only one region associated with it.
    builder.restoreIP(codeGenIP);
    PrivateVarsInfo privVarsInfo(distributeOp);
 
    llvm::Expected<llvm::BasicBlock *> afterAllocas = allocatePrivateVars(
        distributeOp, builder, moduleTranslation, privVarsInfo, allocaIP);
    if (handleError(afterAllocas, opInst).failed())
      return llvm::make_error<PreviouslyReportedError>();
 
    // Save the alloca insertion point on ModuleTranslation stack for use in
    // nested regions. This must be after allocatePrivateVars, which splits
    // the alloca block and updates allocaIP.
    LLVM::ModuleTranslation::SaveStack<OpenMPAllocStackFrame> frame(
        moduleTranslation, allocaIP.getNodeParent(), deallocBlocks);
 
    if (handleError(initPrivateVars(builder, moduleTranslation, privVarsInfo),
                    opInst)
            .failed())
      return llvm::make_error<PreviouslyReportedError>();
 
    if (failed(completePrivateVars(distributeOp, builder, moduleTranslation,
                                   privVarsInfo.mlirVars, privVarsInfo.llvmVars,
                                   privVarsInfo.privatizers,
                                   distributeOp.getPrivateNeedsBarrier())))
      return llvm::make_error<PreviouslyReportedError>();
 
    llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
    llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
    llvm::Expected<llvm::BasicBlock *> regionBlock =
        convertOmpOpRegions(distributeOp.getRegion(), "omp.distribute.region",
                            builder, moduleTranslation);
    if (!regionBlock)
      return regionBlock.takeError();
    builder.SetInsertPoint((*regionBlock)->begin());
 
    // Skip applying a workshare loop below when translating 'distribute
    // parallel do' (it's been already handled by this point while translating
    // the nested omp.wsloop).
    if (!isa_and_present<omp::WsloopOp>(distributeOp.getNestedWrapper())) {
      // TODO: Add support for clauses which are valid for DISTRIBUTE
      // constructs. Static schedule is the default.
      bool hasDistSchedule = distributeOp.getDistScheduleStatic();
      auto schedule = hasDistSchedule ? omp::ClauseScheduleKind::Distribute
                                      : omp::ClauseScheduleKind::Static;
      // dist_schedule clauses are ordered - otherise this should be false
      bool isOrdered = hasDistSchedule;
      std::optional<omp::ScheduleModifier> scheduleMod;
      bool isSimd = false;
      llvm::omp::WorksharingLoopType workshareLoopType =
          llvm::omp::WorksharingLoopType::DistributeStaticLoop;
      bool loopNeedsBarrier = false;
      llvm::Value *chunk = moduleTranslation.lookupValue(
          distributeOp.getDistScheduleChunkSize());
      llvm::CanonicalLoopInfo *loopInfo =
          findCurrentLoopInfo(moduleTranslation);
      // Nested regions can move the instruction referenced by allocaIP.
      allocaIP = allocaBlock->getFirstInsertionPt();
      llvm::OpenMPIRBuilder::InsertPointOrErrorTy wsloopIP =
          ompBuilder->applyWorkshareLoop(
              ompLoc.DL, loopInfo, allocaIP, loopNeedsBarrier,
              convertToScheduleKind(schedule), chunk, isSimd,
              scheduleMod == omp::ScheduleModifier::monotonic,
              scheduleMod == omp::ScheduleModifier::nonmonotonic, isOrdered,
              workshareLoopType, false, hasDistSchedule, chunk);
 
      if (!wsloopIP)
        return wsloopIP.takeError();
    }
    if (failed(cleanupPrivateVars(distributeOp, builder, moduleTranslation,
                                  distributeOp.getLoc(), privVarsInfo)))
      return llvm::make_error<PreviouslyReportedError>();
 
    return llvm::Error::success();
  };
 
  llvm::SmallVector<llvm::BasicBlock *> deallocBlocks;
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation, &deallocBlocks);
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      ompBuilder->createDistribute(ompLoc, allocaIP, deallocBlocks, bodyGenCB);
 
  if (failed(handleError(afterIP, opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
 
  if (doDistributeReduction) {
    // Process the reductions if required.
    return createReductionsAndCleanup(
        teamsOp, builder, moduleTranslation, allocaIP, reductionDecls,
        privateReductionVariables, isByRef,
        /*isNoWait*/ false, /*isTeamsReduction*/ true);
  }
  return success();
}
 
/// Lowers the FlagsAttr which is applied to the module when offloading. This
/// attribute contains OpenMP RTL globals that can be passed as flags to the
/// frontend, otherwise they are set to default
static LogicalResult
convertFlagsAttr(Operation *op, mlir::omp::FlagsAttr attribute,
                 LLVM::ModuleTranslation &moduleTranslation) {
  auto offloadMod = dyn_cast<omp::OffloadModuleInterface>(op);
  if (!offloadMod)
    return op->emitOpError() << "omp flags attached to non offload module op";
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  if (offloadMod.getIsTargetDevice())
    ompBuilder->M.addModuleFlag(llvm::Module::Max, "openmp-device",
                                attribute.getOpenmpDeviceVersion());
 
  // The flags below are only intended to be emitted for GPU offload targets.
  if (!offloadMod.getIsGPU())
    return success();
 
  if (attribute.getNoGpuLib())
    return success();
 
  ompBuilder->createGlobalFlag(attribute.getDebugKind(),
                               "__omp_rtl_debug_kind");
  ompBuilder->createGlobalFlag(attribute.getAssumeTeamsOversubscription(),
                               "__omp_rtl_assume_teams_oversubscription");
  ompBuilder->createGlobalFlag(attribute.getAssumeThreadsOversubscription(),
                               "__omp_rtl_assume_threads_oversubscription");
  ompBuilder->createGlobalFlag(attribute.getAssumeNoThreadState(),
                               "__omp_rtl_assume_no_thread_state");
  ompBuilder->createGlobalFlag(attribute.getAssumeNoNestedParallelism(),
                               "__omp_rtl_assume_no_nested_parallelism");
  return success();
}
 
static void getTargetEntryUniqueInfo(llvm::TargetRegionEntryInfo &targetInfo,
                                     omp::TargetOp targetOp,
                                     llvm::OpenMPIRBuilder &ompBuilder,
                                     llvm::vfs::FileSystem &vfs,
                                     llvm::StringRef parentName = "") {
  auto fileLoc = targetOp.getLoc()->findInstanceOf<FileLineColLoc>();
  assert(fileLoc && "No file found from location");
 
  auto fileInfoCallBack = [&fileLoc]() {
    return std::pair<std::string, uint64_t>(
        llvm::StringRef(fileLoc.getFilename()), fileLoc.getLine());
  };
 
  targetInfo =
      ompBuilder.getTargetEntryUniqueInfo(fileInfoCallBack, vfs, parentName);
}
 
// The createDeviceArgumentAccessor function generates
// instructions for retrieving (acessing) kernel
// arguments inside of the device kernel for use by
// the kernel. This enables different semantics such as
// the creation of temporary copies of data allowing
// semantics like read-only/no host write back kernel
// arguments.
//
// This currently implements a very light version of Clang's
// EmitParmDecl's handling of direct argument handling as well
// as a portion of the argument access generation based on
// capture types found at the end of emitOutlinedFunctionPrologue
// in Clang. The indirect path handling of EmitParmDecl's may be
// required for future work, but a direct 1-to-1 copy doesn't seem
// possible as the logic is rather scattered throughout Clang's
// lowering and perhaps we wish to deviate slightly.
//
// \param mapData - A container containing vectors of information
// corresponding to the input argument, which should have a
// corresponding entry in the MapInfoData containers
// OrigialValue's.
// \param arg - This is the generated kernel function argument that
// corresponds to the passed in input argument. We generated different
// accesses of this Argument, based on capture type and other Input
// related information.
// \param input - This is the host side value that will be passed to
// the kernel i.e. the kernel input, we rewrite all uses of this within
// the kernel (as we generate the kernel body based on the target's region
// which maintians references to the original input) to the retVal argument
// apon exit of this function inside of the OMPIRBuilder. This interlinks
// the kernel argument to future uses of it in the function providing
// appropriate "glue" instructions inbetween.
// \param retVal - This is the value that all uses of input inside of the
// kernel will be re-written to, the goal of this function is to generate
// an appropriate location for the kernel argument to be accessed from,
// e.g. ByRef will result in a temporary allocation location and then
// a store of the kernel argument into this allocated memory which
// will then be loaded from, ByCopy will use the allocated memory
// directly.
static llvm::IRBuilderBase::InsertPoint createDeviceArgumentAccessor(
    omp::TargetOp targetOp, MapInfoData &mapData, llvm::Argument &arg,
    llvm::Value *input, llvm::Value *&retVal, llvm::IRBuilderBase &builder,
    llvm::OpenMPIRBuilder &ompBuilder,
    LLVM::ModuleTranslation &moduleTranslation,
    llvm::IRBuilderBase::InsertPoint allocaIP,
    llvm::IRBuilderBase::InsertPoint codeGenIP,
    llvm::ArrayRef<llvm::IRBuilderBase::InsertPoint> deallocIPs) {
  assert(ompBuilder.Config.isTargetDevice() &&
         "function only supported for target device codegen");
  builder.restoreIP(allocaIP);
 
  omp::VariableCaptureKind capture = omp::VariableCaptureKind::ByRef;
  LLVM::TypeToLLVMIRTranslator typeToLLVMIRTranslator(
      ompBuilder.M.getContext());
  unsigned alignmentValue = 0;
  BlockArgument mlirArg;
  SmallVector<std::pair<Value, BlockArgument>> blockArgsPairs;
  cast<omp::BlockArgOpenMPOpInterface>(*targetOp).getBlockArgsPairs(
      blockArgsPairs);
  // Find the associated MapInfoData entry for the current input
  for (size_t i = 0; i < mapData.MapClause.size(); ++i) {
    if (mapData.OriginalValue[i] == input) {
      auto mapOp = cast<omp::MapInfoOp>(mapData.MapClause[i]);
      capture = mapOp.getMapCaptureType();
      // Get information of alignment of mapped object
      alignmentValue = typeToLLVMIRTranslator.getPreferredAlignment(
          mapOp.getVarPtrType(), ompBuilder.M.getDataLayout());
 
      // Find the corresponding entry block argument, which can be associated to
      // a map, use_device* or has_device* clause.
      for (auto &[val, arg] : blockArgsPairs) {
        if (mapOp.getResult() == val) {
          mlirArg = arg;
          break;
        }
      }
      assert(mlirArg && "expected to find entry block argument for map clause");
      break;
    }
  }
 
  unsigned int allocaAS = ompBuilder.M.getDataLayout().getAllocaAddrSpace();
  unsigned int defaultAS =
      ompBuilder.M.getDataLayout().getProgramAddressSpace();
 
  // Create the allocation for the argument.
  llvm::Value *v = nullptr;
  if (omp::opInSharedDeviceContext(*targetOp) &&
      omp::allocaUsesRequireSharedMem(mlirArg)) {
    // Use the beginning of the codeGenIP rather than the usual allocation point
    // for shared memory allocations because otherwise these would be done prior
    // to the target initialization call. Also, the exit block (where the
    // deallocation is placed) is only executed if the initialization call
    // succeeds.
    builder.SetInsertPoint(codeGenIP.getNodeParent()->getFirstInsertionPt());
    v = ompBuilder.createOMPAllocShared(builder, arg.getType());
 
    // Create deallocations in all provided deallocation points and then restore
    // the insertion point to right after the new allocations.
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    for (auto deallocIP : deallocIPs) {
      builder.SetInsertPoint(deallocIP);
      ompBuilder.createOMPFreeShared(builder, v, arg.getType());
    }
  } else {
    // Use the current point, which was previously set to allocaIP.
    v = builder.CreateAlloca(arg.getType(), allocaAS);
 
    if (allocaAS != defaultAS && arg.getType()->isPointerTy())
      v = builder.CreateAddrSpaceCast(v, builder.getPtrTy(defaultAS));
  }
 
  builder.CreateStore(&arg, v);
 
  builder.restoreIP(codeGenIP);
 
  switch (capture) {
  case omp::VariableCaptureKind::ByCopy: {
    retVal = v;
    break;
  }
  case omp::VariableCaptureKind::ByRef: {
    llvm::LoadInst *loadInst = builder.CreateAlignedLoad(
        v->getType(), v,
        ompBuilder.M.getDataLayout().getPrefTypeAlign(v->getType()));
    // CreateAlignedLoad function creates similar LLVM IR:
    // %res = load ptr, ptr %input, align 8
    // This LLVM IR does not contain information about alignment
    // of the loaded value. We need to add !align metadata to unblock
    // optimizer. The existence of the !align metadata on the instruction
    // tells the optimizer that the value loaded is known to be aligned to
    // a boundary specified by the integer value in the metadata node.
    // Example:
    // %res = load ptr, ptr %input, align 8, !align !align_md_node
    //                                 ^         ^
    //                                 |         |
    //            alignment of %input address    |
    //                                           |
    //                                     alignment of %res object
    if (v->getType()->isPointerTy() && alignmentValue) {
      llvm::MDBuilder MDB(builder.getContext());
      loadInst->setMetadata(
          llvm::LLVMContext::MD_align,
          llvm::MDNode::get(builder.getContext(),
                            MDB.createConstant(llvm::ConstantInt::get(
                                llvm::Type::getInt64Ty(builder.getContext()),
                                alignmentValue))));
    }
    retVal = loadInst;
 
    break;
  }
  case omp::VariableCaptureKind::This:
  case omp::VariableCaptureKind::VLAType:
    // TODO: Consider returning error to use standard reporting for
    // unimplemented features.
    assert(false && "Currently unsupported capture kind");
    break;
  }
 
  return builder.saveIP();
}
 
/// Follow uses of `host_eval`-defined block arguments of the given `omp.target`
/// operation and populate output variables with their corresponding host value
/// (i.e. operand evaluated outside of the target region), based on their uses
/// inside of the target region.
///
/// Loop bounds and steps are only optionally populated, if output vectors are
/// provided.
static void
extractHostEvalClauses(omp::TargetOp targetOp, Value &numThreads,
                       Value &numTeamsLower, Value &numTeamsUpper,
                       Value &threadLimit,
                       llvm::SmallVectorImpl<Value> *lowerBounds = nullptr,
                       llvm::SmallVectorImpl<Value> *upperBounds = nullptr,
                       llvm::SmallVectorImpl<Value> *steps = nullptr) {
  auto blockArgIface = llvm::cast<omp::BlockArgOpenMPOpInterface>(*targetOp);
  for (auto item : llvm::zip_equal(targetOp.getHostEvalVars(),
                                   blockArgIface.getHostEvalBlockArgs())) {
    Value hostEvalVar = std::get<0>(item), blockArg = std::get<1>(item);
 
    for (Operation *user : blockArg.getUsers()) {
      llvm::TypeSwitch<Operation *>(user)
          .Case([&](omp::TeamsOp teamsOp) {
            if (teamsOp.getNumTeamsLower() == blockArg)
              numTeamsLower = hostEvalVar;
            else if (llvm::is_contained(teamsOp.getNumTeamsUpperVars(),
                                        blockArg))
              numTeamsUpper = hostEvalVar;
            else if (!teamsOp.getThreadLimitVars().empty() &&
                     teamsOp.getThreadLimit(0) == blockArg)
              threadLimit = hostEvalVar;
            else
              llvm_unreachable("unsupported host_eval use");
          })
          .Case([&](omp::ParallelOp parallelOp) {
            if (!parallelOp.getNumThreadsVars().empty() &&
                parallelOp.getNumThreads(0) == blockArg)
              numThreads = hostEvalVar;
            else
              llvm_unreachable("unsupported host_eval use");
          })
          .Case([&](omp::LoopNestOp loopOp) {
            auto processBounds =
                [&](OperandRange opBounds,
                    llvm::SmallVectorImpl<Value> *outBounds) -> bool {
              bool found = false;
              for (auto [i, lb] : llvm::enumerate(opBounds)) {
                if (lb == blockArg) {
                  found = true;
                  if (outBounds)
                    (*outBounds)[i] = hostEvalVar;
                }
              }
              return found;
            };
            bool found =
                processBounds(loopOp.getLoopLowerBounds(), lowerBounds);
            found = processBounds(loopOp.getLoopUpperBounds(), upperBounds) ||
                    found;
            found = processBounds(loopOp.getLoopSteps(), steps) || found;
            (void)found;
            assert(found && "unsupported host_eval use");
          })
          .DefaultUnreachable("unsupported host_eval use");
    }
  }
}
 
/// If \p op is of the given type parameter, return it casted to that type.
/// Otherwise, if its immediate parent operation (or some other higher-level
/// parent, if \p immediateParent is false) is of that type, return that parent
/// casted to the given type.
///
/// If \p op is \c null or neither it or its parent(s) are of the specified
/// type, return a \c null operation.
template <typename OpTy>
static OpTy castOrGetParentOfType(Operation *op, bool immediateParent = false) {
  if (!op)
    return OpTy();
 
  if (OpTy casted = dyn_cast<OpTy>(op))
    return casted;
 
  if (immediateParent)
    return dyn_cast_if_present<OpTy>(op->getParentOp());
 
  return op->getParentOfType<OpTy>();
}
 
/// If the given \p value is defined by an \c llvm.mlir.constant operation and
/// it is of an integer type, return its value.
static std::optional<int64_t> extractConstInteger(Value value) {
  if (!value)
    return std::nullopt;
 
  if (auto constOp = value.getDefiningOp<LLVM::ConstantOp>())
    if (auto constAttr = dyn_cast<IntegerAttr>(constOp.getValue()))
      return constAttr.getInt();
 
  return std::nullopt;
}
 
static uint64_t getTypeByteSize(mlir::Type type, const DataLayout &dl) {
  uint64_t sizeInBits = dl.getTypeSizeInBits(type);
  uint64_t sizeInBytes = sizeInBits / 8;
  return sizeInBytes;
}
 
template <typename OpTy>
static uint64_t getReductionDataSize(OpTy &op) {
  if (op.getNumReductionVars() > 0) {
    SmallVector<omp::DeclareReductionOp> reductions;
    collectReductionDecls(op, reductions);
 
    llvm::SmallVector<mlir::Type> members;
    members.reserve(reductions.size());
    for (omp::DeclareReductionOp &red : reductions) {
      // For by-ref reductions, use the actual element type rather than the
      // pointer type so that the buffer size matches the access pattern in
      // the copy/reduce callbacks generated by OMPIRBuilder.
      if (red.getByrefElementType())
        members.push_back(*red.getByrefElementType());
      else
        members.push_back(red.getType());
    }
    Operation *opp = op.getOperation();
    auto structType = mlir::LLVM::LLVMStructType::getLiteral(
        opp->getContext(), members, /*isPacked=*/false);
    DataLayout dl = DataLayout(opp->getParentOfType<ModuleOp>());
    return getTypeByteSize(structType, dl);
  }
  return 0;
}
 
/// Populate default `MinTeams`, `MaxTeams` and `MaxThreads` to their default
/// values as stated by the corresponding clauses, if constant.
///
/// These default values must be set before the creation of the outlined LLVM
/// function for the target region, so that they can be used to initialize the
/// corresponding global `ConfigurationEnvironmentTy` structure.
static void
initTargetDefaultAttrs(omp::TargetOp targetOp, Operation *capturedOp,
                       llvm::OpenMPIRBuilder::TargetKernelDefaultAttrs &attrs,
                       bool isTargetDevice, bool isGPU) {
  // TODO: Handle constant 'if' clauses.
 
  Value numThreads, numTeamsLower, numTeamsUpper, threadLimit;
  if (!isTargetDevice) {
    extractHostEvalClauses(targetOp, numThreads, numTeamsLower, numTeamsUpper,
                           threadLimit);
  } else {
    // In the target device, values for these clauses are not passed as
    // host_eval, but instead evaluated prior to entry to the region. This
    // ensures values are mapped and available inside of the target region.
    if (auto teamsOp = castOrGetParentOfType<omp::TeamsOp>(capturedOp)) {
      numTeamsLower = teamsOp.getNumTeamsLower();
      // Handle num_teams upper bounds (only first value for now)
      if (!teamsOp.getNumTeamsUpperVars().empty())
        numTeamsUpper = teamsOp.getNumTeams(0);
      if (!teamsOp.getThreadLimitVars().empty())
        threadLimit = teamsOp.getThreadLimit(0);
    }
 
    if (auto parallelOp = castOrGetParentOfType<omp::ParallelOp>(capturedOp)) {
      if (!parallelOp.getNumThreadsVars().empty())
        numThreads = parallelOp.getNumThreads(0);
    }
  }
 
  // Handle clauses impacting the number of teams.
 
  int32_t minTeamsVal = 1, maxTeamsVal = -1;
  if (castOrGetParentOfType<omp::TeamsOp>(capturedOp)) {
    // TODO: Use `hostNumTeamsLower` to initialize `minTeamsVal`. For now,
    // match clang and set min and max to the same value.
    if (numTeamsUpper) {
      if (auto val = extractConstInteger(numTeamsUpper))
        minTeamsVal = maxTeamsVal = *val;
    } else {
      minTeamsVal = maxTeamsVal = 0;
    }
  } else if (castOrGetParentOfType<omp::ParallelOp>(capturedOp,
                                                    /*immediateParent=*/true) ||
             castOrGetParentOfType<omp::SimdOp>(capturedOp,
                                                /*immediateParent=*/true)) {
    minTeamsVal = maxTeamsVal = 1;
  } else {
    minTeamsVal = maxTeamsVal = -1;
  }
 
  // Handle clauses impacting the number of threads.
 
  auto setMaxValueFromClause = [](Value clauseValue, int32_t &result) {
    if (!clauseValue)
      return;
 
    if (auto val = extractConstInteger(clauseValue))
      result = *val;
 
    // Found an applicable clause, so it's not undefined. Mark as unknown
    // because it's not constant.
    if (result < 0)
      result = 0;
  };
 
  // Extract 'thread_limit' clause from 'target' and 'teams' directives.
  int32_t targetThreadLimitVal = -1, teamsThreadLimitVal = -1;
  if (!targetOp.getThreadLimitVars().empty())
    setMaxValueFromClause(targetOp.getThreadLimit(0), targetThreadLimitVal);
  setMaxValueFromClause(threadLimit, teamsThreadLimitVal);
 
  // Extract 'max_threads' clause from 'parallel' or set to 1 if it's SIMD.
  int32_t maxThreadsVal = -1;
  if (castOrGetParentOfType<omp::ParallelOp>(capturedOp))
    setMaxValueFromClause(numThreads, maxThreadsVal);
  else if (castOrGetParentOfType<omp::SimdOp>(capturedOp,
                                              /*immediateParent=*/true))
    maxThreadsVal = 1;
 
  // For max values, < 0 means unset, == 0 means set but unknown. Select the
  // minimum value between 'max_threads' and 'thread_limit' clauses that were
  // set.
  int32_t combinedMaxThreadsVal = targetThreadLimitVal;
  if (combinedMaxThreadsVal < 0 ||
      (teamsThreadLimitVal >= 0 && teamsThreadLimitVal < combinedMaxThreadsVal))
    combinedMaxThreadsVal = teamsThreadLimitVal;
 
  if (combinedMaxThreadsVal < 0 ||
      (maxThreadsVal >= 0 && maxThreadsVal < combinedMaxThreadsVal))
    combinedMaxThreadsVal = maxThreadsVal;
 
  int32_t reductionDataSize = 0;
  if (isGPU && capturedOp) {
    if (auto teamsOp = castOrGetParentOfType<omp::TeamsOp>(capturedOp))
      reductionDataSize = getReductionDataSize(teamsOp);
  }
 
  // Update kernel bounds structure for the `OpenMPIRBuilder` to use.
  // Use the kernel_type attribute set by the frontend instead of analyzing IR.
  omp::TargetExecMode execMode = targetOp.getKernelType();
  switch (execMode) {
  case omp::TargetExecMode::bare:
    attrs.ExecFlags = llvm::omp::OMP_TGT_EXEC_MODE_BARE;
    break;
  case omp::TargetExecMode::generic:
    attrs.ExecFlags = llvm::omp::OMP_TGT_EXEC_MODE_GENERIC;
    break;
  case omp::TargetExecMode::spmd:
    attrs.ExecFlags = llvm::omp::OMP_TGT_EXEC_MODE_SPMD;
    break;
  case omp::TargetExecMode::spmd_no_loop:
    attrs.ExecFlags = llvm::omp::OMP_TGT_EXEC_MODE_SPMD_NO_LOOP;
    break;
  }
  attrs.MinTeams.front() = minTeamsVal;
  attrs.MaxTeams.front() = maxTeamsVal;
  attrs.MinThreads.front() = 1;
  attrs.MaxThreads.front() = combinedMaxThreadsVal;
  attrs.ReductionDataSize = reductionDataSize;
}
 
/// Gather LLVM runtime values for all clauses evaluated in the host that are
/// passed to the kernel invocation.
///
/// This function must be called only when compiling for the host. Also, it will
/// only provide correct results if it's called after the body of \c targetOp
/// has been fully generated.
static void
initTargetRuntimeAttrs(llvm::IRBuilderBase &builder,
                       LLVM::ModuleTranslation &moduleTranslation,
                       omp::TargetOp targetOp, Operation *capturedOp,
                       llvm::OpenMPIRBuilder::TargetKernelRuntimeAttrs &attrs) {
  omp::LoopNestOp loopOp = castOrGetParentOfType<omp::LoopNestOp>(capturedOp);
  unsigned numLoops = loopOp ? loopOp.getNumLoops() : 0;
 
  Value numThreads, numTeamsLower, numTeamsUpper, teamsThreadLimit;
  llvm::SmallVector<Value> lowerBounds(numLoops), upperBounds(numLoops),
      steps(numLoops);
  extractHostEvalClauses(targetOp, numThreads, numTeamsLower, numTeamsUpper,
                         teamsThreadLimit, &lowerBounds, &upperBounds, &steps);
 
  // TODO: Handle constant 'if' clauses.
  if (!targetOp.getThreadLimitVars().empty()) {
    Value targetThreadLimit = targetOp.getThreadLimit(0);
    attrs.TargetThreadLimit.front() =
        moduleTranslation.lookupValue(targetThreadLimit);
  }
 
  // The __kmpc_push_num_teams_51 function expects int32 as the arguments.  So,
  // truncate or sign extend lower and upper num_teams bounds as well as
  // thread_limit to match int32 ABI requirements for the OpenMP runtime.
  if (numTeamsLower)
    attrs.MinTeams.front() = builder.CreateSExtOrTrunc(
        moduleTranslation.lookupValue(numTeamsLower), builder.getInt32Ty());
 
  if (numTeamsUpper)
    attrs.MaxTeams.front() = builder.CreateSExtOrTrunc(
        moduleTranslation.lookupValue(numTeamsUpper), builder.getInt32Ty());
 
  if (teamsThreadLimit)
    attrs.TeamsThreadLimit.front() = builder.CreateSExtOrTrunc(
        moduleTranslation.lookupValue(teamsThreadLimit), builder.getInt32Ty());
 
  if (numThreads)
    attrs.MaxThreads.front() = moduleTranslation.lookupValue(numThreads);
 
  if (targetOp.hasHostEvalTripCount()) {
    llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
    attrs.LoopTripCount = nullptr;
 
    // To calculate the trip count, we multiply together the trip counts of
    // every collapsed canonical loop. We don't need to create the loop nests
    // here, since we're only interested in the trip count.
    for (auto [loopLower, loopUpper, loopStep] :
         llvm::zip_equal(lowerBounds, upperBounds, steps)) {
      llvm::Value *lowerBound = moduleTranslation.lookupValue(loopLower);
      llvm::Value *upperBound = moduleTranslation.lookupValue(loopUpper);
      llvm::Value *step = moduleTranslation.lookupValue(loopStep);
 
      if (!lowerBound || !upperBound || !step) {
        attrs.LoopTripCount = nullptr;
        break;
      }
 
      llvm::OpenMPIRBuilder::LocationDescription loc(builder);
      llvm::Value *tripCount = ompBuilder->calculateCanonicalLoopTripCount(
          loc, lowerBound, upperBound, step, /*IsSigned=*/true,
          loopOp.getLoopInclusive());
 
      if (!attrs.LoopTripCount) {
        attrs.LoopTripCount = tripCount;
        continue;
      }
 
      // TODO: Enable UndefinedSanitizer to diagnose an overflow here.
      attrs.LoopTripCount = builder.CreateMul(attrs.LoopTripCount, tripCount,
                                              {}, /*HasNUW=*/true);
    }
  }
 
  attrs.DeviceID = builder.getInt64(llvm::omp::OMP_DEVICEID_UNDEF);
  if (mlir::Value devId = targetOp.getDevice()) {
    attrs.DeviceID = moduleTranslation.lookupValue(devId);
    attrs.DeviceID =
        builder.CreateSExtOrTrunc(attrs.DeviceID, builder.getInt64Ty());
  }
}
 
static llvm::omp::OMPDynGroupprivateFallbackType
getDynGroupprivateFallbackType(omp::FallbackModifierAttr fallbackAttr) {
  omp::FallbackModifier fb = fallbackAttr ? fallbackAttr.getValue()
                                          : omp::FallbackModifier::default_mem;
  switch (fb) {
  case omp::FallbackModifier::abort:
    return llvm::omp::OMPDynGroupprivateFallbackType::Abort;
  case omp::FallbackModifier::null:
    return llvm::omp::OMPDynGroupprivateFallbackType::Null;
  case omp::FallbackModifier::default_mem:
    return llvm::omp::OMPDynGroupprivateFallbackType::DefaultMem;
  }
 
  llvm_unreachable("unexpected dyn_groupprivate fallback type");
}
 
static LogicalResult
convertOmpTarget(Operation &opInst, llvm::IRBuilderBase &builder,
                 LLVM::ModuleTranslation &moduleTranslation) {
  auto targetOp = cast<omp::TargetOp>(opInst);
 
  // The current debug location already has the DISubprogram for the outlined
  // function that will be created for the target op. We save it here so that
  // we can set it on the outlined function.
  llvm::DebugLoc outlinedFnLoc = builder.getCurrentDebugLocation();
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  // During the handling of target op, we will generate instructions in the
  // parent function like call to the oulined function or branch to a new
  // BasicBlock. We set the debug location here to parent function so that those
  // get the correct debug locations. For outlined functions, the normal MLIR op
  // conversion will automatically pick the correct location.
  llvm::BasicBlock *parentBB = builder.GetInsertBlock();
  assert(parentBB && "No insert block is set for the builder");
  llvm::Function *parentLLVMFn = parentBB->getParent();
  assert(parentLLVMFn && "Parent Function must be valid");
  if (llvm::DISubprogram *SP = parentLLVMFn->getSubprogram())
    builder.SetCurrentDebugLocation(llvm::DILocation::get(
        parentLLVMFn->getContext(), outlinedFnLoc.getLine(),
        outlinedFnLoc.getCol(), SP, outlinedFnLoc.getInlinedAt()));
 
  // OMPIRBuilder emits runtime calls into the outlined function before bodyCB
  // below gets a chance to attach the subprogram to it, so it needs the
  // outlined function's location handed to it separately. Only pass it under
  // the same condition that decides whether the subprogram is attached at all:
  // a location may not be attached to an instruction in a function that has no
  // subprogram.
  llvm::DebugLoc outlinedFnDbgLoc;
  if (outlinedFnLoc && parentLLVMFn->getSubprogram())
    outlinedFnDbgLoc = outlinedFnLoc;
 
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  bool isTargetDevice = ompBuilder->Config.isTargetDevice();
  bool isGPU = ompBuilder->Config.isGPU();
 
  auto parentFn = opInst.getParentOfType<LLVM::LLVMFuncOp>();
  auto argIface = cast<omp::BlockArgOpenMPOpInterface>(opInst);
  auto &targetRegion = targetOp.getRegion();
  // Holds the private vars that have been mapped along with the block
  // argument that corresponds to the MapInfoOp corresponding to the private
  // var in question. So, for instance:
  //
  // %10 = omp.map.info var_ptr(%6#0 : !fir.ref<!fir.box<!fir.heap<i32>>>, ..)
  // omp.target map_entries(%10 -> %arg0) private(@box.privatizer %6#0-> %arg1)
  //
  // Then, %10 has been created so that the descriptor can be used by the
  // privatizer @box.privatizer on the device side. Here we'd record {%6#0,
  // %arg0} in the mappedPrivateVars map.
  llvm::DenseMap<Value, Value> mappedPrivateVars;
  DataLayout dl = DataLayout(opInst.getParentOfType<ModuleOp>());
  SmallVector<Value> mapVars = targetOp.getMapVars();
  SmallVector<Value> hdaVars = targetOp.getHasDeviceAddrVars();
  ArrayRef<BlockArgument> mapBlockArgs = argIface.getMapBlockArgs();
  ArrayRef<BlockArgument> hdaBlockArgs = argIface.getHasDeviceAddrBlockArgs();
  llvm::Function *llvmOutlinedFn = nullptr;
  TargetDirectiveEnumTy targetDirective =
      getTargetDirectiveEnumTyFromOp(&opInst);
 
  // TODO: It can also be false if a compile-time constant `false` IF clause is
  // specified.
  bool isOffloadEntry =
      isTargetDevice || !ompBuilder->Config.TargetTriples.empty();
 
  // Resolve in_reduction clauses on omp.target for the host. From the target
  // device's perspective an in_reduction list item behaves as a regular
  // map(tofrom) variable, so no special handling is needed there; only the
  // host redirects the mapped value to the per-task reduction-private storage
  // returned by __kmpc_task_reduction_get_th_data (emitted inside the
  // to-be-outlined target task body). This applies to both offloading and
  // non-offloading host modules.
  //
  // The target body has no dedicated in_reduction block argument: each
  // in_reduction variable is accessed through its map_entries block argument.
  // So each in_reduction variable must also be captured by a matching
  // map_entries entry (guaranteed by the verifier); without one the outlined
  // body would reference a value defined in the host function. Record, for each
  // in_reduction variable, the position of that map entry so the corresponding
  // map block argument can be redirected inside the body. The in_reduction
  // operand itself is used as the `orig` argument of the runtime lookup.
  SmallVector<llvm::Value *> inRedOrigPtrs;
  SmallVector<unsigned> inRedMapArgIdx;
  if (!targetOp.getInReductionVars().empty() && !isTargetDevice) {
    inRedOrigPtrs.reserve(targetOp.getInReductionVars().size());
    inRedMapArgIdx.reserve(targetOp.getInReductionVars().size());
    for (Value v : targetOp.getInReductionVars()) {
      // Select the map_entries entry that captures this in_reduction operand.
      // The verifier guarantees at least one match exists; more than one
      // matching entry is a lowering ambiguity (the redirect cannot pick which
      // map argument to rebind).
      std::optional<unsigned> matchIdx;
      for (auto [idx, mapV] : llvm::enumerate(targetOp.getMapVars())) {
        auto mapInfo = mapV.getDefiningOp<omp::MapInfoOp>();
        if (v != mapInfo.getVarPtr())
          continue;
        if (matchIdx)
          return targetOp.emitError()
                 << "in_reduction variable on omp.target has multiple matching "
                    "map_entries entries; the redirect target is ambiguous";
        matchIdx = idx;
      }
      // The verifier requires a capturing map entry for every in_reduction
      // operand, so a match must exist here.
      assert(matchIdx &&
             "TargetOp verifier guarantees a matching map_entries entry for "
             "each in_reduction variable");
      inRedMapArgIdx.push_back(*matchIdx);
      // The runtime `orig` pointer is the in_reduction operand itself, the
      // reduction variable the enclosing taskgroup registered.
      inRedOrigPtrs.push_back(moduleTranslation.lookupValue(v));
    }
  }
 
  // For some private variables, the MapsForPrivatizedVariablesPass
  // creates MapInfoOp instances. Go through the private variables and
  // the mapped variables so that during codegeneration we are able
  // to quickly look up the corresponding map variable, if any for each
  // private variable.
  if (!targetOp.getPrivateVars().empty() && !targetOp.getMapVars().empty()) {
    OperandRange privateVars = targetOp.getPrivateVars();
    std::optional<ArrayAttr> privateSyms = targetOp.getPrivateSyms();
    std::optional<DenseI64ArrayAttr> privateMapIndices =
        targetOp.getPrivateMapsAttr();
 
    for (auto [privVarIdx, privVarSymPair] :
         llvm::enumerate(llvm::zip_equal(privateVars, *privateSyms))) {
      auto privVar = std::get<0>(privVarSymPair);
      auto privSym = std::get<1>(privVarSymPair);
 
      SymbolRefAttr privatizerName = llvm::cast<SymbolRefAttr>(privSym);
      omp::PrivateClauseOp privatizer =
          findPrivatizer(targetOp, privatizerName);
 
      if (!privatizer.needsMap())
        continue;
 
      mlir::Value mappedValue =
          targetOp.getMappedValueForPrivateVar(privVarIdx);
      assert(mappedValue && "Expected to find mapped value for a privatized "
                            "variable that needs mapping");
 
      // The MapInfoOp defining the map var isn't really needed later.
      // So, we don't store it in any datastructure. Instead, we just
      // do some sanity checks on it right now.
      auto mapInfoOp = mappedValue.getDefiningOp<omp::MapInfoOp>();
      [[maybe_unused]] Type varType = mapInfoOp.getVarPtrType();
 
      // Check #1: Check that the type of the private variable matches
      // the type of the variable being mapped.
      if (!isa<LLVM::LLVMPointerType>(privVar.getType()))
        assert(
            varType == privVar.getType() &&
            "Type of private var doesn't match the type of the mapped value");
 
      // Ok, only 1 sanity check for now.
      // Record the block argument corresponding to this mapvar.
      mappedPrivateVars.insert(
          {privVar,
           targetRegion.getArgument(argIface.getMapBlockArgsStart() +
                                    (*privateMapIndices)[privVarIdx])});
    }
  }
 
  using InsertPointTy = llvm::OpenMPIRBuilder::InsertPointTy;
  auto bodyCB = [&](InsertPointTy allocaIP, InsertPointTy codeGenIP,
                    ArrayRef<llvm::BasicBlock *> deallocBlocks)
      -> llvm::OpenMPIRBuilder::InsertPointOrErrorTy {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    builder.SetCurrentDebugLocation(llvm::DebugLoc());
    // Forward target-cpu and target-features function attributes from the
    // original function to the new outlined function.
    llvm::Function *llvmParentFn =
        moduleTranslation.lookupFunction(parentFn.getName());
    llvmOutlinedFn = codeGenIP.getNodeParent()->getParent();
    assert(llvmParentFn && llvmOutlinedFn &&
           "Both parent and outlined functions must exist at this point");
 
    if (outlinedFnLoc && llvmParentFn->getSubprogram())
      llvmOutlinedFn->setSubprogram(outlinedFnLoc->getScope()->getSubprogram());
 
    if (auto attr = llvmParentFn->getFnAttribute("target-cpu");
        attr.isStringAttribute())
      llvmOutlinedFn->addFnAttr(attr);
 
    if (auto attr = llvmParentFn->getFnAttribute("target-features");
        attr.isStringAttribute())
      llvmOutlinedFn->addFnAttr(attr);
 
    for (auto [idx, arg] : llvm::enumerate(mapBlockArgs)) {
      // in_reduction list items on omp.target are accessed through their
      // map_entries block argument, which is redirected below to the per-task
      // reduction-private storage returned by the runtime. Skip the default
      // host-value mapping for those block arguments so the write-once
      // mapValue mapping is free to be set to the private pointer.
      if (llvm::is_contained(inRedMapArgIdx, idx))
        continue;
      auto mapInfoOp = cast<omp::MapInfoOp>(mapVars[idx].getDefiningOp());
      llvm::Value *mapOpValue =
          moduleTranslation.lookupValue(mapInfoOp.getVarPtr());
      moduleTranslation.mapValue(arg, mapOpValue);
    }
    for (auto [arg, mapOp] : llvm::zip_equal(hdaBlockArgs, hdaVars)) {
      auto mapInfoOp = cast<omp::MapInfoOp>(mapOp.getDefiningOp());
      llvm::Value *mapOpValue =
          moduleTranslation.lookupValue(mapInfoOp.getVarPtr());
      moduleTranslation.mapValue(arg, mapOpValue);
    }
 
    // Do privatization after moduleTranslation has already recorded
    // mapped values.
    PrivateVarsInfo privateVarsInfo(targetOp);
 
    llvm::Expected<llvm::BasicBlock *> afterAllocas =
        allocatePrivateVars(targetOp, builder, moduleTranslation,
                            privateVarsInfo, allocaIP, &mappedPrivateVars);
 
    if (failed(handleError(afterAllocas, *targetOp)))
      return llvm::make_error<PreviouslyReportedError>();
 
    builder.restoreIP(codeGenIP);
    if (handleError(initPrivateVars(builder, moduleTranslation, privateVarsInfo,
                                    &mappedPrivateVars),
                    *targetOp)
            .failed())
      return llvm::make_error<PreviouslyReportedError>();
 
    if (failed(completePrivateVars(
            targetOp, builder, moduleTranslation, privateVarsInfo.mlirVars,
            privateVarsInfo.llvmVars, privateVarsInfo.privatizers,
            targetOp.getPrivateNeedsBarrier(), &mappedPrivateVars)))
      return llvm::make_error<PreviouslyReportedError>();
 
    // The target body accesses each in_reduction variable through its
    // map_entries block argument. Redirect that block argument to the per-task
    // private storage returned by __kmpc_task_reduction_get_th_data so the body
    // accumulates into the reduction-private copy rather than the mapped
    // original. The lookup must run inside the target task body so the gtid
    // corresponds to the executing thread. The descriptor argument is NULL: the
    // runtime walks enclosing taskgroups to locate the matching task_reduction
    // registration for `origPtr`. Mirrors the in_reduction handling on
    // omp.taskloop.context.
    if (!inRedOrigPtrs.empty()) {
      // Collect, per item, the type the private pointer must have (the map
      // block argument's type), and, through the callback, rebind the map block
      // argument that stands in for each in_reduction list item to the per-task
      // reduction-private storage the runtime returns.
      SmallVector<llvm::Type *> inRedResultPtrTys;
      inRedResultPtrTys.reserve(inRedMapArgIdx.size());
      for (unsigned mapArgIdx : inRedMapArgIdx)
        inRedResultPtrTys.push_back(
            moduleTranslation.convertType(mapBlockArgs[mapArgIdx].getType()));
 
      llvm::OpenMPIRBuilder::LocationDescription bodyLoc(builder);
      llvm::OpenMPIRBuilder::InsertPointTy redIP =
          ompBuilder->createTargetInReduction(
              bodyLoc, inRedOrigPtrs, inRedResultPtrTys,
              [&](unsigned idx, llvm::Value *priv) {
                moduleTranslation.mapValue(mapBlockArgs[inRedMapArgIdx[idx]],
                                           priv);
              });
      builder.restoreIP(redIP);
    }
 
    LLVM::ModuleTranslation::SaveStack<OpenMPAllocStackFrame> frame(
        moduleTranslation, allocaIP.getNodeParent(), deallocBlocks);
    llvm::Expected<llvm::BasicBlock *> exitBlock = convertOmpOpRegions(
        targetRegion, "omp.target", builder, moduleTranslation);
 
    if (failed(handleError(exitBlock, *targetOp)))
      return llvm::make_error<PreviouslyReportedError>();
 
    builder.SetInsertPoint(exitBlock.get()->getTerminator());
 
    if (failed(cleanupPrivateVars(targetOp, builder, moduleTranslation,
                                  targetOp.getLoc(), privateVarsInfo)))
      return llvm::make_error<PreviouslyReportedError>();
 
    return builder.saveIP();
  };
 
  StringRef parentName = parentFn.getName();
 
  llvm::TargetRegionEntryInfo entryInfo;
 
  getTargetEntryUniqueInfo(entryInfo, targetOp,
                           *getOpenMPBuilder(moduleTranslation),
                           moduleTranslation.getFileSystem(), parentName);
 
  MapInfoData mapData;
  collectMapDataFromMapOperands(mapData, mapVars, moduleTranslation, dl,
                                builder, /*useDevPtrOperands=*/{},
                                /*useDevAddrOperands=*/{}, hdaVars);
 
  MapInfosTy combinedInfos;
  auto genMapInfoCB =
      [&](llvm::OpenMPIRBuilder::InsertPointTy codeGenIP) -> MapInfosTy & {
    builder.restoreIP(codeGenIP);
    genMapInfos(builder, moduleTranslation, dl, combinedInfos, mapData,
                targetDirective);
 
    // Append a null entry for the implicit dyn_ptr argument so the argument
    // count sent to the runtime already includes it.
    auto *nullPtr = llvm::Constant::getNullValue(builder.getPtrTy());
    combinedInfos.BasePointers.push_back(nullPtr);
    combinedInfos.Pointers.push_back(nullPtr);
    combinedInfos.DevicePointers.push_back(
        llvm::OpenMPIRBuilder::DeviceInfoTy::None);
    combinedInfos.Sizes.push_back(builder.getInt64(0));
    combinedInfos.Types.push_back(
        llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_TARGET_PARAM |
        llvm::omp::OpenMPOffloadMappingFlags::OMP_MAP_LITERAL);
    // TODO: set HasAttachPtr from Flang for pointee-storage entries.
    combinedInfos.HasAttachPtr.push_back(false);
    if (!combinedInfos.Names.empty())
      combinedInfos.Names.push_back(nullPtr);
    combinedInfos.Mappers.push_back(nullptr);
 
    return combinedInfos;
  };
 
  auto argAccessorCB = [&](llvm::Argument &arg, llvm::Value *input,
                           llvm::Value *&retVal, InsertPointTy allocaIP,
                           InsertPointTy codeGenIP,
                           llvm::ArrayRef<InsertPointTy> deallocIPs)
      -> llvm::OpenMPIRBuilder::InsertPointOrErrorTy {
    llvm::IRBuilderBase::InsertPointGuard guard(builder);
    builder.SetCurrentDebugLocation(llvm::DebugLoc());
    // We just return the unaltered argument for the host function
    // for now, some alterations may be required in the future to
    // keep host fallback functions working identically to the device
    // version (e.g. pass ByCopy values should be treated as such on
    // host and device, currently not always the case)
    if (!isTargetDevice) {
      retVal = cast<llvm::Value>(&arg);
      return codeGenIP;
    }
 
    return createDeviceArgumentAccessor(targetOp, mapData, arg, input, retVal,
                                        builder, *ompBuilder, moduleTranslation,
                                        allocaIP, codeGenIP, deallocIPs);
  };
 
  llvm::OpenMPIRBuilder::TargetKernelRuntimeAttrs runtimeAttrs;
  llvm::OpenMPIRBuilder::TargetKernelDefaultAttrs defaultAttrs;
  Operation *targetCapturedOp =
      cast<omp::ComposableOpInterface>(*targetOp).findCapturedOp();
  initTargetDefaultAttrs(targetOp, targetCapturedOp, defaultAttrs,
                         isTargetDevice, isGPU);
 
  // Collect host-evaluated values needed to properly launch the kernel from the
  // host.
  if (!isTargetDevice)
    initTargetRuntimeAttrs(builder, moduleTranslation, targetOp,
                           targetCapturedOp, runtimeAttrs);
 
  // Pass host-evaluated values as parameters to the kernel / host fallback,
  // except if they are constants. In any case, map the MLIR block argument to
  // the corresponding LLVM values.
  llvm::SmallVector<llvm::Value *, 4> kernelInput;
  SmallVector<Value> hostEvalVars = targetOp.getHostEvalVars();
  ArrayRef<BlockArgument> hostEvalBlockArgs = argIface.getHostEvalBlockArgs();
  for (auto [arg, var] : llvm::zip_equal(hostEvalBlockArgs, hostEvalVars)) {
    llvm::Value *value = moduleTranslation.lookupValue(var);
    moduleTranslation.mapValue(arg, value);
 
    if (!llvm::isa<llvm::Constant>(value))
      kernelInput.push_back(value);
  }
 
  for (size_t i = 0, e = mapData.OriginalValue.size(); i != e; ++i) {
    // 1) Declare target arguments are not passed to kernels as arguments.
    // 2) Attach maps are not passed in as arguments to kernels, except for
    //    private attach maps used for corresponding-pointer initialization.
    // 3) Children of record objects are not passed in as arguments.
    // TODO: We currently do not handle cases where a member is explicitly
    // passed in as an argument, this will likley need to be handled in
    // the near future, rather than using IsAMember, it may be better to
    // test if the relevant BlockArg is used within the target region and
    // then use that as a basis for exclusion in the kernel inputs.
    using MapFlags = llvm::omp::OpenMPOffloadMappingFlags;
    bool isAttachMap = (mapData.Types[i] & MapFlags::OMP_MAP_ATTACH) ==
                       MapFlags::OMP_MAP_ATTACH;
    bool isPrivateTargetParam =
        (mapData.Types[i] &
         (MapFlags::OMP_MAP_PRIVATE | MapFlags::OMP_MAP_TARGET_PARAM)) ==
        (MapFlags::OMP_MAP_PRIVATE | MapFlags::OMP_MAP_TARGET_PARAM);
 
    if (!mapData.IsDeclareTarget[i] && !mapData.IsAMember[i] &&
        (!isAttachMap || (isAttachMap && isPrivateTargetParam)))
      kernelInput.push_back(mapData.OriginalValue[i]);
  }
 
  llvm::SmallVector<llvm::BasicBlock *> deallocBlocks;
  llvm::OpenMPIRBuilder::InsertPointTy allocaIP =
      findAllocInsertPoints(builder, moduleTranslation, &deallocBlocks);
 
  llvm::OpenMPIRBuilder::DependenciesInfo dds;
  if (failed(buildDependData(
          targetOp.getDependVars(), targetOp.getDependKinds(),
          targetOp.getDependIterated(), targetOp.getDependIteratedKinds(),
          builder, moduleTranslation, dds)))
    return failure();
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
 
  llvm::OpenMPIRBuilder::TargetDataInfo info(
      /*RequiresDevicePointerInfo=*/false,
      /*SeparateBeginEndCalls=*/true);
 
  auto customMapperCB =
      [&](unsigned int i) -> llvm::Expected<llvm::Function *> {
    if (!combinedInfos.Mappers[i])
      return nullptr;
    info.HasMapper = true;
    return getOrCreateUserDefinedMapperFunc(combinedInfos.Mappers[i], builder,
                                            moduleTranslation, targetDirective);
  };
 
  llvm::Value *ifCond = nullptr;
  if (Value targetIfCond = targetOp.getIfExpr())
    ifCond = moduleTranslation.lookupValue(targetIfCond);
 
  Value dynGroupPrivateSize = targetOp.getDynGroupprivateSize();
  llvm::Value *dynSizeVal = nullptr;
  if (dynGroupPrivateSize) {
    dynSizeVal = moduleTranslation.lookupValue(dynGroupPrivateSize);
    dynSizeVal = builder.CreateIntCast(dynSizeVal, builder.getInt32Ty(),
                                       /*isSigned=*/false);
  }
 
  llvm::omp::OMPDynGroupprivateFallbackType fallbackType =
      getDynGroupprivateFallbackType(targetOp.getDynGroupprivateFallbackAttr());
 
  // Pass the target region's source location to the runtime, taken from the
  // op's own location. Restricted to the host offload path that actually emits
  // the kernel launch, to avoid creating an unused identifier on the device.
  llvm::Value *rtLocOverride =
      (!isTargetDevice && isOffloadEntry)
          ? getSourceLocIdentFromOp(builder, *ompBuilder, targetOp)
          : nullptr;
 
  llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
      getOpenMPBuilder(moduleTranslation)
          ->createTarget(ompLoc, isOffloadEntry, allocaIP, builder.saveIP(),
                         deallocBlocks, info, entryInfo, defaultAttrs,
                         runtimeAttrs, ifCond, kernelInput, genMapInfoCB,
                         bodyCB, argAccessorCB, customMapperCB, dds,
                         targetOp.getNowait(), dynSizeVal, fallbackType,
                         outlinedFnDbgLoc, rtLocOverride);
 
  if (failed(handleError(afterIP, opInst)))
    return failure();
 
  builder.restoreIP(*afterIP);
 
  if (dds.DepArray)
    builder.CreateFree(dds.DepArray);
 
  return success();
}
 
static LogicalResult
convertDeclareTargetAttr(Operation *op, mlir::omp::DeclareTargetAttr attribute,
                         llvm::OpenMPIRBuilder *ompBuilder,
                         LLVM::ModuleTranslation &moduleTranslation) {
  // Amend omp.declare_target by deleting the IR of the outlined functions
  // created for target regions. They cannot be filtered out from MLIR earlier
  // because the omp.target operation inside must be translated to LLVM, but
  // the wrapper functions themselves must not remain at the end of the
  // process. We know that functions where omp.declare_target does not match
  // omp.is_target_device at this stage can only be wrapper functions because
  // those that aren't are removed earlier as an MLIR transformation pass.
  if (FunctionOpInterface funcOp = dyn_cast<FunctionOpInterface>(op)) {
    if (auto offloadMod = dyn_cast<omp::OffloadModuleInterface>(
            op->getParentOfType<ModuleOp>().getOperation())) {
      if (!offloadMod.getIsTargetDevice())
        return success();
 
      omp::DeclareTargetDeviceType declareType = attribute.getDeviceType();
 
      if (declareType == omp::DeclareTargetDeviceType::host) {
        llvm::Function *llvmFunc =
            moduleTranslation.lookupFunction(funcOp.getName());
        llvmFunc->dropAllReferences();
        llvmFunc->eraseFromParent();
 
        // Invalidate the builder's current insertion point, as it now points to
        // a deleted block.
        ompBuilder->Builder.ClearInsertionPoint();
        ompBuilder->Builder.SetCurrentDebugLocation(llvm::DebugLoc());
      } else if (llvm::Function *llvmFunc =
                     moduleTranslation.lookupFunction(funcOp.getName())) {
        // Device-side declare target functions are externally visible by
        // default so they can be referenced from other device translation
        // units. That also prevents the offload LTO from internalizing and
        // deleting them when they end up unused in the final device image.
        // Such dead functions can still reference internal LDS and trigger
        // spurious "local memory global used by non-kernel function" backend
        // warnings. Marking them hidden keeps the symbol usable within the
        // device image's linkage unit while letting LTO drop it when nothing
        // references it; symbols that must stay reachable (e.g. via an offload
        // entry that takes their address) are kept alive by that reference.
        if (!llvmFunc->isDeclaration() && llvmFunc->hasExternalLinkage() &&
            llvmFunc->getVisibility() == llvm::GlobalValue::DefaultVisibility)
          llvmFunc->setVisibility(llvm::GlobalValue::HiddenVisibility);
      }
    }
    return success();
  }
 
  if (LLVM::GlobalOp gOp = dyn_cast<LLVM::GlobalOp>(op)) {
    llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
    if (auto *gVal = llvmModule->getNamedValue(gOp.getSymName())) {
      auto *gVar = cast<llvm::GlobalVariable>(gVal);
      llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
      bool isDeclaration = gOp.isDeclaration();
      bool isExternallyVisible =
          gOp.getVisibility() != mlir::SymbolTable::Visibility::Private;
      auto loc = op->getLoc()->findInstanceOf<FileLineColLoc>();
      llvm::StringRef mangledName = gOp.getSymName();
      mlir::omp::DeclareTargetCaptureClause captureClause =
          attribute.getCaptureClause();
      auto captureClauseKind = convertToCaptureClauseKind(captureClause);
      auto deviceClause = convertToDeviceClauseKind(attribute.getDeviceType());
      llvm::StringRef entryMangledName = mangledName;
      llvm::Constant *entryAddr = llvm::cast<llvm::Constant>(gVal);
      std::function<llvm::GlobalValue::LinkageTypes()> variableLinkage;
      llvm::SmallString<128> entryNameStorage;
      bool requiresUSM = ompBuilder->Config.hasRequiresUnifiedSharedMemory();
      bool isToOrEnter =
          captureClause == omp::DeclareTargetCaptureClause::to ||
          captureClause == omp::DeclareTargetCaptureClause::enter;
      bool isHostOnly =
          attribute.getDeviceType() == omp::DeclareTargetDeviceType::host;
 
      // A to/enter declare-target variable needs a device-resident,
      // name-resolvable copy and a host offloading entry. A local-linkage
      // global provides neither, so we promote it to external.
      if (isToOrEnter && !isHostOnly && !requiresUSM &&
          gVar->hasLocalLinkage()) {
        gVar->setLinkage(llvm::GlobalValue::ExternalLinkage);
        isExternallyVisible = true;
 
        // Clear the stale dso_local flag so it is referenced like a
        // module-scope declare target global.
        if (ompBuilder->Config.isTargetDevice())
          gVar->setDSOLocal(false);
      }
 
      if (isToOrEnter &&
          deviceClause ==
              llvm::OffloadEntriesInfoManager::OMPTargetDeviceClauseAny &&
          !requiresUSM && !isDeclaration &&
          (gVal->hasLocalLinkage() || gVal->hasHiddenVisibility())) {
        // Keep the original symbol as-is for target code, but create a visible
        // alias for the offload entry so libomptarget can associate the host
        // global with the actual device global.
        entryNameStorage = (mangledName + llvm::Twine("_decl_tgt_entry")).str();
        entryMangledName = entryNameStorage;
        if (llvm::GlobalValue *existing =
                llvmModule->getNamedValue(entryMangledName)) {
          entryAddr = llvm::cast<llvm::Constant>(existing);
        } else {
          entryAddr = llvm::GlobalAlias::create(
              gVal->getValueType(), gVal->getAddressSpace(),
              llvm::GlobalValue::WeakAnyLinkage, entryMangledName, entryAddr,
              llvmModule);
          llvm::cast<llvm::GlobalAlias>(entryAddr)->setVisibility(
              llvm::GlobalValue::DefaultVisibility);
        }
        variableLinkage = [] { return llvm::GlobalValue::WeakAnyLinkage; };
      }
      // unused for MLIR at the moment, required in Clang for book
      // keeping
      std::vector<llvm::GlobalVariable *> generatedRefs;
 
      std::vector<llvm::Triple> targetTriple;
      auto targetTripleAttr = dyn_cast_or_null<mlir::StringAttr>(
          op->getParentOfType<mlir::ModuleOp>()->getDiscardableAttr(
              LLVM::LLVMDialect::getTargetTripleAttrName()));
      if (targetTripleAttr)
        targetTriple.emplace_back(targetTripleAttr.data());
 
      auto fileInfoCallBack = [&loc]() {
        std::string filename = "";
        std::uint64_t lineNo = 0;
 
        if (loc) {
          filename = loc.getFilename().str();
          lineNo = loc.getLine();
        }
 
        return std::pair<std::string, std::uint64_t>(llvm::StringRef(filename),
                                                     lineNo);
      };
 
      llvm::vfs::FileSystem &vfs = moduleTranslation.getFileSystem();
      ompBuilder->registerTargetGlobalVariable(
          captureClauseKind, deviceClause, isDeclaration, isExternallyVisible,
          ompBuilder->getTargetEntryUniqueInfo(fileInfoCallBack, vfs),
          entryMangledName, generatedRefs, /*OpenMPSimd*/ false, targetTriple,
          /*GlobalInitializer*/ nullptr, variableLinkage, gVal->getType(),
          entryAddr);
 
      if (ompBuilder->Config.isTargetDevice() &&
          (captureClause == omp::DeclareTargetCaptureClause::link ||
           requiresUSM)) {
        // For USM and link we generate a global reference pointer in the
        // default address space (e.g address space 0), as opposed to the
        // globals original type and address space.
        llvm::Type *ptrTy = llvm::PointerType::get(llvmModule->getContext(), 0);
        llvm::Constant *refPtr = ompBuilder->getAddrOfDeclareTargetVar(
            captureClauseKind, deviceClause, isDeclaration, isExternallyVisible,
            ompBuilder->getTargetEntryUniqueInfo(fileInfoCallBack, vfs),
            mangledName, generatedRefs, /*OpenMPSimd*/ false, targetTriple,
            ptrTy, /*GlobalInitializer*/ nullptr,
            /*VariableLinkage*/ nullptr);
 
        // For indirectly-accessed global pointers, we rely on "internal"
        // linkage to optimize out the unneeded full-variable storage later,
        // since we can't prevent the LLVM dialect from generating globals
        // without also breaking target lowering. However, We can only do
        // this for definiions, as global variable declarations must have
        // external or weak linkage.
        if (refPtr) {
          if (!gVar->isDeclaration())
            gVar->setLinkage(llvm::GlobalValue::InternalLinkage);
 
          // Register the (original global, reference pointer) pair so that the
          // OpenMPIRBuilder can rewrite uses of the original global during
          // finalization.
          if (auto *newGV =
                  dyn_cast<llvm::GlobalValue>(refPtr->stripPointerCasts()))
            ompBuilder->registerDeclareTargetGlobalReplacement(gVal, newGV);
        }
      }
 
      // Mark 'device_type(host) enter(...)' variables as external in the device
      // since they're not supposed to have their own copy. This will cause
      // linker errors if accesses are attempted from the target device.
      if (ompBuilder->Config.isTargetDevice() && isHostOnly && isToOrEnter) {
        gVar->setLinkage(llvm::GlobalValue::ExternalLinkage);
        gVar->setInitializer(nullptr);
      }
    }
  }
 
  return success();
}
 
namespace {
 
/// Implementation of the dialect interface that converts operations belonging
/// to the OpenMP dialect to LLVM IR.
class OpenMPDialectLLVMIRTranslationInterface
    : public LLVMTranslationDialectInterface {
public:
  using LLVMTranslationDialectInterface::LLVMTranslationDialectInterface;
 
  /// Translates the given operation to LLVM IR using the provided IR builder
  /// and saving the state in `moduleTranslation`.
  LogicalResult
  convertOperation(Operation *op, llvm::IRBuilderBase &builder,
                   LLVM::ModuleTranslation &moduleTranslation) const final;
 
  /// Given an OpenMP MLIR attribute, create the corresponding LLVM-IR,
  /// runtime calls, or operation amendments
  LogicalResult
  amendOperation(Operation *op, ArrayRef<llvm::Instruction *> instructions,
                 NamedAttribute attribute,
                 LLVM::ModuleTranslation &moduleTranslation) const final;
 
  /// Records the LLVM alloc pointer produced for an OMP ALLOCATE variable so
  /// that the paired omp.allocate_free op can generate the matching
  /// __kmpc_free call.
  void registerAllocatedPtr(Value var, llvm::Value *ptr) const {
    ompAllocatedPtrs[var] = ptr;
  }
 
  /// Returns the LLVM alloc pointer previously registered for var, or
  /// nullptr if no allocation was recorded.
  llvm::Value *lookupAllocatedPtr(Value var) const {
    auto it = ompAllocatedPtrs.find(var);
    return it != ompAllocatedPtrs.end() ? it->second : nullptr;
  }
 
private:
  /// Maps each MLIR variable value that appeared in an omp.allocate_dir op to
  /// the LLVM pointer returned by the corresponding __kmpc_alloc call.  The
  /// paired omp.allocate_free op looks up these pointers to emit __kmpc_free.
  mutable DenseMap<Value, llvm::Value *> ompAllocatedPtrs;
};
 
} // namespace
 
LogicalResult OpenMPDialectLLVMIRTranslationInterface::amendOperation(
    Operation *op, ArrayRef<llvm::Instruction *> instructions,
    NamedAttribute attribute,
    LLVM::ModuleTranslation &moduleTranslation) const {
  return llvm::StringSwitch<llvm::function_ref<LogicalResult(Attribute)>>(
             attribute.getName())
      .Case("omp.is_target_device",
            [&](Attribute attr) {
              if (auto deviceAttr = dyn_cast<BoolAttr>(attr)) {
                llvm::OpenMPIRBuilderConfig &config =
                    getOpenMPBuilder(moduleTranslation)->Config;
                config.setIsTargetDevice(deviceAttr.getValue());
                return success();
              }
              return failure();
            })
      .Case("omp.is_gpu",
            [&](Attribute attr) {
              if (auto gpuAttr = dyn_cast<BoolAttr>(attr)) {
                llvm::OpenMPIRBuilderConfig &config =
                    getOpenMPBuilder(moduleTranslation)->Config;
                config.setIsGPU(gpuAttr.getValue());
                return success();
              }
              return failure();
            })
      .Case("omp.host_ir_filepath",
            [&](Attribute attr) {
              if (auto filepathAttr = dyn_cast<StringAttr>(attr)) {
                llvm::OpenMPIRBuilder *ompBuilder =
                    getOpenMPBuilder(moduleTranslation);
                ompBuilder->loadOffloadInfoMetadata(
                    moduleTranslation.getFileSystem(), filepathAttr.getValue());
                return success();
              }
              return failure();
            })
      .Case("omp.flags",
            [&](Attribute attr) {
              if (auto rtlAttr = dyn_cast<omp::FlagsAttr>(attr))
                return convertFlagsAttr(op, rtlAttr, moduleTranslation);
              return failure();
            })
      .Case("omp.version",
            [&](Attribute attr) {
              if (auto versionAttr = dyn_cast<omp::VersionAttr>(attr)) {
                llvm::OpenMPIRBuilder *ompBuilder =
                    getOpenMPBuilder(moduleTranslation);
                ompBuilder->M.addModuleFlag(llvm::Module::Max, "openmp",
                                            versionAttr.getVersion());
                return success();
              }
              return failure();
            })
      .Case("omp.declare_target",
            [&](Attribute attr) {
              if (auto declareTargetAttr =
                      dyn_cast<omp::DeclareTargetAttr>(attr)) {
                llvm::OpenMPIRBuilder *ompBuilder =
                    getOpenMPBuilder(moduleTranslation);
                return convertDeclareTargetAttr(op, declareTargetAttr,
                                                ompBuilder, moduleTranslation);
              }
              return failure();
            })
      .Case("omp.requires",
            [&](Attribute attr) {
              if (auto requiresAttr = dyn_cast<omp::ClauseRequiresAttr>(attr)) {
                using Requires = omp::ClauseRequires;
                Requires flags = requiresAttr.getValue();
                llvm::OpenMPIRBuilderConfig &config =
                    getOpenMPBuilder(moduleTranslation)->Config;
                config.setHasRequiresReverseOffload(
                    bitEnumContainsAll(flags, Requires::reverse_offload));
                config.setHasRequiresUnifiedAddress(
                    bitEnumContainsAll(flags, Requires::unified_address));
                config.setHasRequiresUnifiedSharedMemory(
                    bitEnumContainsAll(flags, Requires::unified_shared_memory));
                config.setHasRequiresDynamicAllocators(
                    bitEnumContainsAll(flags, Requires::dynamic_allocators));
                return success();
              }
              return failure();
            })
      .Case("omp.target_triples",
            [&](Attribute attr) {
              if (auto triplesAttr = dyn_cast<ArrayAttr>(attr)) {
                llvm::OpenMPIRBuilderConfig &config =
                    getOpenMPBuilder(moduleTranslation)->Config;
                config.TargetTriples.clear();
                config.TargetTriples.reserve(triplesAttr.size());
                for (Attribute tripleAttr : triplesAttr) {
                  if (auto tripleStrAttr = dyn_cast<StringAttr>(tripleAttr))
                    config.TargetTriples.emplace_back(tripleStrAttr.getValue());
                  else
                    return failure();
                }
                return success();
              }
              return failure();
            })
      .Case("omp.integer_wrap_around",
            [&](Attribute attr) {
              if (auto wrapAttr = dyn_cast<omp::IntegerWrapAroundAttr>(attr)) {
                llvm::OpenMPIRBuilderConfig &config =
                    getOpenMPBuilder(moduleTranslation)->Config;
                config.setNoSignedWrap(!wrapAttr.getIntegerWrapAround());
                return success();
              }
              return failure();
            })
      .Default([](Attribute) {
        // Fall through for omp attributes that do not require lowering.
        return success();
      })(attribute.getValue());
 
  return failure();
}
 
// Returns true if the operation is not inside a TargetOp, it is part of a
// function and that function is not declare target.
static bool isHostDeviceOp(Operation *op) {
  // Assumes no reverse offloading
  if (op->getParentOfType<omp::TargetOp>())
    return false;
 
  if (auto parentFn = op->getParentOfType<LLVM::LLVMFuncOp>()) {
    if (auto declareTargetIface =
            llvm::dyn_cast<mlir::omp::DeclareTargetInterface>(
                parentFn.getOperation())) {
      omp::DeclareTargetAttr declareTargetAttr =
          declareTargetIface.getDeclareTarget();
      if (declareTargetAttr && declareTargetAttr.getDeviceType() !=
                                   mlir::omp::DeclareTargetDeviceType::host)
        return false;
    }
 
    return true;
  }
 
  return false;
}
 
static llvm::Function *getOmpTargetAlloc(llvm::IRBuilderBase &builder,
                                         llvm::Module *llvmModule) {
  llvm::Type *i64Ty = builder.getInt64Ty();
  llvm::Type *i32Ty = builder.getInt32Ty();
  llvm::Type *returnType = builder.getPtrTy(0);
  llvm::FunctionType *fnType =
      llvm::FunctionType::get(returnType, {i64Ty, i32Ty}, false);
  llvm::Function *func = cast<llvm::Function>(
      llvmModule->getOrInsertFunction("omp_target_alloc", fnType).getCallee());
  return func;
}
 
template <typename T>
static llvm::Value *
getAllocationSize(llvm::IRBuilderBase &builder,
                  LLVM::ModuleTranslation &moduleTranslation, T op) {
  llvm::DataLayout dataLayout =
      moduleTranslation.getLLVMModule()->getDataLayout();
  llvm::Type *llvmHeapTy =
      moduleTranslation.convertType(op.getMemElemTypeAttr().getValue());
 
  auto alignment = op.getMemAlignment();
  llvm::TypeSize typeSize = llvm::alignTo(
      dataLayout.getTypeStoreSize(llvmHeapTy),
      alignment ? *alignment : dataLayout.getABITypeAlign(llvmHeapTy).value());
 
  llvm::Value *allocSize = builder.getInt64(typeSize.getFixedValue());
  return builder.CreateMul(
      allocSize,
      builder.CreateIntCast(moduleTranslation.lookupValue(op.getMemArraySize()),
                            builder.getInt64Ty(),
                            /*isSigned=*/false));
}
 
template <>
llvm::Value *getAllocationSize(llvm::IRBuilderBase &builder,
                               LLVM::ModuleTranslation &moduleTranslation,
                               omp::TargetAllocMemOp op) {
  llvm::DataLayout dataLayout =
      moduleTranslation.getLLVMModule()->getDataLayout();
  llvm::Type *llvmHeapTy = moduleTranslation.convertType(op.getAllocatedType());
  llvm::TypeSize typeSize = dataLayout.getTypeAllocSize(llvmHeapTy);
  llvm::Value *allocSize = builder.getInt64(typeSize.getFixedValue());
  for (auto typeParam : op.getTypeparams()) {
    allocSize = builder.CreateMul(
        allocSize,
        builder.CreateIntCast(moduleTranslation.lookupValue(typeParam),
                              builder.getInt64Ty(),
                              /*isSigned=*/false));
  }
  return allocSize;
}
 
static LogicalResult
convertTargetAllocMemOp(Operation &opInst, llvm::IRBuilderBase &builder,
                        LLVM::ModuleTranslation &moduleTranslation) {
  auto allocMemOp = cast<omp::TargetAllocMemOp>(opInst);
  if (!allocMemOp)
    return failure();
 
  // Get "omp_target_alloc" function
  llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
  llvm::Function *ompTargetAllocFunc = getOmpTargetAlloc(builder, llvmModule);
  // Get the corresponding device value in llvm
  mlir::Value deviceNum = allocMemOp.getDevice();
  llvm::Value *llvmDeviceNum = moduleTranslation.lookupValue(deviceNum);
  // Get the allocation size.
  llvm::Value *allocSize =
      getAllocationSize(builder, moduleTranslation, allocMemOp);
  // Create call to "omp_target_alloc" with the args as translated llvm values.
  llvm::CallInst *call =
      builder.CreateCall(ompTargetAllocFunc, {allocSize, llvmDeviceNum});
  llvm::Value *resultI64 = builder.CreatePtrToInt(call, builder.getInt64Ty());
 
  // Map the result
  moduleTranslation.mapValue(allocMemOp.getResult(), resultI64);
  return success();
}
 
static LogicalResult
convertAllocSharedMemOp(omp::AllocSharedMemOp allocMemOp,
                        llvm::IRBuilderBase &builder,
                        LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::Value *size = getAllocationSize(builder, moduleTranslation, allocMemOp);
  moduleTranslation.mapValue(allocMemOp.getResult(),
                             ompBuilder->createOMPAllocShared(builder, size));
  return success();
}
 
static LogicalResult
convertAllocateDirOp(Operation &opInst, llvm::IRBuilderBase &builder,
                     LLVM::ModuleTranslation &moduleTranslation,
                     const OpenMPDialectLLVMIRTranslationInterface &ompIface) {
  auto allocateDirOp = cast<omp::AllocateDirOp>(opInst);
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
  llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
  llvm::DataLayout dataLayout = llvmModule->getDataLayout();
  SmallVector<Value> vars = allocateDirOp.getVarList();
  std::optional<int64_t> alignAttr = allocateDirOp.getAlign();
 
  llvm::Value *allocator;
  if (auto allocatorVar = allocateDirOp.getAllocator()) {
    allocator = moduleTranslation.lookupValue(allocatorVar);
    if (allocator->getType()->isIntegerTy())
      allocator = builder.CreateIntToPtr(allocator, builder.getPtrTy());
    else if (allocator->getType()->isPointerTy())
      allocator = builder.CreatePointerBitCastOrAddrSpaceCast(
          allocator, builder.getPtrTy());
  } else {
    allocator = llvm::ConstantPointerNull::get(builder.getPtrTy());
  }
 
  for (Value var : vars) {
    Value baseVar = getBaseValueForTypeLookup(var);
    llvm::Type *typeToInspect =
        getAllocatedLlvmTypeForVariable(var, baseVar, moduleTranslation);
 
    llvm::Value *size;
    if (std::optional<llvm::Value *> dynamicSize = getDynamicAllocatedSize(
            var, baseVar, moduleTranslation, builder, dataLayout)) {
      size = *dynamicSize;
    } else if (typeToInspect->isArrayTy()) {
      size = builder.getInt64(
          dataLayout.getTypeAllocSize(typeToInspect).getFixedValue());
    } else {
      size = builder.getInt64(
          dataLayout.getTypeAllocSize(typeToInspect).getFixedValue());
    }
 
    uint64_t alignValue =
        alignAttr ? alignAttr.value()
                  : dataLayout.getABITypeAlign(typeToInspect).value();
    llvm::Value *alignConst = builder.getInt64(alignValue);
    // Align the size: ((size + align - 1) / align) * align
    size = builder.CreateAdd(size, builder.getInt64(alignValue - 1), "", true);
    size = builder.CreateUDiv(size, alignConst);
    size = builder.CreateMul(size, alignConst, "", true);
 
    std::string allocName =
        ompBuilder->createPlatformSpecificName({".void.addr"});
    llvm::CallInst *allocCall;
    if (alignAttr.has_value()) {
      allocCall = ompBuilder->createOMPAlignedAlloc(
          ompLoc, builder.getInt64(alignAttr.value()), size, allocator,
          allocName);
    } else {
      allocCall =
          ompBuilder->createOMPAlloc(ompLoc, size, allocator, allocName);
    }
    // Record the alloc pointer keyed by the MLIR variable value.
    ompIface.registerAllocatedPtr(var, allocCall);
 
    if (llvm::Value *baseLlvm = moduleTranslation.lookupValue(baseVar)) {
      llvm::Value *boundPtr = builder.CreatePointerBitCastOrAddrSpaceCast(
          allocCall, baseLlvm->getType());
      moduleTranslation.remapAllValuesWith(baseLlvm, boundPtr);
    } else if (llvm::Value *varLlvm = moduleTranslation.lookupValue(var)) {
      llvm::Value *boundPtr = builder.CreatePointerBitCastOrAddrSpaceCast(
          allocCall, varLlvm->getType());
      moduleTranslation.remapAllValuesWith(varLlvm, boundPtr);
    }
  }
 
  return success();
}
 
static LogicalResult
convertAllocateFreeOp(Operation &opInst, llvm::IRBuilderBase &builder,
                      LLVM::ModuleTranslation &moduleTranslation,
                      const OpenMPDialectLLVMIRTranslationInterface &ompIface) {
  auto freeOp = cast<omp::AllocateFreeOp>(opInst);
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::OpenMPIRBuilder::LocationDescription ompLoc(builder);
 
  llvm::Value *allocator;
  if (auto allocatorVar = freeOp.getAllocator()) {
    allocator = moduleTranslation.lookupValue(allocatorVar);
    if (allocator->getType()->isIntegerTy())
      allocator = builder.CreateIntToPtr(allocator, builder.getPtrTy());
    else if (allocator->getType()->isPointerTy())
      allocator = builder.CreatePointerBitCastOrAddrSpaceCast(
          allocator, builder.getPtrTy());
  } else {
    allocator = llvm::ConstantPointerNull::get(builder.getPtrTy());
  }
 
  // Emit __kmpc_free for each variable in reverse allocation order.
  SmallVector<Value> vars = freeOp.getVarList();
  for (Value var : llvm::reverse(vars)) {
    llvm::Value *allocPtr = ompIface.lookupAllocatedPtr(var);
    if (!allocPtr)
      return opInst.emitError("omp.allocate_free: no allocation recorded");
    ompBuilder->createOMPFree(ompLoc, allocPtr, allocator, "");
  }
 
  return success();
}
 
static llvm::Function *getOmpTargetFree(llvm::IRBuilderBase &builder,
                                        llvm::Module *llvmModule) {
  llvm::Type *ptrTy = builder.getPtrTy(0);
  llvm::Type *i32Ty = builder.getInt32Ty();
  llvm::Type *voidTy = builder.getVoidTy();
  llvm::FunctionType *fnType =
      llvm::FunctionType::get(voidTy, {ptrTy, i32Ty}, false);
  llvm::Function *func = dyn_cast<llvm::Function>(
      llvmModule->getOrInsertFunction("omp_target_free", fnType).getCallee());
  return func;
}
 
static LogicalResult
convertTargetFreeMemOp(Operation &opInst, llvm::IRBuilderBase &builder,
                       LLVM::ModuleTranslation &moduleTranslation) {
  auto freeMemOp = cast<omp::TargetFreeMemOp>(opInst);
  if (!freeMemOp)
    return failure();
 
  // Get "omp_target_free" function
  llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
  llvm::Function *ompTragetFreeFunc = getOmpTargetFree(builder, llvmModule);
  // Get the corresponding device value in llvm
  mlir::Value deviceNum = freeMemOp.getDevice();
  llvm::Value *llvmDeviceNum = moduleTranslation.lookupValue(deviceNum);
  // Get the corresponding heapref value in llvm
  mlir::Value heapref = freeMemOp.getHeapref();
  llvm::Value *llvmHeapref = moduleTranslation.lookupValue(heapref);
  // Convert heapref int to ptr and call "omp_target_free"
  llvm::Value *intToPtr =
      builder.CreateIntToPtr(llvmHeapref, builder.getPtrTy(0));
  builder.CreateCall(ompTragetFreeFunc, {intToPtr, llvmDeviceNum});
  return success();
}
 
static LogicalResult
convertFreeSharedMemOp(omp::FreeSharedMemOp freeMemOp,
                       llvm::IRBuilderBase &builder,
                       LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  llvm::Value *size = getAllocationSize(builder, moduleTranslation, freeMemOp);
  ompBuilder->createOMPFreeShared(
      builder, moduleTranslation.lookupValue(freeMemOp.getHeapref()), size);
  return success();
}
 
/// Converts an OpenMP groupprivate operation into LLVM IR.
static LogicalResult
convertOmpGroupprivate(Operation &opInst, llvm::IRBuilderBase &builder,
                       LLVM::ModuleTranslation &moduleTranslation) {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
  auto groupprivateOp = cast<omp::GroupprivateOp>(opInst);
 
  if (failed(checkImplementationStatus(opInst)))
    return failure();
 
  bool isTargetDevice = ompBuilder->Config.isTargetDevice();
 
  // Determine whether group-private storage should be allocated based on
  // device_type. When not specified, default to 'any' (allocate on both).
  bool shouldAllocate = true;
  switch (groupprivateOp.getDeviceType().value_or(
      mlir::omp::DeclareTargetDeviceType::any)) {
  case mlir::omp::DeclareTargetDeviceType::host:
    shouldAllocate = !isTargetDevice;
    break;
  case mlir::omp::DeclareTargetDeviceType::nohost:
    shouldAllocate = isTargetDevice;
    break;
  case mlir::omp::DeclareTargetDeviceType::any:
    shouldAllocate = true;
    break;
  }
 
  // Look up the global variable directly by symbol name.
  LLVM::GlobalOp global = SymbolTable::lookupNearestSymbolFrom<LLVM::GlobalOp>(
      &opInst, groupprivateOp.getSymNameAttr());
  if (!global)
    return opInst.emitError()
           << "expected symbol '" << groupprivateOp.getSymName()
           << "' to reference an LLVM global variable";
 
  llvm::GlobalValue *globalValue = moduleTranslation.lookupGlobal(global);
  llvm::Type *varType = moduleTranslation.convertType(global.getType());
  std::string varName = globalValue->getName().str();
 
  llvm::Value *resultPtr;
  if (shouldAllocate && isTargetDevice) {
    llvm::Module *llvmModule = moduleTranslation.getLLVMModule();
    llvm::Triple targetTriple(llvmModule->getTargetTriple());
    unsigned sharedAddressSpace;
    if (targetTriple.isAMDGCN())
      sharedAddressSpace = llvm::AMDGPUAS::LOCAL_ADDRESS;
    else if (targetTriple.isNVPTX())
      sharedAddressSpace = llvm::NVPTXAS::ADDRESS_SPACE_SHARED;
    else
      return opInst.emitError() << "groupprivate is not supported for target: "
                                << targetTriple.str();
    llvm::GlobalVariable *sharedVar = new llvm::GlobalVariable(
        *llvmModule, varType, /*isConstant=*/false,
        llvm::GlobalValue::InternalLinkage, llvm::PoisonValue::get(varType),
        varName, /*InsertBefore=*/nullptr, llvm::GlobalValue::NotThreadLocal,
        sharedAddressSpace,
        /*isExternallyInitialized=*/false);
    resultPtr = sharedVar;
  } else {
    if (shouldAllocate && !isTargetDevice)
      opInst.emitWarning("groupprivate directive is currently ignored on the "
                         "host, using original global");
    resultPtr = globalValue;
  }
 
  moduleTranslation.mapValue(opInst.getResult(0), resultPtr);
  return success();
}
 
/// Given an OpenMP MLIR operation, create the corresponding LLVM IR (including
/// OpenMP runtime calls).
LogicalResult OpenMPDialectLLVMIRTranslationInterface::convertOperation(
    Operation *op, llvm::IRBuilderBase &builder,
    LLVM::ModuleTranslation &moduleTranslation) const {
  llvm::OpenMPIRBuilder *ompBuilder = getOpenMPBuilder(moduleTranslation);
 
  if (ompBuilder->Config.isTargetDevice() &&
      !isa<omp::TargetOp, omp::MapInfoOp, omp::TerminatorOp, omp::YieldOp>(
          op) &&
      isHostDeviceOp(op))
    return op->emitOpError() << "unsupported host op found in device";
 
  // For each loop, introduce one stack frame to hold loop information. Ensure
  // this is only done for the outermost loop wrapper to prevent introducing
  // multiple stack frames for a single loop. Initially set to null, the loop
  // information structure is initialized during translation of the nested
  // omp.loop_nest operation, making it available to translation of all loop
  // wrappers after their body has been successfully translated.
  bool isOutermostLoopWrapper =
      isa_and_present<omp::LoopWrapperInterface>(op) &&
      !dyn_cast_if_present<omp::LoopWrapperInterface>(op->getParentOp());
 
  // The TASKLOOP construct is implemented with an outer taskloop.context
  // operation which is not a loop wrapper, containing an inner taskloop
  // operation which is a loop wrapper. The stack frame should be pushed when
  // translating the outer taskloop.context and popped when translating the
  // inner taskloop which is a loop wrapper. We need access to the loop
  // information in the outer taskloop context so we need to create it and pop
  // it around the taskloop context not the inner loop wrapper.
  if (isa<omp::TaskloopContextOp>(op))
    isOutermostLoopWrapper = true;
  else if (isa<omp::TaskloopWrapperOp>(op))
    isOutermostLoopWrapper = false;
 
  if (isOutermostLoopWrapper)
    moduleTranslation.stackPush<OpenMPLoopInfoStackFrame>();
 
  auto result =
      llvm::TypeSwitch<Operation *, LogicalResult>(op)
          .Case([&](omp::BarrierOp op) -> LogicalResult {
            if (failed(checkImplementationStatus(*op)))
              return failure();
 
            llvm::OpenMPIRBuilder::InsertPointOrErrorTy afterIP =
                ompBuilder->createBarrier(builder, llvm::omp::OMPD_barrier);
            LogicalResult res = handleError(afterIP, *op);
            if (res.succeeded()) {
              // If the barrier generated a cancellation check, the insertion
              // point might now need to be changed to a new continuation block
              builder.restoreIP(*afterIP);
            }
            return res;
          })
          .Case([&](omp::TaskyieldOp op) {
            if (failed(checkImplementationStatus(*op)))
              return failure();
 
            ompBuilder->createTaskyield(builder);
            return success();
          })
          .Case([&](omp::FlushOp op) {
            if (failed(checkImplementationStatus(*op)))
              return failure();
 
            // No support in Openmp runtime function (__kmpc_flush) to accept
            // the argument list.
            // OpenMP standard states the following:
            //  "An implementation may implement a flush with a list by ignoring
            //   the list, and treating it the same as a flush without a list."
            //
            // The argument list is discarded so that, flush with a list is
            // treated same as a flush without a list.
            ompBuilder->createFlush(builder);
            return success();
          })
          .Case([&](omp::ErrorOp op) {
            if (failed(checkImplementationStatus(*op)))
              return failure();
 
            llvm::Value *message = nullptr;
            if (mlir::Value messageExpr = op.getMessageExpr())
              message = moduleTranslation.lookupValue(messageExpr);
            else if (std::optional<StringRef> msg = op.getMessage();
                     msg && !msg->empty())
              message = builder.CreateGlobalString(*msg);
            ompBuilder->createError(
                llvm::OpenMPIRBuilder::LocationDescription(builder),
                op.getSeverity() == omp::ClauseSeverity::fatal, message);
            return success();
          })
          .Case([&](omp::ParallelOp op) {
            return convertOmpParallel(op, builder, moduleTranslation);
          })
          .Case([&](omp::DispatchOp) {
            return convertOmpDispatch(*op, builder, moduleTranslation);
          })
          .Case([&](omp::MaskedOp) {
            return convertOmpMasked(*op, builder, moduleTranslation);
          })
          .Case([&](omp::MasterOp) {
            return convertOmpMaster(*op, builder, moduleTranslation);
          })
          .Case([&](omp::CriticalOp) {
            return convertOmpCritical(*op, builder, moduleTranslation);
          })
          .Case([&](omp::OrderedRegionOp) {
            return convertOmpOrderedRegion(*op, builder, moduleTranslation);
          })
          .Case([&](omp::OrderedOp) {
            return convertOmpOrdered(*op, builder, moduleTranslation);
          })
          .Case([&](omp::WsloopOp) {
            return convertOmpWsloop(*op, builder, moduleTranslation);
          })
          .Case([&](omp::SimdOp) {
            return convertOmpSimd(*op, builder, moduleTranslation);
          })
          .Case([&](omp::AtomicReadOp) {
            return convertOmpAtomicRead(*op, builder, moduleTranslation);
          })
          .Case([&](omp::AtomicWriteOp) {
            return convertOmpAtomicWrite(*op, builder, moduleTranslation);
          })
          .Case([&](omp::AtomicUpdateOp op) {
            return convertOmpAtomicUpdate(op, builder, moduleTranslation);
          })
          .Case([&](omp::AtomicCaptureOp op) {
            return convertOmpAtomicCapture(op, builder, moduleTranslation);
          })
          .Case([&](omp::AtomicCompareOp op) {
            return convertOmpAtomicCompare(op, builder, moduleTranslation);
          })
          .Case([&](omp::CancelOp op) {
            return convertOmpCancel(op, builder, moduleTranslation);
          })
          .Case([&](omp::CancellationPointOp op) {
            return convertOmpCancellationPoint(op, builder, moduleTranslation);
          })
          .Case([&](omp::SectionsOp) {
            return convertOmpSections(*op, builder, moduleTranslation);
          })
          .Case([&](omp::ScopeOp op) {
            return convertOmpScope(op, builder, moduleTranslation);
          })
          .Case([&](omp::SingleOp op) {
            return convertOmpSingle(op, builder, moduleTranslation);
          })
          .Case([&](omp::TeamsOp op) {
            return convertOmpTeams(op, builder, moduleTranslation);
          })
          .Case([&](omp::TaskOp op) {
            return convertOmpTaskOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::TaskloopWrapperOp op) {
            return convertOmpTaskloopWrapperOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::TaskloopContextOp op) {
            return convertOmpTaskloopContextOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::TaskgroupOp op) {
            return convertOmpTaskgroupOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::TaskwaitOp op) {
            return convertOmpTaskwaitOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::InteropInitOp op) {
            return convertOmpInteropInitOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::InteropDestroyOp op) {
            return convertOmpInteropDestroyOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::InteropUseOp op) {
            return convertOmpInteropUseOp(op, builder, moduleTranslation);
          })
          .Case<omp::YieldOp, omp::TerminatorOp, omp::DeclareMapperOp,
                omp::DeclareMapperInfoOp, omp::DeclareReductionOp,
                omp::CriticalDeclareOp>([](auto op) {
            // `yield` and `terminator` can be just omitted. The block structure
            // was created in the region that handles their parent operation.
            // `declare_reduction` will be used by reductions and is not
            // converted directly, skip it.
            // `declare_mapper` and `declare_mapper.info` are handled whenever
            // they are referred to through a `map` clause.
            // `critical.declare` is only used to declare names of critical
            // sections which will be used by `critical` ops and hence can be
            // ignored for lowering. The OpenMP IRBuilder will create unique
            // name for critical section names.
            return success();
          })
          .Case([&](omp::ThreadprivateOp) {
            return convertOmpThreadprivate(*op, builder, moduleTranslation);
          })
          .Case<omp::TargetDataOp, omp::TargetEnterDataOp,
                omp::TargetExitDataOp, omp::TargetUpdateOp>([&](auto op) {
            return convertOmpTargetData(op, builder, moduleTranslation);
          })
          .Case([&](omp::TargetOp) {
            return convertOmpTarget(*op, builder, moduleTranslation);
          })
          .Case([&](omp::DistributeOp) {
            return convertOmpDistribute(*op, builder, moduleTranslation);
          })
          .Case([&](omp::LoopNestOp) {
            return convertOmpLoopNest(*op, builder, moduleTranslation);
          })
          .Case<omp::MapInfoOp, omp::MapBoundsOp, omp::PrivateClauseOp,
                omp::AffinityEntryOp, omp::IteratorOp>([&](auto op) {
            // No-op, should be handled by relevant owning operations e.g.
            // TargetOp, TargetEnterDataOp, TargetExitDataOp, TargetDataOp
            // etc. and then discarded
            return success();
          })
          .Case([&](omp::NewCliOp op) {
            // Meta-operation: Doesn't do anything by itself, but used to
            // identify a loop.
            return success();
          })
          .Case([&](omp::CanonicalLoopOp op) {
            return convertOmpCanonicalLoopOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::UnrollHeuristicOp op) {
            // FIXME: Handling omp.unroll_heuristic as an executable requires
            // that the generator (e.g. omp.canonical_loop) has been seen first.
            // For construct that require all codegen to occur inside a callback
            // (e.g. OpenMPIRBilder::createParallel), all codegen of that
            // contained region including their transformations must occur at
            // the omp.canonical_loop.
            return applyUnrollHeuristic(op, builder, moduleTranslation);
          })
          .Case([&](omp::UnrollFullOp op) {
            return applyUnrollFull(op, builder, moduleTranslation);
          })
          .Case([&](omp::UnrollPartialOp op) {
            return applyUnrollPartial(op, builder, moduleTranslation);
          })
          .Case([&](omp::TileOp op) {
            return applyTile(op, builder, moduleTranslation);
          })
          .Case([&](omp::FuseOp op) {
            return applyFuse(op, builder, moduleTranslation);
          })
          .Case([&](omp::TargetAllocMemOp) {
            return convertTargetAllocMemOp(*op, builder, moduleTranslation);
          })
          .Case([&](omp::TargetFreeMemOp) {
            return convertTargetFreeMemOp(*op, builder, moduleTranslation);
          })
          .Case([&](omp::AllocateDirOp) {
            return convertAllocateDirOp(*op, builder, moduleTranslation, *this);
          })
          .Case([&](omp::AllocateFreeOp) {
            return convertAllocateFreeOp(*op, builder, moduleTranslation,
                                         *this);
          })
          .Case([&](omp::AllocSharedMemOp op) {
            return convertAllocSharedMemOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::FreeSharedMemOp op) {
            return convertFreeSharedMemOp(op, builder, moduleTranslation);
          })
          .Case([&](omp::GroupprivateOp) {
            return convertOmpGroupprivate(*op, builder, moduleTranslation);
          })
          .Case([&](omp::DeclareSimdOp) {
            // TODO: Implement.
            // DECLARE_SIMD can be ignored. There is warning emitted in
            // semantic checks about the current situation, but not having an
            // implementation should not prevent compilation.
            return success();
          })
          .Default([&](Operation *inst) {
            return inst->emitError()
                   << "not yet implemented: " << inst->getName();
          });
 
  if (isOutermostLoopWrapper)
    moduleTranslation.stackPop();
 
  return result;
}
 
void mlir::registerOpenMPTranslationCLOptions() {
  static llvm::cl::opt<bool, /*ExternalStorage=*/true> option(
      "openmp-disable-virtual-collapse", llvm::cl::Hidden,
      llvm::cl::desc("Disable virtual collapse of eligible host loops"),
      llvm::cl::location(disableVirtualCollapse));
}
 
void mlir::registerOpenMPDialectTranslation(DialectRegistry &registry) {
  registry.insert<omp::OpenMPDialect>();
  registry.addExtension(+[](MLIRContext *ctx, omp::OpenMPDialect *dialect) {
    dialect->addInterfaces<OpenMPDialectLLVMIRTranslationInterface>();
  });
}
 
void mlir::registerOpenMPDialectTranslation(MLIRContext &context) {
  DialectRegistry registry;
  registerOpenMPDialectTranslation(registry);
  context.appendDialectRegistry(registry);
}