forked from lix-project/lix
* Use the Boehm garbage collector to reclaim unused memory in the Nix
expression evaluator.
This commit is contained in:
parent
b0c11cda7e
commit
e879a0371b
src
|
@ -20,7 +20,8 @@ EXTRA_DIST = lexer.l parser.y
|
|||
|
||||
AM_CXXFLAGS = \
|
||||
-I$(srcdir)/.. \
|
||||
-I$(srcdir)/../libutil -I$(srcdir)/../libstore
|
||||
-I$(srcdir)/../libutil -I$(srcdir)/../libstore \
|
||||
-I/home/eelco/Dev/nix/boehmgc/include
|
||||
|
||||
|
||||
# Parser generation.
|
||||
|
|
|
@ -8,6 +8,9 @@
|
|||
|
||||
#include <cstring>
|
||||
|
||||
#include <gc/gc.h>
|
||||
#include <gc/gc_cpp.h>
|
||||
|
||||
|
||||
#define LocalNoInline(f) static f __attribute__((noinline)); f
|
||||
#define LocalNoInlineNoReturn(f) static f __attribute__((noinline, noreturn)); f
|
||||
|
@ -147,7 +150,7 @@ void EvalState::addPrimOp(const string & name,
|
|||
v.type = tPrimOp;
|
||||
v.primOp.arity = arity;
|
||||
v.primOp.fun = primOp;
|
||||
v.primOp.name = strdup(name2.c_str());
|
||||
v.primOp.name = GC_strdup(name2.c_str());
|
||||
staticBaseEnv.vars[symbols.create(name)] = baseEnvDispl;
|
||||
baseEnv.values[baseEnvDispl++] = v;
|
||||
(*baseEnv.values[0].attrs)[symbols.create(name2)].value = v;
|
||||
|
@ -218,7 +221,7 @@ LocalNoInline(void addErrorPrefix(Error & e, const char * s, const string & s2,
|
|||
void mkString(Value & v, const char * s)
|
||||
{
|
||||
v.type = tString;
|
||||
v.string.s = strdup(s);
|
||||
v.string.s = GC_strdup(s);
|
||||
v.string.context = 0;
|
||||
}
|
||||
|
||||
|
@ -228,9 +231,10 @@ void mkString(Value & v, const string & s, const PathSet & context)
|
|||
mkString(v, s.c_str());
|
||||
if (!context.empty()) {
|
||||
unsigned int n = 0;
|
||||
v.string.context = new const char *[context.size() + 1];
|
||||
v.string.context = (const char * *)
|
||||
GC_malloc((context.size() + 1) * sizeof(char *));
|
||||
foreach (PathSet::const_iterator, i, context)
|
||||
v.string.context[n++] = strdup(i->c_str());
|
||||
v.string.context[n++] = GC_strdup(i->c_str());
|
||||
v.string.context[n] = 0;
|
||||
}
|
||||
}
|
||||
|
@ -239,7 +243,7 @@ void mkString(Value & v, const string & s, const PathSet & context)
|
|||
void mkPath(Value & v, const char * s)
|
||||
{
|
||||
v.type = tPath;
|
||||
v.path = strdup(s);
|
||||
v.path = GC_strdup(s);
|
||||
}
|
||||
|
||||
|
||||
|
@ -264,7 +268,7 @@ Value * EvalState::lookupVar(Env * env, const VarRef & var)
|
|||
Value * EvalState::allocValues(unsigned int count)
|
||||
{
|
||||
nrValues += count;
|
||||
return new Value[count]; // !!! check destructor
|
||||
return (Value *) GC_MALLOC(count * sizeof(Value));
|
||||
}
|
||||
|
||||
|
||||
|
@ -272,7 +276,7 @@ Env & EvalState::allocEnv(unsigned int size)
|
|||
{
|
||||
nrEnvs++;
|
||||
nrValuesInEnvs += size;
|
||||
Env * env = (Env *) malloc(sizeof(Env) + size * sizeof(Value));
|
||||
Env * env = (Env *) GC_MALLOC(sizeof(Env) + size * sizeof(Value));
|
||||
return *env;
|
||||
}
|
||||
|
||||
|
@ -281,7 +285,7 @@ void EvalState::mkList(Value & v, unsigned int length)
|
|||
{
|
||||
v.type = tList;
|
||||
v.list.length = length;
|
||||
v.list.elems = new Value *[length];
|
||||
v.list.elems = (Value * *) GC_MALLOC(length * sizeof(Value *));
|
||||
nrListElems += length;
|
||||
}
|
||||
|
||||
|
@ -289,7 +293,7 @@ void EvalState::mkList(Value & v, unsigned int length)
|
|||
void EvalState::mkAttrs(Value & v)
|
||||
{
|
||||
v.type = tAttrs;
|
||||
v.attrs = new Bindings;
|
||||
v.attrs = new (UseGC) Bindings;
|
||||
}
|
||||
|
||||
|
||||
|
@ -1089,6 +1093,7 @@ void EvalState::printStats()
|
|||
bool showStats = getEnv("NIX_SHOW_STATS", "0") != "0";
|
||||
Verbosity v = showStats ? lvlInfo : lvlDebug;
|
||||
printMsg(v, "evaluation statistics:");
|
||||
printMsg(v, format(" size of a value: %1%") % sizeof(Value));
|
||||
printMsg(v, format(" expressions evaluated: %1%") % nrEvaluated);
|
||||
printMsg(v, format(" stack space used: %1% bytes") % (&x - deepestStack));
|
||||
printMsg(v, format(" max eval() nesting depth: %1%") % maxRecursionDepth);
|
||||
|
|
|
@ -7,6 +7,8 @@
|
|||
|
||||
#include <map>
|
||||
|
||||
#include <gc/gc_allocator.h>
|
||||
|
||||
|
||||
namespace nix {
|
||||
|
||||
|
@ -16,7 +18,7 @@ struct Env;
|
|||
struct Value;
|
||||
struct Attr;
|
||||
|
||||
typedef std::map<Symbol, Attr> Bindings;
|
||||
typedef std::map<Symbol, Attr, std::less<Symbol>, gc_allocator<std::pair<const Symbol, Attr> > > Bindings;
|
||||
|
||||
|
||||
typedef enum {
|
||||
|
@ -313,6 +315,7 @@ private:
|
|||
char * deepestStack; /* for measuring stack usage */
|
||||
|
||||
friend class RecursionCounter;
|
||||
friend class ExprOpUpdate;
|
||||
};
|
||||
|
||||
|
||||
|
|
|
@ -4,7 +4,8 @@ nix_env_SOURCES = nix-env.cc profiles.cc profiles.hh user-env.cc user-env.hh hel
|
|||
|
||||
nix_env_LDADD = ../libmain/libmain.la ../libexpr/libexpr.la \
|
||||
../libstore/libstore.la ../libutil/libutil.la \
|
||||
../boost/format/libformat.la @ADDITIONAL_NETWORK_LIBS@
|
||||
../boost/format/libformat.la @ADDITIONAL_NETWORK_LIBS@ \
|
||||
-L/home/eelco/Dev/nix/boehmgc/lib -lgc
|
||||
|
||||
nix-env.o: help.txt.hh
|
||||
|
||||
|
@ -14,4 +15,5 @@ nix-env.o: help.txt.hh
|
|||
AM_CXXFLAGS = \
|
||||
-I$(srcdir)/.. \
|
||||
-I$(srcdir)/../libutil -I$(srcdir)/../libstore \
|
||||
-I$(srcdir)/../libexpr -I$(srcdir)/../libmain -I../libexpr
|
||||
-I$(srcdir)/../libexpr -I$(srcdir)/../libmain -I../libexpr \
|
||||
-I/home/eelco/Dev/nix/boehmgc/include
|
||||
|
|
|
@ -3,7 +3,8 @@ bin_PROGRAMS = nix-instantiate
|
|||
nix_instantiate_SOURCES = nix-instantiate.cc help.txt
|
||||
nix_instantiate_LDADD = ../libmain/libmain.la ../libexpr/libexpr.la \
|
||||
../libstore/libstore.la ../libutil/libutil.la \
|
||||
../boost/format/libformat.la @ADDITIONAL_NETWORK_LIBS@
|
||||
../boost/format/libformat.la @ADDITIONAL_NETWORK_LIBS@ \
|
||||
-L/home/eelco/Dev/nix/boehmgc/lib -lgc
|
||||
|
||||
nix-instantiate.o: help.txt.hh
|
||||
|
||||
|
@ -12,4 +13,6 @@ nix-instantiate.o: help.txt.hh
|
|||
|
||||
AM_CXXFLAGS = \
|
||||
-I$(srcdir)/.. -I$(srcdir)/../libutil -I$(srcdir)/../libstore \
|
||||
-I$(srcdir)/../libexpr -I$(srcdir)/../libmain -I../libexpr
|
||||
-I$(srcdir)/../libexpr -I$(srcdir)/../libmain -I../libexpr \
|
||||
-I/home/eelco/Dev/nix/boehmgc/include
|
||||
|
||||
|
|
Loading…
Reference in a new issue