paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 08:56:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF: improve parsing "operator". Patch from Julian Puhl.

Browse Source 
git-svn-id: trunk@46972 -
This commit is contained in:
juha 2014-11-23 16:24:55 +00:00
parent 8f66caf323
commit 5aecba92a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/Parse/Tokens.pas
View File

@ -119,6 +119,7 @@ type
ttLibrary, ttLibrary,
ttObject, ttObject,
ttOf, ttOf,
ttOperator,
ttOut, ttOut,
ttPackage, ttPackage,
ttPacked, ttPacked,
@ -199,7 +200,6 @@ type
{ delphi.net keywords and directives } { delphi.net keywords and directives }
ttHelper, ttHelper,
ttOperator,
ttStatic, ttStatic,
ttSealed, ttSealed,
ttFinal, ttFinal,
@ -596,6 +596,7 @@ begin
AddKeyword('library', wtReservedWord, ttLibrary); AddKeyword('library', wtReservedWord, ttLibrary);
AddKeyword('object', wtReservedWord, ttObject); AddKeyword('object', wtReservedWord, ttObject);
AddKeyword('of', wtReservedWord, ttOf); AddKeyword('of', wtReservedWord, ttOf);
AddKeyword('operator', wtReservedWord, ttOperator);
AddKeyword('out', wtReservedWordDirective, ttOut); AddKeyword('out', wtReservedWordDirective, ttOut);
AddKeyword('packed', wtReservedWord, ttPacked); AddKeyword('packed', wtReservedWord, ttPacked);
AddKeyword('procedure', wtReservedWord, ttProcedure); AddKeyword('procedure', wtReservedWord, ttProcedure);
@ -680,7 +681,6 @@ begin
{ delphi.net directives} { delphi.net directives}
AddKeyword('helper', wtReservedWordDirective, ttHelper); AddKeyword('helper', wtReservedWordDirective, ttHelper);
AddKeyword('operator', wtReservedWordDirective, ttOperator);
AddKeyword('sealed', wtReservedWordDirective, ttSealed); AddKeyword('sealed', wtReservedWordDirective, ttSealed);
AddKeyword('static', wtReservedWordDirective, ttStatic); AddKeyword('static', wtReservedWordDirective, ttStatic);
AddKeyword('final', wtReservedWordDirective, ttFinal); AddKeyword('final', wtReservedWordDirective, ttFinal);