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

simplified some code and removed a no longer used const

Browse Source 
git-svn-id: trunk@34378 -
This commit is contained in:
Károly Balogh 2016-08-26 10:07:30 +00:00
parent 2ef1a423fe
commit deda4c8247
1 changed files with 4 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/ppu.pas
View File

@ -45,8 +45,6 @@ type
const
CurrentPPUVersion = 185;
ppubufsize = 16384;
{ unit flags }
uf_init = $000001; { unit has initialization section }
uf_finalize = $000002; { unit has finalization section }
@ -238,24 +236,12 @@ begin
header.indirect_checksum := swapendian(header.indirect_checksum);
header.deflistsize:=swapendian(header.deflistsize);
header.symlistsize:=swapendian(header.symlistsize);
{$ENDIF}
{ the PPU DATA is stored in native order }
if (header.common.flags and uf_big_endian) = uf_big_endian then
Begin
{$IFDEF ENDIAN_LITTLE}
change_endian := TRUE;
{$ELSE}
change_endian := FALSE;
change_endian := (header.common.flags and uf_little_endian) = uf_little_endian;
{$ELSE not ENDIAN_BIG}
change_endian := (header.common.flags and uf_big_endian) = uf_big_endian;
{$ENDIF}
End
else if (header.common.flags and uf_little_endian) = uf_little_endian then
Begin
{$IFDEF ENDIAN_BIG}
change_endian := TRUE;
{$ELSE}
change_endian := FALSE;
{$ENDIF}
End;
end;
function tppufile.outputallowed: boolean;