missed a few PPC status bits that needed clearing

diff --git a/basis/math/floats/env/ppc/ppc.factor b/basis/math/floats/env/ppc/ppc.factor
index dd8fd88b13c2bc61c20cdfcd0c0f74a2d51239c8..d6a6ae6834c74b244a52f84b0f763832e8ccf7d0 100644 (file)
--- a/basis/math/floats/env/ppc/ppc.factor
+++ b/basis/math/floats/env/ppc/ppc.factor
@@ -34,7 +34,7 @@ M: ppc-vmx-env (set-fp-env-register)
 M: ppc (fp-env-registers)
     <ppc-fpu-env> <ppc-vmx-env> 2array ;
 
-CONSTANT: ppc-exception-flag-bits HEX: fff8,0000
+CONSTANT: ppc-exception-flag-bits HEX: fff8,0700
 CONSTANT: ppc-exception-flag>bit
     H{
         { +fp-invalid-operation+ HEX: 2000,0000 }

diff --git a/vm/os-macosx-ppc.hpp b/vm/os-macosx-ppc.hpp
index 338e3e812f30b60a92592adb1eb5affbc5008ee6..cd2097a3fd885638d78b3e6aee08cb0f582bd9b5 100644 (file)
--- a/vm/os-macosx-ppc.hpp
+++ b/vm/os-macosx-ppc.hpp
@@ -69,7 +69,7 @@ inline static cell fix_stack_pointer(cell sp)
 
 inline static void mach_clear_fpu_status(ppc_float_state_t *float_state)
 {
-       FPSCR(float_state) &= 0x0007ffff;
+       FPSCR(float_state) &= 0x0007f8ff;
 }
 
 inline static void uap_clear_fpu_status(void *uap)