From: Taylor R Campbell Date: Sun, 6 Oct 2013 18:14:28 +0000 (+0000) Subject: Use CAREFUL-OBJECT-DATUM in i386 MULTIPLY-OBJECT-BY-2. X-Git-Tag: release-9.2.0~99 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=118e830eeb74ec2b12a6089b494d29631c5c5317;p=mit-scheme.git 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 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)))))))