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

* Fix set endian handling.

Browse Source 
git-svn-id: trunk@7918 -
This commit is contained in:
daniel 2007-07-01 22:30:43 +00:00
parent 8a0cc8c888
commit b64558620f
1 changed files with 8 additions and 9 deletions

17
compiler/ppu.pas
View File

@ -710,24 +710,23 @@ end;
procedure tppufile.getsmallset(var b);
var
l : longint;
i : longint;
begin
l:=getlongint;
longint(b):=l;
getdata(b,4);
if change_endian then
for i:=0 to 3 do
Pbyte(@b)[i]:=reverse_byte(Pbyte(@b)[i]);
end;
procedure tppufile.getnormalset(var b);
type
SetLongintArray = Array [0..7] of longint;
var
i : longint;
begin
getdata(b,32);
if change_endian then
for i:=0 to 7 do
SetLongintArray(b)[i]:=getlongint
else
getdata(b,32);
for i:=0 to 31 do
Pbyte(@b)[i]:=reverse_byte(Pbyte(@b)[i]);
end;