wroclaw-git-backups/nix
1
0
Fork 0
mirror of https://github.com/NixOS/nix synced 2025-06-26 20:01:15 +02:00
Code Activity

Add some instrumentation for debugging GC leaks

Browse source
This commit is contained in:
Eelco Dolstra 2014-09-17 15:19:07 +02:00
parent d37d012774
commit 6e5b02bee4
4 changed files with 59 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/libexpr/primops.cc
View file

@ -397,6 +397,32 @@ 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);
}
/*************************************************************
* Derivations
*************************************************************/
@ -1393,6 +1419,7 @@ void EvalState::createBaseEnv()
addPrimOp("__tryEval", 1, prim_tryEval);
addPrimOp("__getEnv", 1, prim_getEnv);
addPrimOp("__trace", 2, prim_trace);
addPrimOp("__gcCanary", 1, prim_gcCanary);
// Paths
addPrimOp("__toPath", 1, prim_toPath);