Browse Source

Add missing token buffer index update for ST_LOADMESSAGES handling

Pierre Muller 1 year ago
parent
commit
2ed2ca5cf0
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/utils/ppuutils/ppudump.pp

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

@@ -2722,6 +2722,7 @@ begin
                   end;
                 ST_LOADMESSAGES:
                   begin
+                    inc(tbi);
                     mesgnb:=gettokenbufsizeint;;
                     writeln([space,mesgnb,' messages: ']);
                     for nb:=1 to mesgnb do