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

* use the sizes of the floatx80 and float128 structs for arrays having their size to avoid problems with padding on different platforms

Browse Source 
git-svn-id: trunk@47198 -
(cherry picked from commit 16eb670e67)
This commit is contained in:
svenbarth 2020-10-25 15:36:31 +00:00 committed by Pierre Muller
parent 700628d545
commit dba65567f1
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/ufloat128.pp
View File

@ -39,11 +39,11 @@ unit ufloat128;
procedure DumpFloat128(const f : float128);
type
ta = packed array[0..15] of byte;
ta = packed array[0..SizeOf(float128)-1] of byte;
var
i : longint;
begin
for i:=15 downto 0 do
for i:=SizeOf(float128)-1 downto 0 do
begin
write(hexstr(ta(f)[i],2));
if i<15 then

4
rtl/inc/ufloatx80.pp
View File

@ -39,11 +39,11 @@ unit ufloatx80;
procedure DumpFloatx80(const f : floatx80);
type
ta = packed array[0..15] of byte;
ta = packed array[0..SizeOf(floatx80)-1] of byte;
var
i : longint;
begin
for i:=15 downto 0 do
for i:=SizeOf(floatx80)-1 downto 0 do
begin
write(hexstr(ta(f)[i],2));
if i<15 then