mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 14:21:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

GC now allows any number of arguments, ignoring them

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-04-13 11:22:46 +02:00 • committed by Juan Jose Garcia Ripoll
parent 2b038cc268
commit f058165214
4 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -6,6 +6,8 @@ ECL 10.4.2:
- "fasb" is now a valid FASL file type, accepted by ECL even in absence of
ASDF.
- EXT:GC ignores any argument passed to it.
ECL 10.4.1:
===========

2
src/c/alloc_2.d
View file

@ -1295,7 +1295,7 @@ ecl_register_root(cl_object *p)
}
cl_object
si_gc(cl_object area)
si_gc(cl_narg narg, ...)
{
const cl_env_ptr the_env = ecl_process_env();
ecl_disable_interrupts_env(the_env);

2
src/c/symbols_list.h
View file

@ -1456,7 +1456,7 @@ cl_symbols[] = {
{SYS_ "C-ULONG-MAX", SI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */
{SYS_ "C-ULONG-LONG-MAX",SI_CONSTANT,NULL,-1,OBJNULL}, /* See main.d */
#ifdef GBC_BOEHM
{SYS_ "GC", SI_ORDINARY, si_gc, 1, OBJNULL},
{SYS_ "GC", SI_ORDINARY, si_gc, -1, OBJNULL},
{SYS_ "GC-DUMP", SI_ORDINARY, si_gc_dump, 0, OBJNULL},
#endif

2
src/h/external.h
View file

@ -254,7 +254,7 @@ extern ECL_API cl_object ecl_alloc_instance(cl_index slots);
extern ECL_API cl_object ecl_cons(cl_object a, cl_object d);
extern ECL_API cl_object ecl_list1(cl_object a);
#ifdef GBC_BOEHM
extern ECL_API cl_object si_gc(cl_object area);
extern ECL_API cl_object si_gc(cl_narg narg, ...);
extern ECL_API cl_object si_gc_dump(void);
extern ECL_API cl_object si_gc_stats(cl_object enable);
extern ECL_API void *ecl_alloc_unprotected(cl_index n);