From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 19 Jan 2019 23:56:31 +0000 (+0000)
Subject: Note there is a way to do negative offsets.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~58
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=60743079122d7a9ae7eb7dc6f8d9c040809018ae;p=mit-scheme.git

Note there is a way to do negative offsets.
---

diff --git a/src/compiler/machines/aarch64/rules3.scm b/src/compiler/machines/aarch64/rules3.scm
index ff7b39705..37f7fd8d7 100644
--- a/src/compiler/machines/aarch64/rules3.scm
+++ b/src/compiler/machines/aarch64/rules3.scm
@@ -92,6 +92,8 @@ USA.
 (define (entry->pc pc entry)
   ;; XXX Would be nice to skip the SUB, but LDR doesn't have a signed
   ;; offset without pre/post-increment.
+  ;;
+  ;; XXX Oops -- yes we can: LDUR.
   (LAP (SUB X ,pc ,entry (&U 8))
        (LDR X ,pc ,pc)
        (ADD X ,pc ,pc ,entry)))