Use CAREFUL-OBJECT-DATUM in i386 MULTIPLY-OBJECT-BY-2.

diff --git a/src/compiler/machines/i386/rulfix.scm b/src/compiler/machines/i386/rulfix.scm
index c7372144414e8a9190a85a8d51fa0ce9a2425cfe..d4ec622f4ff37c3c2f0d9f75572ed13d372b4d80 100644 (file)
--- a/src/compiler/machines/i386/rulfix.scm
+++ b/src/compiler/machines/i386/rulfix.scm
@@ -643,7 +643,8 @@ USA.
       (let ((subtract-one-typecode
             (- #x100000000 (make-non-pointer-literal (ucode-type fixnum) 0)))
            (mask-out-carry-into-typecode-lsb
-            (make-non-pointer-literal (ucode-type fixnum) (object-datum -1))))
+            (make-non-pointer-literal (ucode-type fixnum)
+                                      (careful-object-datum -1))))
        (LAP (LEA ,tgt (@ROI UW ,src ,subtract-one-typecode ,src 1))
             (AND W ,tgt (&U ,mask-out-carry-into-typecode-lsb)))))))