(emit-set-slot-imm) ( write-barrier? tag slot -- )

Vocabulary

compiler.cfg.intrinsics.slots

Inputs

write-barrier?	an object
tag	an object
slot	an object

Outputs

None

Definition

USING: compiler.cfg.instructions compiler.cfg.registers
compiler.cfg.stacks kernel ;

IN: compiler.cfg.intrinsics.slots

:: (emit-set-slot-imm) ( write-barrier? tag slot -- )
    ds-drop 2inputs :> ( src obj ) src obj slot tag
    ##set-slot-imm, write-barrier?
    [ obj slot tag next-vreg next-vreg ##write-barrier-imm, ]
    when ;