paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:09:23 +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;
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}