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

Fix change_endian code to read double and single float data

Browse Source 
git-svn-id: trunk@42600 -
This commit is contained in:
pierre 2019-08-08 06:24:47 +00:00
parent c31774eac4
commit 6d2a7a1b27
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/entfile.pas
View File

@ -1202,7 +1202,9 @@ function tentryfile.getrealsize(sizeofreal : longint):entryreal;
var
e : entryreal;
d : double;
di : qword;{ integer of same size as double }
s : single;
si : dword; { integer of same size as single }
begin
if sizeofreal=sizeof(e) then
begin
@ -1242,9 +1244,11 @@ begin
end;
readdata(d,sizeof(d));
if change_endian then
result:=swapendian(pqword(@d)^)
else
result:=d;
begin
di:=swapendian(pqword(@d)^);
d:=pdouble(@di)^;
end;
result:=d;
inc(entryidx,sizeof(d));
result:=d;
{$ifdef DEBUG_PPU}
@ -1267,9 +1271,11 @@ begin
end;
readdata(s,sizeof(s));
if change_endian then
result:=swapendian(pdword(@s)^)
else
result:=s;
begin
si:=swapendian(pdword(@s)^);
s:=psingle(@si)^;
end;
result:=s;
inc(entryidx,sizeof(s));
result:=s;
{$ifdef DEBUG_PPU}