scalar-output-class ( rep -- class )

Vocabulary

compiler.tree.propagation.simd

Inputs

rep

an object

Outputs

class

an object

Definition

USING: accessors combinators compiler.tree.propagation.info
cpu.architecture kernel layouts math ;

IN: compiler.tree.propagation.simd

: scalar-output-class ( rep -- class )
    dup literal?>> [
        literal>> scalar-rep-of {
            { float-rep [ float ] }
            { double-rep [ float ] }
            { longlong-scalar-rep [ integer ] }
            { ulonglong-scalar-rep [ integer ] }
            {
                int-scalar-rep
                [ cell 8 = [ fixnum ] [ integer ] if ]
            }
            {
                uint-scalar-rep
                [ cell 8 = [ fixnum ] [ integer ] if ]
            }
            [ drop fixnum ]
        } case
    ] [ drop real ] if <class-info> ;