math.floats.env.ppc: fix ppc-fp-traps-bits

2009-09-12 12:49:51 -05:00 · 2009-09-12 12:49:51 -05:00 · d5206b26ec
parent 8b8baf898c
commit d5206b26ec
1 changed files with 1 additions and 1 deletions
--- a/basis/math/floats/env/ppc/ppc.factor
+++ b/basis/math/floats/env/ppc/ppc.factor
@ -31,7 +31,7 @@ CONSTANT: ppc-exception-flag>bit
        { +fp-inexact+           HEX: 0200,0000 }
    }

-CONSTANT: ppc-fp-traps-bits HEX: f80
+CONSTANT: ppc-fp-traps-bits HEX: f800
 CONSTANT: ppc-fp-traps>bit
    H{
        { +fp-invalid-operation+ HEX: 8000 }