From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 21 Jan 2019 22:39:29 +0000 (+0000)
Subject: Fix indexing in MOVE-FRAME-UP code: objects, not bytes, here.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~40
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c08784cd5141b978e61ef70c6c6a2275463ea5b6;p=mit-scheme.git

Fix indexing in MOVE-FRAME-UP code: objects, not bytes, here.

And with this, the cold load completes on aarch64!
---

diff --git a/src/compiler/machines/aarch64/rules3.scm b/src/compiler/machines/aarch64/rules3.scm
index 29feed26c..5517b0934 100644
--- a/src/compiler/machines/aarch64/rules3.scm
+++ b/src/compiler/machines/aarch64/rules3.scm
@@ -322,7 +322,7 @@ USA.
                (LAP))
          ,@(load-unsigned-immediate index loop-count)
         (LABEL ,label)
-         (SUB X ,index ,index (&U #x10))
+         (SUB X ,index ,index (&U 2))
          (LDP X ,temp1 ,temp2 (PRE+ ,regnum:stack-pointer (& (* 8 -2))))
          (STP X ,temp1 ,temp2 (PRE+ ,address (& (* 8 -2))))
          (CBNZ X ,index (@PCR ,label ,regnum:scratch-0))