lbodor/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) 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); printMsg(lvlError, format("eval: %1%") % e);
Sym name; Sym name;
@ -333,9 +339,9 @@ static void eval(Env * env, Expr e, Value & v)
if (matchOpConcat(e, e1, e2)) { if (matchOpConcat(e, e1, e2)) {
Value v1; eval(env, e1, v1); 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); 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.type = tList;
v.list.length = v1.list.length + v2.list.length; v.list.length = v1.list.length + v2.list.length;
v.list.elems = new Value[v.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]; v.list.elems[n + v1.list.length] = v2.list.elems[n];
return; return;
} }
throw Error("unsupported term"); throw Error("unsupported term");
} }
@ -370,6 +376,7 @@ static void strictEval(Env * env, Expr e, Value & v)
void doTest(string s) void doTest(string s)
{ {
p1 = p2 = 0;
EvalState state; EvalState state;
Expr e = parseExprFromString(state, s, "/"); Expr e = parseExprFromString(state, s, "/");
printMsg(lvlError, format(">>>>> %1%") % e); 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% values") % nrValues);
printMsg(lvlError, format("alloced %1% environments") % nrEnvs); printMsg(lvlError, format("alloced %1% environments") % nrEnvs);
printMsg(lvlError, format("each eval() uses %1% bytes of stack space") % (p1 - p2));
} }