paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* converted objcgutl (Objective-C metadata generation) to the high level

Browse Source 
typed const builder

git-svn-id: trunk@32917 -
This commit is contained in:
Jonas Maebe 2016-01-10 17:22:20 +00:00
parent 4aba875c34
commit b9231aa6f1
2 changed files with 518 additions and 237 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

725
compiler/objcgutl.pas
View File

File diff suppressed because it is too large Load Diff

30
compiler/symconst.pas
View File

@ -690,7 +690,20 @@ type
itp_rtti_normal_array, itp_rtti_normal_array,
itp_rtti_dyn_array, itp_rtti_dyn_array,
itp_rtti_proc_param, itp_rtti_proc_param,
itp_threadvar_record itp_threadvar_record,
itp_objc_method_list,
itp_objc_proto_list,
itp_objc_cat_methods,
itb_objc_nf_ivars,
itb_objc_nf_category,
itb_obcj_nf_class_ro_part,
itb_objc_nf_meta_class,
itb_objc_nf_class,
itb_objc_fr_protocol_ext,
itb_objc_fr_protocol,
itb_objc_fr_category,
itb_objc_fr_meta_class,
itb_objc_fr_class
); );
{ The order is from low priority to high priority, { The order is from low priority to high priority,
@ -813,7 +826,20 @@ inherited_objectoptions : tobjectoptions = [oo_has_virtual,oo_has_private,oo_has
'$rtti_normal_array$', '$rtti_normal_array$',
'$rtti_dyn_array$', '$rtti_dyn_array$',
'$rtti_proc_param$', '$rtti_proc_param$',
'$threadvar_record$' '$threadvar_record$',
'$objc_method_list$',
'$objc_proto_list$',
'$objc_cat_methods$',
'$objc_nf_ivars$',
'$objc_nf_category$',
'$obcj_nf_class_ro_part$',
'$objc_nf_meta_class$',
'$objc_nf_class$',
'$objc_fr_protocol_ext$',
'$objc_fr_protocol$',
'$objc_fr_category$',
'$objc_fr_meta_class$',
'$objc_fr_class$'
); );