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

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

Browse Source
This commit is contained in:
Juha 2023-07-13 15:53:57 +03:00
parent be92e362e8
commit 479ff9635e
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('VARARGS' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VECTORCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('VECTORCALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('EXTERNAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); //jvm 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; end;
IsKeyWordProcedureSpecifier:=TKeyWordFunctionList.Create('IsKeyWordProcedureSpecifier'); IsKeyWordProcedureSpecifier:=TKeyWordFunctionList.Create('IsKeyWordProcedureSpecifier');
@ -1035,6 +1041,10 @@ begin
Add('POPSTACK' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('POPSTACK' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('SAFECALL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('VECTORCALL' ,{$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 // Note: 'inline' and 'is nested' are not a calling specifiers
end; end;