use radix literals

[factor.git] / basis / cpu / x86 / x86.factor

diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor
index 931bc240ac69dad59e619b5f71b77a6fad5a3389..51e32c643d76e8f8473bbb2b4b62016f0e20be35 100644 (file)
--- a/basis/cpu/x86/x86.factor
+++ b/basis/cpu/x86/x86.factor
@@ -87,7 +87,7 @@ M: x86 %replace-imm
     {
         { [ dup not ] [ drop \ f type-number MOV ] }
         { [ dup fixnum? ] [ tag-fixnum MOV ] }
-        [ [ HEX: ffffffff MOV ] dip rc-absolute rel-literal ]
+        [ [ 0xffffffff MOV ] dip rc-absolute rel-literal ]
     } cond ;
 
 : (%inc) ( n reg -- ) swap cells dup 0 > [ ADD ] [ neg SUB ] if ; inline
@@ -541,7 +541,7 @@ M:: x86 %test ( dst src1 src2 cc temp -- )
     dst cc temp %boolean ;
 
 : (%compare-tagged) ( src1 src2 -- )
-    [ HEX: ffffffff CMP ] dip rc-absolute rel-literal ;
+    [ 0xffffffff CMP ] dip rc-absolute rel-literal ;
 
 M:: x86 %compare-integer-imm ( dst src1 src2 cc temp -- )
     src1 src2 CMP
@@ -594,11 +594,11 @@ M:: x86 %compare-imm-branch ( label src1 src2 cc -- )
 
 M:: x86 %dispatch ( src temp -- )
     ! Load jump table base.
-    temp HEX: ffffffff MOV
+    temp 0xffffffff MOV
     building get length :> start
     0 rc-absolute-cell rel-here
     ! Add jump table base
-    temp src HEX: 7f [++] JMP
+    temp src 0x7f [++] JMP
     building get length :> end
     ! Fix up the displacement above
     cell alignment
@@ -698,10 +698,10 @@ M: x86 long-long-odd-register? f ;
 M: x86 float-right-align-on-stack? f ;
 
 M: x86 immediate-arithmetic? ( n -- ? )
-    HEX: -80000000 HEX: 7fffffff between? ;
+    -0x80000000 0x7fffffff between? ;
 
 M: x86 immediate-bitwise? ( n -- ? )
-    HEX: -80000000 HEX: 7fffffff between? ;
+    -0x80000000 0x7fffffff between? ;
 
 : %cmov-float= ( dst src -- )
     [