mirror of
https://github.com/revng/revng
synced 2026-06-21 14:07:57 +00:00
703 lines
22 KiB
C++
703 lines
22 KiB
C++
//
|
|
// Copyright (c) rev.ng Srls. See LICENSE.md for details.
|
|
//
|
|
|
|
#include <algorithm>
|
|
#include <string>
|
|
|
|
#include "llvm/ADT/SCCIterator.h"
|
|
#include "llvm/ADT/SmallString.h"
|
|
#include "llvm/Analysis/ScalarEvolutionExpressions.h"
|
|
#include "llvm/IR/Argument.h"
|
|
#include "llvm/IR/Instruction.h"
|
|
#include "llvm/Support/FormattedStream.h"
|
|
#include "llvm/Support/raw_ostream.h"
|
|
|
|
#include "revng/ADT/FilteredGraphTraits.h"
|
|
#include "revng/Support/Debug.h"
|
|
#include "revng/Support/DebugHelper.h"
|
|
#include "revng/Support/IRHelpers.h"
|
|
|
|
#include "DLATypeSystem.h"
|
|
|
|
#include "DLAHelpers.h"
|
|
|
|
using namespace llvm;
|
|
|
|
std::string dumpToString(const dla::LayoutTypeSystemNode *N) {
|
|
std::string Result = "LTSN ID: " + std::to_string(N->ID);
|
|
return Result;
|
|
}
|
|
|
|
std::string dumpToString(const dla::OffsetExpression &OE) {
|
|
std::string Result;
|
|
Result += "Off: " + std::to_string(OE.Offset);
|
|
auto NStrides = OE.Strides.size();
|
|
revng_assert(NStrides == OE.TripCounts.size());
|
|
if (not OE.Strides.empty()) {
|
|
for (decltype(NStrides) N = 0; N < NStrides; ++N) {
|
|
Result += ", {" + std::to_string(OE.Strides[N]) + ',';
|
|
if (OE.TripCounts[N].has_value())
|
|
Result += std::to_string(OE.TripCounts[N].value());
|
|
else
|
|
Result += "none";
|
|
Result += '}';
|
|
}
|
|
}
|
|
return Result;
|
|
}
|
|
|
|
namespace dla {
|
|
|
|
void LayoutTypePtr::print(raw_ostream &Out) const {
|
|
Out << '{';
|
|
Out << "0x";
|
|
Out.write_hex(reinterpret_cast<const unsigned long long>(V));
|
|
Out << " [";
|
|
if (isa<Function>(V)) {
|
|
Out << "fname: " << V->getName();
|
|
} else {
|
|
if (auto *I = dyn_cast<Instruction>(V))
|
|
Out << "In Func: " << I->getFunction()->getName() << " Instr: ";
|
|
else if (auto *A = dyn_cast<Argument>(V))
|
|
Out << "In Func: " << A->getParent()->getName() << " Arg: ";
|
|
|
|
Out.write_escaped(getName(V));
|
|
}
|
|
Out << "], 0x";
|
|
Out.write_hex(FieldIdx);
|
|
Out << '}';
|
|
}
|
|
|
|
void LayoutTypeSystemNode::printAsOperand(llvm::raw_ostream &OS,
|
|
bool /* unused */) {
|
|
OS << ID;
|
|
}
|
|
|
|
namespace {
|
|
|
|
static constexpr size_t str_len(const char *S) {
|
|
return S ? (*S ? (1 + str_len(S + 1)) : 0UL) : 0UL;
|
|
}
|
|
|
|
// We use \l here instead of \n, because graphviz has this sick way of saying
|
|
// that the text in the node labels should be left-justified
|
|
static constexpr const char DoRet[] = "\\l";
|
|
static constexpr const char NoRet[] = "";
|
|
static_assert(sizeof(DoRet) == (str_len(DoRet) + 1));
|
|
static_assert(sizeof(NoRet) == (str_len(NoRet) + 1));
|
|
|
|
static constexpr const char Equal[] = "Equal";
|
|
static constexpr const char Inherits[] = "Inherits from";
|
|
static constexpr const char Instance[] = "Has Instance of: ";
|
|
static constexpr const char Unexpected[] = "Unexpected!";
|
|
static_assert(sizeof(Equal) == (str_len(Equal) + 1));
|
|
static_assert(sizeof(Inherits) == (str_len(Inherits) + 1));
|
|
static_assert(sizeof(Instance) == (str_len(Instance) + 1));
|
|
static_assert(sizeof(Unexpected) == (str_len(Unexpected) + 1));
|
|
} // end unnamed namespace
|
|
|
|
void LayoutTypeSystem::dumpDotOnFile(const char *FName) const {
|
|
std::error_code EC;
|
|
raw_fd_ostream DotFile(FName, EC);
|
|
revng_check(not EC, "Could not open file for printing LayoutTypeSystem dot");
|
|
|
|
DotFile << "digraph LayoutTypeSystem {\n";
|
|
DotFile << " // List of nodes\n";
|
|
|
|
unsigned AccessID = 0;
|
|
for (const LayoutTypeSystemNode *L : getLayoutsRange()) {
|
|
|
|
DotFile << " node_" << L->ID << " [shape=rect,label=\"NODE ID: " << L->ID
|
|
<< " Size: " << L->L.Size << ' ';
|
|
|
|
const auto LayoutToTypePtrsIt = LayoutToTypePtrsMap.find(L);
|
|
if (LayoutToTypePtrsIt != LayoutToTypePtrsMap.end()) {
|
|
DotFile << DoRet;
|
|
const auto &TypePtrSet = LayoutToTypePtrsIt->second;
|
|
revng_assert(not TypePtrSet.empty());
|
|
StringRef Ret = (TypePtrSet.size() > 1) ?
|
|
StringRef(DoRet, sizeof(DoRet) - 1) :
|
|
StringRef(NoRet, sizeof(NoRet) - 1);
|
|
|
|
for (const dla::LayoutTypePtr &P : TypePtrSet) {
|
|
P.print(DotFile);
|
|
DotFile << Ret;
|
|
}
|
|
}
|
|
|
|
DotFile << "\"];\n";
|
|
|
|
for (const llvm::Use *U : L->L.Accesses) {
|
|
const auto *I = cast<llvm::Instruction>(U->getUser());
|
|
const llvm::Function *F = I->getFunction();
|
|
DotFile << " access_" << AccessID << " [label=\"In: " << F->getName()
|
|
<< " : ";
|
|
DotFile.write_escaped(dumpToString(U->getUser()));
|
|
DotFile << "\"];\n"
|
|
<< " node_" << L->ID << " -> access_" << AccessID << ";\n";
|
|
++AccessID;
|
|
}
|
|
}
|
|
|
|
DotFile << " // List of edges\n";
|
|
|
|
for (LayoutTypeSystemNode *L : getLayoutsRange()) {
|
|
|
|
uint64_t SrcNodeId = L->ID;
|
|
|
|
for (const auto &PredP : L->Predecessors) {
|
|
const TypeLinkTag *PredTag = PredP.second;
|
|
const auto SameLink = [&](auto &OtherPair) {
|
|
return SrcNodeId == OtherPair.first->ID and PredTag == OtherPair.second;
|
|
};
|
|
revng_assert(std::any_of(PredP.first->Successors.begin(),
|
|
PredP.first->Successors.end(),
|
|
SameLink));
|
|
}
|
|
|
|
std::string Extra;
|
|
for (const auto &SuccP : L->Successors) {
|
|
const TypeLinkTag *EdgeTag = SuccP.second;
|
|
const auto SameLink = [&](auto &OtherPair) {
|
|
return SrcNodeId == OtherPair.first->ID and EdgeTag == OtherPair.second;
|
|
};
|
|
revng_assert(std::any_of(SuccP.first->Predecessors.begin(),
|
|
SuccP.first->Predecessors.end(),
|
|
SameLink));
|
|
const auto *TgtNode = SuccP.first;
|
|
const char *EdgeLabel = nullptr;
|
|
size_t LabelSize = 0;
|
|
Extra.clear();
|
|
switch (EdgeTag->getKind()) {
|
|
case TypeLinkTag::LK_Equality: {
|
|
EdgeLabel = Equal;
|
|
LabelSize = sizeof(Equal) - 1;
|
|
} break;
|
|
case TypeLinkTag::LK_Instance: {
|
|
EdgeLabel = Instance;
|
|
LabelSize = sizeof(Instance) - 1;
|
|
Extra = dumpToString(EdgeTag->getOffsetExpr());
|
|
} break;
|
|
case TypeLinkTag::LK_Inheritance: {
|
|
EdgeLabel = Inherits;
|
|
LabelSize = sizeof(Inherits) - 1;
|
|
} break;
|
|
default: {
|
|
EdgeLabel = Unexpected;
|
|
LabelSize = sizeof(Unexpected) - 1;
|
|
} break;
|
|
}
|
|
DotFile << " node_" << SrcNodeId << " -> node_" << TgtNode->ID
|
|
<< " [label=\"" << StringRef(EdgeLabel, LabelSize) << Extra
|
|
<< "\"];\n";
|
|
}
|
|
}
|
|
|
|
DotFile << "}\n";
|
|
}
|
|
|
|
static void assertGetLayoutTypePreConditions(const Value *V, unsigned Id) {
|
|
// We accept only integers, pointer, and function types (which are actually
|
|
// used for representing return types of functions)
|
|
const Type *VT = V->getType();
|
|
revng_assert(isa<FunctionType>(VT) or isa<IntegerType>(VT)
|
|
or isa<PointerType>(VT));
|
|
// The only case where we accept Id != max are Functions that return structs
|
|
revng_assert(Id == std::numeric_limits<unsigned>::max()
|
|
or cast<Function>(V)->getReturnType()->isStructTy());
|
|
}
|
|
|
|
LayoutTypeSystemNode *LayoutTypeSystem::getLayoutType(const llvm::SCEV *S) {
|
|
if (S == nullptr)
|
|
return nullptr;
|
|
if (auto *U = dyn_cast<llvm::SCEVUnknown>(S)) {
|
|
llvm::Value *V = U->getValue();
|
|
return getLayoutType(V);
|
|
}
|
|
|
|
// LayoutTypePtr Key(S, Id);
|
|
return nullptr; // TypePtrToLayoutMap.at(Key);
|
|
}
|
|
|
|
LayoutTypeSystemNode *
|
|
LayoutTypeSystem::getLayoutType(const Value *V, unsigned Id) {
|
|
|
|
if (V == nullptr)
|
|
return nullptr;
|
|
|
|
// Check pre-conditions
|
|
assertGetLayoutTypePreConditions(V, Id);
|
|
|
|
LayoutTypePtr Key(V, Id);
|
|
return TypePtrToLayoutMap.at(Key);
|
|
}
|
|
|
|
std::pair<LayoutTypeSystemNode *, bool>
|
|
LayoutTypeSystem::getOrCreateLayoutType(const Value *V, unsigned Id) {
|
|
using LTSN = LayoutTypeSystemNode;
|
|
|
|
if (V == nullptr)
|
|
return std::make_pair(nullptr, false);
|
|
|
|
// Check pre-conditions
|
|
assertGetLayoutTypePreConditions(V, Id);
|
|
|
|
LayoutTypePtr Key(V, Id);
|
|
auto HintIt = TypePtrToLayoutMap.lower_bound(Key);
|
|
if (HintIt != TypePtrToLayoutMap.end()
|
|
and not TypePtrToLayoutMap.key_comp()(Key, HintIt->first)) {
|
|
return std::make_pair(HintIt->second, false);
|
|
}
|
|
|
|
// Create a new layout
|
|
const auto &[LayoutIt, Success] = Layouts.insert(std::make_unique<LTSN>(NID));
|
|
revng_assert(Success);
|
|
if (Success)
|
|
++NID;
|
|
LayoutTypeSystemNode *Res = LayoutIt->get();
|
|
// Add the mapping between the new LayoutTypeSystemNode and the LayoutTypePtr
|
|
// that is associated to V.
|
|
const auto &[_, Ok] = LayoutToTypePtrsMap[Res].insert(Key);
|
|
TypePtrToLayoutMap.emplace_hint(HintIt, Key, Res);
|
|
revng_assert(Ok);
|
|
return std::make_pair(Res, true);
|
|
}
|
|
|
|
static void assertGetLayoutTypePreConditions(const Value &V) {
|
|
const Type *VTy = V.getType();
|
|
// We accept only integers, pointer, structs and and function types (which
|
|
// are actually used for representing return types of functions)
|
|
revng_assert(isa<IntegerType>(VTy) or isa<PointerType>(VTy)
|
|
or isa<StructType>(VTy) or isa<FunctionType>(VTy));
|
|
}
|
|
|
|
SmallVector<LayoutTypeSystemNode *, 2>
|
|
LayoutTypeSystem::getLayoutTypes(const Value &V) {
|
|
assertGetLayoutTypePreConditions(V);
|
|
SmallVector<LayoutTypeSystemNode *, 2> Results;
|
|
const Type *VTy = V.getType();
|
|
if (const auto *F = dyn_cast<Function>(&V)) {
|
|
auto *RetTy = F->getReturnType();
|
|
if (auto *StructTy = dyn_cast<StructType>(RetTy)) {
|
|
unsigned FieldId = 0;
|
|
unsigned FieldNum = StructTy->getNumElements();
|
|
for (; FieldId < FieldNum; ++FieldId) {
|
|
auto FieldTy = StructTy->getElementType(FieldId);
|
|
revng_assert(isa<IntegerType>(FieldTy) or isa<PointerType>(FieldTy));
|
|
Results.push_back(getLayoutType(&V, FieldId));
|
|
}
|
|
} else {
|
|
revng_assert(isa<IntegerType>(VTy) or isa<PointerType>(VTy));
|
|
Results.push_back(getLayoutType(&V));
|
|
}
|
|
} else if (auto *StructTy = dyn_cast<StructType>(VTy)) {
|
|
revng_assert(not isa<LoadInst>(V));
|
|
SmallVector<const Value *, 2> LeafVals;
|
|
|
|
if (auto *Ins = dyn_cast<InsertValueInst>(&V))
|
|
LeafVals = getInsertValueLeafOperands(Ins);
|
|
else if (auto *Call = dyn_cast<CallInst>(&V))
|
|
LeafVals = getExtractedValuesFromCall(Call);
|
|
else
|
|
LeafVals.resize(StructTy->getNumElements(), nullptr);
|
|
|
|
for (const Value *LeafVal : LeafVals)
|
|
Results.push_back(getLayoutType(LeafVal));
|
|
} else {
|
|
// For non-struct and non-function types we only add a LayoutTypeSystemNode
|
|
Results.push_back(getLayoutType(&V));
|
|
}
|
|
return Results;
|
|
}
|
|
|
|
SmallVector<std::pair<LayoutTypeSystemNode *, bool>, 2>
|
|
LayoutTypeSystem::getOrCreateLayoutTypes(const Value &V) {
|
|
assertGetLayoutTypePreConditions(V);
|
|
SmallVector<std::pair<LayoutTypeSystemNode *, bool>, 2> Results;
|
|
const Type *VTy = V.getType();
|
|
if (const auto *F = dyn_cast<Function>(&V)) {
|
|
auto *RetTy = F->getReturnType();
|
|
if (auto *StructTy = dyn_cast<StructType>(RetTy)) {
|
|
unsigned FieldId = 0;
|
|
unsigned FieldNum = StructTy->getNumElements();
|
|
for (; FieldId < FieldNum; ++FieldId) {
|
|
auto FieldTy = StructTy->getElementType(FieldId);
|
|
revng_assert(isa<IntegerType>(FieldTy) or isa<PointerType>(FieldTy));
|
|
Results.push_back(getOrCreateLayoutType(&V, FieldId));
|
|
}
|
|
} else {
|
|
revng_assert(isa<IntegerType>(VTy) or isa<PointerType>(VTy));
|
|
Results.push_back(getOrCreateLayoutType(&V));
|
|
}
|
|
} else if (auto *StructTy = dyn_cast<StructType>(VTy)) {
|
|
revng_assert(not isa<LoadInst>(V));
|
|
SmallVector<const Value *, 2> LeafVals;
|
|
|
|
if (auto *Ins = dyn_cast<InsertValueInst>(&V))
|
|
LeafVals = getInsertValueLeafOperands(Ins);
|
|
else if (auto *Call = dyn_cast<CallInst>(&V))
|
|
LeafVals = getExtractedValuesFromCall(Call);
|
|
else
|
|
LeafVals.resize(StructTy->getNumElements(), nullptr);
|
|
|
|
for (const Value *LeafVal : LeafVals)
|
|
Results.push_back(getOrCreateLayoutType(LeafVal));
|
|
} else {
|
|
// For non-struct and non-function types we only add a LayoutTypeSystemNode
|
|
Results.push_back(getOrCreateLayoutType(&V));
|
|
}
|
|
return Results;
|
|
}
|
|
|
|
static void
|
|
fixPredSucc(LayoutTypeSystemNode *From, LayoutTypeSystemNode *Into) {
|
|
|
|
// Helper lambdas
|
|
const auto IsFrom = [From](const LayoutTypeSystemNode::Link &L) {
|
|
return L.first == From;
|
|
};
|
|
const auto IsInto = [Into](const LayoutTypeSystemNode::Link &L) {
|
|
return L.first == Into;
|
|
};
|
|
|
|
// All the predecessors of all the successors of From are updated so that they
|
|
// point to Into
|
|
for (auto &[Neighbor, Tag] : From->Successors) {
|
|
auto PredBegin = Neighbor->Predecessors.begin();
|
|
auto PredEnd = Neighbor->Predecessors.end();
|
|
auto It = std::find_if(PredBegin, PredEnd, IsFrom);
|
|
auto End = std::find_if_not(It, PredEnd, IsFrom);
|
|
while (It != End) {
|
|
auto Next = std::next(It);
|
|
auto Extracted = Neighbor->Predecessors.extract(It);
|
|
revng_assert(Extracted);
|
|
Neighbor->Predecessors.insert({ Into, Extracted.value().second });
|
|
It = Next;
|
|
}
|
|
}
|
|
|
|
// All the successors of all the predecessors of From are updated so that they
|
|
// point to Into
|
|
for (auto &[Neighbor, Tag] : From->Predecessors) {
|
|
auto SuccBegin = Neighbor->Successors.begin();
|
|
auto SuccEnd = Neighbor->Successors.end();
|
|
auto It = std::find_if(SuccBegin, SuccEnd, IsFrom);
|
|
auto End = std::find_if_not(It, SuccEnd, IsFrom);
|
|
while (It != End) {
|
|
auto Next = std::next(It);
|
|
auto Extracted = Neighbor->Successors.extract(It);
|
|
revng_assert(Extracted);
|
|
Neighbor->Successors.insert({ Into, Extracted.value().second });
|
|
It = Next;
|
|
}
|
|
}
|
|
|
|
// Merge all the predecessors and successors.
|
|
{
|
|
Into->Predecessors.insert(From->Predecessors.begin(),
|
|
From->Predecessors.end());
|
|
Into->Successors.insert(From->Successors.begin(), From->Successors.end());
|
|
}
|
|
|
|
// Remove self-references from predecessors and successors.
|
|
{
|
|
const auto RemoveSelfEdges = [IsFrom, IsInto](auto &NeighborsSet) {
|
|
auto It = NeighborsSet.begin();
|
|
while (It != NeighborsSet.end()) {
|
|
auto Next = std::next(It);
|
|
if (IsInto(*It) or IsFrom(*It))
|
|
NeighborsSet.erase(It);
|
|
It = Next;
|
|
}
|
|
};
|
|
RemoveSelfEdges(Into->Predecessors);
|
|
RemoveSelfEdges(Into->Successors);
|
|
}
|
|
}
|
|
|
|
static Logger<> MergeLog("dla-merge-nodes");
|
|
|
|
inline void
|
|
LayoutTypeSystem::mergeNodes(LayoutTypeSystemNode *From,
|
|
LayoutTypeSystemNode *Into,
|
|
llvm::SmallSet<LayoutTypePtr, 2> *IntoTypePtrs) {
|
|
revng_log(MergeLog, "Merging: " << From << " Into: " << Into);
|
|
auto LayoutIt = Layouts.find(From);
|
|
revng_assert(LayoutIt != Layouts.end());
|
|
|
|
auto ToMergeLayoutToTypePtrsIt = LayoutToTypePtrsMap.find(From);
|
|
revng_assert(ToMergeLayoutToTypePtrsIt != LayoutToTypePtrsMap.end());
|
|
|
|
if (IntoTypePtrs == nullptr)
|
|
IntoTypePtrs = &LayoutToTypePtrsMap.at(Into);
|
|
else
|
|
revng_assert(IntoTypePtrs == &LayoutToTypePtrsMap.at(Into));
|
|
|
|
Into->L.Accesses.insert(From->L.Accesses.begin(), From->L.Accesses.end());
|
|
|
|
// Update LayoutToTypePtrsMap, the map that maps each LayoutTypeSystemNode *
|
|
// to the set of LayoutTypePtrs that are associated to it.
|
|
auto &MergedTypePtrs = ToMergeLayoutToTypePtrsIt->second;
|
|
IntoTypePtrs->insert(MergedTypePtrs.begin(), MergedTypePtrs.end());
|
|
|
|
// Update TypePtrToLayoutMap, the inverse map of LayoutToTypePtrsMap
|
|
for (auto P : MergedTypePtrs) {
|
|
revng_assert(TypePtrToLayoutMap.at(P) == From);
|
|
TypePtrToLayoutMap.at(P) = Into;
|
|
}
|
|
|
|
fixPredSucc(From, Into);
|
|
|
|
// Clear stuff in LayoutTypeToPtrsMap, because now From must be removed.
|
|
LayoutToTypePtrsMap.erase(ToMergeLayoutToTypePtrsIt);
|
|
|
|
// Remove From from Layouts
|
|
Layouts.erase(LayoutIt);
|
|
}
|
|
|
|
using LayoutTypeSystemNodePtrVec = std::vector<LayoutTypeSystemNode *>;
|
|
|
|
void LayoutTypeSystem::mergeNodes(const LayoutTypeSystemNodePtrVec &ToMerge) {
|
|
revng_assert(ToMerge.size() > 1ULL);
|
|
LayoutTypeSystemNode *Candidate = ToMerge[0];
|
|
auto &IntoTypePtrs = LayoutToTypePtrsMap.at(Candidate);
|
|
for (size_t I = 1ULL; I < ToMerge.size(); ++I)
|
|
mergeNodes(ToMerge[I], Candidate, &IntoTypePtrs);
|
|
}
|
|
|
|
void LayoutTypeSystem::removeNode(LayoutTypeSystemNode *N) {
|
|
auto It = LayoutToTypePtrsMap.find(N);
|
|
revng_assert(It != LayoutToTypePtrsMap.end());
|
|
for (auto P : It->second)
|
|
TypePtrToLayoutMap.erase(P);
|
|
LayoutToTypePtrsMap.erase(It);
|
|
auto LayoutIt = Layouts.find(N);
|
|
revng_assert(LayoutIt != Layouts.end());
|
|
|
|
const auto IsN = [N](const LayoutTypeSystemNode::Link &L) {
|
|
return L.first == N;
|
|
};
|
|
|
|
for (auto &[Neighbor, Tag] : LayoutIt->get()->Successors) {
|
|
auto PredBegin = Neighbor->Predecessors.begin();
|
|
auto PredEnd = Neighbor->Predecessors.end();
|
|
auto It = std::find_if(PredBegin, PredEnd, IsN);
|
|
auto End = std::find_if_not(It, PredEnd, IsN);
|
|
Neighbor->Predecessors.erase(It, End);
|
|
}
|
|
|
|
for (auto &[Neighbor, Tag] : LayoutIt->get()->Predecessors) {
|
|
auto SuccBegin = Neighbor->Successors.begin();
|
|
auto SuccEnd = Neighbor->Successors.end();
|
|
auto It = std::find_if(SuccBegin, SuccEnd, IsN);
|
|
auto End = std::find_if_not(It, SuccEnd, IsN);
|
|
Neighbor->Successors.erase(It, End);
|
|
}
|
|
|
|
Layouts.erase(LayoutIt);
|
|
}
|
|
|
|
static Logger<> VerifyDLALog("dla-verify");
|
|
|
|
bool LayoutTypeSystem::verifyConsistency() const {
|
|
for (auto &NodeUPtr : Layouts) {
|
|
if (NodeUPtr.get() == nullptr) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
// Check that predecessors and successors are consistent
|
|
for (auto &P : NodeUPtr->Predecessors) {
|
|
if (P.first == nullptr) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
|
|
// same edge with same tag
|
|
auto It = P.first->Successors.find({ NodeUPtr.get(), P.second });
|
|
if (It == P.first->Successors.end()) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
for (auto &P : NodeUPtr->Successors) {
|
|
if (P.first == nullptr) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
|
|
// same edge with same tag
|
|
auto It = P.first->Predecessors.find({ NodeUPtr.get(), P.second });
|
|
if (It == P.first->Predecessors.end()) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
|
|
// Check that there are no self-edges
|
|
for (auto &P : NodeUPtr->Predecessors) {
|
|
LayoutTypeSystemNode *Pred = P.first;
|
|
if (Pred == NodeUPtr.get()) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
|
|
for (auto &P : NodeUPtr->Successors) {
|
|
LayoutTypeSystemNode *Succ = P.first;
|
|
if (Succ == NodeUPtr.get()) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
bool LayoutTypeSystem::verifyDAG() const {
|
|
if (not verifyConsistency())
|
|
return false;
|
|
|
|
if (not verifyInheritanceDAG())
|
|
return false;
|
|
|
|
if (not verifyInstanceDAG())
|
|
return false;
|
|
|
|
std::set<const LayoutTypeSystemNode *> SCCHeads;
|
|
|
|
// A graph is a DAG if and only if all its strongly connected components have
|
|
// size 1
|
|
std::set<const LayoutTypeSystemNode *> Visited;
|
|
for (const auto &Node : llvm::nodes(this)) {
|
|
revng_assert(Node != nullptr);
|
|
if (Visited.count(Node))
|
|
continue;
|
|
|
|
auto I = scc_begin(Node);
|
|
auto E = scc_end(Node);
|
|
for (; I != E; ++I) {
|
|
Visited.insert(I->begin(), I->end());
|
|
if (I.hasLoop()) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
bool LayoutTypeSystem::verifyInheritanceDAG() const {
|
|
if (not verifyConsistency())
|
|
return false;
|
|
|
|
// A graph is a DAG if and only if all its strongly connected components have
|
|
// size 1
|
|
std::set<const LayoutTypeSystemNode *> Visited;
|
|
for (const auto &Node : llvm::nodes(this)) {
|
|
revng_assert(Node != nullptr);
|
|
if (Visited.count(Node))
|
|
continue;
|
|
|
|
using GraphNodeT = const LayoutTypeSystemNode *;
|
|
using InheritanceNodeT = EdgeFilteredGraph<GraphNodeT, isInheritanceEdge>;
|
|
auto I = scc_begin(InheritanceNodeT(Node));
|
|
auto E = scc_end(InheritanceNodeT(Node));
|
|
for (; I != E; ++I) {
|
|
Visited.insert(I->begin(), I->end());
|
|
if (I.hasLoop()) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
bool LayoutTypeSystem::verifyInstanceDAG() const {
|
|
if (not verifyConsistency())
|
|
return false;
|
|
|
|
// A graph is a DAG if and only if all its strongly connected components have
|
|
// size 1
|
|
std::set<const LayoutTypeSystemNode *> Visited;
|
|
for (const auto &Node : llvm::nodes(this)) {
|
|
revng_assert(Node != nullptr);
|
|
if (Visited.count(Node))
|
|
continue;
|
|
|
|
using GraphNodeT = const LayoutTypeSystemNode *;
|
|
using InstanceNodeT = EdgeFilteredGraph<GraphNodeT, isInstanceEdge>;
|
|
auto I = scc_begin(InstanceNodeT(Node));
|
|
auto E = scc_end(InstanceNodeT(Node));
|
|
for (; I != E; ++I) {
|
|
Visited.insert(I->begin(), I->end());
|
|
if (I.hasLoop()) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
bool LayoutTypeSystem::verifyNoEquality() const {
|
|
if (not verifyConsistency())
|
|
return false;
|
|
for (const auto &Node : llvm::nodes(this)) {
|
|
using LTSN = LayoutTypeSystemNode;
|
|
for (const auto &Edge : llvm::children_edges<const LTSN *>(Node)) {
|
|
if (isEqualityEdge(Edge)) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
bool LayoutTypeSystem::verifyLeafs() const {
|
|
for (const auto &Node : llvm::nodes(this)) {
|
|
if (isLeaf(Node)) {
|
|
if (not hasValidLayout(Node)) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
bool LayoutTypeSystem::verifyInheritanceTree() const {
|
|
using GraphNodeT = const LayoutTypeSystemNode *;
|
|
using InheritanceNodeT = EdgeFilteredGraph<GraphNodeT, isInheritanceEdge>;
|
|
using GT = GraphTraits<InheritanceNodeT>;
|
|
for (GraphNodeT Node : llvm::nodes(this)) {
|
|
auto Beg = GT::child_begin(Node);
|
|
auto End = GT::child_end(Node);
|
|
if ((Beg != End) and (std::next(Beg) != End)) {
|
|
if (VerifyDLALog.isEnabled())
|
|
revng_check(false);
|
|
return false;
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
} // end namespace dla
|