paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 09:09:32 +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,
ttObject,
ttOf,
ttOperator,
ttOut,
ttPackage,
ttPacked,
@ -199,7 +200,6 @@ type
{ delphi.net keywords and directives }
ttHelper,
ttOperator,
ttStatic,
ttSealed,
ttFinal,
@ -596,6 +596,7 @@ begin
AddKeyword('library', wtReservedWord, ttLibrary);
AddKeyword('object', wtReservedWord, ttObject);
AddKeyword('of', wtReservedWord, ttOf);
AddKeyword('operator', wtReservedWord, ttOperator);
AddKeyword('out', wtReservedWordDirective, ttOut);
AddKeyword('packed', wtReservedWord, ttPacked);
AddKeyword('procedure', wtReservedWord, ttProcedure);
@ -680,7 +681,6 @@ begin
{ delphi.net directives}
AddKeyword('helper', wtReservedWordDirective, ttHelper);
AddKeyword('operator', wtReservedWordDirective, ttOperator);
AddKeyword('sealed', wtReservedWordDirective, ttSealed);
AddKeyword('static', wtReservedWordDirective, ttStatic);
AddKeyword('final', wtReservedWordDirective, ttFinal);