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

JCF2: Add support for CVAR directive in JCF2 parser. Issue #27343, patch from Barlone

Browse Source 
git-svn-id: trunk@47538 -
This commit is contained in:
juha 2015-01-26 23:40:32 +00:00
parent b2216a884b
commit 0787f7aa1e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -188,7 +188,7 @@ type
ttImplements,
ttReintroduce,
ttGeneric,
ttCVar,
// used in asm
ttOffset,
ttPtr,
@ -349,7 +349,7 @@ const
ExportDirectives: TTokenTypeSet = [ttIndex, ttName];
VariableDirectives: TTokenTypeSet = [ttAbsolute, ttDeprecated, ttLibrary, ttPlatform,
ttExperimental, ttUnimplemented];
ttExperimental, ttUnimplemented, ttCVar];
ClassVisibility: TTokenTypeSet =
[ttPrivate, ttProtected, ttPublic, ttPublished, ttAutomated];
@ -376,7 +376,7 @@ const
ttNear, ttReadOnly, ttDynamic, ttNoDefault, ttRegister,
ttExport, ttOverride, ttOverload, ttResident, ttLocal,
ttImplements, ttReintroduce,
ttLibrary, ttPlatform, ttStatic, ttFinal, ttVarArgs];
ttLibrary, ttPlatform, ttStatic, ttFinal, ttVarArgs, ttCVar];
ProcedureWords: TTokenTypeSet = [ttProcedure, ttFunction, ttConstructor, ttDestructor, ttOperator];
@ -681,6 +681,8 @@ begin
AddKeyword('implements', wtReservedWordDirective, ttImplements);
AddKeyword('reintroduce', wtReservedWordDirective, ttReintroduce);
AddKeyword('cvar', wtReservedWordDirective, ttCVar);
// asm
AddKeyword('offset', wtReservedWordDirective, ttOffset);
AddKeyword('ptr', wtReservedWordDirective, ttPtr);