paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 07:21:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: rename extended records to advanced records

Browse Source 
git-svn-id: trunk@16652 -
This commit is contained in:
paul 2010-12-29 03:33:00 +00:00
parent 86d3e41442
commit 327b570ea4
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/globals.pas
View File

@ -52,7 +52,7 @@ interface
[m_delphi,m_all,m_class,m_objpas,m_result,m_string_pchar, [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_pointer_2_procedure,m_autoderef,m_tp_procvar,m_initfinal,m_default_ansistring,
m_out,m_default_para,m_duplicate_names,m_hintdirective, 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 = fpcmodeswitches =
[m_fpc,m_all,m_string_pchar,m_nested_comment,m_repeat_forward, [m_fpc,m_all,m_string_pchar,m_nested_comment,m_repeat_forward,
m_cvar_support,m_initfinal,m_hintdirective, m_cvar_support,m_initfinal,m_hintdirective,

4
compiler/globtype.pas
View File

@ -273,7 +273,7 @@ interface
m_objectivec2, { support interfacing with Objective-C (2.0) } m_objectivec2, { support interfacing with Objective-C (2.0) }
m_nested_procvars, { support nested procedural variables } m_nested_procvars, { support nested procedural variables }
m_non_local_goto, { support non local gotos (like iso pascal) } 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; tmodeswitches = set of tmodeswitch;
@ -393,7 +393,7 @@ interface
'OBJECTIVEC2', 'OBJECTIVEC2',
'NESTEDPROCVARS', 'NESTEDPROCVARS',
'NONLOCALGOTO', 'NONLOCALGOTO',
'EXTENDEDRECORDS'); 'ADVANCEDRECORDS');
type type

2
compiler/pdecvar.pas
View File

@ -1410,7 +1410,7 @@ implementation
recstlist:=TFPObjectList.create(false);; recstlist:=TFPObjectList.create(false);;
while (token=_ID) and while (token=_ID) and
not(((vd_object in options) or 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 (idtoken in [_PUBLIC,_PRIVATE,_PUBLISHED,_PROTECTED,_STRICT])) do
begin begin
visibility:=symtablestack.top.currentvisibility; visibility:=symtablestack.top.currentvisibility;

2
compiler/ptype.pas
View File

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