Fix scale->shift.

diff --git a/src/compiler/machines/aarch64/lapgen.scm b/src/compiler/machines/aarch64/lapgen.scm
index 3666f17aeb1c95f6e31c33df428b968acc2d3ec2..c5bebdaf9813cc5272e67d9b9f5faec19ddad72c 100644 (file)
--- 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)