mikros/rust
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix bad register use in GC sweep pass.

Browse Source
This commit is contained in:
Graydon Hoare 2010-06-25 20:46:11 -07:00
parent 968ec14527
commit dd2716f56c
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/boot/be/x86.ml
View File

@ -839,12 +839,16 @@ let gc_glue
(codefix exit_jmp_fix)); (* if nonzero *)
mov (rc ecx) (* Load GC ctrl word *)
(c (edx_n Abi.exterior_gc_slot_field_ctrl));
band (* Clear in-memory mark. *)
(edx_n Abi.exterior_gc_slot_field_ctrl)
mov (rc eax) (ro ecx);
band (rc eax) (immi 1L); (* Extract mark to eax. *)
band (* Clear mark in ecx. *)
(rc ecx)
(immi 0xfffffffffffffffeL);
band (rc ecx) (immi 1L); (* Check in-reg mark. *)
emit (Il.cmp (ro edx) (immi 0L));
mov
((edx_n Abi.exterior_gc_slot_field_ctrl)) (* Write-back cleared. *)
(ro ecx);
emit (Il.cmp (ro eax) (immi 0L));
emit
(Il.jmp Il.JNE
(codefix skip_jmp_fix)); (* if unmarked (garbage) *)