x87-env

Vocabulary

math.floats.env.x86

Definition

USING: alien.c-types classes.struct ;

IN: math.floats.env.x86

STRUCT: x87-env
    { status ushort initial: 0 } { control ushort initial: 0 } ;

Methods

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

M: x87-env (get-denormal-mode) drop +denormal-keep+ ; inline


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

M: x87-env (get-exception-flags)
    status>> x87-exception>bit mask> ; inline


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

M: x87-env (get-fp-traps)
    control>> bitnot x87-exception>bit mask> ; inline


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

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


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

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


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

M: x87-env (set-exception-flags) drop ;


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

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


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

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


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

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


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

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


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

M: x87-env struct-slot-values
    { [ status>> ] [ control>> ] } cleave>array ; inline