(%write-barrier) ( TEMP1 TEMP2 -- )

Vocabulary

cpu.arm.64

Inputs

TEMP1	an object
TEMP2	an object

Outputs

None

Definition

USING: compiler.constants cpu.arm.64.assembler kernel math ;

IN: cpu.arm.64

:: (%write-barrier) ( TEMP1 TEMP2 -- )
    temp card-mark MOV TEMP1 dup card-bits LSR
    temp TEMP1 CARDS-OFFSET [+] STRB
    TEMP1 dup deck-bits card-bits - LSR
    temp TEMP1 DECKS-OFFSET [+] STRB ;