Be more aggressive in hiding repeated values

We now memoize on Bindings / list element vectors rather than Values,
so that e.g. two Values that point to the same Bindings will be
printed only once.
This commit is contained in:
Eelco Dolstra 2022-03-03 13:29:14 +01:00
parent ecff9d969a
commit e9c04c3351
2 changed files with 20 additions and 20 deletions

View file

@ -86,7 +86,7 @@ RootValue allocRootValue(Value * v)
}
void printValue(std::ostream & str, std::set<const Value *> & seen, const Value & v)
void printValue(std::ostream & str, std::set<const void *> & seen, const Value & v)
{
checkInterrupt();
@ -115,32 +115,32 @@ void printValue(std::ostream & str, std::set<const Value *> & seen, const Value
str << "null";
break;
case tAttrs: {
seen.insert(&v);
if (!v.attrs->empty() && !seen.insert(v.attrs).second)
str << "<REPEAT>";
else {
str << "{ ";
for (auto & i : v.attrs->lexicographicOrder()) {
str << i->name << " = ";
if (seen.count(i->value))
str << "<REPEAT>";
else
printValue(str, seen, *i->value);
str << "; ";
}
str << "}";
}
break;
}
case tList1:
case tList2:
case tListN:
seen.insert(&v);
if (v.listSize() && !seen.insert(v.listElems()).second)
str << "<REPEAT>";
else {
str << "[ ";
for (auto v2 : v.listItems()) {
if (seen.count(v2))
str << "<REPEAT>";
else
printValue(str, seen, *v2);
str << " ";
}
str << "]";
}
break;
case tThunk:
case tApp:
@ -169,7 +169,7 @@ void printValue(std::ostream & str, std::set<const Value *> & seen, const Value
std::ostream & operator << (std::ostream & str, const Value & v)
{
std::set<const Value *> seen;
std::set<const void *> seen;
printValue(str, seen, v);
return str;
}

View file

@ -115,7 +115,7 @@ private:
InternalType internalType;
friend std::string showType(const Value & v);
friend void printValue(std::ostream & str, std::set<const Value *> & seen, const Value & v);
friend void printValue(std::ostream & str, std::set<const void *> & seen, const Value & v);
public: