actually-used-by* ( value node -- )

Vocabulary

compiler.tree.def-use.simplified

Inputs

value	an object
node	an object

Outputs

None

Definition

IN: compiler.tree.def-use.simplified

GENERIC: actually-used-by* ( value node -- )

Methods

USING: accessors compiler.tree compiler.tree.def-use.simplified
kernel sequences ;

M: #call-recursive actually-used-by*
    [ in-d>> index ] [ label>> enter-out>> nth ] bi
    (actually-used-by) ;


USING: accessors compiler.tree compiler.tree.def-use.simplified
kernel sequences ;

M: #enter-recursive actually-used-by*
    [ in-d>> index ] [ out-d>> nth ] bi (actually-used-by) ;


USING: accessors compiler.tree compiler.tree.def-use.simplified
kernel sequences ;

M: #phi actually-used-by*
    [ phi-in-d>> [ index ] with map-find drop ] [ out-d>> nth ]
    bi (actually-used-by) ;


USING: compiler.tree compiler.tree.def-use.simplified kernel ;

M: #recursive actually-used-by* 2drop ;


USING: compiler.tree compiler.tree.def-use.simplified kernel
sequences ;

M: #renaming actually-used-by*
    inputs/outputs [ indices ] dip nths
    [ (actually-used-by) ] each ;


USING: accessors compiler.tree compiler.tree.def-use.simplified
kernel sequences ;

M: #return-recursive actually-used-by*
    [ in-d>> index ] keep
    [ out-d>> nth (actually-used-by) ] [
        label>> calls>>
        [ node>> out-d>> nth (actually-used-by) ] with each
    ] 2bi ;


USING: compiler.tree compiler.tree.def-use.simplified
compiler.tree.def-use.simplified.private kernel namespaces sets
;

M: node actually-used-by* real-usage boa accum get adjoin ;