propagate-alien-invoke ( node -- )

Vocabulary

compiler.tree.propagation.simple

Inputs

node

an object

Outputs

None

Definition

USING: accessors alien.c-types compiler.tree.propagation.info
kernel sequences ;

IN: compiler.tree.propagation.simple

: propagate-alien-invoke ( node -- )
    [ out-d>> ] [ params>> return>> ] bi
    [ drop ]
    [ c-type-class <class-info> swap first set-value-info ]
    if-void ;