paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix use of unaligned for big endian code

Browse Source
This commit is contained in:
Pierre Muller 2022-11-15 21:48:34 +00:00
parent 3cf8ae8433
commit 5e0eb521c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/ctypes.pp
View File

@ -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}