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

The CLOS cache no longer uses a global lock

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-19 23:12:53 +01:00
parent de42c0c0fb
commit d5bfaa2e9c
1 changed files with 11 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

29
src/c/clos/cache.d
View file

@ -59,22 +59,18 @@ clear_one_from_cache(ecl_cache_ptr cache, cl_object target)
static void
clear_list_from_cache(ecl_cache_ptr cache)
{
const cl_env_ptr the_env = ecl_process_env();
ECL_WITH_GLOBAL_LOCK_BEGIN(the_env) {
cl_object table = cache->table;
cl_index i, total_size = table->vector.dim;
cl_object list = cache->clear_list;
for (i = 0; i < total_size; i+=3) {
cl_object key = table->vector.self.t[i];
if (key != OBJNULL) {
if (ecl_member_eq(key->vector.self.t[0], list)) {
table->vector.self.t[i] = OBJNULL;
table->vector.self.fix[i+2] = 0;
}
cl_object list = ecl_atomic_get(&cache->clear_list);
cl_object table = cache->table;
cl_index i, total_size = table->vector.dim;
for (i = 0; i < total_size; i+=3) {
cl_object key = table->vector.self.t[i];
if (key != OBJNULL) {
if (ecl_member_eq(key->vector.self.t[0], list)) {
table->vector.self.t[i] = OBJNULL;
table->vector.self.fix[i+2] = 0;
}
}
cache->clear_list = Cnil;
} ECL_WITH_GLOBAL_LOCK_END;
}
}
#endif
@ -105,10 +101,7 @@ void
ecl_cache_remove_one(ecl_cache_ptr cache, cl_object first_key)
{
#ifdef ECL_THREADS
const cl_env_ptr the_env = ecl_process_env();
ECL_WITH_GLOBAL_LOCK_BEGIN(the_env) {
cache->clear_list = CONS(first_key, cache->clear_list);
} ECL_WITH_GLOBAL_LOCK_END;
ecl_atomic_push(&cache->clear_list, first_key);
#else
clear_one_from_cache(cache, first_key);
#endif