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

* have the module keep track whether it was loaded from a PPU with a different endianess than the current host system

Browse Source 
git-svn-id: trunk@44072 -
This commit is contained in:
svenbarth 2020-01-30 21:48:15 +00:00
parent 7bcdc2b37f
commit 84dc6621cb
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fmodule.pas
View File

@ -133,6 +133,7 @@ interface
moduleflags : tmoduleflags; { ppu flags that do not need to be known by just reading the ppu header }
islibrary : boolean; { if it is a library (win32 dll) }
IsPackage : boolean;
change_endian : boolean; { if the unit is loaded on a system with a different endianess than it was compiled on }
moduleid : longint;
unitmap : punitmap; { mapping of all used units }
unitmapsize : longint; { number of units in the map }
@ -634,6 +635,7 @@ implementation
is_unit:=_is_unit;
islibrary:=false;
ispackage:=false;
change_endian:=false;
is_dbginfo_written:=false;
mode_switch_allowed:= true;
moduleoptions:=[];

1
compiler/fppu.pas
View File

@ -359,6 +359,7 @@ var
crc:=ppufile.header.checksum;
interface_crc:=ppufile.header.interface_checksum;
indirect_crc:=ppufile.header.indirect_checksum;
change_endian:=ppufile.change_endian;
{ Show Debug info }
if ppufiletime<>-1 then
Message1(unit_u_ppu_time,filetimestring(ppufiletime))