X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fmath%2Ffloats%2Fenv%2Fenv.factor;h=318589687161a77e585321e9a1481830bba07996;hp=301c1bb5ab575c060dee7921d9926fffd5024035;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/basis/math/floats/env/env.factor b/basis/math/floats/env/env.factor index 301c1bb5ab..3185896871 100644 --- a/basis/math/floats/env/env.factor +++ b/basis/math/floats/env/env.factor @@ -105,11 +105,11 @@ GENERIC# (set-denormal-mode) 1 ( fp-env mode -- fp-env ) CONSTANT: vm-error-exception-flag>bit H{ - { +fp-invalid-operation+ HEX: 01 } - { +fp-overflow+ HEX: 02 } - { +fp-underflow+ HEX: 04 } - { +fp-zero-divide+ HEX: 08 } - { +fp-inexact+ HEX: 10 } + { +fp-invalid-operation+ 0x01 } + { +fp-overflow+ 0x02 } + { +fp-underflow+ 0x04 } + { +fp-zero-divide+ 0x08 } + { +fp-inexact+ 0x10 } } PRIVATE>