paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:09:10 +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 } 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) } islibrary : boolean; { if it is a library (win32 dll) }
IsPackage : boolean; IsPackage : boolean;
change_endian : boolean; { if the unit is loaded on a system with a different endianess than it was compiled on }
moduleid : longint; moduleid : longint;
unitmap : punitmap; { mapping of all used units } unitmap : punitmap; { mapping of all used units }
unitmapsize : longint; { number of units in the map } unitmapsize : longint; { number of units in the map }
@ -634,6 +635,7 @@ implementation
is_unit:=_is_unit; is_unit:=_is_unit;
islibrary:=false; islibrary:=false;
ispackage:=false; ispackage:=false;
change_endian:=false;
is_dbginfo_written:=false; is_dbginfo_written:=false;
mode_switch_allowed:= true; mode_switch_allowed:= true;
moduleoptions:=[]; moduleoptions:=[];

1
compiler/fppu.pas
View File

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