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

* updated ppudump for changes in ppu version 174

Browse Source 
git-svn-id: trunk@30464 -
This commit is contained in:
Jonas Maebe 2015-04-06 14:05:36 +00:00
parent 9a807bdfe3
commit f6b03b2912
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -666,6 +666,7 @@ begin
writeln([space,' recordalignment: ',shortint(ppufile.getbyte)]);
usefieldalignment:=shortint(ppufile.getbyte);
writeln([space,' usefieldalignment: ',usefieldalignment]);
writeln([space,' recordalignmin: ',shortint(ppufile.getbyte)]);
if (usefieldalignment=C_alignment) then
writeln([space,' fieldalignment: ',shortint(ppufile.getbyte)]);
end;
@ -3114,6 +3115,7 @@ begin
writeln([space,' RecordAlign : ',shortint(getbyte)]);
writeln([space,' PadAlign : ',shortint(getbyte)]);
writeln([space,'UseFieldAlignment : ',shortint(getbyte)]);
writeln([space,' RecordAlignMin : ',shortint(getbyte)]);
objdef.Size:=getasizeint;
writeln([space,' DataSize : ',objdef.Size]);
writeln([space,' PaddingSize : ',getword]);
@ -3172,7 +3174,9 @@ begin
writeln([space,' PaddingSize : ',getword]);
writeln([space,' FieldAlign : ',shortint(getbyte)]);
writeln([space,' RecordAlign : ',shortint(getbyte)]);
writeln([space,' Vmt offset : ',getlongint]);
writeln([space,' RecordAlignMin : ',shortint(getbyte)]);
write ([space, ' VmtField : ']);
readderef('',nil);
write ([space, ' Ancestor Class : ']);
readderef('',objdef.Ancestor);