forked from lix-project/lix
Remove canary stuff
This commit is contained in:
parent
a144eb1415
commit
8aedaf111e
|
@ -247,7 +247,6 @@ EvalState::EvalState(const Strings & _searchPath)
|
||||||
EvalState::~EvalState()
|
EvalState::~EvalState()
|
||||||
{
|
{
|
||||||
fileEvalCache.clear();
|
fileEvalCache.clear();
|
||||||
printCanaries();
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
@ -1514,26 +1513,6 @@ void EvalState::printStats()
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
void EvalState::printCanaries()
|
|
||||||
{
|
|
||||||
#if HAVE_BOEHMGC
|
|
||||||
if (!settings.get("debug-gc", false)) return;
|
|
||||||
|
|
||||||
GC_gcollect();
|
|
||||||
|
|
||||||
if (gcCanaries.empty()) {
|
|
||||||
printMsg(lvlError, "all canaries have been garbage-collected");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
printMsg(lvlError, "the following canaries have not been garbage-collected:");
|
|
||||||
|
|
||||||
for (auto i : gcCanaries)
|
|
||||||
printMsg(lvlError, format(" %1%") % i->string.s);
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
size_t valueSize(Value & v)
|
size_t valueSize(Value & v)
|
||||||
{
|
{
|
||||||
std::set<const void *> seen;
|
std::set<const void *> seen;
|
||||||
|
|
|
@ -287,8 +287,6 @@ public:
|
||||||
/* Print statistics. */
|
/* Print statistics. */
|
||||||
void printStats();
|
void printStats();
|
||||||
|
|
||||||
void printCanaries();
|
|
||||||
|
|
||||||
private:
|
private:
|
||||||
|
|
||||||
unsigned long nrEnvs;
|
unsigned long nrEnvs;
|
||||||
|
@ -320,12 +318,6 @@ private:
|
||||||
friend struct ExprOpConcatLists;
|
friend struct ExprOpConcatLists;
|
||||||
friend struct ExprSelect;
|
friend struct ExprSelect;
|
||||||
friend void prim_getAttr(EvalState & state, const Pos & pos, Value * * args, Value & v);
|
friend void prim_getAttr(EvalState & state, const Pos & pos, Value * * args, Value & v);
|
||||||
|
|
||||||
#if HAVE_BOEHMGC
|
|
||||||
std::set<Value *> gcCanaries;
|
|
||||||
friend void canaryFinalizer(GC_PTR obj, GC_PTR client_data);
|
|
||||||
friend void prim_gcCanary(EvalState & state, const Pos & pos, Value * * args, Value & v);
|
|
||||||
#endif
|
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -417,32 +417,6 @@ static void prim_trace(EvalState & state, const Pos & pos, Value * * args, Value
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
#if HAVE_BOEHMGC
|
|
||||||
void canaryFinalizer(GC_PTR obj, GC_PTR client_data)
|
|
||||||
{
|
|
||||||
Value * v = (Value *) obj;
|
|
||||||
EvalState & state(* (EvalState *) client_data);
|
|
||||||
printMsg(lvlError, format("canary ‘%1%’ garbage-collected") % v->string.s);
|
|
||||||
auto i = state.gcCanaries.find(v);
|
|
||||||
assert(i != state.gcCanaries.end());
|
|
||||||
state.gcCanaries.erase(i);
|
|
||||||
}
|
|
||||||
#endif
|
|
||||||
|
|
||||||
|
|
||||||
void prim_gcCanary(EvalState & state, const Pos & pos, Value * * args, Value & v)
|
|
||||||
{
|
|
||||||
string s = state.forceStringNoCtx(*args[0], pos);
|
|
||||||
state.mkList(v, 1);
|
|
||||||
Value * canary = v.list.elems[0] = state.allocValue();
|
|
||||||
#if HAVE_BOEHMGC
|
|
||||||
state.gcCanaries.insert(canary);
|
|
||||||
GC_register_finalizer(canary, canaryFinalizer, &state, 0, 0);
|
|
||||||
#endif
|
|
||||||
mkString(*canary, s);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
void prim_valueSize(EvalState & state, const Pos & pos, Value * * args, Value & v)
|
void prim_valueSize(EvalState & state, const Pos & pos, Value * * args, Value & v)
|
||||||
{
|
{
|
||||||
/* We're not forcing the argument on purpose. */
|
/* We're not forcing the argument on purpose. */
|
||||||
|
@ -1560,7 +1534,6 @@ void EvalState::createBaseEnv()
|
||||||
|
|
||||||
// Debugging
|
// Debugging
|
||||||
addPrimOp("__trace", 2, prim_trace);
|
addPrimOp("__trace", 2, prim_trace);
|
||||||
addPrimOp("__gcCanary", 1, prim_gcCanary);
|
|
||||||
addPrimOp("__valueSize", 1, prim_valueSize);
|
addPrimOp("__valueSize", 1, prim_valueSize);
|
||||||
|
|
||||||
// Paths
|
// Paths
|
||||||
|
|
|
@ -86,8 +86,6 @@ void processExpr(EvalState & state, const Strings & attrPaths,
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
state.printCanaries();
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue