Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cosmetique 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4882 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2002-06-05 12:11:23 +00:00
parent 22dad7905b
commit 848902ce6a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
byterun/minor_gc.c
View File

@ -167,7 +167,9 @@ void empty_minor_heap (void)
in_minor_collection = 1; in_minor_collection = 1;
gc_message (0x02, "<", 0); gc_message (0x02, "<", 0);
oldify_local_roots(); oldify_local_roots();
for (r = ref_table; r < ref_table_ptr; r++) oldify_one (**r, *r); for (r = ref_table; r < ref_table_ptr; r++){
oldify_one (**r, *r);
}
oldify_mopup (); oldify_mopup ();
if (young_ptr < young_limit) young_ptr = young_limit; if (young_ptr < young_limit) young_ptr = young_limit;
stat_minor_words += Wsize_bsize (young_end - young_ptr); stat_minor_words += Wsize_bsize (young_end - young_ptr);