From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 21 Jan 2019 00:37:29 +0000 (+0000)
Subject: Fix scale->shift.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~49
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00e785b531a64bbc2626c84beaa0d018abcb1dd0;p=mit-scheme.git

Fix scale->shift.
---

diff --git a/src/compiler/machines/aarch64/lapgen.scm b/src/compiler/machines/aarch64/lapgen.scm
index 3666f17ae..c5bebdaf9 100644
--- a/src/compiler/machines/aarch64/lapgen.scm
+++ b/src/compiler/machines/aarch64/lapgen.scm
@@ -286,7 +286,7 @@ USA.
     ((1) 0)
     ((2) 1)
     ((4) 2)
-    ((8) 4)
+    ((8) 3)
     (else (error "Invalid scale:" scale))))
 
 (define (load-displaced-address target base offset scale)