Browse Source

* dump usefieldalignment for recorddefs

git-svn-id: trunk@4720 -
Jonas Maebe 19 years ago
parent
commit
2639b104cc
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/utils/ppudump.pp

+ 1 - 0
compiler/utils/ppudump.pp

@@ -1801,6 +1801,7 @@ begin
              writeln(space,'       FieldAlign : ',getbyte);
              writeln(space,'      RecordAlign : ',getbyte);
              writeln(space,'         PadAlign : ',getbyte);
+             writeln(space,'UseFieldAlignment : ',getbyte);
              if not EndOfEntry then
               Writeln('!! Entry has more information stored');
              {read the record definitions and symbols}