2
0
Эх сурвалжийг харах

Fix handling of ST_LOADMESSAGES token

Pierre Muller 1 жил өмнө
parent
commit
bc1c93c05f

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

@@ -2722,15 +2722,12 @@ begin
                   end;
                 ST_LOADMESSAGES:
                   begin
-                    inc(tbi);
-                    mesgnb:=tokenbuf[tbi];
+                    mesgnb:=gettokenbufsizeint;;
                     writeln([space,mesgnb,' messages: ']);
-                    inc(tbi);
                     for nb:=1 to mesgnb do
                       begin
-                        msgvalue:=gettokenbufsizeint;
-                        //inc(tbi,sizeof(sizeint));
-                        state:=tmsgstate(gettokenbufsizeint);
+                        msgvalue:=gettokenbuflongint;
+                        state:=tmsgstate(gettokenbuflongint);
                         writeln(['#',msgvalue,' ',state]);
                       end;
                   end;