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