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

Avoid the garbage collection of foreign modules.

Browse source
This commit is contained in:
goffioul 2005-10-24 09:38:48 +00:00
parent 893a514da4
commit 2ac98f0572
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/ffi.d
View file

@ -417,8 +417,10 @@ OUTPUT:
mp_giveup_lock(symbol_value(@'mp::+load-compile-lock+'));
} CL_UNWIND_PROTECT_END;
#endif
if (type_of(output) == t_codeblock)
if (type_of(output) == t_codeblock) {
output->cblock.locked |= 1;
@(return output)
}
else
FEerror("LOAD-FOREIGN-MODULE: Could not load foreign module ~S (Error: ~S)", 2, filename, output);
}