From 00e785b531a64bbc2626c84beaa0d018abcb1dd0 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 21 Jan 2019 00:37:29 +0000 Subject: [PATCH] Fix scale->shift. --- src/compiler/machines/aarch64/lapgen.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1