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

Move ecl_make_codeblock() outside the #if ENABLE_DLOPEN because it is needed also by statically linked ECL.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-06-30 11:07:31 +02:00
parent ad7fd8851d
commit 1dc8d99941
1 changed files with 25 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

50
src/c/ffi/libraries.d
View file

@ -71,6 +71,31 @@
#include <ecl/ecl-inl.h>
#include <ecl/internal.h>
cl_object
ecl_make_codeblock()
{
cl_object block = ecl_alloc(t_codeblock);
block = ecl_alloc_object(t_codeblock);
block->cblock.self_destruct = 0;
block->cblock.locked = 0;
block->cblock.handle = NULL;
block->cblock.data = NULL;
block->cblock.data_size = 0;
block->cblock.temp_data = NULL;
block->cblock.temp_data_size = 0;
block->cblock.data_text = NULL;
block->cblock.data_text_size = 0;
block->cblock.next = Cnil;
block->cblock.name = Cnil;
block->cblock.links = Cnil;
block->cblock.cfuns_size = 0;
block->cblock.cfuns = NULL;
block->cblock.source = Cnil;
block->cblock.refs = MAKE_FIXNUM(0);
si_set_finalizer(block, Ct);
return block;
}
static cl_object
copy_object_file(cl_object original)
{
@ -234,31 +259,6 @@ ecl_library_open_inner(cl_object filename, bool self_destruct)
return block;
}
cl_object
ecl_make_codeblock()
{
cl_object block = ecl_alloc(t_codeblock);
block = ecl_alloc_object(t_codeblock);
block->cblock.self_destruct = 0;
block->cblock.locked = 0;
block->cblock.handle = NULL;
block->cblock.data = NULL;
block->cblock.data_size = 0;
block->cblock.temp_data = NULL;
block->cblock.temp_data_size = 0;
block->cblock.data_text = NULL;
block->cblock.data_text_size = 0;
block->cblock.next = Cnil;
block->cblock.name = Cnil;
block->cblock.links = Cnil;
block->cblock.cfuns_size = 0;
block->cblock.cfuns = NULL;
block->cblock.source = Cnil;
block->cblock.refs = MAKE_FIXNUM(0);
si_set_finalizer(block, Ct);
return block;
}
cl_object
ecl_library_open(cl_object filename, bool force_reload) {
cl_object block;