nordic-dev.net/rust
nordic-dev.net/rust
2
0
Fork 0
mirror of https://github.com/rust-lang/rust.git synced 2025-04-29 03:27:44 +00:00
Code Issues 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 *) (codefix exit_jmp_fix)); (* if nonzero *)
mov (rc ecx) (* Load GC ctrl word *) mov (rc ecx) (* Load GC ctrl word *)
(c (edx_n Abi.exterior_gc_slot_field_ctrl)); (c (edx_n Abi.exterior_gc_slot_field_ctrl));
mov (rc eax) (ro ecx);
band (* Clear in-memory mark. *) band (rc eax) (immi 1L); (* Extract mark to eax. *)
(edx_n Abi.exterior_gc_slot_field_ctrl) band (* Clear mark in ecx. *)
(rc ecx)
(immi 0xfffffffffffffffeL); (immi 0xfffffffffffffffeL);
band (rc ecx) (immi 1L); (* Check in-reg mark. *) mov
emit (Il.cmp (ro edx) (immi 0L)); ((edx_n Abi.exterior_gc_slot_field_ctrl)) (* Write-back cleared. *)
(ro ecx);
emit (Il.cmp (ro eax) (immi 0L));
emit emit
(Il.jmp Il.JNE (Il.jmp Il.JNE
(codefix skip_jmp_fix)); (* if unmarked (garbage) *) (codefix skip_jmp_fix)); (* if unmarked (garbage) *)