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

Protect shared library operations from interrupts.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-12 00:07:43 +02:00
parent 5f2fdff008
commit 29bc665a5e
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/load.d
View file

@ -319,6 +319,7 @@ ecl_library_close(cl_object block) {
if (verbose) {
fprintf(stderr, ";;; Freeing library %s\n", filename);
}
ecl_disable_interrupts();
#ifdef HAVE_DLFCN_H
dlclose(block->cblock.handle);
#endif
@ -328,6 +329,7 @@ ecl_library_close(cl_object block) {
#if defined(mingw32) || defined(_MSC_VER)
FreeLibrary(block->cblock.handle);
#endif
ecl_enable_interrupts();
}
if (block->cblock.self_destruct) {
if (verbose) {