paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:11:06 +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 -
This commit is contained in:
svenbarth 2020-10-25 15:36:31 +00:00
parent 52cf07d968
commit 16eb670e67
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