bbjubjub2494/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests Activity

GC_malloc -> GC_MALLOC

Browse source 
This makes it possible to build with -DGC_DEBUG.
This commit is contained in:
Eelco Dolstra 2018-06-12 16:16:03 +02:00
parent 455d1f01d0
commit c905d8b0a8
No known key found for this signature in database
GPG key ID: 8170B4726D7198DE
2 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/libexpr/eval-inline.hh
View file

@ -83,7 +83,7 @@ inline void * allocBytes(size_t n)
{
void * p;
#if HAVE_BOEHMGC
p = GC_malloc(n);
p = GC_MALLOC(n);
#else
p = calloc(n, 1);
#endif

10
src/libexpr/eval.cc
View file

@ -21,12 +21,6 @@
#include <gc/gc.h>
#include <gc/gc_cpp.h>
#define NEW new (UseGC)
#else
#define NEW new
#endif
@ -37,7 +31,7 @@ static char * dupString(const char * s)
{
char * t;
#if HAVE_BOEHMGC
t = GC_strdup(s);
t = GC_STRDUP(s);
#else
t = strdup(s);
#endif
@ -446,7 +440,7 @@ Value * EvalState::addPrimOp(const string & name,
string name2 = string(name, 0, 2) == "__" ? string(name, 2) : name;
Symbol sym = symbols.create(name2);
v->type = tPrimOp;
v->primOp = NEW PrimOp(primOp, arity, sym);
v->primOp = new PrimOp(primOp, arity, sym);
staticBaseEnv.vars[symbols.create(name)] = baseEnvDispl;
baseEnv.values[baseEnvDispl++] = v;
baseEnv.values[0]->attrs->push_back(Attr(sym, v));