Explorar el Código

Add missing token buffer index update for ST_LOADMESSAGES handling

Pierre Muller hace 1 año
padre
commit
2ed2ca5cf0
Se han modificado 1 ficheros con 1 adiciones y 0 borrados
  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