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

Using GC_clear_roots() we reduce the set of roots to the one ECL itself determines.

Browse source
This commit is contained in:
jjgarcia 2005-10-24 08:29:10 +00:00
parent 0ab6dc90c0
commit dd83a988c8
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/alloc_2.d
View file

@ -195,6 +195,8 @@ init_alloc(void)
#if 0
GC_init_explicit_typing();
#endif
GC_clear_roots();
GC_disable();
init_tm(t_shortfloat, "SHORT-FLOAT", /* 8 */
sizeof(struct ecl_shortfloat));
@ -232,6 +234,7 @@ init_alloc(void)
old_GC_push_other_roots = GC_push_other_roots;
GC_push_other_roots = stacks_scanner;
GC_enable();
}
/**********************************************************