0
0
Fork 0
forked from lix-project/lix

* In theory, this should reduce the number of ATermMap

re-allocations.
This commit is contained in:
Eelco Dolstra 2006-03-10 16:14:13 +00:00
parent 4ada6db1fc
commit 2b3b6c9b34
2 changed files with 4 additions and 3 deletions

View file

@ -26,7 +26,7 @@ void EvalState::addPrimOp(const string & name,
/* Substitute an argument set into the body of a function. */
static Expr substArgs(Expr body, ATermList formals, Expr arg)
{
ATermMap subs;
ATermMap subs(ATgetLength(formals) * 2);
Expr undefined = makeUndefined();
/* Get the formal arguments. */

View file

@ -50,9 +50,10 @@ void ATermMap::copy(const ATermMap & map)
{
ATermList keys = map.keys();
/* !!! adjust allocation for load pct */
/* !!! We adjust for the maximum load pct by allocating twice as
much. Probably a bit too much. */
maxLoadPct = map.maxLoadPct;
table = ATtableCreate(ATgetLength(keys), maxLoadPct);
table = ATtableCreate(ATgetLength(keys) * 2, maxLoadPct);
if (!table) throw Error("cannot create ATerm table");
add(map, keys);