mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 22:32:05 -08:00
Code Issues Projects Releases Packages Wiki Activity

Reorganize the code for variable binding for better caching.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-01-20 22:55:14 +01:00
parent 5bbd889905
commit 192d04aeea
1 changed files with 24 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

42
src/c/stacks.d
View file

@ -81,11 +81,7 @@ ecl_bds_bind(cl_env_ptr env, cl_object s, cl_object value)
{
cl_object bindings = env->bindings_hash;
struct ecl_hashtable_entry *h = bindings->hash.get(s, bindings);
struct bds_bd *slot = ++env->bds_top;
if (slot >= env->bds_limit) {
ecl_bds_overflow();
slot = env->bds_top;
}
cl_object old_value;
if (h->key == OBJNULL) {
/* The previous binding was at most global */
cl_index i = bindings->hash.entries + 1;
@ -96,14 +92,21 @@ ecl_bds_bind(cl_env_ptr env, cl_object s, cl_object value)
bindings->hash.entries = i;
h->key = s;
h->value = value;
slot->symbol = s;
slot->value = s->symbol.value;
old_value = OBJNULL;
} else {
/* We have to save a dynamic binding */
slot->symbol = h->key;
slot->value = h->value;
old_value = h->value;
h->value = value;
}
{
struct bds_bd *slot = ++env->bds_top;
if (slot >= env->bds_limit) {
ecl_bds_overflow();
slot = env->bds_top;
}
slot->symbol = s;
slot->value = old_value;
}
s->symbol.dynamic |= 1;
}
@ -112,11 +115,7 @@ ecl_bds_push(cl_env_ptr env, cl_object s)
{
cl_object bindings = env->bindings_hash;
struct ecl_hashtable_entry *h = bindings->hash.get(s, bindings);
struct bds_bd *slot = ++env->bds_top;
if (slot >= env->bds_limit) {
ecl_bds_overflow();
slot = env->bds_top;
}
cl_object old_value;
if (h->key == OBJNULL) {
/* The previous binding was at most global */
cl_index i = bindings->hash.entries + 1;
@ -127,13 +126,20 @@ ecl_bds_push(cl_env_ptr env, cl_object s)
bindings->hash.entries = i;
h->key = s;
h->value = s->symbol.value;
slot->symbol = s;
slot->value = OBJNULL;
old_value = OBJNULL;
} else {
/* We have to save a dynamic binding */
slot->symbol = h->key;
slot->value = h->value;
old_value = h->value;
}
{
struct bds_bd *slot = ++env->bds_top;
if (slot >= env->bds_limit) {
ecl_bds_overflow();
slot = env->bds_top;
}
slot->symbol = s;
slot->value = old_value;
}
s->symbol.dynamic |= 1;
}