suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Allow compact GC to get a little further before SIGSEGV

Browse Source 
svn: r12297
This commit is contained in:
Kevin Tew 2008-11-05 21:09:17 +00:00
parent 8983dd96f3
commit 03548173f1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/gc2/compact.c
View File

@ -443,6 +443,9 @@ void GC_init_type_tags(int count, int pair, int mutable_pair, int weakbox, int e
weak_box_tag = weakbox; weak_box_tag = weakbox;
ephemeron_tag = ephemeron; ephemeron_tag = ephemeron;
weak_array_tag = weakarray; weak_array_tag = weakarray;
GC = malloc(sizeof(CompactGC));
CompactGC_initialize(GC);
} }
void GC_register_traversers(Type_Tag tag, Size_Proc size, Mark_Proc mark, Fixup_Proc fixup, void GC_register_traversers(Type_Tag tag, Size_Proc size, Mark_Proc mark, Fixup_Proc fixup,