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

* endian fix is now done using a define instead of with source_info

Browse Source
This commit is contained in:
Jonas Maebe 2003-05-26 15:49:54 +00:00
parent 925bc00623
commit 035ad566f9
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/ppu.pas
View File

@ -719,20 +719,19 @@ begin
{ update size (w/o header!) in the header } { update size (w/o header!) in the header }
header.size:=bufstart-sizeof(tppuheader); header.size:=bufstart-sizeof(tppuheader);
{ set the endian flag } { set the endian flag }
if source_info.endian = endian_little then {$ifndef FPC_BIG_ENDIAN}
header.flags := header.flags or uf_little_endian header.flags := header.flags or uf_little_endian;
else {$else not FPC_BIG_ENDIAN}
begin header.flags := header.flags or uf_big_endian;
header.flags := header.flags or uf_big_endian; { Now swap the header in the correct endian (always little endian) }
{ Now swap the header in the correct endian (always little endian) } header.compiler := SwapWord(header.compiler);
header.compiler := SwapWord(header.compiler); header.cpu := SwapWord(header.cpu);
header.cpu := SwapWord(header.cpu); header.target := SwapWord(header.target);
header.target := SwapWord(header.target); header.flags := SwapLong(header.flags);
header.flags := SwapLong(header.flags); header.size := SwapLong(header.size);
header.size := SwapLong(header.size); header.checksum := SwapLong(header.checksum);
header.checksum := SwapLong(header.checksum); header.interface_checksum := SwapLong(header.interface_checksum);
header.interface_checksum := SwapLong(header.interface_checksum); {$endif not FPC_BIG_ENDIAN}
end;
{ write header and restore filepos after it } { write header and restore filepos after it }
opos:=filepos(f); opos:=filepos(f);
seek(f,0); seek(f,0);
@ -985,7 +984,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.36 2003-05-24 13:37:10 jonas Revision 1.37 2003-05-26 15:49:54 jonas
* endian fix is now done using a define instead of with source_info
Revision 1.36 2003/05/24 13:37:10 jonas
* endian fixes * endian fixes
Revision 1.35 2003/05/23 17:03:51 peter Revision 1.35 2003/05/23 17:03:51 peter