From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 19 Jan 2019 08:03:41 +0000 (+0000)
Subject: Fix extraction of PC offset from branch instruction.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~65
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=824cff9e400820018f188bd31b3e14d16032bb36;p=mit-scheme.git

Fix extraction of PC offset from branch instruction.
---

diff --git a/src/microcode/cmpintmd/aarch64.c b/src/microcode/cmpintmd/aarch64.c
index b6610c10b..d9bed8e62 100644
--- a/src/microcode/cmpintmd/aarch64.c
+++ b/src/microcode/cmpintmd/aarch64.c
@@ -90,7 +90,7 @@ cc_return_address_to_entry_address (insn_t * pc)
 {
   insn_t insn = (pc[0]);
   if ((insn & 0xfc000000UL) == 0x14000000UL) /* B */
-    return (pc + (insn & 0x3fffffff));
+    return (pc + (insn & 0x03ffffff));
   else
     /* XXX What if it got branch-tensioned?  */
     error_external_return ();