Browse Source

* updated ppudump for changes in ppu version 174

git-svn-id: trunk@30464 -
Jonas Maebe 10 years ago
parent
commit
f6b03b2912
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/utils/ppuutils/ppudump.pp

+ 5 - 1
compiler/utils/ppuutils/ppudump.pp

@@ -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);