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

Lorsqu'on raccourcit un forward, il faut quand meme colorier le bloc forward (PR#1273) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5056 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2002-07-30 13:02:31 +00:00
parent 715bb0214d
commit 8e809f9bf7
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
byterun/major_gc.c
View File

@ -126,15 +126,12 @@ static void mark_slice (long work)
if (Tag_hd (hd) < No_scan_tag){
for (i = 0; i < size; i++){
child = Field (v, i);
mark_again:
if (Is_block (child) && Is_in_heap (child)) {
hd = Hd_val(child);
if (Tag_hd (hd) == Forward_tag){
child = Forward_val (child);
Field (v, i) = child;
goto mark_again;
Field (v, i) = Forward_val (child);
}
if (Tag_hd(hd) == Infix_tag) {
else if (Tag_hd(hd) == Infix_tag) {
child -= Infix_offset_val(child);
hd = Hd_val(child);
}
@ -192,15 +189,13 @@ static void mark_slice (long work)
sz = Wosize_hd (hd);
for (i = 1; i < sz; i++){
curfield = Field (cur, i);
weak_again:
if (curfield != 0 && Is_block (curfield) && Is_in_heap (curfield)
&& Is_white_val (curfield)){
if (curfield != 0 && Is_block (curfield) && Is_in_heap (curfield)){
if (Tag_val (curfield) == Forward_tag){
curfield = Forward_val (curfield);
Field (cur, i) = curfield;
goto weak_again;
Field (cur, i) = Forward_val (curfield);
}
else if (Is_white_val (curfield){
Field (cur, i) = 0;
}
Field (cur, i) = 0;
}
}
weak_prev = &Field (cur, 0);