(distribute) ( outer inner imm temp add-op mul-op -- new-outers/f )

Vocabulary

compiler.cfg.gvn.math

Inputs

outer	an object
inner	an object
imm	an object
temp	an object
add-op	an object
mul-op	an object

Outputs

new-outers/f

an object

Definition

USING: accessors cpu.architecture kernel make ;

IN: compiler.cfg.gvn.math

:: (distribute)
    ( outer inner imm temp add-op mul-op -- new-outers/f )
    imm immediate-arithmetic? [
        [
            temp inner src1>> outer src2>> mul-op execute
            outer dst>> temp imm add-op execute
        ] { } make
    ] [ f ] if ; inline