From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 23 Jan 2019 05:21:52 +0000 (+0000)
Subject: Fix FIXNUM-NOT rule: don't set the low bits.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=94cf4d8647cf3ef7ef38d3683d57e126716d2ce7;p=mit-scheme.git

Fix FIXNUM-NOT rule: don't set the low bits.
---

diff --git a/src/compiler/machines/aarch64/rulfix.scm b/src/compiler/machines/aarch64/rulfix.scm
index 8662ed72e..8d753b354 100644
--- a/src/compiler/machines/aarch64/rulfix.scm
+++ b/src/compiler/machines/aarch64/rulfix.scm
@@ -93,7 +93,7 @@ USA.
 (define-arithmetic-method 'FIXNUM-NOT fixnum-methods/1-arg
   (lambda (target source overflow?)
     (assert (not overflow?))
-    (LAP (MVN X ,target ,source))))
+    (LAP (EOR X ,target ,source (& ,(shift-left -1 scheme-type-width))))))
 
 (define-arithmetic-method 'ONE-PLUS-FIXNUM fixnum-methods/1-arg
   (lambda (target source overflow?)