use radix literals

[factor.git] / basis / math / floats / env / ppc / ppc.factor

diff --git a/basis/math/floats/env/ppc/ppc.factor b/basis/math/floats/env/ppc/ppc.factor
index 13870094258b262d7891396f200347f054c41990..eef8ae536534940c5decda03f5d0b78a03c648cd 100644 (file)
--- a/basis/math/floats/env/ppc/ppc.factor
+++ b/basis/math/floats/env/ppc/ppc.factor
@@ -20,17 +20,17 @@ STRUCT: ppc-vmx-env
 : set_ppc_fpu_env ( env -- )
     void { void* } cdecl [
         0 3 0 LFD
-        HEX: ff 0 0 0 MTFSF
+        0xff 0 0 0 MTFSF
     ] alien-assembly ;
 
 : get_ppc_vmx_env ( env -- )
     void { void* } cdecl [
         0 MFVSCR
         4 1 16 SUBI
-        5 HEX: f LI
+        5 0xf LI
         4 4 5 ANDC
         0 0 4 STVXL
-        5 HEX: c LI
+        5 0xc LI
         6 5 4 LWZX
         6 3 0 STW
     ] alien-assembly ;
@@ -38,9 +38,9 @@ STRUCT: ppc-vmx-env
 : set_ppc_vmx_env ( env -- )
     void { void* } cdecl [
         3 1 16 SUBI
-        5 HEX: f LI
+        5 0xf LI
         4 4 5 ANDC
-        5 HEX: c LI
+        5 0xc LI
         6 3 0 LWZ
         6 5 4 STWX
         0 0 4 LVXL
@@ -64,36 +64,36 @@ M: ppc-vmx-env (set-fp-env-register)
 M: ppc (fp-env-registers)
     <ppc-fpu-env> 1array ;
 
-CONSTANT: ppc-exception-flag-bits HEX: fff8,0700
+CONSTANT: ppc-exception-flag-bits 0xfff8,0700
 CONSTANT: ppc-exception-flag>bit
     H{
-        { +fp-invalid-operation+ HEX: 2000,0000 }
-        { +fp-overflow+          HEX: 1000,0000 }
-        { +fp-underflow+         HEX: 0800,0000 }
-        { +fp-zero-divide+       HEX: 0400,0000 }
-        { +fp-inexact+           HEX: 0200,0000 }
+        { +fp-invalid-operation+ 0x2000,0000 }
+        { +fp-overflow+          0x1000,0000 }
+        { +fp-underflow+         0x0800,0000 }
+        { +fp-zero-divide+       0x0400,0000 }
+        { +fp-inexact+           0x0200,0000 }
     }
 
-CONSTANT: ppc-fp-traps-bits HEX: f8
+CONSTANT: ppc-fp-traps-bits 0xf8
 CONSTANT: ppc-fp-traps>bit
     H{
-        { +fp-invalid-operation+ HEX: 80 }
-        { +fp-overflow+          HEX: 40 }
-        { +fp-underflow+         HEX: 20 }
-        { +fp-zero-divide+       HEX: 10 }
-        { +fp-inexact+           HEX: 08 }
+        { +fp-invalid-operation+ 0x80 }
+        { +fp-overflow+          0x40 }
+        { +fp-underflow+         0x20 }
+        { +fp-zero-divide+       0x10 }
+        { +fp-inexact+           0x08 }
     }
 
-CONSTANT: ppc-rounding-mode-bits HEX: 3
+CONSTANT: ppc-rounding-mode-bits 0x3
 CONSTANT: ppc-rounding-mode>bit
     $[ H{
-        { +round-nearest+ HEX: 0 }
-        { +round-zero+    HEX: 1 }
-        { +round-up+      HEX: 2 }
-        { +round-down+    HEX: 3 }
+        { +round-nearest+ 0x0 }
+        { +round-zero+    0x1 }
+        { +round-up+      0x2 }
+        { +round-down+    0x3 }
     } >biassoc ]
 
-CONSTANT: ppc-denormal-mode-bits HEX: 4
+CONSTANT: ppc-denormal-mode-bits 0x4
 
 M: ppc-fpu-env (get-exception-flags) ( register -- exceptions )
     fpscr>> ppc-exception-flag>bit mask> ; inline
@@ -120,7 +120,7 @@ M: ppc-fpu-env (set-denormal-mode) ( register mode -- register' )
         } case
     ] curry change-fpscr ; inline
 
-CONSTANT: vmx-denormal-mode-bits HEX: 10000
+CONSTANT: vmx-denormal-mode-bits 0x10000
 
 M: ppc-vmx-env (get-exception-flags) ( register -- exceptions )
     drop { } ; inline