paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 19:17:13 +01: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; end;
_GENERICSPECIALTOKEN: _GENERICSPECIALTOKEN:
begin begin
{ Short version of column change,
byte or $80 used }
if (tokenbuf[i] and $80)<>0 then if (tokenbuf[i] and $80)<>0 then
begin begin
write('Col: ',tokenbuf[i] and $7f); write('Col: ',tokenbuf[i] and $7f);
@ -1304,19 +1306,16 @@ begin
begin begin
inc(i); inc(i);
write('Line: ',gettokenbufdword); write('Line: ',gettokenbufdword);
inc(i,4);
end; end;
ST_COLUMN: ST_COLUMN:
begin begin
inc(i); inc(i);
write('Col: ',gettokenbufword); write('Col: ',gettokenbufword);
inc(i,2);
end; end;
ST_FILEINDEX: ST_FILEINDEX:
begin begin
inc(i); inc(i);
write('File: ',gettokenbufword); write('File: ',gettokenbufword);
inc(i,2);
end; end;
end; end;
end; end;