Parcourir la source

compiler: rename extended records to advanced records

git-svn-id: trunk@16652 -
paul il y a 14 ans
Parent
commit
327b570ea4
4 fichiers modifiés avec 5 ajouts et 5 suppressions
  1. 1 1
      compiler/globals.pas
  2. 2 2
      compiler/globtype.pas
  3. 1 1
      compiler/pdecvar.pas
  4. 1 1
      compiler/ptype.pas

+ 1 - 1
compiler/globals.pas

@@ -52,7 +52,7 @@ interface
          [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_property,m_default_inline,m_except,m_extended_records];
+          m_property,m_default_inline,m_except,m_advanced_records];
        fpcmodeswitches =
          [m_fpc,m_all,m_string_pchar,m_nested_comment,m_repeat_forward,
           m_cvar_support,m_initfinal,m_hintdirective,

+ 2 - 2
compiler/globtype.pas

@@ -273,7 +273,7 @@ interface
          m_objectivec2,         { support interfacing with Objective-C (2.0) }
          m_nested_procvars,     { support nested procedural variables }
          m_non_local_goto,      { support non local gotos (like iso pascal) }
-         m_extended_records     { extended record syntax with visibility sections, methods and properties }
+         m_advanced_records     { advanced record syntax with visibility sections, methods and properties }
        );
        tmodeswitches = set of tmodeswitch;
 
@@ -393,7 +393,7 @@ interface
          'OBJECTIVEC2',
          'NESTEDPROCVARS',
          'NONLOCALGOTO',
-         'EXTENDEDRECORDS');
+         'ADVANCEDRECORDS');
 
 
      type

+ 1 - 1
compiler/pdecvar.pas

@@ -1410,7 +1410,7 @@ implementation
          recstlist:=TFPObjectList.create(false);;
          while (token=_ID) and
             not(((vd_object in options) or
-                 ((vd_record in options) and (m_extended_records in current_settings.modeswitches))) and
+                 ((vd_record in options) and (m_advanced_records in current_settings.modeswitches))) and
                 (idtoken in [_PUBLIC,_PRIVATE,_PUBLISHED,_PROTECTED,_STRICT])) do
            begin
              visibility:=symtablestack.top.currentvisibility;

+ 1 - 1
compiler/ptype.pas

@@ -849,7 +849,7 @@ implementation
          symtablestack.push(recst);
          { parse record }
          consume(_RECORD);
-         if m_extended_records in current_settings.modeswitches then
+         if m_advanced_records in current_settings.modeswitches then
            parse_record_members
          else
            begin