From 118e830eeb74ec2b12a6089b494d29631c5c5317 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 6 Oct 2013 18:14:28 +0000 Subject: [PATCH] Use CAREFUL-OBJECT-DATUM in i386 MULTIPLY-OBJECT-BY-2. --- src/compiler/machines/i386/rulfix.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/compiler/machines/i386/rulfix.scm b/src/compiler/machines/i386/rulfix.scm index c73721444..d4ec622f4 100644 --- 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))))))) -- 2.25.1