]>
Commit | Line | Data |
---|---|---|
e04a16fb AG |
1 | /* Definitions for parsing and type checking for the GNU compiler for |
2 | the Java(TM) language. | |
37b31012 GS |
3 | Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002 |
4 | Free Software Foundation, Inc. | |
e04a16fb AG |
5 | |
6 | This file is part of GNU CC. | |
7 | ||
8 | GNU CC is free software; you can redistribute it and/or modify | |
9 | it under the terms of the GNU General Public License as published by | |
10 | the Free Software Foundation; either version 2, or (at your option) | |
11 | any later version. | |
12 | ||
13 | GNU CC is distributed in the hope that it will be useful, | |
14 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 | GNU General Public License for more details. | |
17 | ||
18 | You should have received a copy of the GNU General Public License | |
19 | along with GNU CC; see the file COPYING. If not, write to | |
20 | the Free Software Foundation, 59 Temple Place - Suite 330, | |
21 | Boston, MA 02111-1307, USA. | |
22 | ||
23 | Java and all Java-based marks are trademarks or registered trademarks | |
24 | of Sun Microsystems, Inc. in the United States and other countries. | |
25 | The Free Software Foundation is independent of Sun Microsystems, Inc. */ | |
26 | ||
27 | /* Hacked by Per Bothner <bothner@cygnus.com> February 1996. */ | |
28 | ||
3ff9925c AG |
29 | #include "hash.h" |
30 | ||
e04a16fb AG |
31 | /* Java language-specific tree codes. */ |
32 | #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM, | |
33 | enum java_tree_code { | |
34 | __DUMMY = LAST_AND_UNUSED_TREE_CODE, | |
35 | #include "java-tree.def" | |
36 | LAST_JAVA_TREE_CODE | |
37 | }; | |
38 | #undef DEFTREECODE | |
39 | ||
40 | struct JCF; | |
41 | ||
42 | /* Usage of TREE_LANG_FLAG_?: | |
43 | 0: IS_A_SINGLE_IMPORT_CLASSFILE_NAME_P (in IDENTIFIER_NODE) | |
44 | RESOLVE_EXPRESSION_NAME_P (in EXPR_WITH_FILE_LOCATION) | |
c2952b01 APB |
45 | FOR_LOOP_P (in LOOP_EXPR) |
46 | ANONYMOUS_CLASS_P (in RECORD_TYPE) | |
47 | ARG_FINAL_P (in TREE_LIST) | |
e04a16fb AG |
48 | 1: CLASS_HAS_SUPER_FLAG (in TREE_VEC). |
49 | IS_A_CLASSFILE_NAME (in IDENTIFIER_NODE) | |
50 | COMPOUND_ASSIGN_P (in EXPR (binop_*)) | |
c2952b01 | 51 | LOCAL_CLASS_P (in RECORD_TYPE) |
b16e8f08 | 52 | BLOCK_IS_IMPLICIT (in BLOCK) |
54646811 | 53 | JAVA_FILE_P (in TREE_LIST in current_file_list) |
e04a16fb AG |
54 | 2: RETURN_MAP_ADJUSTED (in TREE_VEC). |
55 | QUALIFIED_P (in IDENTIFIER_NODE) | |
56 | PRIMARY_P (in EXPR_WITH_FILE_LOCATION) | |
57 | MODIFY_EXPR_FROM_INITIALIZATION_P (in MODIFY_EXPR) | |
34d4df06 | 58 | CLASS_METHOD_CHECKED_P (in RECORD_TYPE) |
54646811 | 59 | CLASS_FILE_P (in TREE_LIST in current_file_list) |
e04a16fb AG |
60 | 3: IS_AN_IMPORT_ON_DEMAND_P (in IDENTIFIER_NODE) |
61 | RESOLVE_PACKAGE_NAME_P (in EXPR_WITH_FILE_LOCATION) | |
12472854 | 62 | SWITCH_HAS_DEFAULT (in SWITCH_EXPR) |
54646811 | 63 | ZIP_FILE_P (in TREE_LIST in current_file_list) |
eec87542 | 64 | HAS_FINALIZER (in RECORD_TYPE) |
b351b287 APB |
65 | 4: IS_A_COMMAND_LINE_FILENAME_P (in IDENTIFIER_NODE) |
66 | RESOLVE_TYPE_NAME_P (in EXPR_WITH_FILE_LOCATION) | |
157412f5 | 67 | CALL_USING_SUPER (in CALL_EXPR) |
4f88ccda | 68 | IS_ARRAY_LENGTH_ACCESS (in INDIRECT_REF) |
b351b287 APB |
69 | 5: HAS_BEEN_ALREADY_PARSED_P (in IDENTIFIER_NODE) |
70 | IS_BREAK_STMT_P (in EXPR_WITH_FILE_LOCATION) | |
1595a329 | 71 | IS_CRAFTED_STRING_BUFFER_P (in CALL_EXPR) |
1729c265 | 72 | IS_INIT_CHECKED (in SAVE_EXPR) |
c2952b01 APB |
73 | 6: CAN_COMPLETE_NORMALLY (in statement nodes) |
74 | OUTER_FIELD_ACCESS_IDENTIFIER_P (in IDENTIFIER_NODE) | |
e04a16fb AG |
75 | |
76 | Usage of TYPE_LANG_FLAG_?: | |
c2952b01 | 77 | 0: CLASS_ACCESS0_GENERATED_P (in RECORD_TYPE) |
e04a16fb | 78 | 1: TYPE_ARRAY_P (in RECORD_TYPE). |
3c0ce750 | 79 | 2: CLASS_PARSED_P (in RECORD_TYPE). |
e04a16fb AG |
80 | 3: CLASS_FROM_SOURCE_P (in RECORD_TYPE). |
81 | 4: CLASS_P (in RECORD_TYPE). | |
b351b287 | 82 | 5: CLASS_FROM_CURRENTLY_COMPILED_SOURCE_P (in RECORD_TYPE) |
c2952b01 | 83 | 6: CLASS_BEING_LAIDOUT (in RECORD_TYPE) |
e04a16fb AG |
84 | |
85 | Usage of DECL_LANG_FLAG_?: | |
5e942c50 APB |
86 | 0: METHOD_DEPRECATED (in FUNCTION_DECL). |
87 | FIELD_DEPRECATED (in FIELD_DECL). | |
88 | CLASS_DEPRECATED (in TYPE_DECL). | |
e04a16fb AG |
89 | 1: METHOD_PUBLIC (in FUNCTION_DECL). |
90 | FIELD_PUBLIC (in FIELD_DECL). | |
91 | CLASS_PUBLIC (in TYPE_DECL). | |
92 | 2: METHOD_STATIC (in FUNCTION_DECL). | |
93 | (But note that FIELD_STATIC uses TREE_STATIC!) | |
94 | CLASS_COMPLETE_P (in TYPE_DECL) | |
95 | 3: METHOD_FINAL (in FUNCTION_DECL) | |
96 | FIELD_FINAL (in FIELD_DECL) | |
97 | CLASS_FINAL (in TYPE_DECL) | |
4f88ccda | 98 | DECL_FINAL (in any decl) |
e04a16fb AG |
99 | 4: METHOD_SYNCHRONIZED (in FUNCTION_DECL). |
100 | LABEL_IN_SUBR (in LABEL_DECL) | |
101 | CLASS_INTERFACE (in TYPE_DECL) | |
102 | FIELD_VOLATILE (int FIELD_DECL) | |
103 | 5: METHOD_ABSTRACT (in FUNCTION_DECL). | |
104 | LABEL_IS_SUBR_START (in LABEL_DECL) | |
105 | CLASS_ABSTRACT (in TYPE_DECL) | |
106 | FIELD_TRANSIENT (in FIELD_DECL) | |
107 | 6: METHOD_TRANSIENT (in FUNCTION_DECL) | |
108 | LABEL_CHANGED (in LABEL_DECL) | |
109 | CLASS_SUPER (in TYPE_DECL, ACC_SUPER flag) | |
c2952b01 | 110 | FIELD_LOCAL_ALIAS (in FIELD_DECL) |
5e942c50 | 111 | 7: DECL_CONSTRUCTOR_P (in FUNCTION_DECL). |
c2952b01 APB |
112 | CLASS_STATIC (in TYPE_DECL) |
113 | FIELD_LOCAL_ALIAS_USED (in FIELD_DECL) | |
114 | FIELD_THISN (in FIELD_DECL) | |
e04a16fb AG |
115 | */ |
116 | ||
117 | /* True if the class whose TYPE_BINFO this is has a superclass. | |
118 | (True of all classes except Object.) */ | |
119 | #define CLASS_HAS_SUPER_FLAG(BINFO) TREE_LANG_FLAG_1(BINFO) | |
120 | #define CLASS_HAS_SUPER(TYPE) CLASS_HAS_SUPER_FLAG (TYPE_BINFO (TYPE)) | |
121 | ||
122 | /* Return the supertype of class TYPE, or NULL_TREE is it has none. */ | |
123 | #define CLASSTYPE_SUPER(TYPE) (CLASS_HAS_SUPER (TYPE) ? \ | |
124 | BINFO_TYPE (TREE_VEC_ELT (TYPE_BINFO_BASETYPES (TYPE), 0)) : NULL_TREE) | |
125 | ||
126 | /* True if the class we are compiling is a .java source file; | |
127 | false if it is a .class bytecode file. */ | |
128 | extern int compiling_from_source; | |
129 | ||
130 | /* The class defined by the actual (main) file we are compiling. */ | |
19e223db MM |
131 | #define main_class \ |
132 | java_global_trees[JTI_MAIN_CLASS] | |
e04a16fb AG |
133 | |
134 | /* The class we are currently processing. */ | |
19e223db MM |
135 | #define current_class \ |
136 | java_global_trees[JTI_CURRENT_CLASS] | |
e04a16fb | 137 | |
23a79c61 | 138 | /* List of all class DECLs seen so far. */ |
19e223db MM |
139 | #define all_class_list \ |
140 | java_global_trees[JTI_ALL_CLASS_LIST] | |
23a79c61 | 141 | |
36e10d77 APB |
142 | /* List of all class filenames seen so far. */ |
143 | #define all_class_filename java_global_trees [JTI_ALL_CLASS_FILENAME] | |
144 | ||
861ef928 BM |
145 | /* List of virtual method decls called in this translation unit, used to |
146 | generate virtual method offset symbol table. */ | |
147 | #define otable_methods java_global_trees [JTI_OTABLE_METHODS] | |
148 | ||
149 | /* The virtual method offset table. This is emitted as uninitialized data of | |
150 | the required length, and filled out at run time during class linking. */ | |
151 | #define otable_decl java_global_trees [JTI_OTABLE_DECL] | |
152 | ||
153 | /* The virtual method offset symbol table. Used by the runtime to fill out the | |
154 | otable. */ | |
155 | #define otable_syms_decl java_global_trees [JTI_OTABLE_SYMS_DECL] | |
156 | ||
e04a16fb AG |
157 | extern int flag_emit_class_files; |
158 | ||
fea2d5da PB |
159 | extern int flag_filelist_file; |
160 | ||
7145d9fe TT |
161 | /* When non zero, assume all native functions are implemented with |
162 | JNI, not CNI. */ | |
163 | ||
164 | extern int flag_jni; | |
165 | ||
5f1c312a APB |
166 | /* When non zero, report the now deprecated empty statements. */ |
167 | ||
168 | extern int flag_extraneous_semicolon; | |
169 | ||
b124f72e APB |
170 | /* When non zero, always check for a non gcj generated classes archive. */ |
171 | ||
172 | extern int flag_force_classes_archive_check; | |
173 | ||
235acd35 APB |
174 | /* When non zero, we emit xref strings. Values of the flag for xref |
175 | backends are defined in xref.h. */ | |
176 | ||
177 | extern int flag_emit_xref; | |
178 | ||
ce6e9147 APB |
179 | /* When doing xrefs, tell when not to fold. */ |
180 | extern int do_not_fold; | |
181 | ||
7be5b0e5 AG |
182 | /* Resource name. */ |
183 | extern char * resource_name; | |
184 | ||
c877974e APB |
185 | /* Turned to 1 if -Wall was encountered. See lang.c for their meanings. */ |
186 | extern int flag_wall; | |
187 | extern int flag_redundant; | |
188 | extern int flag_not_overriding; | |
189 | extern int flag_static_local_jdk1_1; | |
190 | ||
b7436b72 TT |
191 | /* When non zero, warn when source file is newer than matching class |
192 | file. */ | |
193 | extern int flag_newer; | |
194 | ||
aa4759c1 AH |
195 | /* When non zero, call a library routine to do integer divisions. */ |
196 | extern int flag_use_divide_subroutine; | |
197 | ||
5830574a TT |
198 | /* When non zero, generate code for the Boehm GC. */ |
199 | extern int flag_use_boehm_gc; | |
200 | ||
64aa33dd TT |
201 | /* When non zero, assume the runtime uses a hash table to map an |
202 | object to its synchronization structure. */ | |
203 | extern int flag_hash_synchronization; | |
204 | ||
4ff17c6a AH |
205 | /* When non zero, generate checks for references to NULL. */ |
206 | extern int flag_check_references; | |
207 | ||
4009bb7d APB |
208 | /* Used through STATIC_CLASS_INIT_OPT_P to check whether static |
209 | initialization optimization should be performed. */ | |
210 | extern int flag_optimize_sci; | |
211 | ||
861ef928 BM |
212 | /* When non zero, use offset tables for virtual method calls |
213 | in order to improve binary compatibility. */ | |
214 | extern int flag_indirect_dispatch; | |
215 | ||
022dcc46 BM |
216 | /* When zero, don't generate runtime array store checks. */ |
217 | extern int flag_store_check; | |
218 | ||
d19cbcb5 | 219 | /* Encoding used for source files. */ |
a93eddcf | 220 | extern const char *current_encoding; |
d19cbcb5 | 221 | |
e04a16fb | 222 | /* The Java .class file that provides main_class; the main input file. */ |
4f65832d | 223 | extern struct JCF *current_jcf; |
e04a16fb AG |
224 | |
225 | typedef struct CPool constant_pool; | |
226 | ||
227 | #define CONSTANT_ResolvedFlag 16 | |
228 | ||
229 | /* The cpool->data[i] for a ResolvedString points to a STRING_CST. */ | |
230 | #define CONSTANT_ResolvedString (CONSTANT_String+CONSTANT_ResolvedFlag) | |
231 | ||
232 | /* The cpool->data[i] for a ResolvedClass points to a RECORD_TYPE. */ | |
233 | #define CONSTANT_ResolvedClass (CONSTANT_Class+CONSTANT_ResolvedFlag) | |
234 | ||
235 | #define CPOOL_UTF(CPOOL, INDEX) ((tree) (CPOOL)->data[INDEX]) | |
236 | ||
237 | /* A NameAndType constant is represented as a TREE_LIST. | |
238 | The type is the signature string (as an IDENTIFIER_NODE). */ | |
239 | ||
240 | #define NAME_AND_TYPE_NAME(CPOOL, IDX) \ | |
241 | CPOOL_UTF(CPOOL, CPOOL_USHORT1(CPOOL, IDX)) | |
242 | #define NAME_AND_TYPE_SIGNATURE(CPOOL, IDX) \ | |
243 | CPOOL_UTF(CPOOL, CPOOL_USHORT2(CPOOL, IDX)) | |
244 | ||
245 | /* A FieldRef, MethodRef or InterfaceMethodRef constant | |
246 | is represented as a TREE_LIST. */ | |
247 | ||
248 | #define COMPONENT_REF_CLASS_INDEX(CPOOL, IDX) CPOOL_USHORT1(CPOOL, IDX) | |
249 | #define COMPONENT_REF_NAME_AND_TYPE(CPOOL, IDX) CPOOL_USHORT2(CPOOL, IDX) | |
250 | #define COMPONENT_REF_NAME(CPOOL, IDX) \ | |
251 | NAME_AND_TYPE_NAME (CPOOL, COMPONENT_REF_NAME_AND_TYPE(CPOOL, IDX)) | |
252 | #define COMPONENT_REF_SIGNATURE(CPOOL, IDX) \ | |
253 | NAME_AND_TYPE_SIGNATURE (CPOOL, COMPONENT_REF_NAME_AND_TYPE(CPOOL, IDX)) | |
254 | ||
19e223db MM |
255 | enum java_tree_index |
256 | { | |
257 | JTI_PROMOTED_BYTE_TYPE_NODE, | |
258 | JTI_PROMOTED_SHORT_TYPE_NODE, | |
259 | JTI_PROMOTED_CHAR_TYPE_NODE, | |
260 | JTI_PROMOTED_BOOLEAN_TYPE_NODE, | |
261 | ||
262 | JTI_BYTE_TYPE_NODE, | |
263 | JTI_SHORT_TYPE_NODE, | |
264 | JTI_INT_TYPE_NODE, | |
265 | JTI_LONG_TYPE_NODE, | |
266 | ||
267 | JTI_UNSIGNED_BYTE_TYPE_NODE, | |
268 | JTI_UNSIGNED_SHORT_TYPE_NODE, | |
269 | JTI_UNSIGNED_INT_TYPE_NODE, | |
270 | JTI_UNSIGNED_LONG_TYPE_NODE, | |
271 | ||
272 | JTI_BOOLEAN_TYPE_NODE, | |
273 | ||
274 | JTI_OBJECT_TYPE_NODE, | |
275 | JTI_UNQUALIFIED_OBJECT_ID_NODE, | |
276 | JTI_OBJECT_PTR_TYPE_NODE, | |
277 | JTI_STRING_TYPE_NODE, | |
278 | JTI_STRING_PTR_TYPE_NODE, | |
279 | JTI_THROWABLE_TYPE_NODE, | |
17126208 | 280 | JTI_EXCEPTION_TYPE_NODE, |
19e223db MM |
281 | JTI_RUNTIME_EXCEPTION_TYPE_NODE, |
282 | JTI_ERROR_EXCEPTION_TYPE_NODE, | |
283 | JTI_RAWDATA_PTR_TYPE_NODE, | |
17126208 APB |
284 | JTI_CLASS_NOT_FOUND_TYPE_NODE, |
285 | JTI_NO_CLASS_DEF_FOUND_TYPE_NODE, | |
19e223db MM |
286 | |
287 | JTI_BYTE_ARRAY_TYPE_NODE, | |
288 | JTI_SHORT_ARRAY_TYPE_NODE, | |
289 | JTI_INT_ARRAY_TYPE_NODE, | |
290 | JTI_LONG_ARRAY_TYPE_NODE, | |
291 | JTI_BOOLEAN_ARRAY_TYPE_NODE, | |
292 | JTI_CHAR_ARRAY_TYPE_NODE, | |
293 | JTI_DOUBLE_ARRAY_TYPE_NODE, | |
294 | JTI_FLOAT_ARRAY_TYPE_NODE, | |
295 | JTI_ARRAY_ARRAY_TYPE_NODE, | |
296 | JTI_OBJECT_ARRAY_TYPE_NODE, | |
297 | JTI_STRING_ARRAY_TYPE_NODE, | |
298 | JTI_BOOLEAN_ARRAY_VTABLE, | |
299 | JTI_BYTE_ARRAY_VTABLE, | |
300 | JTI_CHAR_ARRAY_VTABLE, | |
301 | JTI_SHORT_ARRAY_VTABLE, | |
302 | JTI_INT_ARRAY_VTABLE, | |
303 | JTI_LONG_ARRAY_VTABLE, | |
304 | JTI_FLOAT_ARRAY_VTABLE, | |
305 | JTI_DOUBLE_ARRAY_VTABLE, | |
306 | JTI_TYPE_IDENTIFIER_NODE, | |
307 | JTI_INIT_IDENTIFIER_NODE, | |
308 | JTI_CLINIT_IDENTIFIER_NODE, | |
309 | JTI_FINIT_IDENTIFIER_NODE, | |
17126208 | 310 | JTI_INSTINIT_IDENTIFIER_NODE, |
19e223db MM |
311 | JTI_VOID_SIGNATURE_NODE, |
312 | JTI_LENGTH_IDENTIFIER_NODE, | |
eec87542 | 313 | JTI_FINALIZE_IDENTIFIER_NODE, |
19e223db MM |
314 | JTI_THIS_IDENTIFIER_NODE, |
315 | JTI_SUPER_IDENTIFIER_NODE, | |
316 | JTI_CONTINUE_IDENTIFIER_NODE, | |
317 | JTI_ACCESS0_IDENTIFIER_NODE, | |
94807d33 | 318 | JTI_CLASSDOLLAR_IDENTIFIER_NODE, |
19e223db MM |
319 | JTI_ONE_ELT_ARRAY_DOMAIN_TYPE, |
320 | ||
321 | JTI_RETURN_ADDRESS_TYPE_NODE, | |
322 | ||
323 | JTI_BOOLEAN_TRUE_NODE, | |
324 | JTI_BOOLEAN_FALSE_NODE, | |
325 | ||
326 | JTI_LONG_ZERO_NODE, | |
327 | JTI_FLOAT_ZERO_NODE, | |
328 | JTI_DOUBLE_ZERO_NODE, | |
19e223db MM |
329 | JTI_INTEGER_TWO_NODE, |
330 | JTI_INTEGER_FOUR_NODE, | |
331 | JTI_EMPTY_STMT_NODE, | |
332 | ||
333 | JTI_METHODTABLE_TYPE, | |
334 | JTI_METHODTABLE_PTR_TYPE, | |
335 | ||
336 | JTI_UTF8CONST_TYPE, | |
337 | JTI_UTF8CONST_PTR_TYPE, | |
338 | ||
339 | JTI_CLASS_TYPE_NODE, | |
340 | JTI_CLASS_PTR_TYPE, | |
341 | JTI_FIELD_TYPE_NODE, | |
342 | JTI_CONSTANTS_TYPE_NODE, | |
343 | JTI_DTABLE_TYPE, | |
344 | JTI_DTABLE_PTR_TYPE, | |
345 | JTI_FIELD_PTR_TYPE_NODE, | |
346 | JTI_FIELD_INFO_UNION_NODE, | |
347 | JTI_EXCEPTION_TYPE, | |
348 | JTI_EXCEPTION_PTR_TYPE, | |
349 | JTI_LINENUMBERENTRY_TYPE, | |
350 | JTI_LINENUMBERS_TYPE, | |
351 | JTI_METHOD_TYPE_NODE, | |
352 | JTI_METHOD_PTR_TYPE_NODE, | |
861ef928 BM |
353 | JTI_OTABLE_TYPE, |
354 | JTI_OTABLE_PTR_TYPE, | |
355 | JTI_METHOD_SYMBOL_TYPE, | |
356 | JTI_METHOD_SYMBOLS_ARRAY_TYPE, | |
357 | JTI_METHOD_SYMBOLS_ARRAY_PTR_TYPE, | |
19e223db MM |
358 | |
359 | JTI_END_PARAMS_NODE, | |
360 | ||
ce1c98ea | 361 | JTI_THROW_NODE, |
19e223db | 362 | JTI_ALLOC_OBJECT_NODE, |
eec87542 | 363 | JTI_ALLOC_NO_FINALIZER_NODE, |
19e223db MM |
364 | JTI_SOFT_INSTANCEOF_NODE, |
365 | JTI_SOFT_CHECKCAST_NODE, | |
366 | JTI_SOFT_INITCLASS_NODE, | |
367 | JTI_SOFT_NEWARRAY_NODE, | |
368 | JTI_SOFT_ANEWARRAY_NODE, | |
369 | JTI_SOFT_MULTIANEWARRAY_NODE, | |
370 | JTI_SOFT_BADARRAYINDEX_NODE, | |
371 | JTI_SOFT_NULLPOINTER_NODE, | |
372 | JTI_SOFT_CHECKARRAYSTORE_NODE, | |
373 | JTI_SOFT_MONITORENTER_NODE, | |
374 | JTI_SOFT_MONITOREXIT_NODE, | |
375 | JTI_SOFT_LOOKUPINTERFACEMETHOD_NODE, | |
376 | JTI_SOFT_LOOKUPJNIMETHOD_NODE, | |
377 | JTI_SOFT_GETJNIENVNEWFRAME_NODE, | |
378 | JTI_SOFT_JNIPOPSYSTEMFRAME_NODE, | |
379 | JTI_SOFT_FMOD_NODE, | |
19e223db MM |
380 | JTI_SOFT_IDIV_NODE, |
381 | JTI_SOFT_IREM_NODE, | |
382 | JTI_SOFT_LDIV_NODE, | |
383 | JTI_SOFT_LREM_NODE, | |
384 | ||
385 | JTI_ACCESS_FLAGS_TYPE_NODE, | |
386 | ||
19e223db MM |
387 | JTI_NATIVECODE_PTR_ARRAY_TYPE_NODE, |
388 | ||
389 | JTI_WFL_OPERATOR, | |
390 | JTI_CURRENT_CONSTANT_POOL_DATA_REF, | |
391 | ||
392 | JTI_MAIN_CLASS, | |
393 | JTI_CURRENT_CLASS, | |
394 | JTI_ALL_CLASS_LIST, | |
36e10d77 | 395 | JTI_ALL_CLASS_FILENAME, |
19e223db | 396 | |
861ef928 BM |
397 | JTI_OTABLE_METHODS, |
398 | JTI_OTABLE_DECL, | |
399 | JTI_OTABLE_SYMS_DECL, | |
400 | ||
fec763fc TT |
401 | JTI_PREDEF_FILENAMES, |
402 | ||
19e223db MM |
403 | JTI_MAX |
404 | }; | |
405 | ||
406 | extern tree java_global_trees[JTI_MAX]; | |
407 | ||
e04a16fb AG |
408 | /* "Promoted types" that are used for primitive types smaller |
409 | than int. We could use int_type_node, but then we would lose | |
410 | type information (such as needed for debugging). */ | |
19e223db MM |
411 | #define promoted_byte_type_node \ |
412 | java_global_trees[JTI_PROMOTED_BYTE_TYPE_NODE] | |
413 | #define promoted_short_type_node \ | |
414 | java_global_trees[JTI_PROMOTED_SHORT_TYPE_NODE] | |
415 | #define promoted_char_type_node \ | |
416 | java_global_trees[JTI_PROMOTED_CHAR_TYPE_NODE] | |
417 | #define promoted_boolean_type_node \ | |
418 | java_global_trees[JTI_PROMOTED_BOOLEAN_TYPE_NODE] | |
419 | ||
420 | #define byte_type_node \ | |
421 | java_global_trees[JTI_BYTE_TYPE_NODE] | |
422 | #define short_type_node \ | |
423 | java_global_trees[JTI_SHORT_TYPE_NODE] | |
424 | #define int_type_node \ | |
425 | java_global_trees[JTI_INT_TYPE_NODE] | |
426 | #define long_type_node \ | |
427 | java_global_trees[JTI_LONG_TYPE_NODE] | |
428 | ||
429 | #define unsigned_byte_type_node \ | |
430 | java_global_trees[JTI_UNSIGNED_BYTE_TYPE_NODE] | |
431 | #define unsigned_short_type_node \ | |
432 | java_global_trees[JTI_UNSIGNED_SHORT_TYPE_NODE] | |
433 | #define unsigned_int_type_node \ | |
434 | java_global_trees[JTI_UNSIGNED_INT_TYPE_NODE] | |
435 | #define unsigned_long_type_node \ | |
436 | java_global_trees[JTI_UNSIGNED_LONG_TYPE_NODE] | |
437 | ||
438 | #define boolean_type_node \ | |
439 | java_global_trees[JTI_BOOLEAN_TYPE_NODE] | |
440 | ||
441 | #define object_type_node \ | |
442 | java_global_trees[JTI_OBJECT_TYPE_NODE] | |
443 | #define unqualified_object_id_node \ | |
444 | java_global_trees[JTI_UNQUALIFIED_OBJECT_ID_NODE] | |
445 | #define object_ptr_type_node \ | |
446 | java_global_trees[JTI_OBJECT_PTR_TYPE_NODE] | |
447 | #define string_type_node \ | |
448 | java_global_trees[JTI_STRING_TYPE_NODE] | |
449 | #define string_ptr_type_node \ | |
450 | java_global_trees[JTI_STRING_PTR_TYPE_NODE] | |
451 | #define throwable_type_node \ | |
452 | java_global_trees[JTI_THROWABLE_TYPE_NODE] | |
17126208 APB |
453 | #define exception_type_node \ |
454 | java_global_trees[JTI_EXCEPTION_TYPE_NODE] | |
19e223db MM |
455 | #define runtime_exception_type_node \ |
456 | java_global_trees[JTI_RUNTIME_EXCEPTION_TYPE_NODE] | |
457 | #define error_exception_type_node \ | |
458 | java_global_trees[JTI_ERROR_EXCEPTION_TYPE_NODE] | |
459 | #define rawdata_ptr_type_node \ | |
460 | java_global_trees[JTI_RAWDATA_PTR_TYPE_NODE] | |
17126208 APB |
461 | #define class_not_found_type_node \ |
462 | java_global_trees[JTI_CLASS_NOT_FOUND_TYPE_NODE] | |
463 | #define no_class_def_found_type_node \ | |
464 | java_global_trees[JTI_NO_CLASS_DEF_FOUND_TYPE_NODE] | |
19e223db MM |
465 | |
466 | #define byte_array_type_node \ | |
467 | java_global_trees[JTI_BYTE_ARRAY_TYPE_NODE] | |
468 | #define short_array_type_node \ | |
469 | java_global_trees[JTI_SHORT_ARRAY_TYPE_NODE] | |
470 | #define int_array_type_node \ | |
471 | java_global_trees[JTI_INT_ARRAY_TYPE_NODE] | |
472 | #define long_array_type_node \ | |
473 | java_global_trees[JTI_LONG_ARRAY_TYPE_NODE] | |
474 | #define boolean_array_type_node \ | |
475 | java_global_trees[JTI_BOOLEAN_ARRAY_TYPE_NODE] | |
476 | #define char_array_type_node \ | |
477 | java_global_trees[JTI_CHAR_ARRAY_TYPE_NODE] | |
478 | #define double_array_type_node \ | |
479 | java_global_trees[JTI_DOUBLE_ARRAY_TYPE_NODE] | |
480 | #define float_array_type_node \ | |
481 | java_global_trees[JTI_FLOAT_ARRAY_TYPE_NODE] | |
482 | #define array_array_type_node \ | |
483 | java_global_trees[JTI_ARRAY_ARRAY_TYPE_NODE] | |
484 | #define object_array_type_node \ | |
485 | java_global_trees[JTI_OBJECT_ARRAY_TYPE_NODE] | |
486 | #define string_array_type_node \ | |
487 | java_global_trees[JTI_STRING_ARRAY_TYPE_NODE] | |
488 | #define boolean_array_vtable \ | |
489 | java_global_trees[JTI_BOOLEAN_ARRAY_VTABLE] | |
490 | #define byte_array_vtable \ | |
491 | java_global_trees[JTI_BYTE_ARRAY_VTABLE] | |
492 | #define char_array_vtable \ | |
493 | java_global_trees[JTI_CHAR_ARRAY_VTABLE] | |
494 | #define short_array_vtable \ | |
495 | java_global_trees[JTI_SHORT_ARRAY_VTABLE] | |
496 | #define int_array_vtable \ | |
497 | java_global_trees[JTI_INT_ARRAY_VTABLE] | |
498 | #define long_array_vtable \ | |
499 | java_global_trees[JTI_LONG_ARRAY_VTABLE] | |
500 | #define float_array_vtable \ | |
501 | java_global_trees[JTI_FLOAT_ARRAY_VTABLE] | |
502 | #define double_array_vtable \ | |
503 | java_global_trees[JTI_DOUBLE_ARRAY_VTABLE] | |
504 | #define TYPE_identifier_node \ | |
505 | java_global_trees[JTI_TYPE_IDENTIFIER_NODE] /* "TYPE" */ | |
506 | #define init_identifier_node \ | |
507 | java_global_trees[JTI_INIT_IDENTIFIER_NODE] /* "<init>" */ | |
508 | #define clinit_identifier_node \ | |
509 | java_global_trees[JTI_CLINIT_IDENTIFIER_NODE] /* "<clinit>" */ | |
510 | #define finit_identifier_node \ | |
511 | java_global_trees[JTI_FINIT_IDENTIFIER_NODE] /* "finit$" */ | |
4f88ccda | 512 | /* FIXME "instinit$" and "finit$" should be merged */ |
17126208 APB |
513 | #define instinit_identifier_node \ |
514 | java_global_trees[JTI_INSTINIT_IDENTIFIER_NODE] /* "instinit$" */ | |
19e223db MM |
515 | #define void_signature_node \ |
516 | java_global_trees[JTI_VOID_SIGNATURE_NODE] /* "()V" */ | |
517 | #define length_identifier_node \ | |
518 | java_global_trees[JTI_LENGTH_IDENTIFIER_NODE] /* "length" */ | |
eec87542 HB |
519 | #define finalize_identifier_node \ |
520 | java_global_trees[JTI_FINALIZE_IDENTIFIER_NODE] /* "finalize" */ | |
19e223db MM |
521 | #define this_identifier_node \ |
522 | java_global_trees[JTI_THIS_IDENTIFIER_NODE] /* "this" */ | |
523 | #define super_identifier_node \ | |
524 | java_global_trees[JTI_SUPER_IDENTIFIER_NODE] /* "super" */ | |
525 | #define continue_identifier_node \ | |
526 | java_global_trees[JTI_CONTINUE_IDENTIFIER_NODE] /* "continue" */ | |
527 | #define access0_identifier_node \ | |
528 | java_global_trees[JTI_ACCESS0_IDENTIFIER_NODE] /* "access$0" */ | |
94807d33 APB |
529 | #define classdollar_identifier_node \ |
530 | java_global_trees[JTI_CLASSDOLLAR_IDENTIFIER_NODE] /* "class$" */ | |
19e223db MM |
531 | #define one_elt_array_domain_type \ |
532 | java_global_trees[JTI_ONE_ELT_ARRAY_DOMAIN_TYPE] | |
e04a16fb | 533 | /* The type of the return address of a subroutine. */ |
19e223db MM |
534 | #define return_address_type_node \ |
535 | java_global_trees[JTI_RETURN_ADDRESS_TYPE_NODE] | |
e04a16fb AG |
536 | |
537 | /* Nodes for boolean constants TRUE and FALSE. */ | |
19e223db MM |
538 | #define boolean_true_node \ |
539 | java_global_trees[JTI_BOOLEAN_TRUE_NODE] | |
540 | #define boolean_false_node \ | |
541 | java_global_trees[JTI_BOOLEAN_FALSE_NODE] | |
e04a16fb AG |
542 | |
543 | /* Integer constants not declared in tree.h. */ | |
19e223db MM |
544 | #define long_zero_node \ |
545 | java_global_trees[JTI_LONG_ZERO_NODE] | |
546 | #define float_zero_node \ | |
547 | java_global_trees[JTI_FLOAT_ZERO_NODE] | |
548 | #define double_zero_node \ | |
549 | java_global_trees[JTI_DOUBLE_ZERO_NODE] | |
19e223db MM |
550 | #define integer_two_node \ |
551 | java_global_trees[JTI_INTEGER_TWO_NODE] | |
552 | #define integer_four_node \ | |
553 | java_global_trees[JTI_INTEGER_FOUR_NODE] | |
554 | #define empty_stmt_node \ | |
555 | java_global_trees[JTI_EMPTY_STMT_NODE] | |
e04a16fb AG |
556 | |
557 | /* The type for struct methodtable. */ | |
19e223db MM |
558 | #define methodtable_type \ |
559 | java_global_trees[JTI_METHODTABLE_TYPE] | |
560 | #define methodtable_ptr_type \ | |
561 | java_global_trees[JTI_METHODTABLE_PTR_TYPE] | |
562 | ||
563 | #define utf8const_type \ | |
564 | java_global_trees[JTI_UTF8CONST_TYPE] | |
565 | #define utf8const_ptr_type \ | |
566 | java_global_trees[JTI_UTF8CONST_PTR_TYPE] | |
567 | ||
568 | #define class_type_node \ | |
569 | java_global_trees[JTI_CLASS_TYPE_NODE] | |
570 | #define class_ptr_type \ | |
571 | java_global_trees[JTI_CLASS_PTR_TYPE] | |
572 | #define field_type_node \ | |
573 | java_global_trees[JTI_FIELD_TYPE_NODE] | |
574 | #define constants_type_node \ | |
575 | java_global_trees[JTI_CONSTANTS_TYPE_NODE] | |
576 | #define dtable_type \ | |
577 | java_global_trees[JTI_DTABLE_TYPE] | |
578 | #define dtable_ptr_type \ | |
579 | java_global_trees[JTI_DTABLE_PTR_TYPE] | |
580 | #define field_ptr_type_node \ | |
581 | java_global_trees[JTI_FIELD_PTR_TYPE_NODE] | |
582 | #define field_info_union_node \ | |
583 | java_global_trees[JTI_FIELD_INFO_UNION_NODE] | |
584 | #define jexception_type \ | |
585 | java_global_trees[JTI_EXCEPTION_TYPE] | |
586 | #define jexception_ptr_type \ | |
587 | java_global_trees[JTI_EXCEPTION_PTR_TYPE] | |
588 | #define lineNumberEntry_type \ | |
589 | java_global_trees[JTI_LINENUMBERENTRY_TYPE] | |
590 | #define lineNumbers_type \ | |
591 | java_global_trees[JTI_LINENUMBERS_TYPE] | |
592 | #define method_type_node \ | |
593 | java_global_trees[JTI_METHOD_TYPE_NODE] | |
594 | #define method_ptr_type_node \ | |
595 | java_global_trees[JTI_METHOD_PTR_TYPE_NODE] | |
861ef928 BM |
596 | #define otable_type \ |
597 | java_global_trees[JTI_OTABLE_TYPE] | |
598 | #define otable_ptr_type \ | |
599 | java_global_trees[JTI_OTABLE_PTR_TYPE] | |
600 | #define method_symbol_type \ | |
601 | java_global_trees[JTI_METHOD_SYMBOL_TYPE] | |
602 | #define method_symbols_array_type \ | |
603 | java_global_trees[JTI_METHOD_SYMBOLS_ARRAY_TYPE] | |
604 | #define method_symbols_array_ptr_type \ | |
605 | java_global_trees[JTI_METHOD_SYMBOLS_ARRAY_PTR_TYPE] | |
19e223db MM |
606 | |
607 | #define end_params_node \ | |
608 | java_global_trees[JTI_END_PARAMS_NODE] | |
de4c7b02 | 609 | |
e04a16fb | 610 | /* References to internal libjava functions we use. */ |
ce1c98ea RH |
611 | #define throw_node \ |
612 | java_global_trees[JTI_THROW_NODE] | |
19e223db MM |
613 | #define alloc_object_node \ |
614 | java_global_trees[JTI_ALLOC_OBJECT_NODE] | |
eec87542 HB |
615 | #define alloc_no_finalizer_node \ |
616 | java_global_trees[JTI_ALLOC_NO_FINALIZER_NODE] | |
19e223db MM |
617 | #define soft_instanceof_node \ |
618 | java_global_trees[JTI_SOFT_INSTANCEOF_NODE] | |
619 | #define soft_checkcast_node \ | |
620 | java_global_trees[JTI_SOFT_CHECKCAST_NODE] | |
621 | #define soft_initclass_node \ | |
622 | java_global_trees[JTI_SOFT_INITCLASS_NODE] | |
623 | #define soft_newarray_node \ | |
624 | java_global_trees[JTI_SOFT_NEWARRAY_NODE] | |
625 | #define soft_anewarray_node \ | |
626 | java_global_trees[JTI_SOFT_ANEWARRAY_NODE] | |
627 | #define soft_multianewarray_node \ | |
628 | java_global_trees[JTI_SOFT_MULTIANEWARRAY_NODE] | |
629 | #define soft_badarrayindex_node \ | |
630 | java_global_trees[JTI_SOFT_BADARRAYINDEX_NODE] | |
631 | #define soft_nullpointer_node \ | |
632 | java_global_trees[JTI_SOFT_NULLPOINTER_NODE] | |
19e223db MM |
633 | #define soft_checkarraystore_node \ |
634 | java_global_trees[JTI_SOFT_CHECKARRAYSTORE_NODE] | |
635 | #define soft_monitorenter_node \ | |
636 | java_global_trees[JTI_SOFT_MONITORENTER_NODE] | |
637 | #define soft_monitorexit_node \ | |
638 | java_global_trees[JTI_SOFT_MONITOREXIT_NODE] | |
639 | #define soft_lookupinterfacemethod_node \ | |
640 | java_global_trees[JTI_SOFT_LOOKUPINTERFACEMETHOD_NODE] | |
641 | #define soft_lookupjnimethod_node \ | |
642 | java_global_trees[JTI_SOFT_LOOKUPJNIMETHOD_NODE] | |
643 | #define soft_getjnienvnewframe_node \ | |
644 | java_global_trees[JTI_SOFT_GETJNIENVNEWFRAME_NODE] | |
645 | #define soft_jnipopsystemframe_node \ | |
646 | java_global_trees[JTI_SOFT_JNIPOPSYSTEMFRAME_NODE] | |
647 | #define soft_fmod_node \ | |
648 | java_global_trees[JTI_SOFT_FMOD_NODE] | |
19e223db MM |
649 | #define soft_idiv_node \ |
650 | java_global_trees[JTI_SOFT_IDIV_NODE] | |
651 | #define soft_irem_node \ | |
652 | java_global_trees[JTI_SOFT_IREM_NODE] | |
653 | #define soft_ldiv_node \ | |
654 | java_global_trees[JTI_SOFT_LDIV_NODE] | |
655 | #define soft_lrem_node \ | |
656 | java_global_trees[JTI_SOFT_LREM_NODE] | |
657 | ||
658 | #define access_flags_type_node \ | |
659 | java_global_trees[JTI_ACCESS_FLAGS_TYPE_NODE] | |
660 | ||
19e223db MM |
661 | #define nativecode_ptr_array_type_node \ |
662 | java_global_trees[JTI_NATIVECODE_PTR_ARRAY_TYPE_NODE] | |
663 | ||
fec763fc TT |
664 | #define predef_filenames \ |
665 | java_global_trees[JTI_PREDEF_FILENAMES] | |
19e223db MM |
666 | |
667 | #define nativecode_ptr_type_node ptr_type_node | |
e04a16fb AG |
668 | |
669 | /* They need to be reset before processing each class */ | |
670 | extern struct CPool *outgoing_cpool; | |
19e223db MM |
671 | /* If non-NULL, an ADDR_EXPR referencing a VAR_DECL containing |
672 | the constant data array for the current class. */ | |
673 | #define current_constant_pool_data_ref \ | |
674 | java_global_trees[JTI_CURRENT_CONSTANT_POOL_DATA_REF] | |
e04a16fb | 675 | |
19e223db MM |
676 | #define wfl_operator \ |
677 | java_global_trees[JTI_WFL_OPERATOR] | |
e04a16fb | 678 | |
7e9355c6 | 679 | extern const char *cyclic_inheritance_report; |
c2952b01 | 680 | |
e04a16fb AG |
681 | struct lang_identifier |
682 | { | |
683 | struct tree_identifier ignore; | |
684 | tree global_value, local_value; | |
685 | ||
686 | /* If non-NULL: An ADDR_REF to a VAR_DECL that contains | |
687 | * the Utf8Const representation of the identifier. */ | |
688 | tree utf8_ref; | |
689 | }; | |
690 | ||
691 | /* Macros for access to language-specific slots in an identifier. */ | |
0854b1c4 | 692 | /* Unless specified, each of these slots contains a DECL node or null. */ |
e04a16fb AG |
693 | |
694 | /* This represents the value which the identifier has in the | |
695 | file-scope namespace. */ | |
696 | #define IDENTIFIER_GLOBAL_VALUE(NODE) \ | |
697 | (((struct lang_identifier *)(NODE))->global_value) | |
698 | /* This represents the value which the identifier has in the current | |
699 | scope. */ | |
700 | #define IDENTIFIER_LOCAL_VALUE(NODE) \ | |
701 | (((struct lang_identifier *)(NODE))->local_value) | |
702 | ||
703 | /* Given an identifier NODE, get the corresponding (non-handle) class. | |
704 | For get_identifier ("java.lang.Number"), the result is | |
705 | the struct whose DECL_ASSEMBLER_NAME is "Classjava_lang_Number". */ | |
706 | #define IDENTIFIER_CLASS_VALUE(NODE) IDENTIFIER_GLOBAL_VALUE(NODE) | |
707 | ||
708 | /* Given an identifier NODE, get the corresponding handle class. | |
709 | For get_identifier ("java.lang.Number"), the result is | |
710 | the struct whose DECL_ASSEMBLER_NAME is "Hjava_lang_Number". */ | |
711 | #define IDENTIFIER_HANDLECLASS_VALUE(NODE) ??? | |
712 | ||
713 | /* Given a signature of a reference (or array) type, or a method, return the | |
714 | corresponding type (if one has been allocated). | |
715 | Do not use for primitive types, since they may be ambiguous. | |
716 | (E.g. is "I" a signature or a class name?) */ | |
717 | #define IDENTIFIER_SIGNATURE_TYPE(NODE) IDENTIFIER_GLOBAL_VALUE(NODE) | |
718 | ||
719 | /* If non-NULL: An ADDR_REF to a VAR_DECL that contains | |
720 | the Utf8Const representation of the identifier. */ | |
721 | #define IDENTIFIER_UTF8_REF(NODE) \ | |
722 | (((struct lang_identifier *)(NODE))->utf8_ref) | |
723 | ||
724 | #define IDENTIFIER_UTF8_DECL(NODE) \ | |
725 | TREE_OPERAND((((struct lang_identifier *)(NODE))->utf8_ref), 0) | |
726 | ||
727 | /* For a FUNCTION_DECL, if we are compiling a .class file, then this is | |
728 | the position in the .class file of the method code. | |
729 | Specifically, this is the code itself, not the code attribute. */ | |
730 | #define DECL_CODE_OFFSET(DECL) (DECL_LANG_SPECIFIC(DECL)->code_offset) | |
731 | /* Similarly, the length of the bytecode. */ | |
732 | #define DECL_CODE_LENGTH(DECL) (DECL_LANG_SPECIFIC(DECL)->code_length) | |
733 | /* Similarly, the position of the LineNumberTable attribute. */ | |
734 | #define DECL_LINENUMBERS_OFFSET(DECL) \ | |
735 | (DECL_LANG_SPECIFIC(DECL)->linenumbers_offset) | |
736 | /* Similarly, the position of the LocalVariableTable attribute | |
737 | (following the standard attribute header). */ | |
738 | #define DECL_LOCALVARIABLES_OFFSET(DECL) \ | |
739 | (DECL_LANG_SPECIFIC(DECL)->localvariables_offset) | |
740 | ||
741 | #define DECL_MAX_LOCALS(DECL) (DECL_LANG_SPECIFIC(DECL)->max_locals) | |
742 | #define DECL_MAX_STACK(DECL) (DECL_LANG_SPECIFIC(DECL)->max_stack) | |
743 | /* Number of local variable slots needed for the arguments of this function. */ | |
744 | #define DECL_ARG_SLOT_COUNT(DECL) (DECL_LANG_SPECIFIC(DECL)->arg_slot_count) | |
c4faeb92 APB |
745 | /* Information on declaration location */ |
746 | #define DECL_FUNCTION_WFL(DECL) (DECL_LANG_SPECIFIC(DECL)->wfl) | |
b9f7e36c APB |
747 | /* List of checked thrown exceptions, as specified with the `throws' |
748 | keyword */ | |
749 | #define DECL_FUNCTION_THROWS(DECL) (DECL_LANG_SPECIFIC(DECL)->throws_list) | |
22eed1e6 APB |
750 | /* List of other constructors of the same class that this constructor |
751 | calls */ | |
752 | #define DECL_CONSTRUCTOR_CALLS(DECL) \ | |
753 | (DECL_LANG_SPECIFIC(DECL)->called_constructor) | |
c2952b01 APB |
754 | /* When the function is an access function, the DECL it was trying to |
755 | access */ | |
756 | #define DECL_FUNCTION_ACCESS_DECL(DECL) \ | |
757 | (DECL_LANG_SPECIFIC(DECL)->called_constructor) | |
758 | /* The identifier of the access method used to invoke this method from | |
759 | an inner class. */ | |
760 | #define DECL_FUNCTION_INNER_ACCESS(DECL) \ | |
761 | (DECL_LANG_SPECIFIC(DECL)->inner_access) | |
b9f7e36c APB |
762 | /* Pointer to the function's current's COMPOUND_EXPR tree (while |
763 | completing its body) or the function's block */ | |
e04a16fb | 764 | #define DECL_FUNCTION_BODY(DECL) (DECL_LANG_SPECIFIC(DECL)->function_decl_body) |
b9f7e36c APB |
765 | /* How specific the function is (for method selection - Java source |
766 | code front-end */ | |
1595a329 | 767 | #define DECL_SPECIFIC_COUNT(DECL) DECL_ARG_SLOT_COUNT(DECL) |
3ff9925c AG |
768 | /* For each function decl, init_test_table contains a hash table whose |
769 | entries are keyed on class names, and whose values are local | |
770 | boolean decls. The variables are intended to be TRUE when the | |
771 | class has been initialized in this function, and FALSE otherwise. */ | |
772 | #define DECL_FUNCTION_INIT_TEST_TABLE(DECL) \ | |
773 | (DECL_LANG_SPECIFIC(DECL)->init_test_table) | |
5412ef6b PB |
774 | /* If LOCAL_CLASS_INITIALIZATION_FLAG_P(decl), give class it initializes. */ |
775 | #define DECL_FUNCTION_INIT_TEST_CLASS(DECL) \ | |
776 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(DECL))->slot_chain) | |
4009bb7d APB |
777 | /* For each static function decl, itc contains a hash table whose |
778 | entries are keyed on class named that are definitively initialized | |
779 | in DECL. */ | |
780 | #define DECL_FUNCTION_INITIALIZED_CLASS_TABLE(DECL) \ | |
781 | (DECL_LANG_SPECIFIC(DECL)->ict) | |
5412ef6b PB |
782 | /* A list of all the static method calls in the method DECL (if optimizing). |
783 | Actually each TREE_VALUE points to a COMPONT_EXPR that wraps the | |
784 | invoation so we can later patch it. */ | |
4009bb7d APB |
785 | #define DECL_FUNCTION_STATIC_METHOD_INVOCATION_COMPOUND(DECL) \ |
786 | (DECL_LANG_SPECIFIC(DECL)->smic) | |
c2952b01 APB |
787 | /* The Number of Artificial Parameters (NAP) DECL contains. this$<n> |
788 | is excluded, because sometimes created as a parameter before the | |
789 | function decl exists. */ | |
790 | #define DECL_FUNCTION_NAP(DECL) (DECL_LANG_SPECIFIC(DECL)->nap) | |
c7303e41 APB |
791 | /* True if DECL is a synthetic ctor. */ |
792 | #define DECL_FUNCTION_SYNTHETIC_CTOR(DECL) \ | |
793 | (DECL_LANG_SPECIFIC(DECL)->synthetic_ctor) | |
73c299fc | 794 | #define DECL_FIXED_CONSTRUCTOR_P(DECL) (DECL_LANG_SPECIFIC(DECL)->fixed_ctor) |
c2952b01 | 795 | |
4f88ccda PB |
796 | /* A constructor that calls this. */ |
797 | #define DECL_INIT_CALLS_THIS(DECL) (DECL_LANG_SPECIFIC(DECL)->init_calls_this) | |
798 | ||
c2952b01 APB |
799 | /* True when DECL aliases an outer context local variable. */ |
800 | #define FIELD_LOCAL_ALIAS(DECL) DECL_LANG_FLAG_6 (DECL) | |
801 | ||
802 | /* True when DECL, which aliases an outer context local variable is | |
803 | used by the inner classe */ | |
804 | #define FIELD_LOCAL_ALIAS_USED(DECL) DECL_LANG_FLAG_7 (DECL) | |
805 | ||
806 | /* True when DECL is a this$<n> field. Note that | |
807 | FIELD_LOCAL_ALIAS_USED can be differenciated when tested against | |
808 | FIELD_LOCAL_ALIAS. */ | |
809 | #define FIELD_THISN(DECL) DECL_LANG_FLAG_7 (DECL) | |
e04a16fb AG |
810 | |
811 | /* In a LABEL_DECL, a TREE_VEC that saves the type_map at that point. */ | |
812 | #define LABEL_TYPE_STATE(NODE) (DECL_INITIAL (NODE)) | |
813 | ||
814 | /* In the label of a subroutine, a dummy label that records the | |
815 | state following a merge of all the ret instructions in this subroutine. */ | |
816 | #define LABEL_RETURN_LABEL(DECL) DECL_ARGUMENTS(DECL) | |
817 | ||
818 | /* In the label of a sub-routine, records the type state at return. | |
819 | * A local may be TYPE_UNUSED, which means that the local is not | |
820 | * used (stored to or loaded from) in this subroutine - at least for | |
821 | * code that we have verified so far. */ | |
822 | #define LABEL_RETURN_TYPE_STATE(NODE) LABEL_TYPE_STATE (LABEL_RETURN_LABEL (NODE)) | |
823 | ||
824 | /* In a TREE_VEC for a LABEL_RETURN_TYPE_STATE, notes that | |
fa029f45 | 825 | TREE_VEC_LENGTH has been adjusted to the correct stack size. */ |
e04a16fb AG |
826 | #define RETURN_MAP_ADJUSTED(NODE) TREE_LANG_FLAG_2(NODE) |
827 | ||
828 | /* In the label of a sub-routine, a chain of the return location labels. */ | |
9a7ab4b3 APB |
829 | #define LABEL_RETURN_LABELS(node) \ |
830 | (LABEL_DECL_CHECK (LABEL_RETURN_LABEL(node))->decl.result) | |
e04a16fb AG |
831 | |
832 | /* In a LABEL_DECL, the next pending label. | |
833 | See pending_blocks in expr.c. */ | |
9a7ab4b3 | 834 | #define LABEL_PENDING_CHAIN(NODE) (LABEL_DECL_CHECK (NODE)->decl.result) |
e04a16fb AG |
835 | |
836 | /* In a LABEL_DECL, the corresponding bytecode program counter. */ | |
9df2c88c | 837 | #define LABEL_PC(NODE) ((NODE)->decl.u2.i) |
e04a16fb AG |
838 | |
839 | /* Used during verification to mark the label has "changed". (See JVM Spec). */ | |
840 | #define LABEL_CHANGED(NODE) DECL_LANG_FLAG_6(NODE) | |
841 | ||
842 | /* In a LABEL_DECL, true if we have verified instructions starting here. */ | |
843 | #define LABEL_VERIFIED(NODE) (instruction_bits[LABEL_PC(NODE)]&BCODE_VERIFIED) | |
844 | ||
845 | /* True if this code is within a subroutine (target of a jsr). */ | |
846 | #define LABEL_IN_SUBR(NODE) DECL_LANG_FLAG_4(NODE) | |
847 | /* True if this code is the start of a subroutine (target of a jsr). */ | |
848 | #define LABEL_IS_SUBR_START(NODE) DECL_LANG_FLAG_5(NODE) | |
849 | ||
850 | /* In a LABEL_DECL, if LABEL_IN_SUBR(NODE), points to start of subroutine. */ | |
851 | #define LABEL_SUBR_START(NODE) DECL_ABSTRACT_ORIGIN(NODE) | |
852 | ||
853 | /* In a LABEL_DECL that has LABEL_IS_SUBR_START, this points to the start | |
854 | of surrounding subroutine in the case of a nested subroutine, | |
855 | and NULL_TREE otherwise. */ | |
856 | #define LABEL_SUBR_CONTEXT(NODE) DECL_CONTEXT (LABEL_RETURN_LABEL (NODE)) | |
857 | ||
858 | /* The slot number for this local variable. */ | |
859 | #define DECL_LOCAL_SLOT_NUMBER(NODE) \ | |
860 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->slot_number) | |
861 | /* The start (bytecode) pc for the valid range of this local variable. */ | |
862 | #define DECL_LOCAL_START_PC(NODE) \ | |
863 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->start_pc) | |
864 | /* The end (bytecode) pc for the valid range of this local variable. */ | |
865 | #define DECL_LOCAL_END_PC(NODE) \ | |
866 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->end_pc) | |
867 | /* For a VAR_DECLor PARM_DECL, used to chain decls with the same | |
868 | slot_number in decl_map. */ | |
869 | #define DECL_LOCAL_SLOT_CHAIN(NODE) \ | |
870 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->slot_chain) | |
c7303e41 APB |
871 | /* For a FIELD_DECL, holds the name of the access method. Used to |
872 | read/write the content of the field from an inner class. */ | |
873 | #define FIELD_INNER_ACCESS(DECL) \ | |
874 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(DECL))->am) | |
875 | /* Safely tests whether FIELD_INNER_ACCESS exists or not. */ | |
876 | #define FIELD_INNER_ACCESS_P(DECL) \ | |
877 | DECL_LANG_SPECIFIC (DECL) && FIELD_INNER_ACCESS (DECL) | |
4f88ccda PB |
878 | /* True if a final variable was initialized upon its declaration, |
879 | or (if a field) in an initializer. Set after definite assignment. */ | |
c7303e41 APB |
880 | #define DECL_FIELD_FINAL_IUD(NODE) \ |
881 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->final_iud) | |
c7303e41 APB |
882 | /* The original WFL of a final variable. */ |
883 | #define DECL_FIELD_FINAL_WFL(NODE) \ | |
884 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->wfl) | |
4f88ccda PB |
885 | /* True if NODE is a local variable final. */ |
886 | #define LOCAL_FINAL_P(NODE) (DECL_LANG_SPECIFIC (NODE) && DECL_FINAL (NODE)) | |
887 | /* True if NODE is a final field. */ | |
c7303e41 | 888 | #define FINAL_VARIABLE_P(NODE) (FIELD_FINAL (NODE) && !FIELD_STATIC (NODE)) |
4f88ccda | 889 | /* True if NODE is a class final field. */ |
c7303e41 APB |
890 | #define CLASS_FINAL_VARIABLE_P(NODE) \ |
891 | (FIELD_FINAL (NODE) && FIELD_STATIC (NODE)) | |
4009bb7d APB |
892 | /* True if NODE is a class initialization flag. This macro accesses |
893 | the flag to read or set it. */ | |
894 | #define LOCAL_CLASS_INITIALIZATION_FLAG(NODE) \ | |
895 | (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->cif) | |
896 | /* True if NODE is a class initialization flag. */ | |
897 | #define LOCAL_CLASS_INITIALIZATION_FLAG_P(NODE) \ | |
898 | (DECL_LANG_SPECIFIC (NODE) && LOCAL_CLASS_INITIALIZATION_FLAG(NODE)) | |
c7303e41 APB |
899 | /* Create a DECL_LANG_SPECIFIC if necessary. */ |
900 | #define MAYBE_CREATE_VAR_LANG_DECL_SPECIFIC(T) \ | |
901 | if (DECL_LANG_SPECIFIC (T) == NULL) \ | |
902 | { \ | |
903 | DECL_LANG_SPECIFIC ((T)) \ | |
904 | = ((struct lang_decl *) \ | |
905 | ggc_alloc_cleared (sizeof (struct lang_decl_var))); \ | |
906 | } | |
e04a16fb | 907 | |
3cc48399 PB |
908 | /* A ConstantExpression, after folding and name resolution. */ |
909 | #define CONSTANT_VALUE_P(NODE) \ | |
910 | (TREE_CODE (NODE) == STRING_CST \ | |
911 | || (TREE_CODE (NODE) == INTEGER_CST \ | |
912 | && TREE_CODE (TREE_TYPE (NODE)) != POINTER_TYPE) \ | |
913 | || TREE_CODE (NODE) == REAL_CST) | |
914 | ||
3ff9925c AG |
915 | /* For a local VAR_DECL, holds the index into a words bitstring that |
916 | specifies if this decl is definitively assigned. | |
4f88ccda PB |
917 | The value -1 means the variable has been definitely assigned (and not |
918 | definitely unassigned). The value -2 means we already reported an error. */ | |
919 | #define DECL_BIT_INDEX(DECL) (DECL_CHECK (DECL)->decl.pointer_alias_set) | |
3ff9925c | 920 | |
e04a16fb AG |
921 | /* DECL_LANG_SPECIFIC for FUNCTION_DECLs. */ |
922 | struct lang_decl | |
923 | { | |
924 | /* tree chain; not yet used. */ | |
925 | long code_offset; | |
926 | int code_length; | |
927 | long linenumbers_offset; | |
928 | long localvariables_offset; | |
929 | int arg_slots; | |
930 | int max_locals, max_stack, arg_slot_count; | |
c4faeb92 | 931 | tree wfl; /* Information on the original location */ |
b9f7e36c | 932 | tree throws_list; /* Exception specified by `throws' */ |
e04a16fb | 933 | tree function_decl_body; /* Hold all function's statements */ |
22eed1e6 | 934 | tree called_constructor; /* When decl is a constructor, the |
c7303e41 | 935 | list of other constructor it calls */ |
3ff9925c | 936 | struct hash_table init_test_table; |
c7303e41 | 937 | /* Class initialization test variables */ |
4009bb7d | 938 | struct hash_table ict; /* Initialized (static) Class Table */ |
5412ef6b | 939 | tree smic; /* Static method invocation compound */ |
c2952b01 APB |
940 | tree inner_access; /* The identifier of the access method |
941 | used for invocation from inner classes */ | |
942 | int nap; /* Number of artificial parameters */ | |
4f88ccda PB |
943 | unsigned int native : 1; /* Nonzero if this is a native method */ |
944 | unsigned int synthetic_ctor : 1; /* Nonzero if this is a synthetic ctor */ | |
945 | unsigned int init_final : 1; /* Nonzero all finals are initialized */ | |
946 | unsigned int fixed_ctor : 1; | |
947 | unsigned int init_calls_this : 1; | |
6b6294f1 | 948 | unsigned int strictfp : 1; |
3ff9925c AG |
949 | }; |
950 | ||
951 | /* init_test_table hash table entry structure. */ | |
952 | struct init_test_hash_entry | |
953 | { | |
954 | struct hash_entry root; | |
955 | tree init_test_decl; | |
e04a16fb AG |
956 | }; |
957 | ||
c7303e41 APB |
958 | /* DECL_LANG_SPECIFIC for VAR_DECL, PARM_DECL and sometimes FIELD_DECL |
959 | (access methods on outer class fields) and final fields. */ | |
e04a16fb AG |
960 | struct lang_decl_var |
961 | { | |
962 | int slot_number; | |
963 | int start_pc; | |
964 | int end_pc; | |
965 | tree slot_chain; | |
c7303e41 APB |
966 | tree am; /* Access method for this field (1.1) */ |
967 | tree wfl; /* Original wfl */ | |
4f88ccda PB |
968 | unsigned int final_iud : 1; /* Final initialized upon declaration */ |
969 | unsigned int cif : 1; /* True: decl is a class initialization flag */ | |
e04a16fb AG |
970 | }; |
971 | ||
c2952b01 APB |
972 | /* Macro to access fields in `struct lang_type'. */ |
973 | ||
974 | #define TYPE_SIGNATURE(T) (TYPE_LANG_SPECIFIC(T)->signature) | |
975 | #define TYPE_JCF(T) (TYPE_LANG_SPECIFIC(T)->jcf) | |
976 | #define TYPE_CPOOL(T) (TYPE_LANG_SPECIFIC(T)->cpool) | |
977 | #define TYPE_CPOOL_DATA_REF(T) (TYPE_LANG_SPECIFIC(T)->cpool_data_ref) | |
f15b9af9 MM |
978 | #define MAYBE_CREATE_TYPE_TYPE_LANG_SPECIFIC(T) \ |
979 | if (TYPE_LANG_SPECIFIC ((T)) == NULL) \ | |
980 | { \ | |
981 | TYPE_LANG_SPECIFIC ((T)) = \ | |
982 | ((struct lang_type *) \ | |
983 | ggc_alloc_cleared (sizeof (struct lang_type))); \ | |
c2952b01 | 984 | } |
770ae6cc | 985 | |
c2952b01 APB |
986 | #define TYPE_FINIT_STMT_LIST(T) (TYPE_LANG_SPECIFIC(T)->finit_stmt_list) |
987 | #define TYPE_CLINIT_STMT_LIST(T) (TYPE_LANG_SPECIFIC(T)->clinit_stmt_list) | |
988 | #define TYPE_II_STMT_LIST(T) (TYPE_LANG_SPECIFIC(T)->ii_block) | |
165f37bc APB |
989 | /* The decl of the synthetic method `class$' used to handle `.class' |
990 | for non primitive types when compiling to bytecode. */ | |
991 | #define TYPE_DOT_CLASS(T) (TYPE_LANG_SPECIFIC(T)->dot_class) | |
dc08e603 | 992 | #define TYPE_PACKAGE_LIST(T) (TYPE_LANG_SPECIFIC(T)->package_list) |
653d5d95 APB |
993 | #define TYPE_IMPORT_LIST(T) (TYPE_LANG_SPECIFIC(T)->import_list) |
994 | #define TYPE_IMPORT_DEMAND_LIST(T) (TYPE_LANG_SPECIFIC(T)->import_demand_list) | |
cf1748bf | 995 | #define TYPE_PRIVATE_INNER_CLASS(T) (TYPE_LANG_SPECIFIC(T)->pic) |
4dbf4496 | 996 | #define TYPE_PROTECTED_INNER_CLASS(T) (TYPE_LANG_SPECIFIC(T)->poic) |
6b6294f1 | 997 | #define TYPE_STRICTFP(T) (TYPE_LANG_SPECIFIC(T)->strictfp) |
c2952b01 | 998 | |
e04a16fb AG |
999 | struct lang_type |
1000 | { | |
1001 | tree signature; | |
1002 | struct JCF *jcf; | |
c2952b01 APB |
1003 | struct CPool *cpool; |
1004 | tree cpool_data_ref; /* Cached */ | |
7899e8b9 | 1005 | tree finit_stmt_list; /* List of statements finit$ will use */ |
c2952b01 APB |
1006 | tree clinit_stmt_list; /* List of statements <clinit> will use */ |
1007 | tree ii_block; /* Instance initializer block */ | |
165f37bc APB |
1008 | tree dot_class; /* The decl of the `class$' function that |
1009 | needs to be invoked and generated when | |
1010 | compiling to bytecode to implement | |
1011 | <non_primitive_type>.class */ | |
dc08e603 | 1012 | tree package_list; /* List of package names, progressive */ |
653d5d95 APB |
1013 | tree import_list; /* Imported types, in the CU of this class */ |
1014 | tree import_demand_list; /* Imported types, in the CU of this class */ | |
cf1748bf | 1015 | unsigned pic:1; /* Private Inner Class. */ |
4dbf4496 | 1016 | unsigned poic:1; /* Protected Inner Class. */ |
6b6294f1 | 1017 | unsigned strictfp:1; /* `strictfp' class. */ |
e04a16fb AG |
1018 | }; |
1019 | ||
1020 | #ifdef JAVA_USE_HANDLES | |
1021 | /* TYPE_BINFO_HANDLE points from a handle-class to its corresponding | |
1022 | non-handle-class, and vice verse. */ | |
1023 | ||
1024 | #define BINFO_HANDLE(NODE) TREE_VEC_ELT ((NODE), 6) | |
1025 | ||
1026 | /* Given a RECORD_TYPE for a handle type, return the corresponding class. */ | |
1027 | #define HANDLE_TO_CLASS_TYPE(HTYPE) BINFO_HANDLE (TYPE_BINFO (HTYPE)) | |
1028 | ||
1029 | /* Given a RECORD_TYPE for a class, return the corresponding handle type. */ | |
1030 | #define CLASS_TO_HANDLE_TYPE(TYPE) BINFO_HANDLE (TYPE_BINFO (TYPE)) | |
1031 | #else | |
1032 | #define HANDLE_TO_CLASS_TYPE(HTYPE) (HTYPE) | |
1033 | #define CLASS_TO_HANDLE_TYPE(TYPE) (TYPE) | |
1034 | #endif | |
1035 | ||
1036 | #define JCF_u4 unsigned long | |
1037 | #define JCF_u2 unsigned short | |
1038 | ||
5d69f816 | 1039 | extern void java_set_yydebug PARAMS ((int)); |
52dabb6c | 1040 | extern void java_parse_file PARAMS ((void)); |
4f0ade92 | 1041 | extern void java_mark_tree PARAMS ((tree)); |
df32d2ce KG |
1042 | extern void add_assume_compiled PARAMS ((const char *, int)); |
1043 | extern tree lookup_class PARAMS ((tree)); | |
1044 | extern tree lookup_java_constructor PARAMS ((tree, tree)); | |
1045 | extern tree lookup_java_method PARAMS ((tree, tree, tree)); | |
1046 | extern tree lookup_argument_method PARAMS ((tree, tree, tree)); | |
614eaae0 | 1047 | extern tree lookup_argument_method2 PARAMS ((tree, tree, tree)); |
56fe39c8 | 1048 | extern int has_method PARAMS ((tree, tree)); |
df32d2ce KG |
1049 | extern tree promote_type PARAMS ((tree)); |
1050 | extern tree get_constant PARAMS ((struct JCF*, int)); | |
1051 | extern tree get_name_constant PARAMS ((struct JCF*, int)); | |
1052 | extern tree get_class_constant PARAMS ((struct JCF*, int)); | |
1053 | extern tree parse_signature PARAMS ((struct JCF *jcf, int sig_index)); | |
df32d2ce KG |
1054 | extern tree add_field PARAMS ((tree, tree, tree, int)); |
1055 | extern tree add_method PARAMS ((tree, int, tree, tree)); | |
1056 | extern tree add_method_1 PARAMS ((tree, int, tree, tree)); | |
1057 | extern tree make_class PARAMS ((void)); | |
1058 | extern tree push_class PARAMS ((tree, tree)); | |
1059 | extern tree unmangle_classname PARAMS ((const char *name, int name_length)); | |
1060 | extern tree parse_signature_string PARAMS ((const unsigned char *, int)); | |
1061 | extern tree get_type_from_signature PARAMS ((tree)); | |
1062 | extern void layout_class PARAMS ((tree)); | |
1063 | extern tree layout_class_method PARAMS ((tree, tree, tree, tree)); | |
1064 | extern void layout_class_methods PARAMS ((tree)); | |
1065 | extern tree build_class_ref PARAMS ((tree)); | |
1066 | extern tree build_dtable_decl PARAMS ((tree)); | |
1067 | extern tree build_internal_class_name PARAMS ((tree)); | |
1068 | extern tree build_constants_constructor PARAMS ((void)); | |
1069 | extern tree build_ref_from_constant_pool PARAMS ((int)); | |
37b31012 | 1070 | extern void compile_resource_file PARAMS ((char *, const char *)); |
df32d2ce KG |
1071 | extern tree build_utf8_ref PARAMS ((tree)); |
1072 | extern tree ident_subst PARAMS ((const char*, int, | |
e04a16fb | 1073 | const char*, int, int, const char*)); |
df32d2ce | 1074 | extern tree identifier_subst PARAMS ((const tree, |
e04a16fb | 1075 | const char *, int, int, const char *)); |
43577e6b NB |
1076 | extern int global_bindings_p PARAMS ((void)); |
1077 | extern int kept_level_p PARAMS ((void)); | |
1078 | extern tree getdecls PARAMS ((void)); | |
1079 | extern void pushlevel PARAMS ((int)); | |
1080 | extern tree poplevel PARAMS ((int,int, int)); | |
1081 | extern void insert_block PARAMS ((tree)); | |
1082 | extern void set_block PARAMS ((tree)); | |
1083 | extern tree pushdecl PARAMS ((tree)); | |
f5e99456 | 1084 | extern void java_init_decl_processing PARAMS ((void)); |
63e1b1c4 | 1085 | extern void java_dup_lang_specific_decl PARAMS ((tree)); |
df32d2ce KG |
1086 | extern tree build_java_signature PARAMS ((tree)); |
1087 | extern tree build_java_argument_signature PARAMS ((tree)); | |
1088 | extern void set_java_signature PARAMS ((tree, tree)); | |
1089 | extern tree build_static_field_ref PARAMS ((tree)); | |
1090 | extern tree build_address_of PARAMS ((tree)); | |
1091 | extern tree find_local_variable PARAMS ((int index, tree type, int pc)); | |
1092 | extern tree find_stack_slot PARAMS ((int index, tree type)); | |
1093 | extern tree build_prim_array_type PARAMS ((tree, HOST_WIDE_INT)); | |
1094 | extern tree build_java_array_type PARAMS ((tree, HOST_WIDE_INT)); | |
1095 | extern int is_compiled_class PARAMS ((tree)); | |
1096 | extern tree mangled_classname PARAMS ((const char*, tree)); | |
1097 | extern tree lookup_label PARAMS ((int)); | |
984ad2c6 | 1098 | extern tree pop_type_0 PARAMS ((tree, char**)); |
df32d2ce | 1099 | extern tree pop_type PARAMS ((tree)); |
df32d2ce KG |
1100 | extern tree decode_newarray_type PARAMS ((int)); |
1101 | extern tree lookup_field PARAMS ((tree*, tree)); | |
1102 | extern int is_array_type_p PARAMS ((tree)); | |
1103 | extern HOST_WIDE_INT java_array_type_length PARAMS ((tree)); | |
1104 | extern int read_class PARAMS ((tree)); | |
1105 | extern void load_class PARAMS ((tree, int)); | |
1106 | ||
9fe2cc05 | 1107 | extern tree check_for_builtin PARAMS ((tree, tree)); |
fec763fc TT |
1108 | extern void initialize_builtins PARAMS ((void)); |
1109 | ||
df32d2ce KG |
1110 | extern tree lookup_name PARAMS ((tree)); |
1111 | extern tree build_known_method_ref PARAMS ((tree, tree, tree, tree, tree)); | |
1112 | extern tree build_class_init PARAMS ((tree, tree)); | |
1113 | extern tree build_invokevirtual PARAMS ((tree, tree)); | |
173f556c | 1114 | extern tree build_invokeinterface PARAMS ((tree, tree)); |
7145d9fe | 1115 | extern tree build_jni_stub PARAMS ((tree)); |
df32d2ce KG |
1116 | extern tree invoke_build_dtable PARAMS ((int, tree)); |
1117 | extern tree build_field_ref PARAMS ((tree, tree, tree)); | |
1118 | extern void pushdecl_force_head PARAMS ((tree)); | |
1119 | extern tree build_java_binop PARAMS ((enum tree_code, tree, tree, tree)); | |
1120 | extern tree build_java_soft_divmod PARAMS ((enum tree_code, tree, tree, tree)); | |
1121 | extern tree binary_numeric_promotion PARAMS ((tree, tree, tree *, tree *)); | |
1122 | extern tree build_java_arrayaccess PARAMS ((tree, tree, tree)); | |
022dcc46 | 1123 | extern tree build_java_arraystore_check PARAMS ((tree, tree)); |
df32d2ce KG |
1124 | extern tree build_newarray PARAMS ((int, tree)); |
1125 | extern tree build_anewarray PARAMS ((tree, tree)); | |
1126 | extern tree build_new_array PARAMS ((tree, tree)); | |
1127 | extern tree build_java_array_length_access PARAMS ((tree)); | |
1128 | extern tree build_java_arraynull_check PARAMS ((tree, tree, tree)); | |
4ff17c6a AH |
1129 | extern tree build_java_indirect_ref PARAMS ((tree, tree, int)); |
1130 | extern tree java_check_reference PARAMS ((tree, int)); | |
43490bec TT |
1131 | extern tree build_get_class PARAMS ((tree)); |
1132 | extern tree build_instanceof PARAMS ((tree, tree)); | |
df32d2ce KG |
1133 | extern tree create_label_decl PARAMS ((tree)); |
1134 | extern void push_labeled_block PARAMS ((tree)); | |
1135 | extern tree prepare_eh_table_type PARAMS ((tree)); | |
52a11cbf | 1136 | extern tree build_exception_object_ref PARAMS ((tree)); |
df32d2ce KG |
1137 | extern tree generate_name PARAMS ((void)); |
1138 | extern void pop_labeled_block PARAMS ((void)); | |
1139 | extern const char *lang_printable_name PARAMS ((tree, int)); | |
1140 | extern tree maybe_add_interface PARAMS ((tree, tree)); | |
1141 | extern void set_super_info PARAMS ((int, tree, tree, int)); | |
4a70e37e | 1142 | extern void set_class_decl_access_flags PARAMS ((int, tree)); |
df32d2ce KG |
1143 | extern int get_access_flags_from_decl PARAMS ((tree)); |
1144 | extern int interface_of_p PARAMS ((tree, tree)); | |
1145 | extern int inherits_from_p PARAMS ((tree, tree)); | |
152de068 | 1146 | extern int common_enclosing_context_p PARAMS ((tree, tree)); |
c2952b01 | 1147 | extern int enclosing_context_p PARAMS ((tree, tree)); |
df32d2ce KG |
1148 | extern void complete_start_java_method PARAMS ((tree)); |
1149 | extern tree build_result_decl PARAMS ((tree)); | |
1150 | extern void emit_handlers PARAMS ((void)); | |
1151 | extern void init_outgoing_cpool PARAMS ((void)); | |
1152 | extern void make_class_data PARAMS ((tree)); | |
1153 | extern void register_class PARAMS ((void)); | |
1154 | extern int alloc_name_constant PARAMS ((int, tree)); | |
1155 | extern void emit_register_classes PARAMS ((void)); | |
861ef928 | 1156 | extern void emit_offset_symbol_table PARAMS ((void)); |
df32d2ce KG |
1157 | extern void lang_init_source PARAMS ((int)); |
1158 | extern void write_classfile PARAMS ((tree)); | |
1159 | extern char *print_int_node PARAMS ((tree)); | |
1160 | extern void parse_error_context PARAMS ((tree cl, const char *, ...)) | |
d4476be2 | 1161 | ATTRIBUTE_PRINTF_2; |
df32d2ce KG |
1162 | extern void finish_class PARAMS ((void)); |
1163 | extern void java_layout_seen_class_methods PARAMS ((void)); | |
4f88ccda | 1164 | extern void check_for_initialization PARAMS ((tree, tree)); |
df32d2ce KG |
1165 | |
1166 | extern tree pushdecl_top_level PARAMS ((tree)); | |
1167 | extern int alloc_class_constant PARAMS ((tree)); | |
df32d2ce KG |
1168 | extern void init_expr_processing PARAMS ((void)); |
1169 | extern void push_super_field PARAMS ((tree, tree)); | |
1170 | extern void init_class_processing PARAMS ((void)); | |
1171 | extern int can_widen_reference_to PARAMS ((tree, tree)); | |
1172 | extern int class_depth PARAMS ((tree)); | |
1173 | extern int verify_jvm_instructions PARAMS ((struct JCF *, const unsigned char *, long)); | |
1174 | extern void maybe_pushlevels PARAMS ((int)); | |
1175 | extern void maybe_poplevels PARAMS ((int)); | |
e8b22dd1 | 1176 | extern void force_poplevels PARAMS ((int)); |
df32d2ce | 1177 | extern int process_jvm_instruction PARAMS ((int, const unsigned char *, long)); |
6e22695a | 1178 | extern int maybe_adjust_start_pc PARAMS ((struct JCF *, int, int, int)); |
df32d2ce KG |
1179 | extern void set_local_type PARAMS ((int, tree)); |
1180 | extern int merge_type_state PARAMS ((tree)); | |
984ad2c6 | 1181 | extern int push_type_0 PARAMS ((tree)); |
df32d2ce KG |
1182 | extern void push_type PARAMS ((tree)); |
1183 | extern void load_type_state PARAMS ((tree)); | |
1184 | extern void add_interface PARAMS ((tree, tree)); | |
df32d2ce KG |
1185 | extern tree force_evaluation_order PARAMS ((tree)); |
1186 | extern int verify_constant_pool PARAMS ((struct JCF *)); | |
1187 | extern void start_java_method PARAMS ((tree)); | |
1188 | extern void end_java_method PARAMS ((void)); | |
1189 | extern void give_name_to_locals PARAMS ((struct JCF *)); | |
6e22695a | 1190 | extern void note_instructions PARAMS ((struct JCF *, tree)); |
df32d2ce KG |
1191 | extern void expand_byte_code PARAMS ((struct JCF *, tree)); |
1192 | extern int open_in_zip PARAMS ((struct JCF *, const char *, const char *, int)); | |
1193 | extern void set_constant_value PARAMS ((tree, tree)); | |
8e1f2d4c | 1194 | #ifdef jword |
df32d2ce KG |
1195 | extern int find_constant1 PARAMS ((struct CPool *, int, jword)); |
1196 | extern int find_constant2 PARAMS ((struct CPool *, int, jword, jword)); | |
8e1f2d4c | 1197 | #endif |
df32d2ce KG |
1198 | extern int find_utf8_constant PARAMS ((struct CPool *, tree)); |
1199 | extern int find_string_constant PARAMS ((struct CPool *, tree)); | |
1200 | extern int find_class_constant PARAMS ((struct CPool *, tree)); | |
1201 | extern int find_fieldref_index PARAMS ((struct CPool *, tree)); | |
1202 | extern int find_methodref_index PARAMS ((struct CPool *, tree)); | |
8789b9fa | 1203 | extern int find_methodref_with_class_index PARAMS ((struct CPool *, tree, tree)); |
df32d2ce KG |
1204 | extern void write_constant_pool PARAMS ((struct CPool *, unsigned char *, int)); |
1205 | extern int count_constant_pool_bytes PARAMS ((struct CPool *)); | |
1206 | extern int encode_newarray_type PARAMS ((tree)); | |
4bcde32e | 1207 | #ifdef uint64 |
df32d2ce KG |
1208 | extern void format_int PARAMS ((char *, jlong, int)); |
1209 | extern void format_uint PARAMS ((char *, uint64, int)); | |
4bcde32e | 1210 | #endif |
df32d2ce | 1211 | extern void jcf_trim_old_input PARAMS ((struct JCF *)); |
4bcde32e | 1212 | #ifdef BUFSIZ |
df32d2ce KG |
1213 | extern void jcf_print_utf8 PARAMS ((FILE *, const unsigned char *, int)); |
1214 | extern void jcf_print_char PARAMS ((FILE *, int)); | |
1215 | extern void jcf_print_utf8_replace PARAMS ((FILE *, const unsigned char *, | |
4bcde32e KG |
1216 | int, int, int)); |
1217 | # if JCF_USE_STDIO | |
3b304f5b ZW |
1218 | extern const char* open_class PARAMS ((const char *, struct JCF *, |
1219 | FILE *, const char *)); | |
4bcde32e | 1220 | # else |
3b304f5b ZW |
1221 | extern const char* open_class PARAMS ((const char *, struct JCF *, |
1222 | int, const char *)); | |
4bcde32e KG |
1223 | # endif /* JCF_USE_STDIO */ |
1224 | #endif | |
0c2b8145 APB |
1225 | extern void java_debug_context PARAMS ((void)); |
1226 | extern void safe_layout_class PARAMS ((tree)); | |
d4476be2 | 1227 | |
5830574a | 1228 | extern tree get_boehm_type_descriptor PARAMS ((tree)); |
eec87542 | 1229 | extern bool class_has_finalize_method PARAMS ((tree)); |
e0422ed0 | 1230 | extern unsigned long java_hash_hash_tree_node PARAMS ((hash_table_key)); |
d6edb99e | 1231 | extern bool java_hash_compare_tree_node PARAMS ((hash_table_key, |
e0422ed0 | 1232 | hash_table_key)); |
4009bb7d APB |
1233 | extern bool attach_initialized_static_class PARAMS ((struct hash_entry *, |
1234 | PTR)); | |
34d4df06 | 1235 | extern void java_check_methods PARAMS ((tree)); |
19e223db | 1236 | extern void init_jcf_parse PARAMS((void)); |
fea2d5da | 1237 | extern void init_src_parse PARAMS((void)); |
dc08e603 APB |
1238 | |
1239 | extern int cxx_keyword_p PARAMS ((const char *, int)); | |
1240 | extern tree java_mangle_decl PARAMS ((struct obstack *, tree)); | |
1241 | extern tree java_mangle_class_field PARAMS ((struct obstack *, tree)); | |
1242 | extern tree java_mangle_class_field_from_string PARAMS ((struct obstack *, char *)); | |
1243 | extern tree java_mangle_vtable PARAMS ((struct obstack *, tree)); | |
761491c8 | 1244 | extern const char *lang_printable_name_wls PARAMS ((tree, int)); |
1b43b6be | 1245 | extern void append_gpp_mangled_name PARAMS ((const char *, int)); |
5830574a | 1246 | |
fec763fc TT |
1247 | extern void add_predefined_file PARAMS ((tree)); |
1248 | extern int predefined_filename_p PARAMS ((tree)); | |
1249 | ||
c9d892a8 NB |
1250 | #if defined(RTX_CODE) && defined (HAVE_MACHINE_MODES) |
1251 | struct rtx_def * java_expand_expr PARAMS ((tree, rtx, enum machine_mode, | |
1252 | int)); | |
1253 | #endif | |
49f48c71 | 1254 | |
4f88ccda PB |
1255 | #define DECL_FINAL(DECL) DECL_LANG_FLAG_3 (DECL) |
1256 | ||
e04a16fb AG |
1257 | /* Access flags etc for a method (a FUNCTION_DECL): */ |
1258 | ||
1259 | #define METHOD_PUBLIC(DECL) DECL_LANG_FLAG_1 (DECL) | |
1260 | #define METHOD_PRIVATE(DECL) TREE_PRIVATE (DECL) | |
1261 | #define METHOD_PROTECTED(DECL) TREE_PROTECTED (DECL) | |
1262 | #define METHOD_STATIC(DECL) DECL_LANG_FLAG_2 (DECL) | |
4f88ccda | 1263 | #define METHOD_FINAL(DECL) DECL_FINAL (DECL) |
e04a16fb | 1264 | #define METHOD_SYNCHRONIZED(DECL) DECL_LANG_FLAG_4 (DECL) |
7145d9fe | 1265 | #define METHOD_NATIVE(DECL) (DECL_LANG_SPECIFIC(DECL)->native) |
e04a16fb AG |
1266 | #define METHOD_ABSTRACT(DECL) DECL_LANG_FLAG_5 (DECL) |
1267 | #define METHOD_TRANSIENT(DECL) DECL_LANG_FLAG_6 (DECL) | |
6b6294f1 | 1268 | #define METHOD_STRICTFP(DECL) (DECL_LANG_SPECIFIC (DECL)->strictfp) |
e04a16fb | 1269 | |
54646811 PB |
1270 | #define JAVA_FILE_P(NODE) TREE_LANG_FLAG_2 (NODE) |
1271 | #define CLASS_FILE_P(NODE) TREE_LANG_FLAG_3 (NODE) | |
1272 | #define ZIP_FILE_P(NODE) TREE_LANG_FLAG_4 (NODE) | |
1273 | ||
c2952b01 APB |
1274 | /* Other predicates on method decls */ |
1275 | ||
e04a16fb AG |
1276 | #define DECL_CONSTRUCTOR_P(DECL) DECL_LANG_FLAG_7(DECL) |
1277 | ||
c2952b01 APB |
1278 | #define DECL_INIT_P(DECL) (ID_INIT_P (DECL_NAME (DECL))) |
1279 | #define DECL_FINIT_P(DECL) (ID_FINIT_P (DECL_NAME (DECL))) | |
1280 | #define DECL_CLINIT_P(DECL) (ID_CLINIT_P (DECL_NAME (DECL))) | |
17126208 | 1281 | #define DECL_INSTINIT_P(DECL) (ID_INSTINIT_P (DECL_NAME (DECL))) |
c2952b01 APB |
1282 | |
1283 | /* Predicates on method identifiers. Kept close to other macros using | |
1284 | them */ | |
1285 | #define ID_INIT_P(ID) ((ID) == init_identifier_node) | |
7899e8b9 | 1286 | #define ID_FINIT_P(ID) ((ID) == finit_identifier_node) |
c2952b01 | 1287 | #define ID_CLINIT_P(ID) ((ID) == clinit_identifier_node) |
94807d33 | 1288 | #define ID_CLASSDOLLAR_P(ID) ((ID) == classdollar_identifier_node) |
17126208 | 1289 | #define ID_INSTINIT_P(ID) ((ID) == instinit_identifier_node) |
c2952b01 | 1290 | |
e04a16fb AG |
1291 | /* Access flags etc for a variable/field (a FIELD_DECL): */ |
1292 | ||
1293 | #define FIELD_PRIVATE(DECL) TREE_PRIVATE (DECL) | |
1294 | #define FIELD_PROTECTED(DECL) TREE_PROTECTED (DECL) | |
1295 | #define FIELD_PUBLIC(DECL) DECL_LANG_FLAG_1 (DECL) | |
1296 | #define FIELD_STATIC(DECL) TREE_STATIC (DECL) | |
4f88ccda | 1297 | #define FIELD_FINAL(DECL) DECL_FINAL (DECL) |
e04a16fb AG |
1298 | #define FIELD_VOLATILE(DECL) DECL_LANG_FLAG_4 (DECL) |
1299 | #define FIELD_TRANSIENT(DECL) DECL_LANG_FLAG_5 (DECL) | |
1300 | ||
e04a16fb AG |
1301 | /* Access flags etc for a class (a TYPE_DECL): */ |
1302 | ||
1303 | #define CLASS_PUBLIC(DECL) DECL_LANG_FLAG_1 (DECL) | |
4f88ccda | 1304 | #define CLASS_FINAL(DECL) DECL_FINAL (DECL) |
e04a16fb AG |
1305 | #define CLASS_INTERFACE(DECL) DECL_LANG_FLAG_4 (DECL) |
1306 | #define CLASS_ABSTRACT(DECL) DECL_LANG_FLAG_5 (DECL) | |
1307 | #define CLASS_SUPER(DECL) DECL_LANG_FLAG_6 (DECL) | |
c2952b01 | 1308 | #define CLASS_STATIC(DECL) DECL_LANG_FLAG_7 (DECL) |
cf1748bf | 1309 | #define CLASS_PRIVATE(DECL) (TYPE_PRIVATE_INNER_CLASS (TREE_TYPE (DECL))) |
4dbf4496 | 1310 | #define CLASS_PROTECTED(DECL) (TYPE_PROTECTED_INNER_CLASS (TREE_TYPE (DECL))) |
6b6294f1 | 1311 | #define CLASS_STRICTFP(DECL) (TYPE_STRICTFP (TREE_TYPE (DECL))) |
e04a16fb | 1312 | |
5e942c50 APB |
1313 | /* @deprecated marker flag on methods, fields and classes */ |
1314 | ||
1315 | #define METHOD_DEPRECATED(DECL) DECL_LANG_FLAG_0 (DECL) | |
1316 | #define FIELD_DEPRECATED(DECL) DECL_LANG_FLAG_0 (DECL) | |
1317 | #define CLASS_DEPRECATED(DECL) DECL_LANG_FLAG_0 (DECL) | |
1318 | #define DECL_DEPRECATED(DECL) DECL_LANG_FLAG_0 (DECL) | |
1319 | ||
e04a16fb AG |
1320 | /* The number of virtual methods in this class's dispatch table. |
1321 | Does not include initial two dummy entries (one points to the | |
1322 | Class object, and the other is for G++ -fvtable-thunks compatibility). */ | |
1323 | #define TYPE_NVIRTUALS(TYPE) TYPE_BINFO_VIRTUALS (TYPE) | |
1324 | ||
1325 | /* A TREE_VEC (indexed by DECL_VINDEX) containing this class's | |
1326 | virtual methods. */ | |
1327 | #define TYPE_VTABLE(TYPE) TYPE_BINFO_VTABLE(TYPE) | |
1328 | ||
e04a16fb AG |
1329 | /* Use CLASS_LOADED_P? FIXME */ |
1330 | #define CLASS_COMPLETE_P(DECL) DECL_LANG_FLAG_2 (DECL) | |
1331 | ||
1332 | /* This maps a bytecode offset (PC) to various flags, | |
1333 | listed below (starting with BCODE_). */ | |
1334 | extern char *instruction_bits; | |
1335 | ||
1336 | /* True iff the byte is the start of an instruction. */ | |
1337 | #define BCODE_INSTRUCTION_START 1 | |
1338 | ||
1339 | /* True iff there is a jump to this location. */ | |
1340 | #define BCODE_JUMP_TARGET 2 | |
1341 | ||
1342 | /* True iff there is a return to this location. | |
a83f01f0 | 1343 | (I.e. the preceding instruction was a call.) */ |
e04a16fb AG |
1344 | #define BCODE_RETURN_TARGET 4 |
1345 | ||
1346 | /* True iff this is the start of an exception handler. */ | |
1347 | #define BCODE_EXCEPTION_TARGET 16 | |
1348 | ||
1349 | /* True iff there is a jump to this location (and it needs a label). */ | |
1350 | #define BCODE_TARGET \ | |
1351 | (BCODE_JUMP_TARGET|BCODE_RETURN_TARGET \ | |
1352 | | BCODE_EXCEPTION_TARGET) | |
1353 | ||
1354 | /* True iff there is an entry in the linenumber table for this location. */ | |
1355 | #define BCODE_HAS_LINENUMBER 32 | |
1356 | ||
1357 | /* True iff there is more than one entry in the linenumber table for | |
1358 | this location. (This probably does not make much sense.) */ | |
1359 | #define BCODE_HAS_MULTI_LINENUMBERS 64 | |
1360 | ||
1361 | /* True if this instruction has been verified. */ | |
1362 | #define BCODE_VERIFIED 8 | |
1363 | ||
1364 | /* A pointer to the line number table of the current method. */ | |
49f48c71 | 1365 | extern const unsigned char *linenumber_table; |
e04a16fb AG |
1366 | /* The length (in items) of the line number table. */ |
1367 | extern int linenumber_count; | |
1368 | ||
1369 | /* In type_map, means that slot is uninitialized or otherwise unusable. */ | |
1370 | #define TYPE_UNKNOWN NULL_TREE | |
1371 | ||
1372 | /* In type_map, means the second half of a 64-bit double or long. */ | |
1373 | #define TYPE_SECOND void_type_node | |
1374 | ||
1375 | /* In type_map, means the null type (i.e. type of a null reference). */ | |
1376 | #define TYPE_NULL ptr_type_node | |
1377 | ||
1378 | /* In a type map means the type the address subroutine return address. */ | |
1379 | #define TYPE_RETURN_ADDR return_address_type_node | |
1380 | ||
1381 | /* In a subroutine's return type map, indicates that the slot was neither | |
1382 | used nor set in the subroutine. */ | |
1383 | #define TYPE_UNUSED error_mark_node | |
1384 | ||
984ad2c6 PB |
1385 | /* When returned from pop_type_0, indicates stack underflow. */ |
1386 | #define TYPE_UNDERFLOW integer_zero_node | |
1387 | ||
1388 | /* When returned from pop_type_0, indicates a type mismatch. */ | |
1389 | #define TYPE_UNEXPECTED NULL_TREE | |
1390 | ||
e04a16fb AG |
1391 | /* A array mapping variable/stack slot index to the type current |
1392 | in that variable/stack slot. | |
1393 | TYPE_UNKNOWN, TYPE_SECOND, and TYPE_NULL are special cases. */ | |
1394 | extern tree *type_map; | |
1395 | ||
1396 | /* Map a stack index to the type currently in that slot. */ | |
1397 | #define stack_type_map (type_map+DECL_MAX_LOCALS(current_function_decl)) | |
1398 | ||
1399 | /* True iff TYPE takes two variable/stack slots. */ | |
1400 | #define TYPE_IS_WIDE(TYPE) \ | |
1401 | ((TYPE) == double_type_node || (TYPE) == long_type_node) | |
1402 | ||
c2952b01 APB |
1403 | /* True iif CLASS has it's access$0 method generated. */ |
1404 | #define CLASS_ACCESS0_GENERATED_P(CLASS) TYPE_LANG_FLAG_0 (CLASS) | |
1405 | ||
e04a16fb AG |
1406 | /* True iff TYPE is a Java array type. */ |
1407 | #define TYPE_ARRAY_P(TYPE) TYPE_LANG_FLAG_1 (TYPE) | |
1408 | ||
4f88ccda PB |
1409 | /* True for an INDIRECT_REF created from a 'ARRAY.length' operation. */ |
1410 | #define IS_ARRAY_LENGTH_ACCESS(NODE) TREE_LANG_FLAG_4 (NODE) | |
1411 | ||
e04a16fb AG |
1412 | /* If FUNCTION_TYPE or METHOD_TYPE: cache for build_java_argument_signature. */ |
1413 | #define TYPE_ARGUMENT_SIGNATURE(TYPE) TYPE_VFIELD(TYPE) | |
1414 | ||
1415 | /* Given an array type, give the type of the elements. */ | |
1416 | /* FIXME this use of TREE_TYPE conflicts with something or other. */ | |
1417 | #define TYPE_ARRAY_ELEMENT(ATYPE) TREE_TYPE(ATYPE) | |
1418 | ||
3c0ce750 PB |
1419 | /* True if class TYPE has been loaded (i.e. parsed plus laid out). |
1420 | (The check for CLASS_PARSED_P is needed because of Object and Class.) */ | |
1421 | #define CLASS_LOADED_P(TYPE) (TYPE_SIZE (TYPE) != NULL_TREE \ | |
1422 | && (CLASS_PARSED_P(TYPE) || TYPE_ARRAY_P(TYPE))) | |
1423 | ||
1424 | /* True if class TYPE has been parsed (first pass). */ | |
1425 | #define CLASS_PARSED_P(TYPE) TYPE_LANG_FLAG_2 (TYPE) | |
e04a16fb AG |
1426 | |
1427 | /* True if class TYPE was defined in Java source code. */ | |
1428 | #define CLASS_FROM_SOURCE_P(TYPE) TYPE_LANG_FLAG_3 (TYPE) | |
1429 | ||
b351b287 APB |
1430 | /* True of a RECORD_TYPE of a class/interface type (not array type) */ |
1431 | #define CLASS_P(TYPE) TYPE_LANG_FLAG_4 (TYPE) | |
1432 | ||
54646811 PB |
1433 | /* True if class TYPE was requested (on command line) to be compiled.*/ |
1434 | #define CLASS_FROM_CURRENTLY_COMPILED_P(TYPE) \ | |
b351b287 APB |
1435 | TYPE_LANG_FLAG_5 (TYPE) |
1436 | ||
c2952b01 | 1437 | /* True if class TYPE is currently being laid out. Helps in detection |
a83f01f0 | 1438 | of inheritance cycle occurring as a side effect of performing the |
c2952b01 APB |
1439 | layout of a class. */ |
1440 | #define CLASS_BEING_LAIDOUT(TYPE) TYPE_LANG_FLAG_6 (TYPE) | |
1441 | ||
1442 | /* True if class TYPE is currently being laid out. Helps in detection | |
a83f01f0 | 1443 | of inheritance cycle occurring as a side effect of performing the |
c2952b01 APB |
1444 | layout of a class. */ |
1445 | #define CLASS_BEING_LAIDOUT(TYPE) TYPE_LANG_FLAG_6 (TYPE) | |
1446 | ||
7899e8b9 | 1447 | /* True if class TYPE has a field initializer finit$ function */ |
c2952b01 | 1448 | #define CLASS_HAS_FINIT_P(TYPE) TYPE_FINIT_STMT_LIST (TYPE) |
22eed1e6 | 1449 | |
e04a16fb AG |
1450 | /* True if identifier ID was seen while processing a single type import stmt */ |
1451 | #define IS_A_SINGLE_IMPORT_CLASSFILE_NAME_P(ID) TREE_LANG_FLAG_0 (ID) | |
1452 | ||
1453 | /* True if identifier ID was seen while processing an import statement */ | |
1454 | #define IS_A_CLASSFILE_NAME(ID) TREE_LANG_FLAG_1 (ID) | |
1455 | ||
1456 | /* True if ID is a qualified named (contains . or /) */ | |
1457 | #define QUALIFIED_P(ID) TREE_LANG_FLAG_2 (ID) | |
1458 | ||
1459 | /* True if ID is an already processed import on demand */ | |
1460 | #define IS_AN_IMPORT_ON_DEMAND_P(ID) TREE_LANG_FLAG_3 (ID) | |
1461 | ||
b351b287 APB |
1462 | /* True if ID is a command-line specified filename */ |
1463 | #define IS_A_COMMAND_LINE_FILENAME_P(ID) TREE_LANG_FLAG_4 (ID) | |
1464 | ||
1465 | /* True if filename ID has already been parsed */ | |
1466 | #define HAS_BEEN_ALREADY_PARSED_P(ID) TREE_LANG_FLAG_5 (ID) | |
1467 | ||
e04a16fb AG |
1468 | /* True if EXPR is RHS sub-tree of a compound assign expression */ |
1469 | #define COMPOUND_ASSIGN_P(EXPR) TREE_LANG_FLAG_1 (EXPR) | |
1470 | ||
12472854 PB |
1471 | /* True if a SWITCH_EXPR has a DEFAULT_EXPR. */ |
1472 | #define SWITCH_HAS_DEFAULT(NODE) TREE_LANG_FLAG_3 (NODE) | |
1473 | ||
e04a16fb AG |
1474 | /* True if EXPR (a WFL in that case) was created after the |
1475 | reduction of PRIMARY . XXX */ | |
1476 | #define PRIMARY_P(EXPR) TREE_LANG_FLAG_2 (EXPR) | |
1477 | ||
1478 | /* True if EXPR (a MODIFY_EXPR in that case) is the result of variable | |
1479 | initialization during its declaration */ | |
1480 | #define MODIFY_EXPR_FROM_INITIALIZATION_P(EXPR) TREE_LANG_FLAG_2 (EXPR) | |
1481 | ||
c00f0fb2 APB |
1482 | /* True if EXPR (a TREE_TYPE denoting a class type) has its methods |
1483 | already checked (for redifitions, etc, see java_check_regular_methods.) */ | |
34d4df06 APB |
1484 | #define CLASS_METHOD_CHECKED_P(EXPR) TREE_LANG_FLAG_2 (EXPR) |
1485 | ||
eec87542 HB |
1486 | /* True if TYPE (a TREE_TYPE denoting a class type) was found to |
1487 | feature a finalizer method. */ | |
1488 | #define HAS_FINALIZER_P(EXPR) TREE_LANG_FLAG_3 (EXPR) | |
1489 | ||
e04a16fb AG |
1490 | /* True if EXPR (a WFL in that case) resolves into an expression name */ |
1491 | #define RESOLVE_EXPRESSION_NAME_P(WFL) TREE_LANG_FLAG_0 (WFL) | |
1492 | ||
1493 | /* True if EXPR (a LOOP_EXPR in that case) is part of a for statement */ | |
c2952b01 APB |
1494 | #define FOR_LOOP_P(EXPR) TREE_LANG_FLAG_0 (EXPR) |
1495 | ||
1496 | /* True if NODE (a RECORD_TYPE in that case) is an anonymous class. */ | |
1497 | #define ANONYMOUS_CLASS_P(NODE) TREE_LANG_FLAG_0 (NODE) | |
1498 | ||
1499 | /* True if NODE (a RECORD_TYPE in that case) is a block local class. */ | |
1500 | #define LOCAL_CLASS_P(NODE) TREE_LANG_FLAG_1 (NODE) | |
1501 | ||
1502 | /* True if NODE (a TREE_LIST) hold a pair of argument name/type | |
1503 | declared with the final modifier */ | |
1504 | #define ARG_FINAL_P(NODE) TREE_LANG_FLAG_0 (NODE) | |
e04a16fb AG |
1505 | |
1506 | /* True if EXPR (a WFL in that case) resolves into a package name */ | |
1507 | #define RESOLVE_PACKAGE_NAME_P(WFL) TREE_LANG_FLAG_3 (WFL) | |
1508 | ||
1509 | /* True if EXPR (a WFL in that case) resolves into a type name */ | |
1510 | #define RESOLVE_TYPE_NAME_P(WFL) TREE_LANG_FLAG_4 (WFL) | |
1511 | ||
1512 | /* True if STMT (a WFL in that case) holds a BREAK statement */ | |
1513 | #define IS_BREAK_STMT_P(WFL) TREE_LANG_FLAG_5 (WFL) | |
1514 | ||
1595a329 PB |
1515 | /* True if EXPR (a CALL_EXPR in that case) is a crafted StringBuffer */ |
1516 | #define IS_CRAFTED_STRING_BUFFER_P(EXPR) TREE_LANG_FLAG_5 (EXPR) | |
1517 | ||
1729c265 APB |
1518 | /* True if EXPR (a SAVE_EXPR in that case) had its content already |
1519 | checked for (un)initialized local variables. */ | |
1520 | #define IS_INIT_CHECKED(EXPR) TREE_LANG_FLAG_5 (EXPR) | |
1521 | ||
157412f5 PB |
1522 | /* If set in CALL_EXPR, the receiver is 'super'. */ |
1523 | #define CALL_USING_SUPER(EXPR) TREE_LANG_FLAG_4 (EXPR) | |
1524 | ||
12472854 PB |
1525 | /* True if NODE (a statement) can complete normally. */ |
1526 | #define CAN_COMPLETE_NORMALLY(NODE) TREE_LANG_FLAG_6(NODE) | |
1527 | ||
c2952b01 APB |
1528 | /* True if NODE (an IDENTIFIER) bears the name of a outer field from |
1529 | inner class access function. */ | |
1530 | #define OUTER_FIELD_ACCESS_IDENTIFIER_P(NODE) TREE_LANG_FLAG_6(NODE) | |
1531 | ||
1532 | /* Non null if NODE belongs to an inner class TYPE_DECL node. | |
1533 | Verifies that NODE as the attributes of a decl. */ | |
1534 | #define INNER_CLASS_DECL_P(NODE) (TYPE_NAME (TREE_TYPE (NODE)) == NODE \ | |
1535 | && DECL_CONTEXT (NODE)) | |
1536 | ||
1537 | /* Non null if NODE is an top level class TYPE_DECL node: NODE isn't | |
1538 | an inner class or NODE is a static class. */ | |
1539 | #define TOPLEVEL_CLASS_DECL_P(NODE) (!INNER_CLASS_DECL_P (NODE) \ | |
1540 | || CLASS_STATIC (NODE)) | |
1541 | ||
1542 | /* True if the class decl NODE was declared in a inner scope and is | |
1543 | not a toplevel class */ | |
1544 | #define PURE_INNER_CLASS_DECL_P(NODE) \ | |
1545 | (INNER_CLASS_DECL_P (NODE) && !CLASS_STATIC (NODE)) | |
1546 | ||
1547 | /* Non null if NODE belongs to an inner class RECORD_TYPE node. Checks | |
1548 | that TYPE_NAME bears a decl. An array type wouldn't. */ | |
1549 | #define INNER_CLASS_TYPE_P(NODE) (TREE_CODE (TYPE_NAME (NODE)) == TYPE_DECL \ | |
1550 | && DECL_CONTEXT (TYPE_NAME (NODE))) | |
1551 | ||
1552 | #define TOPLEVEL_CLASS_TYPE_P(NODE) (!INNER_CLASS_TYPE_P (NODE) \ | |
1553 | || CLASS_STATIC (TYPE_NAME (NODE))) | |
1554 | ||
1555 | /* True if the class type NODE was declared in a inner scope and is | |
1556 | not a toplevel class */ | |
1557 | #define PURE_INNER_CLASS_TYPE_P(NODE) \ | |
1558 | (INNER_CLASS_TYPE_P (NODE) && !CLASS_STATIC (TYPE_NAME (NODE))) | |
1559 | ||
1560 | /* Non null if NODE (a TYPE_DECL or a RECORD_TYPE) is an inner class. */ | |
1561 | #define INNER_CLASS_P(NODE) (TREE_CODE (NODE) == TYPE_DECL ? \ | |
1562 | INNER_CLASS_DECL_P (NODE) : \ | |
1563 | (TREE_CODE (NODE) == RECORD_TYPE ? \ | |
1564 | INNER_CLASS_TYPE_P (NODE) : \ | |
400500c4 | 1565 | (abort (), 0))) |
c2952b01 APB |
1566 | |
1567 | /* On a TYPE_DECL, hold the list of inner classes defined within the | |
1568 | scope of TYPE_DECL. */ | |
1569 | #define DECL_INNER_CLASS_LIST(NODE) DECL_INITIAL (NODE) | |
1570 | ||
36e10d77 APB |
1571 | /* Build a IDENTIFIER_NODE for a file name we're considering. Since |
1572 | all_class_filename is a registered root, putting this identifier | |
1573 | in a TREE_LIST it holds keeps this node alive. */ | |
1574 | #define BUILD_FILENAME_IDENTIFIER_NODE(F, S) \ | |
1575 | if (!((F) = maybe_get_identifier ((S)))) \ | |
1576 | { \ | |
1577 | (F) = get_identifier ((S)); \ | |
1578 | tree_cons ((F), NULL_TREE, all_class_filename); \ | |
dba41d30 APB |
1579 | } |
1580 | ||
e04a16fb AG |
1581 | /* Add a FIELD_DECL to RECORD_TYPE RTYPE. |
1582 | The field has name NAME (a char*), and type FTYPE. | |
1583 | Unless this is the first field, FIELD most hold the previous field. | |
1584 | FIELD is set to the newly created FIELD_DECL. | |
1585 | ||
1586 | We set DECL_ARTIFICIAL so these fields get skipped by make_class_data | |
1587 | if compiling java.lang.Object or java.lang.Class. */ | |
1588 | ||
1589 | #define PUSH_FIELD(RTYPE, FIELD, NAME, FTYPE) \ | |
1590 | { tree tmp_field = build_decl (FIELD_DECL, get_identifier(NAME), FTYPE); \ | |
1591 | if (TYPE_FIELDS (RTYPE) == NULL_TREE) TYPE_FIELDS (RTYPE) = tmp_field; \ | |
1592 | else TREE_CHAIN(FIELD) = tmp_field; \ | |
1593 | DECL_CONTEXT (tmp_field) = RTYPE; \ | |
1594 | DECL_ARTIFICIAL (tmp_field) = 1; \ | |
1595 | FIELD = tmp_field; } | |
1596 | ||
1597 | #define FINISH_RECORD(RTYPE) layout_type (RTYPE) | |
1598 | ||
1599 | /* Start building a RECORD_TYPE constructor with a given TYPE in CONS. */ | |
1600 | #define START_RECORD_CONSTRUCTOR(CONS, CTYPE) { \ | |
1601 | CONS = build (CONSTRUCTOR, CTYPE, NULL_TREE, NULL_TREE);\ | |
1602 | TREE_CHAIN(CONS) = TYPE_FIELDS (CTYPE); } | |
1603 | ||
1604 | /* Append a field initializer to CONS for the dummy field for the inherited | |
1605 | fields. The dummy field has the given VALUE, and the same type as the | |
1606 | super-class. Must be specified before calls to PUSH_FIELD_VALUE. */ | |
1607 | ||
1608 | #define PUSH_SUPER_VALUE(CONS, VALUE) {\ | |
1609 | tree field = TREE_CHAIN(CONS);\ | |
1610 | if (DECL_NAME (field) != NULL_TREE) abort();\ | |
1611 | CONSTRUCTOR_ELTS(CONS) = tree_cons (field, VALUE, CONSTRUCTOR_ELTS(CONS));\ | |
1612 | TREE_CHAIN(CONS) = TREE_CHAIN (field); } | |
1613 | ||
1614 | /* Append a field initializer to CONS for a field with the given VALUE. | |
1615 | NAME is a char* string used for error checking; | |
1616 | the initializer must be specified in order. */ | |
1617 | #define PUSH_FIELD_VALUE(CONS, NAME, VALUE) {\ | |
1618 | tree field = TREE_CHAIN(CONS);\ | |
1619 | if (strcmp (IDENTIFIER_POINTER (DECL_NAME (field)), NAME) != 0) abort();\ | |
1620 | CONSTRUCTOR_ELTS(CONS) = tree_cons (field, VALUE, CONSTRUCTOR_ELTS(CONS));\ | |
1621 | TREE_CHAIN(CONS) = TREE_CHAIN (field); } | |
1622 | ||
1623 | /* Finish creating a record CONSTRUCTOR CONS. */ | |
1624 | #define FINISH_RECORD_CONSTRUCTOR(CONS) \ | |
1625 | CONSTRUCTOR_ELTS(CONS) = nreverse (CONSTRUCTOR_ELTS(CONS)) | |
1626 | ||
22eed1e6 APB |
1627 | /* Macros on constructors invocations. */ |
1628 | #define CALL_CONSTRUCTOR_P(NODE) \ | |
1629 | (TREE_CODE (NODE) == NEW_CLASS_EXPR || CALL_EXPLICIT_CONSTRUCTOR_P (NODE)) | |
1630 | ||
1631 | #define CALL_EXPLICIT_CONSTRUCTOR_P(NODE) \ | |
1632 | (CALL_THIS_CONSTRUCTOR_P (NODE) || CALL_SUPER_CONSTRUCTOR_P (NODE)) | |
1633 | ||
1634 | #define CALL_THIS_CONSTRUCTOR_P(NODE) \ | |
1635 | (TREE_CODE (NODE) == CALL_EXPR \ | |
1636 | && EXPR_WFL_NODE (TREE_OPERAND (NODE, 0)) == this_identifier_node) | |
1637 | ||
1638 | #define CALL_SUPER_CONSTRUCTOR_P(NODE) \ | |
1639 | (TREE_CODE (NODE) == CALL_EXPR \ | |
1640 | && EXPR_WFL_NODE (TREE_OPERAND (NODE, 0)) == super_identifier_node) | |
1595a329 PB |
1641 | |
1642 | /* Using a FINALLY_EXPR node */ | |
1643 | #define FINALLY_EXPR_LABEL(NODE) TREE_OPERAND ((NODE), 0) | |
1644 | #define FINALLY_EXPR_BLOCK(NODE) TREE_OPERAND ((NODE), 1) | |
e04a16fb | 1645 | |
bc3ca41b PB |
1646 | #define BLOCK_EXPR_DECLS(NODE) BLOCK_VARS(NODE) |
1647 | #define BLOCK_EXPR_BODY(NODE) BLOCK_SUBBLOCKS(NODE) | |
b16e8f08 PB |
1648 | /* True for an implicit block surrounding declaration not at start of {...}. */ |
1649 | #define BLOCK_IS_IMPLICIT(NODE) TREE_LANG_FLAG_1 (NODE) | |
bc3ca41b | 1650 | |
939d7216 PB |
1651 | #define BUILD_MONITOR_ENTER(WHERE, ARG) \ |
1652 | { \ | |
1653 | (WHERE) = build (CALL_EXPR, int_type_node, \ | |
1654 | build_address_of (soft_monitorenter_node), \ | |
1655 | build_tree_list (NULL_TREE, (ARG)), \ | |
1656 | NULL_TREE); \ | |
1657 | TREE_SIDE_EFFECTS (WHERE) = 1; \ | |
1658 | } | |
1659 | ||
1660 | #define BUILD_MONITOR_EXIT(WHERE, ARG) \ | |
1661 | { \ | |
1662 | (WHERE) = build (CALL_EXPR, int_type_node, \ | |
1663 | build_address_of (soft_monitorexit_node), \ | |
1664 | build_tree_list (NULL_TREE, (ARG)), \ | |
1665 | NULL_TREE); \ | |
1666 | TREE_SIDE_EFFECTS (WHERE) = 1; \ | |
1667 | } | |
1668 | ||
c877974e APB |
1669 | /* Non zero if TYPE is an unchecked exception */ |
1670 | #define IS_UNCHECKED_EXCEPTION_P(TYPE) \ | |
b9f7e36c APB |
1671 | (inherits_from_p ((TYPE), runtime_exception_type_node) \ |
1672 | || inherits_from_p ((TYPE), error_exception_type_node)) | |
b351b287 | 1673 | |
4009bb7d APB |
1674 | /* True when we can perform static class initialization optimization */ |
1675 | #define STATIC_CLASS_INIT_OPT_P() \ | |
5412ef6b | 1676 | (flag_optimize_sci && (optimize >= 2) && ! flag_emit_class_files) |
4009bb7d | 1677 | |
4f88ccda | 1678 | extern int java_error_count; |
bc3ca41b | 1679 | |
b351b287 APB |
1680 | /* Make the current function where this macro is invoked report error |
1681 | messages and and return, if any */ | |
5e942c50 APB |
1682 | #define java_parse_abort_on_error() \ |
1683 | { \ | |
bc3ca41b | 1684 | if (java_error_count > save_error_count) \ |
c877974e | 1685 | return; \ |
b351b287 | 1686 | } |
e8b22dd1 | 1687 | |
67db0ce7 TT |
1688 | /* These are the possible values for the `state' field of the class |
1689 | structure. This must be kept in sync with libgcj. */ | |
1690 | enum | |
1691 | { | |
1692 | JV_STATE_NOTHING = 0, /* Set by compiler. */ | |
1693 | ||
1694 | JV_STATE_PRELOADING = 1, /* Can do _Jv_FindClass. */ | |
1695 | JV_STATE_LOADING = 3, /* Has super installed. */ | |
1696 | JV_STATE_LOADED = 5, /* Is complete. */ | |
1697 | ||
1698 | JV_STATE_COMPILED = 6, /* This was a compiled class. */ | |
1699 | ||
1700 | JV_STATE_PREPARED = 7, /* Layout & static init done. */ | |
1701 | JV_STATE_LINKED = 9, /* Strings interned. */ | |
1702 | ||
1703 | JV_STATE_IN_PROGRESS = 10, /* <Clinit> running. */ | |
1704 | JV_STATE_DONE = 12, | |
1705 | ||
1706 | JV_STATE_ERROR = 14 /* must be last. */ | |
1707 | }; | |
1708 | ||
e8b22dd1 | 1709 | #undef DEBUG_JAVA_BINDING_LEVELS |