// Copyright (c) 2019 Google LLC
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//     http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

#include "source/fuzz/fact_manager/irrelevant_value_facts.h"

#include "source/fuzz/data_descriptor.h"
#include "source/fuzz/fact_manager/data_synonym_and_id_equation_facts.h"
#include "source/fuzz/fact_manager/dead_block_facts.h"
#include "source/fuzz/fuzzer_util.h"
#include "source/opt/ir_context.h"

namespace spvtools {
namespace fuzz {
namespace fact_manager {

IrrelevantValueFacts::IrrelevantValueFacts(opt::IRContext* ir_context)
    : ir_context_(ir_context) {}

bool IrrelevantValueFacts::MaybeAddFact(
    const protobufs::FactPointeeValueIsIrrelevant& fact,
    const DataSynonymAndIdEquationFacts& data_synonym_and_id_equation_facts) {
  const auto* inst = ir_context_->get_def_use_mgr()->GetDef(fact.pointer_id());
  if (!inst || !inst->type_id()) {
    // The id must exist in the module and have type id.
    return false;
  }

  if (!ir_context_->get_type_mgr()->GetType(inst->type_id())->AsPointer()) {
    // The id must be a pointer.
    return false;
  }

  if (!data_synonym_and_id_equation_facts.GetSynonymsForId(fact.pointer_id())
           .empty()) {
    // Irrelevant id cannot participate in DataSynonym facts.
    return false;
  }

  pointers_to_irrelevant_pointees_ids_.insert(fact.pointer_id());
  return true;
}

bool IrrelevantValueFacts::MaybeAddFact(
    const protobufs::FactIdIsIrrelevant& fact,
    const DataSynonymAndIdEquationFacts& data_synonym_and_id_equation_facts) {
  const auto* inst = ir_context_->get_def_use_mgr()->GetDef(fact.result_id());
  if (!inst || !inst->type_id()) {
    // The id must exist in the module and have type id.
    return false;
  }

  if (ir_context_->get_type_mgr()->GetType(inst->type_id())->AsPointer()) {
    // The id may not be a pointer.
    return false;
  }

  if (!data_synonym_and_id_equation_facts.GetSynonymsForId(fact.result_id())
           .empty()) {
    // Irrelevant id cannot participate in DataSynonym facts.
    return false;
  }

  irrelevant_ids_.insert(fact.result_id());
  return true;
}

bool IrrelevantValueFacts::PointeeValueIsIrrelevant(uint32_t pointer_id) const {
  return pointers_to_irrelevant_pointees_ids_.count(pointer_id) != 0;
}

bool IrrelevantValueFacts::IdIsIrrelevant(
    uint32_t result_id, const DeadBlockFacts& dead_block_facts) const {
  // The id is irrelevant if it has been declared irrelevant.
  if (irrelevant_ids_.count(result_id)) {
    return true;
  }

  // The id must have a non-pointer type to be irrelevant.
  auto def = ir_context_->get_def_use_mgr()->GetDef(result_id);
  if (!def) {
    return false;
  }
  auto type = ir_context_->get_type_mgr()->GetType(def->type_id());
  if (!type || type->AsPointer()) {
    return false;
  }

  // The id is irrelevant if it is in a dead block.
  return ir_context_->get_instr_block(result_id) &&
         dead_block_facts.BlockIsDead(
             ir_context_->get_instr_block(result_id)->id());
}

std::unordered_set<uint32_t> IrrelevantValueFacts::GetIrrelevantIds(
    const DeadBlockFacts& dead_block_facts) const {
  // Get all the ids that have been declared irrelevant.
  auto irrelevant_ids = irrelevant_ids_;

  // Get all the non-pointer ids declared in dead blocks that have a type.
  for (uint32_t block_id : dead_block_facts.GetDeadBlocks()) {
    auto block = fuzzerutil::MaybeFindBlock(ir_context_, block_id);
    // It is possible and allowed for the block not to exist, e.g. it could have
    // been merged with another block.
    if (!block) {
      continue;
    }
    block->ForEachInst([this, &irrelevant_ids](opt::Instruction* inst) {
      // The instruction must have a result id and a type, and it must not be a
      // pointer.
      if (inst->HasResultId() && inst->type_id() &&
          !ir_context_->get_type_mgr()->GetType(inst->type_id())->AsPointer()) {
        irrelevant_ids.emplace(inst->result_id());
      }
    });
  }

  return irrelevant_ids;
}

}  // namespace fact_manager
}  // namespace fuzz
}  // namespace spvtools