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

* Use getasizeint/putasizeint for tfieldvarsym.fieldoffset

Browse Source 
* Change CurrentPPUVersion

git-svn-id: trunk@40347 -
This commit is contained in:
pierre 2018-11-18 10:32:13 +00:00
parent 9d56387e7f
commit 0052e4da81
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppu.pas
View File

@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum}
const
CurrentPPUVersion = 203;
CurrentPPUVersion = 204;
{ unit flags }
uf_init = $000001; { unit has initialization section }

4
compiler/symsym.pas
View File

@ -1753,7 +1753,7 @@ implementation
constructor tfieldvarsym.ppuload(ppufile:tcompilerppufile);
begin
inherited ppuload(fieldvarsym,ppufile);
fieldoffset:=ppufile.getaint;
fieldoffset:=ppufile.getasizeint;
if (vo_has_mangledname in varoptions) then
externalname:=ppufile.getpshortstring
else
@ -1765,7 +1765,7 @@ implementation
procedure tfieldvarsym.ppuwrite(ppufile:tcompilerppufile);
begin
inherited ppuwrite(ppufile);
ppufile.putaint(fieldoffset);
ppufile.putasizeint(fieldoffset);
if (vo_has_mangledname in varoptions) then
ppufile.putstring(externalname^);
writeentry(ppufile,ibfieldvarsym);

2
compiler/utils/ppuutils/ppudump.pp
View File

@ -2788,7 +2788,7 @@ begin
begin
def:=TPpuFieldDef.Create(ParentDef);
readabstractvarsym('Field Variable symbol ',varoptions,TPpuVarDef(def));
writeln([space,' Address : ',getaint]);
writeln([space,' Address : ',getasizeint]);
if vo_has_mangledname in varoptions then
writeln([space,' Mangled name : ',getstring]);
end;