emit-eq ( node -- )

Vocabulary

compiler.cfg.intrinsics.misc

Inputs

node

a node

Outputs

None

Word description

Intrinsic emitter for the eq? word.

Definition

USING: accessors classes.algebra compiler.cfg.comparisons
compiler.cfg.hats compiler.cfg.stacks
compiler.tree.propagation.info kernel math sequences ;

IN: compiler.cfg.intrinsics.misc

: emit-eq ( node -- )
    node-input-infos first2 [ class>> fixnum class<= ] both?
    [ [ cc= ^^compare-integer ] binary-op ]
    [ [ cc= ^^compare ] binary-op ] if ;