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

Updated GC api to remove deprecated methods

Browse source
This commit is contained in:
Roger Sen 2015-03-29 21:45:37 +02:00 • committed by Daniel Kochmański
parent ff865d1c59
commit cddb87313d
2 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/c/alloc_2.d
View file

@ -119,10 +119,10 @@ out_of_memory(size_t requested_bytes)
{
failure = 0;
GC_gcollect();
GC_oom_fn = out_of_memory_check;
GC_set_oom_fn(out_of_memory_check);
{
output = GC_MALLOC(requested_bytes);
GC_oom_fn = out_of_memory;
GC_set_oom_fn(out_of_memory);
if (output != 0 && failure == 0) {
method = 2;
goto OUTPUT;
@ -789,9 +789,9 @@ init_alloc(void)
* 3) Out of the incremental garbage collector, we only use the
* generational component.
*/
GC_no_dls = 1;
GC_all_interior_pointers = 0;
GC_time_limit = GC_TIME_UNLIMITED;
GC_set_no_dls(1);
GC_set_all_interior_pointers(0);
GC_set_time_limit(GC_TIME_UNLIMITED);
GC_init();
#ifdef ECL_THREADS
# if GC_VERSION_MAJOR > 7 || GC_VERSION_MINOR > 1
@ -1103,8 +1103,8 @@ init_alloc(void)
GC_old_start_callback = GC_start_call_back;
GC_start_call_back = (void (*)(void))gather_statistics;
#endif
GC_java_finalization = 1;
GC_oom_fn = out_of_memory;
GC_set_java_finalization(1);
GC_set_oom_fn(out_of_memory);
GC_set_warn_proc(no_warnings);
GC_enable();
}

6
src/h/external.h
View file

@ -769,9 +769,9 @@ extern ECL_API void ecl_gc(cl_type t);
#endif
#ifdef GBC_BOEHM
#define GC_enabled() (!GC_dont_gc)
#define GC_enable() GC_dont_gc = FALSE;
#define GC_disable() GC_dont_gc = TRUE;
#define GC_enabled() !GC_is_disabled()
#define GC_enable() GC_enable()
#define GC_disable() GC_disable()
extern ECL_API void ecl_register_root(cl_object *p);
#endif /* GBC_BOEHM */