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

Remember change_endian from ppufile for generictokenbuf reading

Browse Source 
git-svn-id: trunk@19011 -
This commit is contained in:
pierre 2011-09-07 13:04:55 +00:00
parent d3d91e40ab
commit 9073beffec
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/symdef.pas
View File

@ -61,6 +61,9 @@ interface
genericdef : tstoreddef; genericdef : tstoreddef;
genericdefderef : tderef; genericdefderef : tderef;
generictokenbuf : tdynamicarray; generictokenbuf : tdynamicarray;
{ Set if PPU was generated with another
endianess as current compiler or ppudump utils }
change_endian : boolean;
constructor create(dt:tdeftyp); constructor create(dt:tdeftyp);
constructor ppuload(dt:tdeftyp;ppufile:tcompilerppufile); constructor ppuload(dt:tdeftyp;ppufile:tcompilerppufile);
destructor destroy;override; destructor destroy;override;
@ -1119,6 +1122,8 @@ implementation
{$endif} {$endif}
generictokenbuf:=nil; generictokenbuf:=nil;
genericdef:=nil; genericdef:=nil;
change_endian:=false;
{ Don't register forwarddefs, they are disposed at the { Don't register forwarddefs, they are disposed at the
end of an type block } end of an type block }
if (dt=forwarddef) then if (dt=forwarddef) then
@ -1175,6 +1180,7 @@ implementation
if df_generic in defoptions then if df_generic in defoptions then
begin begin
sizeleft:=ppufile.getlongint; sizeleft:=ppufile.getlongint;
change_endian:=ppufile.change_endian;
initgeneric; initgeneric;
while sizeleft>0 do while sizeleft>0 do
begin begin