steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cpu.x86: just a cleanup

db4
Slava Pestov 2009-10-15 05:43:28 -05:00
parent 13ca35ba79
commit d3ec94b5c9
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/cpu/x86/x86.factor
View File

@ -387,6 +387,12 @@ M: x86 %vm-field-ptr ( dst field -- )
: store-tagged ( dst tag -- ) : store-tagged ( dst tag -- )
tag-number OR ; tag-number OR ;
: load-cards-offset ( dst -- )
0 MOV rc-absolute-cell rel-cards-offset ;
: load-decks-offset ( dst -- )
0 MOV rc-absolute-cell rel-decks-offset ;
M:: x86 %allot ( dst size class nursery-ptr -- ) M:: x86 %allot ( dst size class nursery-ptr -- )
nursery-ptr dst load-allot-ptr nursery-ptr dst load-allot-ptr
dst class store-header dst class store-header
@ -399,12 +405,12 @@ M:: x86 %allot ( dst size class nursery-ptr -- )
! Mark the card ! Mark the card
temp1 card-bits SHR temp1 card-bits SHR
temp2 0 MOV rc-absolute-cell rel-cards-offset temp2 load-cards-offset
temp2 temp1 [+] card-mark <byte> MOV temp2 temp1 [+] card-mark <byte> MOV
! Mark the card deck ! Mark the card deck
temp1 deck-bits card-bits - SHR temp1 deck-bits card-bits - SHR
temp2 0 MOV rc-absolute-cell rel-decks-offset temp2 load-decks-offset
temp2 temp1 [+] card-mark <byte> MOV ; temp2 temp1 [+] card-mark <byte> MOV ;
M: x86 %write-barrier ( src slot temp1 temp2 -- ) (%write-barrier) ; M: x86 %write-barrier ( src slot temp1 temp2 -- ) (%write-barrier) ;