paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 00:29:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Add endian swapping for deflistsize and symlistsize.

Browse Source 
git-svn-id: trunk@7874 -
This commit is contained in:
daniel 2007-06-30 20:38:59 +00:00
parent 935902de35
commit a90fe1dc41
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppu.pas
View File

@ -416,6 +416,8 @@ begin
header.size := swapendian(header.size); header.size := swapendian(header.size);
header.checksum := swapendian(header.checksum); header.checksum := swapendian(header.checksum);
header.interface_checksum := swapendian(header.interface_checksum); header.interface_checksum := swapendian(header.interface_checksum);
header.deflistsize:=swapendian(header.deflistsize);
header.symlistsize:=swapendian(header.symlistsize);
{$ENDIF} {$ENDIF}
{ the PPU DATA is stored in native order } { the PPU DATA is stored in native order }
if (header.flags and uf_big_endian) = uf_big_endian then if (header.flags and uf_big_endian) = uf_big_endian then