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

GC_call_with_alloc_lock: cast functions to GC_fn_type

Browse source
This commit is contained in:
Daniel Kochmański 2016-10-06 12:23:48 +02:00
parent 2f89642227
commit 286714261d
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/hash.d
View file

@ -506,19 +506,19 @@ copy_entry(struct ecl_hashtable_entry *e, cl_object h)
struct ecl_hashtable_entry output = *e;
switch (h->hash.weak) {
case ecl_htt_weak_key:
if (GC_call_with_alloc_lock(normalize_weak_key_entry,
if (GC_call_with_alloc_lock((GC_fn_type)normalize_weak_key_entry,
&output)) {
return output;
}
break;
case ecl_htt_weak_value:
if (GC_call_with_alloc_lock(normalize_weak_value_entry,
if (GC_call_with_alloc_lock((GC_fn_type)normalize_weak_value_entry,
&output)) {
return output;
}
break;
case ecl_htt_weak_key_and_value:
if (GC_call_with_alloc_lock(normalize_weak_key_and_value_entry,
if (GC_call_with_alloc_lock((GC_fn_type)normalize_weak_key_and_value_entry,
&output)) {
return output;
}