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

Vocabulary

compiler.cfg.intrinsics.slots

Inputs

write-barrier?	an object
tag	an object

Outputs

None

Definition

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

IN: compiler.cfg.intrinsics.slots

:: (emit-set-slot) ( write-barrier? tag -- )
    3inputs :> ( src obj slot ) slot tag slot-indexing
    :> ( slot scale tag ) src obj slot scale tag ##set-slot,
    write-barrier?
    [ obj slot scale tag next-vreg next-vreg ##write-barrier, ]
    when ;