copy-slot-value ( out slot# in -- )

Vocabulary

compiler.tree.escape-analysis.allocations

Inputs

out	an object
slot#	an object
in	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: compiler.tree.escape-analysis.allocations

: copy-slot-value ( out slot# in -- )
    allocation dup boolean? [ 3drop ] [ nth swap copy-value ] if
    ;