From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 19 Jan 2019 08:03:54 +0000 (+0000)
Subject: Fix reversed byte order branches in read_uuo_frame_size.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~64
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=72cff2455f3c28dd337543d37208c789bb8b7ccd;p=mit-scheme.git

Fix reversed byte order branches in read_uuo_frame_size.
---

diff --git a/src/microcode/cmpintmd/aarch64.c b/src/microcode/cmpintmd/aarch64.c
index d9bed8e62..6bf4bfc88 100644
--- a/src/microcode/cmpintmd/aarch64.c
+++ b/src/microcode/cmpintmd/aarch64.c
@@ -210,9 +210,9 @@ unsigned int
 read_uuo_frame_size (SCHEME_OBJECT * saddr)
 {
 #ifdef WORDS_BIGENDIAN
-  return ((saddr[1]) & 0xffff);
-#else
   return ((saddr[2]) & 0xffff);
+#else
+  return ((saddr[1]) & 0xffff);
 #endif
 }