sse-env

Vocabulary

math.floats.env.x86

Definition

USING: alien.c-types classes.struct ;

IN: math.floats.env.x86

STRUCT: sse-env { mxcsr uint initial: 0 } ;

Methods

USING: accessors kernel math math.bitwise math.floats.env
math.floats.env.private math.floats.env.x86 ;

M: sse-env (get-denormal-mode)
    mxcsr>> sse-denormal-mode-bits mask
    zero? +denormal-keep+ +denormal-flush+ ? ; inline


USING: accessors math.floats.env.private math.floats.env.x86 ;

M: sse-env (get-exception-flags)
    mxcsr>> sse-exception-flag>bit mask> ; inline


USING: accessors math math.floats.env.private
math.floats.env.x86 ;

M: sse-env (get-fp-traps)
    mxcsr>> bitnot sse-fp-traps>bit mask> ; inline


USING: accessors assocs math.bitwise math.floats.env.private
math.floats.env.x86 ;

M: sse-env (get-rounding-mode)
    mxcsr>> sse-rounding-mode-bits mask
    sse-rounding-mode>bit value-at ; inline


USING: accessors combinators kernel math math.bitwise
math.floats.env math.floats.env.private math.floats.env.x86 ;

M: sse-env (set-denormal-mode)
    [
        {
            {
                +denormal-keep+
                [ sse-denormal-mode-bits unmask ]
            }
            {
                +denormal-flush+
                [ sse-denormal-mode-bits bitor ]
            }
        } case
    ] curry change-mxcsr ; inline


USING: accessors kernel math.floats.env.private
math.floats.env.x86 ;

M: sse-env (set-exception-flags)
    [
        sse-exception-flag>bit >mask
        sse-exception-flag-bits remask
    ] curry change-mxcsr ; inline


USING: math.floats.env.private math.floats.env.x86 ;

M: sse-env (set-fp-env-register) set-sse-env ;


USING: accessors kernel math math.floats.env.private
math.floats.env.x86 ;

M: sse-env (set-fp-traps)
    [ sse-fp-traps>bit >mask bitnot sse-fp-traps-bits remask ]
    curry change-mxcsr ; inline


USING: accessors assocs kernel math.floats.env.private
math.floats.env.x86 ;

M: sse-env (set-rounding-mode)
    [ sse-rounding-mode>bit at sse-rounding-mode-bits remask ]
    curry change-mxcsr ; inline


USING: classes.struct classes.struct.private kernel
math.floats.env.x86 ;

M: sse-env clone clone-underlying \ sse-env memory>struct ;
    inline


USING: accessors classes.struct combinators.smart
math.floats.env.x86 ;

M: sse-env struct-slot-values { [ mxcsr>> ] } cleave>array ;
    inline