steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

typos in altivec env

db4
Slava Pestov 2009-09-12 22:30:11 -05:00
parent 5dfd1c70f0
commit 3a61107f1d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/math/floats/env/ppc/ppc.factor vendored
View File

@ -90,7 +90,7 @@ M: ppc-fpu-env (set-denormal-mode) ( register mode -- register' )
} case } case
] curry change-fpscr ; inline ] curry change-fpscr ; inline
CONSTANT: vmx-denormal-mode-bits HEX: 8000 CONSTANT: vmx-denormal-mode-bits HEX: 10000
M: ppc-vmx-env (get-exception-flags) ( register -- exceptions ) M: ppc-vmx-env (get-exception-flags) ( register -- exceptions )
drop { } ; inline drop { } ; inline
@ -109,7 +109,7 @@ M: ppc-vmx-env (set-rounding-mode) ( register mode -- register' )
M: ppc-vmx-env (get-denormal-mode) ( register -- mode ) M: ppc-vmx-env (get-denormal-mode) ( register -- mode )
vscr>> vmx-denormal-mode-bits mask zero? +denormal-keep+ +denormal-flush+ ? ; inline vscr>> vmx-denormal-mode-bits mask zero? +denormal-keep+ +denormal-flush+ ? ; inline
M: ppc-vmx-env (get-denormal-mode) ( register mode -- register ) M: ppc-vmx-env (set-denormal-mode) ( register mode -- register )
[ [
{ {
{ +denormal-keep+ [ vmx-denormal-mode-bits unmask ] } { +denormal-keep+ [ vmx-denormal-mode-bits unmask ] }