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

codetools: added proc specifiers

Browse Source 
git-svn-id: trunk@34722 -
This commit is contained in:
mattias 2012-01-12 23:46:04 +00:00
parent b04cef83d2
commit 4b54faa3c2
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/codetree.pas
View File

@ -210,7 +210,10 @@ type
psSTDCALL, psREGISTER, psPOPSTACK, psVIRTUAL, psABSTRACT, psDYNAMIC,
psOVERLOAD, psOVERRIDE, psREINTRODUCE, psCDECL, psINLINE, psMESSAGE,
psEXTERNAL, psFORWARD, psPASCAL, psASSEMBLER, psSAVEREGISTERS,
psFAR, psNEAR, psFINAL, psSTATIC, psEdgedBracket);
psFAR, psNEAR, psFINAL, psSTATIC, psMWPASCAL, psNOSTACKFRAME,
psDEPRECATED, psDISPID, psPLATFORM, psSAFECALL, psUNIMPLEMENTED,
psEXPERIMENTAL, psLIBRARY, psENUMERATOR, psVARARGS,
psEdgedBracket);
TAllProcedureSpecifiers = set of TProcedureSpecifier;
const
@ -218,7 +221,10 @@ const
'STDCALL', 'REGISTER', 'POPSTACK', 'VIRTUAL', 'ABSTRACT', 'DYNAMIC',
'OVERLOAD', 'OVERRIDE', 'REINTRODUCE', 'CDECL', 'INLINE', 'MESSAGE',
'EXTERNAL', 'FORWARD', 'PASCAL', 'ASSEMBLER', 'SAVEREGISTERS',
'FAR', 'NEAR', 'FINAL', 'STATIC', '['
'FAR', 'NEAR', 'FINAL', 'STATIC', 'MWPASCAL', 'NOSTACKFRAME',
'DEPRECATED', 'DISPID', 'PLATFORM', 'SAFECALL', 'UNIMPLEMENTED',
'EXPERIMENTAL', 'LIBRARY', 'ENUMERATOR', 'VARARGS',
'['
);

1
components/codetools/keywordfunclists.pas
View File

@ -875,7 +875,6 @@ begin
Add('LIBRARY' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FINAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('ENUMERATOR' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VARARGS' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('EXTERNAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); //jvm
end;