From 6e5b02bee4c117863f11e4697da9e4f55b81e52d Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Wed, 17 Sep 2014 15:19:07 +0200 Subject: Add some instrumentation for debugging GC leaks --- src/libexpr/eval.cc | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'src/libexpr/eval.cc') diff --git a/src/libexpr/eval.cc b/src/libexpr/eval.cc index 2af6a6787dfc..70b3365639b2 100644 --- a/src/libexpr/eval.cc +++ b/src/libexpr/eval.cc @@ -230,6 +230,8 @@ EvalState::EvalState(const Strings & _searchPath) EvalState::~EvalState() { + fileEvalCache.clear(); + printCanaries(); } @@ -1464,4 +1466,24 @@ 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 +} + + } -- cgit 1.4.1