record-slot-call ( #call -- )

Vocabulary

compiler.tree.escape-analysis.simple

Inputs

#call

an object

Outputs

None

Definition

USING: accessors compiler.tree.escape-analysis.allocations
kernel sequences ;

IN: compiler.tree.escape-analysis.simple

: record-slot-call ( #call -- )
    [ out-d>> first ] [ slot-offset ] [ in-d>> first ] tri
    2dup valid-slot-offset?
    [ [ record-slot-access ] [ copy-slot-value ] 3bi ]
    [ unknown-slot-call ] if ;