paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 17:09:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Add m_property mode switch to allow per mode recognition of

Browse Source 
property.

git-svn-id: trunk@2570 -
This commit is contained in:
daniel 2006-02-14 17:11:18 +00:00
parent 0ad06aff97
commit fbc08c229d
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/globals.pas
View File

@ -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=

3
compiler/globtype.pas
View File

@ -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;

2
compiler/tokens.pas
View File

@ -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),