2006-02-23 19:01:12 -05:00
|
|
|
! Copyright (C) 2006 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2006-04-03 02:18:56 -04:00
|
|
|
IN: compiler
|
|
|
|
|
USING: alien arrays assembler inference kernel
|
2006-02-23 19:01:12 -05:00
|
|
|
kernel-internals lists math memory namespaces sequences words ;
|
|
|
|
|
|
|
|
|
|
M: %write-barrier generate-node ( vop -- )
|
|
|
|
|
#! Mark the card pointed to by vreg.
|
|
|
|
|
drop
|
|
|
|
|
0 input-operand card-bits SHR
|
2006-03-02 01:50:11 -05:00
|
|
|
0 input-operand R13 [+] card-mark OR ;
|
