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

* Applied patch by Bart Broersma to fix bug ID #34277

Browse Source 
git-svn-id: trunk@40803 -
This commit is contained in:
michael 2019-01-08 03:55:32 +00:00
parent 49ff0a1235
commit db29d01c15
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/ptopu.pp
View File

@ -72,7 +72,7 @@ TYPE
notsym,nilsym,orsym,setsym,tosym,virtualsym,usessym,
casevarsym,ofobjectsym,
{ other symbols }
becomes,delphicomment,dopencomment,dclosecomment,opencomment,closecomment,semicolon,colon,equals,
becomes,notequal,lessorequal,greaterorequal,delphicomment,dopencomment,dclosecomment,opencomment,closecomment,semicolon,colon,equals,
openparen,closeparen,period,endoffile,othersym);
{ Formatting options }
@ -252,7 +252,7 @@ CONST
'and','arr','div','down','file','goto',
'in','mod','not','nil','or','set','to','virtual','uses',
'casevar','ofobject',
'becomes','delphicomment','dopencomment','dclosecomment',
'becomes','notequal','lessorequal','greaterorequal','delphicomment','dopencomment','dclosecomment',
'opencomment','closecomment','semicolon',
'colon','equals',
'openparen','closeparen','period','endoffile','other');
@ -265,7 +265,7 @@ CONST
DblChar : DblCharTable =
( ':=', '//','(*','*)' );
( ':=', '<>', '<=', '>=', '//','(*','*)' );
SglChar : SglCharTable =
('{', '}', ';', ':', '=', '(', ')', '.' );
@ -1411,5 +1411,5 @@ End;
Begin
dblch := [becomes, opencomment];
dblch := [becomes, notequal, lessorequal, greaterorequal, opencomment];
end.