Browse Source

Read verbosity field added in commit 558a7ef1edf

Pierre Muller 1 month ago
parent
commit
32eb50d64d
1 changed files with 3 additions and 0 deletions
  1. 3 0
      compiler/utils/ppuutils/ppudump.pp

+ 3 - 0
compiler/utils/ppuutils/ppudump.pp

@@ -1580,6 +1580,7 @@ end;
 
          packrecords     : shortint;
          maxfpuregisters : shortint;
+         verbosity       : longint;
 
          cputype,
          optimizecputype : tcputype;
@@ -2152,6 +2153,7 @@ var
 
             packrecords:=gettokenbufshortint;
             maxfpuregisters:=gettokenbufshortint;
+            verbosity:=gettokenbuflongint;
 
             cputype:=tcputype(tokenreadenum(sizeof(tcputype)));
             optimizecputype:=tcputype(tokenreadenum(sizeof(tcputype)));
@@ -2209,6 +2211,7 @@ var
 
          packrecords     : shortint;
          maxfpuregisters : shortint;
+         verbosity       : longint;
 
          cputype,
          optimizecputype,