record-param-allocation ( value class -- )

Vocabulary

compiler.tree.escape-analysis.simple

Inputs

value	an object
class	an object

Outputs

None

Definition

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

IN: compiler.tree.escape-analysis.simple

: record-param-allocation ( value class -- )
    dup immutable-tuple-class? [
        [ swap set-value-class ] [
            all-slots [
                [ <slot-value> dup ] [ class>> ] bi*
                record-param-allocation
            ] map swap record-allocation
        ] 2bi
    ] [ drop unknown-allocation ] if ;