use radix literals

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

diff --git a/basis/cpu/x86/32/bootstrap.factor b/basis/cpu/x86/32/bootstrap.factor
index c234d03a441f653be307c3d026f27d87eb19fc3f..a3edd70ffb43f9df3ebcc8536655c9d8191bb8d7 100755 (executable)
--- a/basis/cpu/x86/32/bootstrap.factor
+++ b/basis/cpu/x86/32/bootstrap.factor
@@ -140,16 +140,14 @@ IN: bootstrap.x86
 [ jit-jump-quot ]
 \ (call) define-combinator-primitive
 
-: (jit-safepoint) ( -- )
-    0 EAX MOVABS rc-absolute rel-safepoint ;
 [
     ! Load ds and rs registers
     jit-load-vm
     jit-load-context
     jit-restore-context
 
-    ! Safepoint to clear the faulting flag in the VM
-     (jit-safepoint)
+    ! clear the fault flag
+    vm-reg vm-fault-flag-offset [+] 0 MOV
 
     ! Windows-specific setup
     ctx-reg jit-update-seh
@@ -219,7 +217,7 @@ IN: bootstrap.x86
 \ lazy-jit-compile define-combinator-primitive
 
 [
-    temp1 HEX: ffffffff CMP f rc-absolute-cell rel-literal
+    temp1 0xffffffff CMP f rc-absolute-cell rel-literal
 ] pic-check-tuple jit-define
 
 ! Inline cache miss entry points
@@ -400,7 +398,9 @@ IN: bootstrap.x86
     EAX EDX [] MOV
     jit-jump-quot ;
 
-[ (jit-safepoint) ] \ jit-safepoint jit-define
+[
+    0 EAX MOVABS rc-absolute rel-safepoint
+] \ jit-safepoint jit-define
 
 [
     jit-start-context-and-delete