Browse Source

* Remove forgotten wrong increments

git-svn-id: trunk@19019 -
pierre 14 years ago
parent
commit
01526fa582
1 changed files with 2 additions and 3 deletions
  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;