xref: /dragonfly/contrib/gcc-4.7/gcc/objc/objc-act.h (revision 9348a738)
1 /* Declarations for objc-act.c.
2    Copyright (C) 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009,
3    2010, 2011 Free Software Foundation, Inc.
4 
5 This file is part of GCC.
6 
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
10 any later version.
11 
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 GNU General Public License for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3.  If not see
19 <http://www.gnu.org/licenses/>.  */
20 
21 
22 #ifndef GCC_OBJC_ACT_H
23 #define GCC_OBJC_ACT_H
24 
25 /*** Language hooks ***/
26 
27 bool objc_init (void);
28 const char *objc_printable_name (tree, int);
29 int objc_gimplify_expr (tree *, gimple_seq *, gimple_seq *);
30 void objc_common_init_ts (void);
31 
32 /* NB: The remaining public functions are prototyped in c-common.h, for the
33    benefit of stub-objc.c and objc-act.c.  */
34 
35 /* Objective-C structures */
36 
37 #define CLASS_LANG_SLOT_ELTS		7
38 #define PROTOCOL_LANG_SLOT_ELTS		7
39 #define OBJC_INFO_SLOT_ELTS		2
40 
41 /* KEYWORD_DECL */
42 #define KEYWORD_KEY_NAME(DECL) ((DECL)->decl_minimal.name)
43 #define KEYWORD_ARG_NAME(DECL) ((DECL)->decl_non_common.arguments)
44 
45 /* INSTANCE_METHOD_DECL, CLASS_METHOD_DECL */
46 #define METHOD_SEL_NAME(DECL) ((DECL)->decl_minimal.name)
47 #define METHOD_SEL_ARGS(DECL) ((DECL)->decl_non_common.arguments)
48 #define METHOD_ADD_ARGS(DECL) ((DECL)->decl_non_common.result)
49 #define METHOD_ADD_ARGS_ELLIPSIS_P(DECL) ((DECL)->decl_common.lang_flag_0)
50 #define METHOD_DEFINITION(DECL) ((DECL)->decl_common.initial)
51 #define METHOD_ENCODING(DECL) ((DECL)->decl_minimal.context)
52 #define METHOD_TYPE_ATTRIBUTES(DECL) ((DECL)->decl_common.abstract_origin)
53 #define METHOD_PROPERTY_CONTEXT(DECL) ((DECL)->decl_common.size_unit)
54 
55 
56 /* PROPERTY_DECL.  A PROPERTY_DECL repesents a @property declaration
57    (when attached to the list of properties of an interface) or a
58    @synthesize or @dynamic declaration (when attached to the list of
59    properties of an implementation).  */
60 
61 /* TREE_TYPE is the type (int, float, etc) of the property.  */
62 
63 /* DECL_ARTIFICIAL is set to 1 if the PROPERTY_DECL is an artificial
64    property declaration created when the dot-syntax object.component
65    is used with no actual @property matching the component, but a
66    valid getter/setter.  */
67 
68 /* PROPERTY_NAME is the name of the property.  */
69 #define PROPERTY_NAME(DECL) DECL_NAME(DECL)
70 
71 /* PROPERTY_GETTER_NAME is the identifier of the getter method.  */
72 #define PROPERTY_GETTER_NAME(DECL) ((DECL)->decl_non_common.arguments)
73 
74 /* PROPERTY_SETTER_NAME is the identifier of the setter method.  */
75 #define PROPERTY_SETTER_NAME(DECL) ((DECL)->decl_non_common.result)
76 
77 /* PROPERTY_READONLY can be 0 or 1.  */
78 #define PROPERTY_READONLY(DECL) DECL_LANG_FLAG_0 (DECL)
79 
80 /* PROPERTY_NONATOMIC can be 0 or 1.  */
81 #define PROPERTY_NONATOMIC(DECL) DECL_LANG_FLAG_1 (DECL)
82 
83 typedef enum objc_property_assign_semantics {
84   OBJC_PROPERTY_ASSIGN = 1,
85   OBJC_PROPERTY_RETAIN = 2,
86   OBJC_PROPERTY_COPY = 3
87 } objc_property_assign_semantics;
88 
89 /* PROPERTY_ASSIGN_SEMANTICS can be OBJC_PROPERTY_ASSIGN,
90    OBJC_PROPERTY_RETAIN or OBJC_PROPERTY_COPY.  We need an integer to
91    store it, so we hijack the alignment, that properties don't
92    have.  */
93 #define PROPERTY_ASSIGN_SEMANTICS(DECL) ((DECL)->decl_common.align)
94 
95 /* PROPERTY_IVAR_NAME is the identifier of the instance variable.
96    This is set only if the PROPERTY_DECL represents a @synthesize;
97    otherwise, it is set to TREE_NULL.  */
98 #define PROPERTY_IVAR_NAME(DECL) ((DECL)->decl_common.initial)
99 
100 /* PROPERTY_DYNAMIC can be 0 or 1.  This is 1 if the PROPERTY_DECL
101    represents a @dynamic; otherwise, it is set to 0.  */
102 #define PROPERTY_DYNAMIC(DECL) DECL_LANG_FLAG_2 (DECL)
103 
104 /* PROPERTY_HAS_NO_GETTER can be 0 or 1.  Normally it is 0, but if
105    this is an artificial PROPERTY_DECL that we generate even without a
106    getter, it is set to 1.  */
107 #define PROPERTY_HAS_NO_GETTER(DECL) DECL_LANG_FLAG_3 (DECL)
108 
109 /* PROPERTY_HAS_NO_SETTER can be 0 or 1.  Normally it is 0, but if
110    this is an artificial PROPERTY_DECL that we generate even without a
111    setter, it is set to 1.  */
112 #define PROPERTY_HAS_NO_SETTER(DECL) DECL_LANG_FLAG_4 (DECL)
113 
114 /* PROPERTY_OPTIONAL can be 0 or 1.  Normally it is 0, but if this is
115    a property declared as @optional in a @protocol, then it is set to
116    1.  */
117 #define PROPERTY_OPTIONAL(DECL) DECL_LANG_FLAG_5 (DECL)
118 
119 /* PROPERTY_REF.  A PROPERTY_REF represents an 'object.property'
120    expression.  It is normally used for property access, but when
121    the Objective-C 2.0 "dot-syntax" (object.component) is used
122    with no matching property, a PROPERTY_REF is still created to
123    represent it, with an artificial PROPERTY_DECL.  */
124 
125 /* PROPERTY_REF_OBJECT is the object whose property we are
126    accessing.  */
127 #define PROPERTY_REF_OBJECT(NODE) TREE_OPERAND (PROPERTY_REF_CHECK (NODE), 0)
128 
129 /* PROPERTY_REF_PROPERTY_DECL is the PROPERTY_DECL for the property
130    used in the expression.  From it, you can get the property type,
131    and the getter/setter names.  This PROPERTY_DECL could be artificial
132    if we are processing an 'object.component' syntax with no matching
133    declared property.  */
134 #define PROPERTY_REF_PROPERTY_DECL(NODE) TREE_OPERAND (PROPERTY_REF_CHECK (NODE), 1)
135 
136 /* PROPERTY_REF_GETTER_CALL is the getter call expression, ready to
137    use at gimplify time if needed.  Generating the getter call
138    requires modifying the selector table, and, in the case of
139    self/super, requires the context to be generated correctly.  The
140    gimplify stage is too late to do these things, so we generate the
141    getter call earlier instead, and keep it here in case we need to
142    use it.  */
143 #define PROPERTY_REF_GETTER_CALL(NODE) TREE_OPERAND (PROPERTY_REF_CHECK (NODE), 2)
144 
145 /* PROPERTY_REF_DEPRECATED_GETTER is normally set to NULL_TREE.  If
146    the property getter is deprecated, it is set to the method
147    prototype for it, which is used to generate the deprecation warning
148    when the getter is used.  */
149 #define PROPERTY_REF_DEPRECATED_GETTER(NODE) TREE_OPERAND (PROPERTY_REF_CHECK (NODE), 3)
150 
151 /* CLASS_INTERFACE_TYPE, CLASS_IMPLEMENTATION_TYPE,
152    CATEGORY_INTERFACE_TYPE, CATEGORY_IMPLEMENTATION_TYPE,
153    PROTOCOL_INTERFACE_TYPE */
154 /* CLASS_NAME is the name of the class.  */
155 #define CLASS_NAME(CLASS) (TYPE_NAME (CLASS))
156 /* CLASS_SUPER_NAME is the name of the superclass, or, in the case of
157    categories, it is the name of the category itself.  */
158 #define CLASS_SUPER_NAME(CLASS) (TYPE_CONTEXT (CLASS))
159 #define CLASS_IVARS(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 0)
160 #define CLASS_RAW_IVARS(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 1)
161 #define CLASS_NST_METHODS(CLASS) (TYPE_MINVAL (CLASS))
162 #define CLASS_CLS_METHODS(CLASS) (TYPE_MAXVAL (CLASS))
163 #define CLASS_STATIC_TEMPLATE(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 2)
164 #define CLASS_CATEGORY_LIST(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 3)
165 #define CLASS_PROTOCOL_LIST(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 4)
166 #define TOTAL_CLASS_RAW_IVARS(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 5)
167 #define CLASS_HAS_EXCEPTION_ATTR(CLASS) (TYPE_LANG_FLAG_0 (CLASS))
168 
169 #define PROTOCOL_NAME(CLASS) (TYPE_NAME (CLASS))
170 #define PROTOCOL_LIST(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 0)
171 #define PROTOCOL_NST_METHODS(CLASS) (TYPE_MINVAL (CLASS))
172 #define PROTOCOL_CLS_METHODS(CLASS) (TYPE_MAXVAL (CLASS))
173 #define PROTOCOL_FORWARD_DECL(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 1)
174 #define PROTOCOL_DEFINED(CLASS) TREE_USED (CLASS)
175 #define PROTOCOL_OPTIONAL_CLS_METHODS(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 2)
176 #define PROTOCOL_OPTIONAL_NST_METHODS(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 3)
177 
178 /* For CATEGORY_INTERFACE_TYPE, CLASS_INTERFACE_TYPE or PROTOCOL_INTERFACE_TYPE */
179 #define CLASS_PROPERTY_DECL(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 6)
180 /* For CLASS_IMPLEMENTATION_TYPE or CATEGORY_IMPLEMENTATION_TYPE. */
181 #define IMPL_PROPERTY_DECL(CLASS) TREE_VEC_ELT (TYPE_LANG_SLOT_1 (CLASS), 6)
182 
183 /* TREE_DEPRECATED is used for a CLASS_INTERFACE_TYPE or PROTOCOL_INTERFACE_TYPE.  */
184 
185 /* TYPE_ATTRIBUTES is used for a CLASS_INTERFACE_TYPE or PROTOCOL_INTERFACE_TYPE.  */
186 
187 /* ObjC-specific information pertaining to RECORD_TYPEs are stored in
188    the LANG_SPECIFIC structures, which may itself need allocating first.  */
189 
190 /* The following three macros must be overridden (in objcp/objcp-decl.h)
191    for Objective-C++.  */
192 #define TYPE_OBJC_INFO(TYPE) TYPE_LANG_SPECIFIC (TYPE)->objc_info
193 #define SIZEOF_OBJC_TYPE_LANG_SPECIFIC sizeof (struct lang_type)
194 #define ALLOC_OBJC_TYPE_LANG_SPECIFIC(NODE)				\
195   do {									\
196     TYPE_LANG_SPECIFIC (NODE)						\
197       = ggc_alloc_cleared_lang_type (sizeof (struct lang_type));	\
198   } while (0)
199 
200 #define TYPE_HAS_OBJC_INFO(TYPE)				\
201 	(TYPE_LANG_SPECIFIC (TYPE) && TYPE_OBJC_INFO (TYPE))
202 #define TYPE_OBJC_INTERFACE(TYPE) TREE_VEC_ELT (TYPE_OBJC_INFO (TYPE), 0)
203 #define TYPE_OBJC_PROTOCOL_LIST(TYPE) TREE_VEC_ELT (TYPE_OBJC_INFO (TYPE), 1)
204 
205 
206 #define INIT_TYPE_OBJC_INFO(TYPE)				\
207 	do							\
208 	  {							\
209 	    if (!TYPE_LANG_SPECIFIC (TYPE))			\
210 	      ALLOC_OBJC_TYPE_LANG_SPECIFIC(TYPE);		\
211 	    if (!TYPE_OBJC_INFO (TYPE))				\
212 	      TYPE_OBJC_INFO (TYPE)				\
213 		= make_tree_vec (OBJC_INFO_SLOT_ELTS);		\
214 	  }							\
215 	while (0)
216 
217 #define DUP_TYPE_OBJC_INFO(DST, SRC)				\
218 	do							\
219 	  {							\
220 	    ALLOC_OBJC_TYPE_LANG_SPECIFIC(DST);			\
221 	    if (TYPE_LANG_SPECIFIC (SRC))			\
222 	      memcpy (TYPE_LANG_SPECIFIC (DST),			\
223 		      TYPE_LANG_SPECIFIC (SRC),			\
224 		      SIZEOF_OBJC_TYPE_LANG_SPECIFIC);		\
225 	    TYPE_OBJC_INFO (DST)				\
226 	      = make_tree_vec (OBJC_INFO_SLOT_ELTS);		\
227 	  }							\
228 	while (0)
229 
230 #define TYPED_OBJECT(TYPE)					\
231 	(TREE_CODE (TYPE) == RECORD_TYPE			\
232 	 && TYPE_HAS_OBJC_INFO (TYPE)				\
233 	 && TYPE_OBJC_INTERFACE (TYPE))
234 #define OBJC_TYPE_NAME(TYPE) TYPE_NAME(TYPE)
235 #define OBJC_SET_TYPE_NAME(TYPE, NAME) (TYPE_NAME (TYPE) = NAME)
236 
237 /* Hash tables to manage the global pool of method prototypes.  */
238 
239 typedef struct hashed_entry	*hash;
240 typedef struct hashed_attribute	*attr;
241 
242 struct GTY(()) hashed_attribute {
243   attr next;
244   tree value;
245 };
246 
247 struct GTY(()) hashed_entry {
248   attr list;
249   hash next;
250   tree key;
251 };
252 
253 #define SIZEHASHTABLE		257
254 
255 /* An array of all the local variables in the current function that
256    need to be marked as volatile.  */
257 extern GTY(()) VEC(tree,gc) *local_variables_to_volatilize;
258 
259 /* Objective-C/Objective-C++ @implementation list.  */
260 
261 struct GTY(()) imp_entry {
262   struct imp_entry *next;
263   tree imp_context;
264   tree imp_template;
265   tree class_decl;		/* _OBJC[_v2]_CLASS/CATEGORY_<my_name>; */
266   tree meta_decl;		/* _OBJC[_v2]_METACLASS_<my_name>; */
267   BOOL_BITFIELD has_cxx_cdtors : 1;
268 };
269 
270 extern GTY(()) struct imp_entry *imp_list;
271 extern GTY(()) int imp_count;	/* `@implementation' */
272 extern GTY(()) int cat_count;	/* `@category' */
273 
274 extern GTY(()) objc_ivar_visibility_kind objc_ivar_visibility;
275 
276 /* Objective-C/Objective-C++ global tree enumeration.  */
277 
278 enum objc_tree_index
279 {
280     OCTI_STATIC_NST,
281     OCTI_STATIC_NST_DECL,
282     OCTI_SELF_ID,
283     OCTI_UCMD_ID,
284 
285     OCTI_SELF_DECL,
286     OCTI_UMSG_DECL,
287     OCTI_UMSG_FAST_DECL,
288     OCTI_UMSG_SUPER_DECL,
289     OCTI_UMSG_STRET_DECL,
290     OCTI_UMSG_SUPER_STRET_DECL,
291     OCTI_GET_CLASS_DECL,
292     OCTI_GET_MCLASS_DECL,
293     OCTI_SUPER_TYPE,
294     OCTI_SEL_TYPE,
295     OCTI_ID_TYPE,
296     OCTI_CLS_TYPE,
297     OCTI_NST_TYPE,
298     OCTI_PROTO_TYPE,
299 
300     OCTI_INTF_CHAIN,
301     OCTI_PROTO_CHAIN,
302     OCTI_IMPL_CHAIN,
303     OCTI_CLS_REF_CHAIN,
304     OCTI_SEL_REF_CHAIN,
305     OCTI_IVAR_CHAIN,
306     OCTI_CLS_NAMES_CHAIN,
307     OCTI_METH_VAR_NAMES_CHAIN,
308     OCTI_METH_VAR_TYPES_CHAIN,
309 
310     OCTI_SYMBOLS_DECL,
311     OCTI_NST_VAR_DECL,
312     OCTI_CLS_VAR_DECL,
313     OCTI_NST_METH_DECL,
314     OCTI_CLS_METH_DECL,
315     OCTI_CLS_DECL,
316     OCTI_MCLS_DECL,
317     OCTI_SEL_TABLE_DECL,
318     OCTI_MODULES_DECL,
319     OCTI_GNU_INIT_DECL,
320 
321     OCTI_INTF_CTX,
322     OCTI_IMPL_CTX,
323     OCTI_METH_CTX,
324     OCTI_IVAR_CTX,
325 
326     OCTI_IMPL_TEMPL,
327     OCTI_CLS_TEMPL,
328     OCTI_CAT_TEMPL,
329     OCTI_UPRIV_REC,
330     OCTI_PROTO_TEMPL,
331     OCTI_SEL_TEMPL,
332     OCTI_UCLS_SUPER_REF,
333     OCTI_UUCLS_SUPER_REF,
334     OCTI_METH_TEMPL,
335     OCTI_IVAR_TEMPL,
336     OCTI_METH_LIST_TEMPL,
337     OCTI_METH_PROTO_LIST_TEMPL,
338     OCTI_IVAR_LIST_TEMPL,
339     OCTI_SYMTAB_TEMPL,
340     OCTI_MODULE_TEMPL,
341     OCTI_SUPER_TEMPL,
342     OCTI_OBJ_REF,
343     OCTI_CLS_REF,
344     OCTI_METH_PROTO_TEMPL,
345     OCTI_FUNCTION1_TEMPL,
346     OCTI_FUNCTION2_TEMPL,
347 
348     OCTI_OBJ_ID,
349     OCTI_CLS_ID,
350     OCTI_ID_NAME,
351     OCTI_CLASS_NAME,
352     OCTI_CNST_STR_ID,
353     OCTI_CNST_STR_TYPE,
354     OCTI_CNST_STR_GLOB_ID,
355     OCTI_STRING_CLASS_DECL,
356     OCTI_INTERNAL_CNST_STR_TYPE,
357     OCTI_SUPER_DECL,
358     OCTI_SUPER_SUPERFIELD_ID,
359     OCTI_UMSG_NONNIL_DECL,
360     OCTI_UMSG_NONNIL_STRET_DECL,
361     OCTI_STORAGE_CLS,
362     OCTI_EXCEPTION_EXTRACT_DECL,
363     OCTI_EXCEPTION_TRY_ENTER_DECL,
364     OCTI_EXCEPTION_TRY_EXIT_DECL,
365     OCTI_EXCEPTION_MATCH_DECL,
366     OCTI_EXCEPTION_THROW_DECL,
367     OCTI_SYNC_ENTER_DECL,
368     OCTI_SYNC_EXIT_DECL,
369     OCTI_SETJMP_DECL,
370     OCTI_EXCDATA_TEMPL,
371     OCTI_STACK_EXCEPTION_DATA_DECL,
372     OCTI_LOCAL_EXCEPTION_DECL,
373     OCTI_RETHROW_EXCEPTION_DECL,
374     OCTI_EVAL_ONCE_DECL,
375     OCTI_CATCH_TYPE,
376     OCTI_EXECCLASS_DECL,
377 
378     OCTI_ASSIGN_IVAR_DECL,
379     OCTI_ASSIGN_IVAR_FAST_DECL,
380     OCTI_ASSIGN_GLOBAL_DECL,
381     OCTI_ASSIGN_STRONGCAST_DECL,
382 
383     OCTI_FAST_ENUM_STATE_TEMP,
384     OCTI_ENUM_MUTATION_DECL,
385 
386     OCTI_GET_PROPERTY_DECL,
387     OCTI_SET_PROPERTY_DECL,
388     OCTI_COPY_STRUCT_DECL,
389     OCTI_GET_PROPERTY_STRUCT_DECL,
390     OCTI_SET_PROPERTY_STRUCT_DECL,
391 
392     /* TODO: Add comment.  */
393     /* "V1" stuff.  */
394     OCTI_V1_PROP_LIST_TEMPL,
395     OCTI_V1_PROP_NAME_ATTR_CHAIN,
396 
397     OCTI_MAX
398 };
399 
400 extern GTY(()) tree objc_global_trees[OCTI_MAX];
401 
402 /* List of classes with list of their static instances.  */
403 #define objc_static_instances	objc_global_trees[OCTI_STATIC_NST]
404 
405 /* The declaration of the array administrating the static instances.  */
406 #define static_instances_decl	objc_global_trees[OCTI_STATIC_NST_DECL]
407 
408 /* Some commonly used instances of "identifier_node".  */
409 
410 #define self_id			objc_global_trees[OCTI_SELF_ID]
411 #define ucmd_id			objc_global_trees[OCTI_UCMD_ID]
412 
413 #define self_decl		objc_global_trees[OCTI_SELF_DECL]
414 #define umsg_decl		objc_global_trees[OCTI_UMSG_DECL]
415 #define umsg_fast_decl		objc_global_trees[OCTI_UMSG_FAST_DECL]
416 #define umsg_super_decl		objc_global_trees[OCTI_UMSG_SUPER_DECL]
417 #define umsg_stret_decl		objc_global_trees[OCTI_UMSG_STRET_DECL]
418 #define umsg_super_stret_decl	objc_global_trees[OCTI_UMSG_SUPER_STRET_DECL]
419 #define objc_get_class_decl	objc_global_trees[OCTI_GET_CLASS_DECL]
420 #define objc_get_meta_class_decl			\
421 				objc_global_trees[OCTI_GET_MCLASS_DECL]
422 
423 #define objc_super_type		objc_global_trees[OCTI_SUPER_TYPE]
424 #define objc_selector_type		objc_global_trees[OCTI_SEL_TYPE]
425 #define objc_object_type	objc_global_trees[OCTI_ID_TYPE]
426 #define objc_class_type		objc_global_trees[OCTI_CLS_TYPE]
427 #define objc_instance_type	objc_global_trees[OCTI_NST_TYPE]
428 #define objc_protocol_type	objc_global_trees[OCTI_PROTO_TYPE]
429 
430 /* Type checking macros.  */
431 
432 #define IS_ID(TYPE)							\
433 	(TREE_CODE (TYPE) == POINTER_TYPE				\
434 	 && (TYPE_MAIN_VARIANT (TREE_TYPE (TYPE))			\
435 	     == TREE_TYPE (objc_object_type)))
436 
437 #define IS_CLASS(TYPE)							\
438 	(TREE_CODE (TYPE) == POINTER_TYPE				\
439 	 && (TYPE_MAIN_VARIANT (TREE_TYPE (TYPE))			\
440 	     == TREE_TYPE (objc_class_type)))
441 
442 #define IS_PROTOCOL_QUALIFIED_UNTYPED(TYPE)				\
443 	((IS_ID (TYPE) || IS_CLASS (TYPE))				\
444 	 && TYPE_HAS_OBJC_INFO (TREE_TYPE (TYPE))			\
445 	 && TYPE_OBJC_PROTOCOL_LIST (TREE_TYPE (TYPE)))
446 
447 #define IS_SUPER(TYPE)							\
448 	(TREE_CODE (TYPE) == POINTER_TYPE				\
449 	 && TREE_TYPE (TYPE) == objc_super_template)
450 
451 #define interface_chain		objc_global_trees[OCTI_INTF_CHAIN]
452 #define protocol_chain		objc_global_trees[OCTI_PROTO_CHAIN]
453 #define implemented_classes	objc_global_trees[OCTI_IMPL_CHAIN]
454 
455 /* Chains to manage selectors that are referenced and defined in the
456    module.  */
457 
458 #define cls_ref_chain		objc_global_trees[OCTI_CLS_REF_CHAIN]	/* Classes referenced.  */
459 #define sel_ref_chain		objc_global_trees[OCTI_SEL_REF_CHAIN]	/* Selectors referenced.  */
460 #define objc_ivar_chain		objc_global_trees[OCTI_IVAR_CHAIN]
461 
462 /* Chains to manage uniquing of strings.  */
463 
464 #define class_names_chain	objc_global_trees[OCTI_CLS_NAMES_CHAIN]
465 #define meth_var_names_chain	objc_global_trees[OCTI_METH_VAR_NAMES_CHAIN]
466 #define meth_var_types_chain	objc_global_trees[OCTI_METH_VAR_TYPES_CHAIN]
467 
468 
469 /* Backend data declarations.  */
470 
471 #define UOBJC_SYMBOLS_decl		objc_global_trees[OCTI_SYMBOLS_DECL]
472 #define UOBJC_INSTANCE_VARIABLES_decl	objc_global_trees[OCTI_NST_VAR_DECL]
473 #define UOBJC_CLASS_VARIABLES_decl	objc_global_trees[OCTI_CLS_VAR_DECL]
474 #define UOBJC_INSTANCE_METHODS_decl	objc_global_trees[OCTI_NST_METH_DECL]
475 #define UOBJC_CLASS_METHODS_decl	objc_global_trees[OCTI_CLS_METH_DECL]
476 #define UOBJC_CLASS_decl		objc_global_trees[OCTI_CLS_DECL]
477 #define UOBJC_METACLASS_decl		objc_global_trees[OCTI_MCLS_DECL]
478 #define UOBJC_SELECTOR_TABLE_decl	objc_global_trees[OCTI_SEL_TABLE_DECL]
479 #define UOBJC_MODULES_decl		objc_global_trees[OCTI_MODULES_DECL]
480 #define GNU_INIT_decl			objc_global_trees[OCTI_GNU_INIT_DECL]
481 
482 /* The following are used when compiling a class implementation.
483    implementation_template will normally be an interface, however if
484    none exists this will be equal to objc_implementation_context...it is
485    set in start_class.  */
486 
487 #define objc_interface_context		objc_global_trees[OCTI_INTF_CTX]
488 #define objc_implementation_context	objc_global_trees[OCTI_IMPL_CTX]
489 #define objc_method_context		objc_global_trees[OCTI_METH_CTX]
490 #define objc_ivar_context		objc_global_trees[OCTI_IVAR_CTX]
491 
492 #define implementation_template	objc_global_trees[OCTI_IMPL_TEMPL]
493 #define objc_class_template	objc_global_trees[OCTI_CLS_TEMPL]
494 #define objc_category_template	objc_global_trees[OCTI_CAT_TEMPL]
495 #define uprivate_record		objc_global_trees[OCTI_UPRIV_REC]
496 #define objc_protocol_template	objc_global_trees[OCTI_PROTO_TEMPL]
497 #define objc_selector_template	objc_global_trees[OCTI_SEL_TEMPL]
498 #define ucls_super_ref		objc_global_trees[OCTI_UCLS_SUPER_REF]
499 #define uucls_super_ref		objc_global_trees[OCTI_UUCLS_SUPER_REF]
500 
501 #define umsg_nonnil_decl	objc_global_trees[OCTI_UMSG_NONNIL_DECL]
502 #define umsg_nonnil_stret_decl	objc_global_trees[OCTI_UMSG_NONNIL_STRET_DECL]
503 #define objc_storage_class	objc_global_trees[OCTI_STORAGE_CLS]
504 #define objc_exception_extract_decl		\
505 				objc_global_trees[OCTI_EXCEPTION_EXTRACT_DECL]
506 #define objc_exception_try_enter_decl		\
507 				objc_global_trees[OCTI_EXCEPTION_TRY_ENTER_DECL]
508 #define objc_exception_try_exit_decl		\
509 				objc_global_trees[OCTI_EXCEPTION_TRY_EXIT_DECL]
510 #define objc_exception_match_decl		\
511 				objc_global_trees[OCTI_EXCEPTION_MATCH_DECL]
512 #define objc_exception_throw_decl		\
513 				objc_global_trees[OCTI_EXCEPTION_THROW_DECL]
514 #define objc_sync_enter_decl	objc_global_trees[OCTI_SYNC_ENTER_DECL]
515 #define objc_sync_exit_decl	objc_global_trees[OCTI_SYNC_EXIT_DECL]
516 #define objc_exception_data_template		\
517 				objc_global_trees[OCTI_EXCDATA_TEMPL]
518 #define objc_setjmp_decl	objc_global_trees[OCTI_SETJMP_DECL]
519 #define objc_stack_exception_data		\
520 				objc_global_trees[OCTI_STACK_EXCEPTION_DATA_DECL]
521 #define objc_caught_exception	objc_global_trees[OCTI_LOCAL_EXCEPTION_DECL]
522 #define objc_rethrow_exception	objc_global_trees[OCTI_RETHROW_EXCEPTION_DECL]
523 #define objc_eval_once		objc_global_trees[OCTI_EVAL_ONCE_DECL]
524 #define objc_catch_type		objc_global_trees[OCTI_CATCH_TYPE]
525 
526 #define execclass_decl		objc_global_trees[OCTI_EXECCLASS_DECL]
527 
528 #define objc_assign_ivar_decl	objc_global_trees[OCTI_ASSIGN_IVAR_DECL]
529 #define objc_assign_ivar_fast_decl		\
530 				objc_global_trees[OCTI_ASSIGN_IVAR_FAST_DECL]
531 #define objc_assign_global_decl	objc_global_trees[OCTI_ASSIGN_GLOBAL_DECL]
532 #define objc_assign_strong_cast_decl		\
533 				objc_global_trees[OCTI_ASSIGN_STRONGCAST_DECL]
534 
535 #define objc_method_template	objc_global_trees[OCTI_METH_TEMPL]
536 #define objc_ivar_template	objc_global_trees[OCTI_IVAR_TEMPL]
537 #define objc_method_list_ptr	objc_global_trees[OCTI_METH_LIST_TEMPL]
538 #define objc_method_proto_list_ptr		\
539 				objc_global_trees[OCTI_METH_PROTO_LIST_TEMPL]
540 #define objc_ivar_list_ptr	objc_global_trees[OCTI_IVAR_LIST_TEMPL]
541 #define objc_symtab_template	objc_global_trees[OCTI_SYMTAB_TEMPL]
542 #define objc_module_template	objc_global_trees[OCTI_MODULE_TEMPL]
543 #define objc_super_template	objc_global_trees[OCTI_SUPER_TEMPL]
544 #define objc_object_reference	objc_global_trees[OCTI_OBJ_REF]
545 #define objc_class_reference	objc_global_trees[OCTI_CLS_REF]
546 #define objc_method_prototype_template		\
547 				objc_global_trees[OCTI_METH_PROTO_TEMPL]
548 #define function1_template	objc_global_trees[OCTI_FUNCTION1_TEMPL]
549 #define function2_template	objc_global_trees[OCTI_FUNCTION2_TEMPL]
550 
551 #define objc_object_id		objc_global_trees[OCTI_OBJ_ID]
552 #define objc_class_id		objc_global_trees[OCTI_CLS_ID]
553 #define objc_object_name		objc_global_trees[OCTI_ID_NAME]
554 #define objc_class_name		objc_global_trees[OCTI_CLASS_NAME]
555 
556 /* Constant string classes.  */
557 #define constant_string_id	objc_global_trees[OCTI_CNST_STR_ID]
558 #define constant_string_type	objc_global_trees[OCTI_CNST_STR_TYPE]
559 #define constant_string_global_id		\
560 				objc_global_trees[OCTI_CNST_STR_GLOB_ID]
561 #define string_class_decl	objc_global_trees[OCTI_STRING_CLASS_DECL]
562 #define internal_const_str_type	objc_global_trees[OCTI_INTERNAL_CNST_STR_TYPE]
563 
564 #define UOBJC_SUPER_decl	objc_global_trees[OCTI_SUPER_DECL]
565 #define super_superclassfield_id \
566 				objc_global_trees[OCTI_SUPER_SUPERFIELD_ID]
567 
568 #define objc_fast_enumeration_state_template	\
569                                 objc_global_trees[OCTI_FAST_ENUM_STATE_TEMP]
570 #define objc_enumeration_mutation_decl		\
571                                 objc_global_trees[OCTI_ENUM_MUTATION_DECL]
572 
573 /* Declarations of functions used when synthesizing property
574    accessors.  */
575 #define objc_getProperty_decl	objc_global_trees[OCTI_GET_PROPERTY_DECL]
576 #define objc_setProperty_decl	objc_global_trees[OCTI_SET_PROPERTY_DECL]
577 #define objc_copyStruct_decl	objc_global_trees[OCTI_COPY_STRUCT_DECL]
578 #define objc_getPropertyStruct_decl \
579 				objc_global_trees[OCTI_GET_PROPERTY_STRUCT_DECL]
580 #define objc_setPropertyStruct_decl \
581 				objc_global_trees[OCTI_SET_PROPERTY_STRUCT_DECL]
582 
583 /* TODO: Add comment.  */
584 /* V1 stuff.  */
585 #define objc_prop_list_ptr	objc_global_trees[OCTI_V1_PROP_LIST_TEMPL]
586 #define prop_names_attr_chain	objc_global_trees[OCTI_V1_PROP_NAME_ATTR_CHAIN]
587 
588 /* Reserved tag definitions.  */
589 
590 #define OBJECT_TYPEDEF_NAME		"id"
591 #define CLASS_TYPEDEF_NAME		"Class"
592 
593 #define TAG_OBJECT			"objc_object"
594 #define TAG_CLASS			"objc_class"
595 #define TAG_SUPER			"objc_super"
596 #define TAG_SELECTOR			"objc_selector"
597 
598 #define UTAG_CLASS			"_objc_class"
599 #define UTAG_IVAR			"_objc_ivar"
600 #define UTAG_IVAR_LIST			"_objc_ivar_list"
601 #define UTAG_METHOD			"_objc_method"
602 #define UTAG_METHOD_LIST		"_objc_method_list"
603 #define UTAG_CATEGORY			"_objc_category"
604 #define UTAG_MODULE			"_objc_module"
605 #define UTAG_SYMTAB			"_objc_symtab"
606 #define UTAG_SUPER			"_objc_super"
607 #define UTAG_SELECTOR			"_objc_selector"
608 
609 #define UTAG_PROTOCOL			"_objc_protocol"
610 #define UTAG_METHOD_PROTOTYPE		"_objc_method_prototype"
611 #define UTAG_METHOD_PROTOTYPE_LIST	"_objc__method_prototype_list"
612 
613 #define PROTOCOL_OBJECT_CLASS_NAME	"Protocol"
614 
615 #define TAG_EXCEPTIONTHROW		"objc_exception_throw"
616 #define TAG_SYNCENTER			"objc_sync_enter"
617 #define TAG_SYNCEXIT			"objc_sync_exit"
618 
619 /* Really should be NeXT private.  */
620 #define UTAG_EXCDATA			"_objc_exception_data"
621 
622 #define TAG_CXX_CONSTRUCT		".cxx_construct"
623 #define TAG_CXX_DESTRUCT		".cxx_destruct"
624 
625 #define TAG_ENUMERATION_MUTATION        "objc_enumerationMutation"
626 #define TAG_FAST_ENUMERATION_STATE      "__objcFastEnumerationState"
627 
628 typedef enum string_section
629 {
630   class_names,		/* class, category, protocol, module names */
631   meth_var_names,	/* method and variable names */
632   meth_var_types,	/* method and variable type descriptors */
633   prop_names_attr	/* property names and their attributes. */
634 } string_section;
635 
636 #define METHOD_DEF			0
637 #define METHOD_REF			1
638 
639 #define BUFSIZE				1024
640 
641 #define CLS_FACTORY			0x0001L
642 #define CLS_META			0x0002L
643 
644 /* Runtime metadata flags - ??? apparently unused.  */
645 
646 #define OBJC_MODIFIER_STATIC		0x00000001
647 #define OBJC_MODIFIER_FINAL		0x00000002
648 #define OBJC_MODIFIER_PUBLIC		0x00000004
649 #define OBJC_MODIFIER_PRIVATE		0x00000008
650 #define OBJC_MODIFIER_PROTECTED		0x00000010
651 #define OBJC_MODIFIER_NATIVE		0x00000020
652 #define OBJC_MODIFIER_SYNCHRONIZED	0x00000040
653 #define OBJC_MODIFIER_ABSTRACT		0x00000080
654 #define OBJC_MODIFIER_VOLATILE		0x00000100
655 #define OBJC_MODIFIER_TRANSIENT		0x00000200
656 #define OBJC_MODIFIER_NONE_SPECIFIED	0x80000000
657 
658 /* Exception handling constructs.  We begin by having the parser do most
659    of the work and passing us blocks.
660    This allows us to handle different exceptions implementations.  */
661 
662 /* Stack of open try blocks.  */
663 
664 struct objc_try_context
665 {
666   struct objc_try_context *outer;
667 
668   /* Statements (or statement lists) as processed by the parser.  */
669   tree try_body;
670   tree finally_body;
671 
672   /* Some file position locations.  */
673   location_t try_locus;
674   location_t end_try_locus;
675   location_t end_catch_locus;
676   location_t finally_locus;
677   location_t end_finally_locus;
678 
679   /* A STATEMENT_LIST of CATCH_EXPRs, appropriate for sticking into op1
680      of a TRY_CATCH_EXPR.  Even when doing Darwin setjmp.  */
681   tree catch_list;
682 
683   /* The CATCH_EXPR of an open @catch clause.  */
684   tree current_catch;
685 
686   /* The VAR_DECL holding  __builtin_eh_pointer (or equivalent).  */
687   tree caught_decl;
688   tree stack_decl;
689   tree rethrow_decl;
690 };
691 
692 /*  A small number of routines used by the FE parser and the runtime code
693    generators.  Put here as inlines for efficiency in non-lto builds rather
694    than making them externs.  */
695 
696 extern tree objc_create_temporary_var (tree, const char *);
697 
698 #define objc_is_object_id(TYPE) (OBJC_TYPE_NAME (TYPE) == objc_object_id)
699 #define objc_is_class_id(TYPE) (OBJC_TYPE_NAME (TYPE) == objc_class_id)
700 
701 /* Retrieve category interface CAT_NAME (if any) associated with CLASS.  */
702 static inline tree
703 lookup_category (tree klass, tree cat_name)
704 {
705   tree category = CLASS_CATEGORY_LIST (klass);
706 
707   while (category && CLASS_SUPER_NAME (category) != cat_name)
708     category = CLASS_CATEGORY_LIST (category);
709   return category;
710 }
711 
712 /* Count only the fields occurring in T.  */
713 static inline int
714 ivar_list_length (tree t)
715 {
716   int count = 0;
717 
718   for (; t; t = DECL_CHAIN (t))
719     if (TREE_CODE (t) == FIELD_DECL)
720       ++count;
721 
722   return count;
723 }
724 
725 static inline tree
726 is_ivar (tree decl_chain, tree ident)
727 {
728   for ( ; decl_chain; decl_chain = DECL_CHAIN (decl_chain))
729     if (DECL_NAME (decl_chain) == ident)
730       return decl_chain;
731   return NULL_TREE;
732 }
733 
734 #endif /* GCC_OBJC_ACT_H */
735