paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:30:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: allow inline static methods + test (moreover static inline was supported)

Browse Source 
git-svn-id: trunk@15076 -
This commit is contained in:
paul 2010-03-27 13:40:36 +00:00
parent a48a37d38b
commit 1be92bc750
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecsub.pas
View File

@ -2115,7 +2115,7 @@ const
pooption : [po_staticmethod]; pooption : [po_staticmethod];
mutexclpocall : [pocall_internproc]; mutexclpocall : [pocall_internproc];
mutexclpotype : [potype_constructor,potype_destructor]; mutexclpotype : [potype_constructor,potype_destructor];
mutexclpo : [po_external,po_interrupt,po_exports,po_inline] mutexclpo : [po_external,po_interrupt,po_exports]
),( ),(
idtok:_STDCALL; idtok:_STDCALL;
pd_flags : [pd_interface,pd_implemen,pd_body,pd_procvar]; pd_flags : [pd_interface,pd_implemen,pd_body,pd_procvar];

2
tests/test/tstatic1.pp
View File

@ -11,7 +11,7 @@ type
FSomethingStatic: Integer; FSomethingStatic: Integer;
public public
class procedure SomeClassMethod(A: Integer); class procedure SomeClassMethod(A: Integer);
class procedure SomeStaticMethod(A: Integer); static; class procedure SomeStaticMethod(A: Integer); inline; static;
end; end;
{ TSomeClass } { TSomeClass }