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

Functions for allocating uncollectable, but scanned memory.

Browse source
This commit is contained in:
jjgarcia 2004-11-29 15:52:11 +00:00
parent 27c98657f1
commit b85001ea7c
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/alloc_2.d
View file

@ -131,6 +131,18 @@ cl_alloc_instance(cl_index slots)
return i;
}
void *
ecl_alloc_uncollectable(size_t size)
{
return GC_MALLOC_UNCOLLECTABLE(size);
}
void
ecl_free_uncollectable(void *pointer)
{
return GC_FREE(pointer);
}
static void
init_tm(cl_type t, const char *name, cl_index elsize)
{

2
src/h/external.h
View file

@ -204,6 +204,8 @@ extern cl_object si_set_hole_size _ARGS((cl_narg narg, cl_object size));
extern cl_object si_ignore_maximum_pages _ARGS((cl_narg narg, ...));
extern void *cl_alloc(cl_index n);
extern void *cl_alloc_align(cl_index size, cl_index align);
extern void *ecl_alloc_uncollectable(size_t size);
extern void ecl_free_uncollectable(void *);
#define cl_alloc_atomic(x) cl_alloc(x)
#define cl_alloc_atomic_align(x,s) cl_alloc_align(x,s)
#define ecl_register_static_root(x) ecl_register_root(x);