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

* Measure stack usage.

Browse source
This commit is contained in:
Eelco Dolstra 2010-03-25 16:35:24 +00:00
parent c2ba4313fb
commit 8da118e4d0
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/libexpr/eval-test.cc
View file

@ -161,8 +161,14 @@ static Env * allocEnv()
}
char * p1 = 0, * p2 = 0;
static void eval(Env * env, Expr e, Value & v)
{
char c;
if (!p1) p1 = &c; else if (!p2) p2 = &c;
printMsg(lvlError, format("eval: %1%") % e);
Sym name;
@ -333,9 +339,9 @@ static void eval(Env * env, Expr e, Value & v)
if (matchOpConcat(e, e1, e2)) {
Value v1; eval(env, e1, v1);
if (v1.type != tList) throw TypeError("list expecteed");
if (v1.type != tList) throw TypeError("list expected");
Value v2; eval(env, e2, v2);
if (v2.type != tList) throw TypeError("list expecteed");
if (v2.type != tList) throw TypeError("list expected");
v.type = tList;
v.list.length = v1.list.length + v2.list.length;
v.list.elems = new Value[v.list.length];
@ -347,7 +353,7 @@ static void eval(Env * env, Expr e, Value & v)
v.list.elems[n + v1.list.length] = v2.list.elems[n];
return;
}
throw Error("unsupported term");
}
@ -370,6 +376,7 @@ static void strictEval(Env * env, Expr e, Value & v)
void doTest(string s)
{
p1 = p2 = 0;
EvalState state;
Expr e = parseExprFromString(state, s, "/");
printMsg(lvlError, format(">>>>> %1%") % e);
@ -407,6 +414,7 @@ void run(Strings args)
printMsg(lvlError, format("alloced %1% values") % nrValues);
printMsg(lvlError, format("alloced %1% environments") % nrEnvs);
printMsg(lvlError, format("each eval() uses %1% bytes of stack space") % (p1 - p2));
}