Fix set-slot intrinsic for x86

2007-09-23 15:26:15 -04:00 · 2007-09-23 15:26:15 -04:00 · 94bfbbde2f
parent b0f931d038
commit 94bfbbde2f
1 changed files with 1 additions and 1 deletions
--- 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" } }
        }