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

Fix writing of low qword of floatx80 real type into 10-byte array on big endian systems

Browse Source
This commit is contained in:
Pierre Muller 2024-01-25 10:13:21 +00:00
parent 3db060e47a
commit 8ae28b4846
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/entfile.pas
View File

@ -1945,7 +1945,7 @@ begin
softfloat_exception_mask:=local_softfloat_exception_mask; softfloat_exception_mask:=local_softfloat_exception_mask;
{$ifdef FPC_BIG_ENDIAN} {$ifdef FPC_BIG_ENDIAN}
pword(@floatx80_ba[0])^:=floatx80_e.high; pword(@floatx80_ba[0])^:=floatx80_e.high;
pqword(@floatx80_ba[8])^:=floatx80_e.low; unaligned(pqword(@floatx80_ba[2])^):=floatx80_e.low;
{$else} {$else}
pword(@floatx80_ba[8])^:=floatx80_e.high; pword(@floatx80_ba[8])^:=floatx80_e.high;
pqword(@floatx80_ba[0])^:=floatx80_e.low; pqword(@floatx80_ba[0])^:=floatx80_e.low;