paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 23:20:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

jcf2: added proc modifier vectorcall, patch #33134

Browse Source 
git-svn-id: trunk@57291 -
This commit is contained in:
mattias 2018-02-12 14:56:00 +00:00
parent 51d23cbd85
commit 017493f462
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -192,6 +192,7 @@ type
ttCVar,
ttNostackframe,
ttNested,
ttVectorcall,
// used in asm
ttOffset,
ttPtr,
@ -365,7 +366,7 @@ const
ttOverload, ttReintroduce,
ttDeprecated, ttLibrary, ttPlatform, ttExperimental, ttUnimplemented,
ttStatic, ttFinal, ttVarArgs, ttUnsafe, ttEnumerator, ttNostackframe, ttInterrupt,
ttPublic];
ttPublic, ttVectorcall];
ClassDirectives: TTokenTypeSet =
[ttPrivate, ttProtected, ttPublic, ttPublished, ttAutomated, ttStrict];
@ -381,7 +382,7 @@ const
ttNear, ttReadOnly, ttDynamic, ttNoDefault, ttRegister,
ttExport, ttOverride, ttOverload, ttResident, ttLocal,
ttImplements, ttReintroduce,
ttLibrary, ttPlatform, ttStatic, ttFinal, ttVarArgs, ttCVar];
ttLibrary, ttPlatform, ttStatic, ttFinal, ttVarArgs, ttCVar, ttVectorcall];
ProcedureWords: TTokenTypeSet = [ttProcedure, ttFunction, ttConstructor, ttDestructor, ttOperator];
@ -683,6 +684,7 @@ begin
AddKeyword('resident', wtReservedWordDirective, ttResident);
AddKeyword('local', wtReservedWordDirective, ttLocal);
AddKeyword('generic', wtReservedWordDirective, ttGeneric);
AddKeyword('vectorcall', wtReservedWordDirective, ttVectorcall);
AddKeyword('implements', wtReservedWordDirective, ttImplements);
AddKeyword('reintroduce', wtReservedWordDirective, ttReintroduce);