Explorar o código

* Remove forgotten wrong increments

git-svn-id: trunk@19019 -
pierre %!s(int64=14) %!d(string=hai) anos
pai
achega
01526fa582
Modificáronse 1 ficheiros con 2 adicións e 3 borrados
  1. 2 3
      compiler/utils/ppudump.pp

+ 2 - 3
compiler/utils/ppudump.pp

@@ -1263,6 +1263,8 @@ begin
               end;
             _GENERICSPECIALTOKEN:
               begin
+                { Short version of column change,
+                  byte or $80 used }
                 if (tokenbuf[i] and $80)<>0 then
                   begin
                     write('Col: ',tokenbuf[i] and $7f);
@@ -1304,19 +1306,16 @@ begin
                       begin
                         inc(i);
                         write('Line: ',gettokenbufdword);
-                        inc(i,4);
                       end;
                     ST_COLUMN:
                       begin
                         inc(i);
                         write('Col: ',gettokenbufword);
-                        inc(i,2);
                       end;
                     ST_FILEINDEX:
                       begin
                         inc(i);
                         write('File: ',gettokenbufword);
-                        inc(i,2);
                       end;
                   end;
               end;