paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 18:30:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Remove forgotten wrong increments

Browse Source 
git-svn-id: trunk@19019 -
This commit is contained in:
pierre 2011-09-07 19:43:50 +00:00
parent b270a1922b
commit 01526fa582
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/utils/ppudump.pp
View File

@ -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;