From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 23 Jan 2019 05:33:39 +0000 (+0000)
Subject: Fix displaced byte load rule.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~28
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f1404a385499d652b8496acf1caa881bb1e4da48;p=mit-scheme.git

Fix displaced byte load rule.

The offset is not a machine register!  Yikes.
---

diff --git a/src/compiler/machines/aarch64/rules1.scm b/src/compiler/machines/aarch64/rules1.scm
index 4574854fc..77367d6df 100644
--- a/src/compiler/machines/aarch64/rules1.scm
+++ b/src/compiler/machines/aarch64/rules1.scm
@@ -291,8 +291,8 @@ USA.
           (BYTE-OFFSET (REGISTER (? base))
                        (MACHINE-CONSTANT (? offset))))
   (QUALIFIER (not (= offset rsp)))
-  (standard-binary target base offset
-    (lambda (target base offset)
+  (standard-unary target base
+    (lambda (target base)
       (LAP (LDR B ,target (+ ,base (&U ,offset)))))))
 
 ;;; Store byte with displacement