From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 22 Apr 2019 04:07:27 +0000 (+0000)
Subject: Fix sign error in previous.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~11
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7e85ba9816383d8735623af94316f2682907a119;p=mit-scheme.git

Fix sign error in previous.
---

diff --git a/src/microcode/cmpintmd/aarch64.c b/src/microcode/cmpintmd/aarch64.c
index 2baebfe3d..2853c8dcd 100644
--- a/src/microcode/cmpintmd/aarch64.c
+++ b/src/microcode/cmpintmd/aarch64.c
@@ -263,7 +263,7 @@ write_uuo_target (insn_t * target, SCHEME_OBJECT * saddr)
   iaddr = (((insn_t *) saddr) + ioff);
 
   /* ldr x1, PC-ioff */
-  (iaddr[0]) = (0x58000001UL | ((((unsigned) ioff) & 0x7ffff) << 5));
+  (iaddr[0]) = (0x58000001UL | ((((unsigned) (-ioff)) & 0x7ffff) << 5));
 
   /* If the target PC is right after the target offset, then the PC
      requires no further relocation and we can jump to a fixed address.