diff --git a/core/cpu/x86/intrinsics/intrinsics.factor b/core/cpu/x86/intrinsics/intrinsics.factor index 1ee6efecfc..0228848a33 100644 --- a/core/cpu/x86/intrinsics/intrinsics.factor +++ b/core/cpu/x86/intrinsics/intrinsics.factor @@ -121,7 +121,7 @@ IN: cpu.x86.intrinsics \ set-slot { ! Slot number is literal and the tag is known { - [ %slot-literal-known-tag "val" operand MOV ] H{ + [ %slot-literal-known-tag "val" operand MOV generate-write-barrier ] H{ { +input+ { { f "val" } { f "obj" known-tag } { [ small-slot? ] "n" } } } { +clobber+ { "obj" } } }