scalar-literal? ( insn rep -- ? )

Vocabulary

compiler.cfg.value-numbering.simd

Inputs

insn	an object
rep	an object

Outputs

?

an object

Definition

USING: accessors combinators combinators.short-circuit
compiler.cfg.instructions compiler.cfg.value-numbering.folding
cpu.architecture kernel math ;

IN: compiler.cfg.value-numbering.simd

: scalar-literal? ( insn rep -- ? )
    {
        {
            float-4-rep
            [
                {
                    [ ##load-reference? ]
                    [ obj>> float? ]
                    [ obj>> exact-single? ]
                } 1&&
            ]
        }
        {
            double-2-rep
            [ { [ ##load-reference? ] [ obj>> float? ] } 1&& ]
        }
        [ drop ##load-integer? ]
    } case ;