2006-02-23 19:01:12 -05:00
|
|
|
! Copyright (C) 2006 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
IN: compiler-backend
|
|
|
|
|
USING: alien arrays assembler compiler inference kernel
|
|
|
|
|
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 ;
|
