//===--- TypeSubstCloner.h - Clones code and substitutes types --*- C++ -*-===//
//
// This source file is part of the Swift.org open source project
//
// Copyright (c) 2014 - 2017 Apple Inc. and the Swift project authors
// Licensed under Apache License v2.0 with Runtime Library Exception
//
// See https://swift.org/LICENSE.txt for license information
// See https://swift.org/CONTRIBUTORS.txt for the list of Swift project authors
//
//===----------------------------------------------------------------------===//
//
// This file defines TypeSubstCloner, which derives from SILCloner and
// has support for type substitution while cloning code that uses generics.
//
//===----------------------------------------------------------------------===//

#ifndef SWIFT_SIL_TYPESUBSTCLONER_H
#define SWIFT_SIL_TYPESUBSTCLONER_H

#include "swift/AST/GenericEnvironment.h"
#include "swift/AST/ProtocolConformance.h"
#include "swift/AST/Type.h"
#include "swift/SIL/DynamicCasts.h"
#include "swift/SIL/SILCloner.h"
#include "swift/SIL/SILFunctionBuilder.h"
#include "swift/SILOptimizer/Utils/InstOptUtils.h"
#include "swift/SILOptimizer/Utils/SpecializationMangler.h"
#include "llvm/Support/Debug.h"

namespace swift {

/// A utility class for cloning code while remapping types.
///
/// \tparam FunctionBuilderTy Function builder type injected by
/// subclasses. Used to break a circular dependency from SIL <=>
/// SILOptimizer that would be caused by us needing to use
/// SILOptFunctionBuilder here.
template<typename ImplClass>
class TypeSubstCloner : public SILClonerWithScopes<ImplClass> {
  friend class SILInstructionVisitor<ImplClass>;
  friend class SILCloner<ImplClass>;

  using super = SILClonerWithScopes<ImplClass>;

  void postProcess(SILInstruction *Orig, SILInstruction *Cloned) {
    llvm_unreachable("Clients need to explicitly call a base class impl!");
  }

  // A helper class for cloning different kinds of apply instructions.
  // Supports cloning of self-recursive functions.
  class ApplySiteCloningHelper {
    SILValue Callee;
    SubstitutionMap Subs;
    SmallVector<SILValue, 8> Args;
    SubstitutionMap RecursiveSubs;
    ApplyOptions ApplyOpts;

  public:
    ApplySiteCloningHelper(ApplySite AI, TypeSubstCloner &Cloner)
        : Callee(Cloner.getOpValue(AI.getCallee())) {
      SILType SubstCalleeSILType = Cloner.getOpType(AI.getSubstCalleeSILType());

      Args = Cloner.template getOpValueArray<8>(AI.getArguments());
      SILBuilder &Builder = Cloner.getBuilder();
      Builder.setCurrentDebugScope(Cloner.super::getOpScope(AI.getDebugScope()));

      // Remap substitutions.
      Subs = Cloner.getOpSubstitutionMap(AI.getSubstitutionMap());

      // If we're inlining a [noasync] function, make sure any calls inside it
      // are marked as [noasync] as appropriate.
      ApplyOpts = AI.getApplyOptions();
      if (!Builder.getFunction().isAsync() &&
          SubstCalleeSILType.castTo<SILFunctionType>()->isAsync()) {
        ApplyOpts |= ApplyFlags::DoesNotAwait;
      }

      if (!Cloner.Inlining) {
        FunctionRefInst *FRI = dyn_cast<FunctionRefInst>(AI.getCallee());
        if (FRI && FRI->getReferencedFunction() == AI.getFunction() &&
            Subs == Cloner.SubsMap) {
          // Handle recursions by replacing the apply to the callee with an
          // apply to the newly specialized function, but only if substitutions
          // are the same.
          auto LoweredFnTy = Builder.getFunction().getLoweredFunctionType();
          auto RecursiveSubstCalleeSILType = LoweredFnTy;
          auto GenSig = LoweredFnTy->getInvocationGenericSignature();
          if (GenSig) {
            // Compute substitutions for the specialized function. These
            // substitutions may be different from the original ones, e.g.
            // there can be less substitutions.
            RecursiveSubs = SubstitutionMap::get(
              LoweredFnTy->getSubstGenericSignature(),
              Subs);

            // Use the new set of substitutions to compute the new
            // substituted callee type.
            RecursiveSubstCalleeSILType = LoweredFnTy->substGenericArgs(
                AI.getModule(), RecursiveSubs,
                Builder.getTypeExpansionContext());
          }

          // The specialized recursive function may have different calling
          // convention for parameters. E.g. some of former indirect parameters
          // may become direct. Some of indirect return values may become
          // direct. Do not replace the callee in that case.
          if (SubstCalleeSILType.getASTType() == RecursiveSubstCalleeSILType) {
            Subs = RecursiveSubs;
            Callee = Builder.createFunctionRef(
                Cloner.getOpLocation(AI.getLoc()), &Builder.getFunction());
            SubstCalleeSILType =
                SILType::getPrimitiveObjectType(RecursiveSubstCalleeSILType);
          }
        }
      }

      assert(Subs.empty() ||
             SubstCalleeSILType ==
                 Callee->getType().substGenericArgs(
                     AI.getModule(), Subs, Builder.getTypeExpansionContext()));
    }

    ArrayRef<SILValue> getArguments() const {
      return Args;
    }

    SILValue getCallee() const {
      return Callee;
    }

    SubstitutionMap getSubstitutions() const {
      return Subs;
    }

    ApplyOptions getApplyOptions() const {
      return ApplyOpts;
    }
  };

public:
  using SILClonerWithScopes<ImplClass>::asImpl;
  using SILClonerWithScopes<ImplClass>::getBuilder;
  using SILClonerWithScopes<ImplClass>::getOpLocation;
  using SILClonerWithScopes<ImplClass>::getOpValue;
  using SILClonerWithScopes<ImplClass>::getOpASTType;
  using SILClonerWithScopes<ImplClass>::getOpType;
  using SILClonerWithScopes<ImplClass>::getOpBasicBlock;
  using SILClonerWithScopes<ImplClass>::recordClonedInstruction;
  using SILClonerWithScopes<ImplClass>::recordFoldedValue;
  using SILClonerWithScopes<ImplClass>::Functor;

  TypeSubstCloner(SILFunction &To,
                  SILFunction &From,
                  SubstitutionMap ApplySubs,
                  DominanceInfo *DT = nullptr,
                  bool Inlining = false)
    : SILClonerWithScopes<ImplClass>(To, DT, Inlining),
      SwiftMod(From.getModule().getSwiftModule()),
      SubsMap(ApplySubs),
      Original(From),
      Inlining(Inlining) {
    Functor.SubsMap = ApplySubs;

#ifndef NDEBUG
    for (auto substConf : ApplySubs.getConformances()) {
      if (substConf.isInvalid()) {
        llvm::errs() << "Invalid conformance in SIL cloner:\n";
        ApplySubs.dump(llvm::errs());
        abort();
      }
    }
#endif

  }

protected:
  bool shouldSubstOpaqueArchetypes() const { return true; }

  SILType remapType(SILType Ty) {
    SILType &Sty = TypeCache[Ty];
    if (!Sty)
      Sty = SILClonerWithScopes<ImplClass>::remapType(Ty);
    return Sty;
  }

  /// This cloner's visit methods are needed to clone debug reconstruction
  /// block content, for its folding of upcast.
  void cloneDebugReconstructionBlock(SILBasicBlock *SrcBB, SILBasicBlock *NewBB) {
    this->cloneDebugReconstructionBlockContent(SrcBB, NewBB);
  }

  void visitApplyInst(ApplyInst *Inst) {
    ApplySiteCloningHelper Helper(ApplySite(Inst), *this);
    ApplyInst *N =
        getBuilder().createApply(getOpLocation(Inst->getLoc()),
                                 Helper.getCallee(), Helper.getSubstitutions(),
                                 Helper.getArguments(),
                                 Helper.getApplyOptions(),
                                 GenericSpecializationInformation::create(
                                   Inst, getBuilder()));
    // Specialization can return noreturn applies that were not identified as
    // such before.
    if (N->isCalleeNoReturn() &&
        !isa<UnreachableInst>(*std::next(SILBasicBlock::iterator(Inst)))) {
      noReturnApplies.push_back(N);
    }

    recordClonedInstruction(Inst, N);
  }

  void visitTryApplyInst(TryApplyInst *Inst) {
    ApplySiteCloningHelper Helper(ApplySite(Inst), *this);
    TryApplyInst *N = getBuilder().createTryApply(
        getOpLocation(Inst->getLoc()), Helper.getCallee(),
        Helper.getSubstitutions(), Helper.getArguments(),
        getOpBasicBlock(Inst->getNormalBB()),
        getOpBasicBlock(Inst->getErrorBB()),
        Helper.getApplyOptions(),
        GenericSpecializationInformation::create(
          Inst, getBuilder()));
    recordClonedInstruction(Inst, N);
  }

  void visitPartialApplyInst(PartialApplyInst *Inst) {
    ApplySiteCloningHelper Helper(ApplySite(Inst), *this);
    PartialApplyInst *N = getBuilder().createPartialApply(
        getOpLocation(Inst->getLoc()), Helper.getCallee(),
        Helper.getSubstitutions(), Helper.getArguments(),
        Inst->getCalleeConvention(), Inst->getResultIsolation(),
        Inst->isOnStack(), Inst->isStackAllocationNested(),
        GenericSpecializationInformation::create(Inst, getBuilder()));
    recordClonedInstruction(Inst, N);
  }

  /// Attempt to simplify a conditional checked cast.
  void visitCheckedCastAddrBranchInst(CheckedCastAddrBranchInst *inst) {
    SILLocation loc = getOpLocation(inst->getLoc());
    SILValue src = getOpValue(inst->getSrc());
    SILValue dest = getOpValue(inst->getDest());
    CanType sourceType = getOpASTType(inst->getSourceFormalType());
    CanType targetType = getOpASTType(inst->getTargetFormalType());
    SILBasicBlock *succBB = getOpBasicBlock(inst->getSuccessBB());
    SILBasicBlock *failBB = getOpBasicBlock(inst->getFailureBB());

    SILBuilderWithPostProcess<TypeSubstCloner, 16> B(this, inst);
    B.setCurrentDebugScope(super::getOpScope(inst->getDebugScope()));

    auto TrueCount = inst->getTrueBBCount();
    auto FalseCount = inst->getFalseBBCount();

    // Try to use the scalar cast instruction.
    if (canOptimizeToScalarCheckedCastInstructions(
            &B.getFunction(), sourceType, targetType,
            inst->getConsumptionKind())) {
      emitIndirectConditionalCastWithScalar(
          B, SwiftMod, loc, inst->getCheckedCastOptions(),
          inst->getConsumptionKind(), src, sourceType, dest,
          targetType, succBB, failBB, TrueCount, FalseCount);
      return;
    }

    // Otherwise, use the indirect cast.
    B.createCheckedCastAddrBranch(loc,
                                  inst->getCheckedCastOptions(),
                                  inst->getConsumptionKind(),
                                  src, sourceType,
                                  dest, targetType,
                                  succBB, failBB);
    return;
  }

  void visitUpcastInst(UpcastInst *Upcast) {
    // If the type substituted type of the operand type and result types match
    // there is no need for an upcast and we can just use the operand.
    if (getOpType(Upcast->getType()) ==
        getOpValue(Upcast->getOperand())->getType()) {
      recordFoldedValue(SILValue(Upcast), getOpValue(Upcast->getOperand()));
      return;
    }
    super::visitUpcastInst(Upcast);
  }

  void visitCopyValueInst(CopyValueInst *Copy) {
    // If the substituted type is trivial, ignore the copy.
    SILType copyTy = getOpType(Copy->getType());
    if (copyTy.isTrivial(*Copy->getFunction())) {
      recordFoldedValue(SILValue(Copy), getOpValue(Copy->getOperand()));
      return;
    }
    super::visitCopyValueInst(Copy);
  }

  void visitExplicitCopyValueInst(ExplicitCopyValueInst *Copy) {
    // If the substituted type is trivial, ignore the copy.
    SILType copyTy = getOpType(Copy->getType());
    if (copyTy.isTrivial(*Copy->getFunction())) {
      recordFoldedValue(SILValue(Copy), getOpValue(Copy->getOperand()));
      return;
    }
    super::visitExplicitCopyValueInst(Copy);
  }

  void visitDestroyValueInst(DestroyValueInst *Destroy) {
    // If the substituted type is trivial, ignore the destroy.
    SILType destroyTy = getOpType(Destroy->getOperand()->getType());
    if (destroyTy.isTrivial(*Destroy->getFunction())) {
      return;
    }
    super::visitDestroyValueInst(Destroy);
  }

  void visitEndLifetimeInst(EndLifetimeInst *endLifetime) {
    // If the substituted type is trivial, ignore the end_lifetime.
    SILType ty = getOpType(endLifetime->getOperand()->getType());
    if (ty.isTrivial(*endLifetime->getFunction())) {
      return;
    }
    super::visitEndLifetimeInst(endLifetime);
  }

  void visitExtendLifetimeInst(ExtendLifetimeInst *extendLifetime) {
    // If the substituted type is trivial, ignore the extend_lifetime.
    SILType ty = getOpType(extendLifetime->getOperand()->getType());
    if (ty.isTrivial(*extendLifetime->getFunction())) {
      return;
    }
    super::visitExtendLifetimeInst(extendLifetime);
  }

  void visitDifferentiableFunctionExtractInst(
      DifferentiableFunctionExtractInst *dfei) {
    // If the extractee is the original function, do regular cloning.
    if (dfei->getExtractee() ==
        NormalDifferentiableFunctionTypeComponent::Original) {
      super::visitDifferentiableFunctionExtractInst(dfei);
      return;
    }
    // If the extractee is a derivative function, check whether the *remapped
    // derivative function type* (bc) is equal to the *derivative remapped
    // function type* (ad).
    //
    // ┌────────────────┐        remap       ┌─────────────────────────┐
    // │ orig.  fn type │  ───────(a)──────► │ remapped orig.  fn type │
    // └────────────────┘                    └─────────────────────────┘
    //         │                                                │
    //    (b, SILGen)   getAutoDiffDerivativeFunctionType   (d, here)
    //         │                                                │
    //         ▼                                                ▼
    // ┌────────────────┐        remap       ┌─────────────────────────┐
    // │ deriv. fn type │  ───────(c)──────► │ remapped deriv. fn type │
    // └────────────────┘                    └─────────────────────────┘
    //
    // (ad) does not always commute with (bc):
    // - (ad) is the result of remapping, then computing the derivative type.
    //   This is the default cloning behavior, but may break invariants in the
    //   initial SIL generated by SILGen.
    // - (bc) is the result of computing the derivative type (SILGen), then
    //   remapping. This is the expected type, preserving invariants from
    //   earlier transforms.
    //
    // If (ad) is not equal to (bc), use (bc) as the explicit type.
    SILType remappedOrigType = getOpType(dfei->getOperand()->getType());
    auto remappedOrigFnType = remappedOrigType.castTo<SILFunctionType>();
    auto derivativeRemappedFnType =
        remappedOrigFnType
            ->getAutoDiffDerivativeFunctionType(
                remappedOrigFnType->getDifferentiabilityParameterIndices(),
                remappedOrigFnType->getDifferentiabilityResultIndices(),
                dfei->getDerivativeFunctionKind(),
                getBuilder().getModule().Types,
                LookUpConformanceInModule())
            ->getWithoutDifferentiability();
    SILType remappedDerivativeFnType = getOpType(dfei->getType());
    // If remapped derivative type and derivative remapped type are equal, do
    // regular cloning.
    if (SILType::getPrimitiveObjectType(derivativeRemappedFnType) ==
        remappedDerivativeFnType) {
      super::visitDifferentiableFunctionExtractInst(dfei);
      return;
    }
    // Otherwise, explicitly use the remapped derivative type.
    recordClonedInstruction(
        dfei,
        getBuilder().createDifferentiableFunctionExtract(
            getOpLocation(dfei->getLoc()), dfei->getExtractee(),
            getOpValue(dfei->getOperand()), remappedDerivativeFnType));
  }

  enum { ForInlining = true };
  /// Helper function to clone the parent function of a SILDebugScope if
  /// necessary when inlining said function into a new generic context.
  /// \param SubsMap - the substitutions for the call to the callee.
  /// \param CalleeSig - the callee generic signature.
  template<typename FunctionBuilderTy>
  static SILFunction *remapParentFunction(FunctionBuilderTy &FuncBuilder,
                                          SILModule &M,
                                          SILFunction *ParentFunction,
                                          SubstitutionMap SubsMap,
                                          GenericSignature CalleeSig,
                                          bool ForInlining = false) {
    // If the original, non-inlined version of the function had no generic
    // environment, there is no need to remap it.
    auto *CalleeEnv = ParentFunction->getGenericEnvironment();
    if (!CalleeSig || !CalleeEnv)
      return ParentFunction;

    // FIXME: Pass the CallerSig down directly instead of doing this.
    GenericSignature CallerSig;
    if (SubsMap.getRecursiveProperties().hasPrimaryArchetype()) {
      for (auto ReplacementType : SubsMap.getReplacementTypes()) {
        ReplacementType.visit([&](Type t) {
          if (t->is<PrimaryArchetypeType>() || t->is<PackArchetypeType>()) {
            auto sig =
              t->castTo<ArchetypeType>()->getGenericEnvironment()
                ->getGenericSignature();
            if (!CallerSig)
              CallerSig = sig;
            else
              ASSERT(CallerSig.getPointer() == sig.getPointer());
          }
        });
      }

      SubsMap = SubsMap.mapReplacementTypesOutOfEnvironment();
    }

    // One abstract function in the debug info can only have one set of variables
    // and types. We check if the function is called with non-identity substitutions
    // to decide whether it's necessary to clone a unique copy of the function
    // declaration with the substitutions applied for the debug info.
    if (SubsMap.isIdentity() &&
        !SubsMap.getRecursiveProperties().hasTypeParameter())
      return ParentFunction;

    // Note that mapReplacementTypesOutOfEnvironment() can't do anything for
    // opened existentials, and since archetypes can't be mangled, ignore
    // this case for now.
    if (SubsMap.getRecursiveProperties().hasLocalArchetype())
      SubsMap = {};

    // Clone the function with the substituted type for the debug info.
    Mangle::GenericSpecializationMangler Mangler(M.getASTContext(), ParentFunction,
                                                 IsNotSerialized);
    std::string MangledName =
      Mangler.mangleForDebugInfo(CalleeSig, SubsMap, CallerSig, ForInlining);

    if (ParentFunction->getName() == MangledName)
      return ParentFunction;
    if (auto *CachedFn = M.lookUpFunction(MangledName))
      ParentFunction = CachedFn;
    else {
      // Create a new function with this mangled name with an empty
      // body. There won't be any IR generated for it (hence the linkage),
      // but the symbol will be referred to by the debug info metadata.
      ParentFunction = FuncBuilder.getOrCreateFunction(
          ParentFunction->getLocation(), MangledName, SILLinkage::Shared,
          ParentFunction->getLoweredFunctionType(),
          ParentFunction->getActorIsolation(), ParentFunction->isBare(),
          ParentFunction->isTransparent(), ParentFunction->getSerializedKind(),
          IsNotDynamic, IsNotDistributed, IsNotRuntimeAccessible, 0,
          ParentFunction->isThunk(), ParentFunction->getClassSubclassScope());
      // Increment the ref count for the inlined function, so it doesn't
      // get deleted before we can emit abstract debug info for it.
      if (!ParentFunction->isZombie()) {
        ParentFunction->setInlined();
        // If the function was newly created with an empty body mark it as
        // undead.
        if (ParentFunction->empty()) {
          FuncBuilder.eraseFunction(ParentFunction);
          ParentFunction->setGenericEnvironment(CalleeEnv);
        }
      }
    }
    return ParentFunction;
  }

  /// The Swift module that the cloned function belongs to.
  ModuleDecl *SwiftMod;
  /// The substitutions list for the specialization.
  SubstitutionMap SubsMap;
  /// Cache for substituted types.
  llvm::DenseMap<SILType, SILType> TypeCache;
  /// The original function to specialize.
  SILFunction &Original;
  /// True, if used for inlining.
  bool Inlining;
  // Generic specialization can create noreturn applications that where
  // previously not identifiable as such.
  SmallVector<ApplyInst *, 16> noReturnApplies;
};

} // end namespace swift

#endif
