optimize-low-order-op ( #call -- nodes )

Vocabulary

compiler.tree.modular-arithmetic

Inputs

#call

an object

Outputs

nodes

an object

Definition

USING: accessors assocs compiler.tree.def-use.simplified
compiler.tree.propagation.info kernel math sequences ;

IN: compiler.tree.modular-arithmetic

: optimize-low-order-op ( #call -- nodes )
    dup in-d>> first actually-defined-by
    [ value>> fixnum-value? ] all? [
        [ ] [ in-d>> first ] [ info>> ] tri
        [ drop fixnum <class-info> ] change-at
    ] when ;