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

Fix display of 80bit floats in cross-endian case

Browse Source
This commit is contained in:
Pierre Muller 2024-09-28 13:13:18 +02:00
parent fdae200281
commit 8cacfc3355
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/utils/ppuutils/ppudump.pp
View File

@ -537,12 +537,6 @@ const
e_qw, mantval : qword; e_qw, mantval : qword;
e_w : word; e_w : word;
begin begin
if ppufile.change_endian then
begin
for i:=0 to 9 do
new.bytes[i]:=e.bytes[9-i];
e:=new;
end;
if sizeof(ext)=10 then if sizeof(ext)=10 then
begin begin
ext:=pextended(@e)^; ext:=pextended(@e)^;
@ -560,6 +554,11 @@ const
e_w:=pword(@(e.bytes[8]))^; e_w:=pword(@(e.bytes[8]))^;
e_qw:=pqword(@(e.bytes[0]))^; e_qw:=pqword(@(e.bytes[0]))^;
end; end;
if ppufile.change_endian then
begin
e_w:=swapendian(e_w);
e_qw:=swapendian(e_qw);
end;
sign := (e_w and $8000) <> 0; sign := (e_w and $8000) <> 0;
expMaximal := (e_w and $7fff) = 32767; expMaximal := (e_w and $7fff) = 32767;
exp:=(e_w and $7fff) - 16383 - 63; exp:=(e_w and $7fff) - 16383 - 63;