emit-<displaced-alien>? ( node -- ? )

Vocabulary

compiler.cfg.intrinsics.alien

Inputs

node

an object

Outputs

?

an object

Definition

USING: accessors alien classes.algebra combinators.short-circuit
compiler.tree.propagation.info math sequences ;

IN: compiler.cfg.intrinsics.alien

: emit-<displaced-alien>? ( node -- ? )
    node-input-infos {
        [ first class>> fixnum class<= ]
        [ second class>> c-ptr class<= ]
    } 1&& ;