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

Merge branch 'master' of git://factorcode.org/git/factor

Slava Pestov 2009-09-12 12:39:04 -05:00
parent 64482b842e 78d747fa59
commit 0dd221fae8
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,7 @@ IN: math.floats.env.ppc
STRUCT: ppc-fpu-env STRUCT: ppc-fpu-env
{ padding uint } { padding uint }
{ fpcsr uint } ; { fpscr uint } ;
! defined in the vm, cpu-ppc*.S ! defined in the vm, cpu-ppc*.S
FUNCTION: void get_ppc_fpu_env ( ppc-fpu-env* env ) ; FUNCTION: void get_ppc_fpu_env ( ppc-fpu-env* env ) ;
@ -53,27 +53,27 @@ CONSTANT: ppc-rounding-mode>bit
CONSTANT: ppc-denormal-mode-bits HEX: 4 CONSTANT: ppc-denormal-mode-bits HEX: 4
M: ppc-fpu-env (get-exception-flags) ( register -- exceptions ) M: ppc-fpu-env (get-exception-flags) ( register -- exceptions )
fpcsr>> ppc-exception-flag>bit mask> ; inline fpscr>> ppc-exception-flag>bit mask> ; inline
M: ppc-fpu-env (set-exception-flags) ( register exceptions -- register' ) M: ppc-fpu-env (set-exception-flags) ( register exceptions -- register' )
[ ppc-exception-flag>bit >mask ppc-exception-flag-bits remask ] curry change-fpcsr ; inline [ ppc-exception-flag>bit >mask ppc-exception-flag-bits remask ] curry change-fpscr ; inline
M: ppc-fpu-env (get-fp-traps) ( register -- exceptions ) M: ppc-fpu-env (get-fp-traps) ( register -- exceptions )
fpcsr>> not ppc-fp-traps>bit mask> ; inline fpscr>> bitnot ppc-fp-traps>bit mask> ; inline
M: ppc-fpu-env (set-fp-traps) ( register exceptions -- register' ) M: ppc-fpu-env (set-fp-traps) ( register exceptions -- register' )
[ ppc-fp-traps>bit >mask not ppc-fp-traps-bits remask ] curry change-fpcsr ; inline [ ppc-fp-traps>bit >mask bitnot ppc-fp-traps-bits remask ] curry change-fpscr ; inline
M: ppc-fpu-env (get-rounding-mode) ( register -- mode ) M: ppc-fpu-env (get-rounding-mode) ( register -- mode )
fpcsr>> ppc-rounding-mode-bits mask ppc-rounding-mode>bit value-at ; inline fpscr>> ppc-rounding-mode-bits mask ppc-rounding-mode>bit value-at ; inline
M: ppc-fpu-env (set-rounding-mode) ( register mode -- register' ) M: ppc-fpu-env (set-rounding-mode) ( register mode -- register' )
[ ppc-rounding-mode>bit at ppc-rounding-mode-bits remask ] curry change-fpcsr ; inline [ ppc-rounding-mode>bit at ppc-rounding-mode-bits remask ] curry change-fpscr ; inline
M: ppc-fpu-env (get-denormal-mode) ( register -- mode ) M: ppc-fpu-env (get-denormal-mode) ( register -- mode )
fpcsr>> ppc-denormal-mode-bits mask zero? +denormal-keep+ +denormal-flush+ ? ; inline fpscr>> ppc-denormal-mode-bits mask zero? +denormal-keep+ +denormal-flush+ ? ; inline
M: ppc-fpu-env (set-denormal-mode) ( register mode -- register' ) M: ppc-fpu-env (set-denormal-mode) ( register mode -- register' )
[ [
{ {
{ +denormal-keep+ [ ppc-denormal-mode-bits unmask ] } { +denormal-keep+ [ ppc-denormal-mode-bits unmask ] }
{ +denormal-flush+ [ ppc-denormal-mode-bits bitor ] } { +denormal-flush+ [ ppc-denormal-mode-bits bitor ] }
} case } case
] curry change-fpcsr ; inline ] curry change-fpscr ; inline