10 lines
271 B
Factor
10 lines
271 B
Factor
|
! Copyright (C) 2006 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
IN: compiler
|
||
|
|
USING: assembler ;
|
||
|
|
|
||
|
|
: generate-write-barrier ( -- )
|
||
|
|
#! Mark the card pointed to by vreg.
|
||
|
|
"obj" operand card-bits SHR
|
||
|
|
"obj" operand R13 [+] card-mark OR ;
|