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

src/c/hash.d: conditionalize another use of hash.lock.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-10-01 12:48:02 +02:00
parent 5ae1c96929
commit 511d3b1945
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/hash.d
View file

@ -722,11 +722,16 @@ cl_object
si_copy_hash_table(cl_object orig)
{
cl_object hash;
#ifdef ECL_THREADS
cl_object lockable = orig->hash.lock;
#else
cl_object lockable = Cnil;
#endif
hash = cl__make_hash_table(cl_hash_table_test(orig),
cl_hash_table_size(orig),
cl_hash_table_rehash_size(orig),
cl_hash_table_rehash_threshold(orig),
orig->hash.lock);
lockable);
HASH_TABLE_LOCK(hash);
memcpy(hash->hash.data, orig->hash.data,
orig->hash.size * sizeof(*orig->hash.data));