From 94cf4d8647cf3ef7ef38d3683d57e126716d2ce7 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 23 Jan 2019 05:21:52 +0000 Subject: [PATCH] Fix FIXNUM-NOT rule: don't set the low bits. --- src/compiler/machines/aarch64/rulfix.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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?) -- 2.25.1