sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ffi: use mp_get_lock_wait instead of mp_get_lock

Browse source 
The former has a fixed number of arguments and is more low-level.
This commit is contained in:
Daniel Kochmański 2020-05-04 19:54:56 +02:00
parent 9741147874
commit 4d9b72a88b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/c/ffi.d
View file

@ -769,7 +769,7 @@ si_load_foreign_module(cl_object filename)
cl_object output;
# ifdef ECL_THREADS
mp_get_lock(1, ecl_symbol_value(@'mp::+load-compile-lock+'));
mp_get_lock_wait(ecl_symbol_value(@'mp::+load-compile-lock+'));
ECL_UNWIND_PROTECT_BEGIN(ecl_process_env()) {
# endif
output = ecl_library_open(filename, 0);
@ -806,7 +806,7 @@ si_unload_foreign_module(cl_object module)
1, module);
}
# ifdef ECL_THREADS
mp_get_lock(1, ecl_symbol_value(@'mp::+load-compile-lock+'));
mp_get_lock_wait(ecl_symbol_value(@'mp::+load-compile-lock+'));
ECL_UNWIND_PROTECT_BEGIN(ecl_process_env()) {
# endif
if (ecl_likely(ecl_library_close(module))) output = ECL_T;