Browse Source

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

git-svn-id: trunk@15076 -
paul 15 years ago
parent
commit
1be92bc750
2 changed files with 2 additions and 2 deletions
  1. 1 1
      compiler/pdecsub.pas
  2. 1 1
      tests/test/tstatic1.pp

+ 1 - 1
compiler/pdecsub.pas

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

+ 1 - 1
tests/test/tstatic1.pp

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