From 5e0eb521c4dfd2430e77ba4f8d01b8a887afedda Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Tue, 15 Nov 2022 21:48:34 +0000
Subject: [PATCH] Fix use of unaligned for big endian code

---
 rtl/inc/ctypes.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/ctypes.pp b/rtl/inc/ctypes.pp
index 2df8c10502..277878a177 100644
--- a/rtl/inc/ctypes.pp
+++ b/rtl/inc/ctypes.pp
@@ -204,7 +204,7 @@ begin
     exp:=exp+$8000;
   Pword(@r[r128_exponent_ofs])^:=exp;
 {$ifdef USE_UNALIGNED}
-  Pqword(unaligned(@r[r128_mantissa_ofs]))^:=qword(v) shl 12;
+  unaligned(Pqword(@r[r128_mantissa_ofs])^):=qword(v) shl 12;
   Pword(@r[r128_mantissa_ofs+8])^:=0;
   Pword(@r[r128_mantissa_ofs+10])^:=0;
 {$else not USE_UNALIGNED}