Procházet zdrojové kódy

- "property" is again only a keyword in objfpc and delphi mode
(otherwise this breaks code which uses that name for a parameter
or variabled) -- this disables the ability to use properties
in objects until support is added elsewhere in the compiler,
but change is needed since it breaks the compilation of the
universal headers.

git-svn-id: trunk@2569 -

Jonas Maebe před 19 roky
rodič
revize
0ad06aff97
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      compiler/tokens.pas

+ 1 - 1
compiler/tokens.pas

@@ -451,7 +451,7 @@ const
       (str:'OVERLOAD'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'OVERLOAD'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'OVERRIDE'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'OVERRIDE'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'PLATFORM'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'PLATFORM'      ;special:false;keyword:m_none;op:NOTOKEN),
-      (str:'PROPERTY'      ;special:false;keyword:m_all;op:NOTOKEN),
+      (str:'PROPERTY'      ;special:false;keyword:m_class;op:NOTOKEN),
       (str:'REGISTER'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'REGISTER'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'REQUIRES'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'REQUIRES'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'RESIDENT'      ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'RESIDENT'      ;special:false;keyword:m_none;op:NOTOKEN),