Disable set-slot intrinsic since it seems problematic

diff --git a/library/bootstrap/boot-stage1.factor b/library/bootstrap/boot-stage1.factor
index 05ffbba14b12df77d1646b60ebdab9c6e8639e2d..29f717929aabb4942535693a20b7ace33fe37a5c 100644 (file)
--- a/library/bootstrap/boot-stage1.factor
+++ b/library/bootstrap/boot-stage1.factor
@@ -283,7 +283,7 @@ vectors words ;
                     "/library/compiler/x86/assembler.factor"
                     "/library/compiler/x86/architecture.factor"
                     "/library/compiler/x86/alien.factor"
-                    ! "/library/compiler/x86/intrinsics.factor"
+                    "/library/compiler/x86/intrinsics.factor"
                 }
             ]
         } {

diff --git a/library/compiler/x86/intrinsics.factor b/library/compiler/x86/intrinsics.factor
index 066097f303bafc32c96a3a9151914bde79881bf6..fe18dce073ffd76b33785a5ccbea9a7a27826a55 100644 (file)
--- a/library/compiler/x86/intrinsics.factor
+++ b/library/compiler/x86/intrinsics.factor
@@ -72,19 +72,19 @@ IN: compiler
     "obj" operand card-offset ADD rel-absolute-cell rel-cards
     "obj" operand [] card-mark OR ;
 
-\ set-slot [
-    "obj" operand untag
-    ! turn tagged fixnum slot # into an offset
-    "slot" operand fixnum>slot@
-    ! compute slot address
-    "obj" operand "slot" operand ADD
-    ! store new slot value
-    "obj" operand [] "val" operand MOV
-    generate-write-barrier
-] H{
-    { +input { { f "val" } { f "obj" } { f "slot" } } }
-    { +clobber { "obj" } }
-} define-intrinsic
+! \ set-slot [
+!     "obj" operand untag
+!     ! turn tagged fixnum slot # into an offset
+!     "slot" operand fixnum>slot@
+!     ! compute slot address
+!     "obj" operand "slot" operand ADD
+!     ! store new slot value
+!     "obj" operand [] "val" operand MOV
+!     generate-write-barrier
+! ] H{
+!     { +input { { f "val" } { f "obj" } { f "slot" } } }
+!     { +clobber { "obj" "slot" } }
+! } define-intrinsic
 
 \ char-slot [
     EBX PUSH
@@ -233,7 +233,7 @@ IN: compiler
     { +output { "x" } }
     { +clobber { "x" "y" } }
 } define-intrinsic
-! 
+
 \ fixnum/mod [ generate-fixnum/mod ] H{
     { +input { { 0 "x" } { 1 "y" } } }
     { +scratch { { 2 "out" } } }