paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 16:19:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: Support more modifiers in class method. Issue #40368, patch by Peacoor.

Browse Source 
(cherry picked from commit 479ff9635e)
This commit is contained in:
Juha 2023-07-13 15:53:57 +03:00 committed by Maxim Ganetsky
parent 8346aa2ad8
commit 8757f7f929
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/keywordfunclists.pas
View File

@ -909,6 +909,12 @@ begin
Add('VARARGS' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VECTORCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('EXTERNAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); //jvm
Add('WINAPI' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('OLDFPCCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SOFTFLOAT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('HARDFLOAT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('IOCHECK' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('LOCAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
end;
IsKeyWordProcedureSpecifier:=TKeyWordFunctionList.Create('IsKeyWordProcedureSpecifier');
@ -1035,6 +1041,10 @@ begin
Add('POPSTACK' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VECTORCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('WINAPI' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('OLDFPCCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SOFTFLOAT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('HARDFLOAT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
// Note: 'inline' and 'is nested' are not a calling specifiers
end;