فهرست منبع

Fix use of unaligned for big endian code

Pierre Muller 2 سال پیش
والد
کامیت
5e0eb521c4
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      rtl/inc/ctypes.pp

+ 1 - 1
rtl/inc/ctypes.pp

@@ -204,7 +204,7 @@ begin
     exp:=exp+$8000;
     exp:=exp+$8000;
   Pword(@r[r128_exponent_ofs])^:=exp;
   Pword(@r[r128_exponent_ofs])^:=exp;
 {$ifdef USE_UNALIGNED}
 {$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+8])^:=0;
   Pword(@r[r128_mantissa_ofs+10])^:=0;
   Pword(@r[r128_mantissa_ofs+10])^:=0;
 {$else not USE_UNALIGNED}
 {$else not USE_UNALIGNED}