(set-denormal-mode) ( fp-env mode -- fp-env )

Vocabulary

math.floats.env.private

Inputs

fp-env	an object
mode	an object

Outputs

fp-env

an object

Definition

IN: math.floats.env.private

GENERIC#: (set-denormal-mode) 1 ( fp-env mode -- fp-env )

Methods

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: kernel math.floats.env.private math.floats.env.x86 ;

M: x87-env (set-denormal-mode) drop ;