record-tuple-allocation ( #call -- )

Vocabulary

compiler.tree.escape-analysis.simple

Inputs

#call

an object

Outputs

None

Definition

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

IN: compiler.tree.escape-analysis.simple

: record-tuple-allocation ( #call -- )
    dup immutable-tuple-boa? [
        [ in-d>> but-last { } like ] [ out-d>> first ] bi
        record-allocation
    ] [ record-unknown-allocation ] if ;