+ Add m_property mode switch to allow per mode recognition of

    property.

git-svn-id: trunk@2570 -

compiler/globals.pas

@@ -54,13 +54,16 @@ interface
        delphimodeswitches : tmodeswitches=
          [m_delphi,m_all,m_class,m_objpas,m_result,m_string_pchar,
           m_pointer_2_procedure,m_autoderef,m_tp_procvar,m_initfinal,m_default_ansistring,
-          m_out,m_default_para,m_duplicate_names,m_hintdirective,m_add_pointer];
+          m_out,m_default_para,m_duplicate_names,m_hintdirective,m_add_pointer,
+          m_property];
        fpcmodeswitches    : tmodeswitches=
          [m_fpc,m_all,m_string_pchar,m_nested_comment,m_repeat_forward,
-          m_cvar_support,m_initfinal,m_add_pointer,m_hintdirective];
+          m_cvar_support,m_initfinal,m_add_pointer,m_hintdirective,
+          m_property];
        objfpcmodeswitches : tmodeswitches=
          [m_objfpc,m_fpc,m_all,m_class,m_objpas,m_result,m_string_pchar,m_nested_comment,
-          m_repeat_forward,m_cvar_support,m_initfinal,m_add_pointer,m_out,m_default_para,m_hintdirective];
+          m_repeat_forward,m_cvar_support,m_initfinal,m_add_pointer,m_out,m_default_para,m_hintdirective,
+          m_property];
        tpmodeswitches     : tmodeswitches=
          [m_tp7,m_all,m_tp_procvar,m_duplicate_names];
        gpcmodeswitches    : tmodeswitches=

compiler/globtype.pas

@@ -155,7 +155,8 @@ than 255 characters. That's why using Ansi Strings}
          m_out,                 { support the calling convention OUT }
          m_default_para,        { support default parameters }
          m_hintdirective,       { support hint directives }
-         m_duplicate_names      { allow locals/paras to have duplicate names of globals }
+         m_duplicate_names,     { allow locals/paras to have duplicate names of globals }
+         m_property             { allow properties }
        );
        tmodeswitches = set of tmodeswitch;
 

compiler/tokens.pas

@@ -451,7 +451,7 @@ const
       (str:'OVERLOAD'      ;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:'PROPERTY'      ;special:false;keyword:m_class;op:NOTOKEN),
+      (str:'PROPERTY'      ;special:false;keyword:m_property;op:NOTOKEN),
       (str:'REGISTER'      ;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),