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

Temporarily revert a write barrier change

slava 2006-02-24 08:59:19 +00:00
parent b08e6c40ec
commit 16140e65bc
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.FACTOR.txt
View File

@ -5,6 +5,7 @@
- delegating generic words with a non-standard picker - delegating generic words with a non-standard picker
- pass an integer stack pos instead of a quotation - pass an integer stack pos instead of a quotation
- yield in a loop starves i/o - yield in a loop starves i/o
- factoring out the callback quotation
+ portability: + portability:

10
library/compiler/x86/slots.factor
View File

@ -22,8 +22,14 @@ M: %write-barrier generate-node ( vop -- )
#! Mark the card pointed to by vreg. #! Mark the card pointed to by vreg.
drop drop
0 input-operand card-bits SHR 0 input-operand card-bits SHR
0 input-operand card-offset [+] card-mark OR 0 scratch card-offset MOV rel-absolute-cell rel-cards
rel-absolute-cell rel-cards ; 0 scratch 0 input-operand ADD
0 scratch [] card-mark OR ;
! drop
! 0 input-operand card-bits SHR
! 0 input-operand card-offset [+] card-mark OR
! rel-absolute-cell rel-cards ;
M: %set-slot generate-node ( vop -- ) M: %set-slot generate-node ( vop -- )
drop drop