/* Definitions for parsing and type checking for the GNU compiler for
the Java(TM) language.
- Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc.
+ Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
This file is part of GNU CC.
/* Hacked by Per Bothner <bothner@cygnus.com> February 1996. */
+#include "hash.h"
+
/* Java language-specific tree codes. */
#define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM,
enum java_tree_code {
/* Usage of TREE_LANG_FLAG_?:
0: IS_A_SINGLE_IMPORT_CLASSFILE_NAME_P (in IDENTIFIER_NODE)
RESOLVE_EXPRESSION_NAME_P (in EXPR_WITH_FILE_LOCATION)
- IS_FOR_LOOP_P (in LOOP_EXPR)
+ FOR_LOOP_P (in LOOP_EXPR)
+ ANONYMOUS_CLASS_P (in RECORD_TYPE)
+ ARG_FINAL_P (in TREE_LIST)
1: CLASS_HAS_SUPER_FLAG (in TREE_VEC).
IS_A_CLASSFILE_NAME (in IDENTIFIER_NODE)
COMPOUND_ASSIGN_P (in EXPR (binop_*))
+ LOCAL_CLASS_P (in RECORD_TYPE)
+ BLOCK_IS_IMPLICIT (in BLOCK)
+ JAVA_FILE_P (in TREE_LIST in current_file_list)
2: RETURN_MAP_ADJUSTED (in TREE_VEC).
QUALIFIED_P (in IDENTIFIER_NODE)
PRIMARY_P (in EXPR_WITH_FILE_LOCATION)
MODIFY_EXPR_FROM_INITIALIZATION_P (in MODIFY_EXPR)
+ CLASS_METHOD_CHECKED_P (in RECORD_TYPE)
+ CLASS_FILE_P (in TREE_LIST in current_file_list)
3: IS_AN_IMPORT_ON_DEMAND_P (in IDENTIFIER_NODE)
RESOLVE_PACKAGE_NAME_P (in EXPR_WITH_FILE_LOCATION)
SWITCH_HAS_DEFAULT (in SWITCH_EXPR)
+ ZIP_FILE_P (in TREE_LIST in current_file_list)
4: IS_A_COMMAND_LINE_FILENAME_P (in IDENTIFIER_NODE)
RESOLVE_TYPE_NAME_P (in EXPR_WITH_FILE_LOCATION)
CALL_USING_SUPER (in CALL_EXPR)
5: HAS_BEEN_ALREADY_PARSED_P (in IDENTIFIER_NODE)
IS_BREAK_STMT_P (in EXPR_WITH_FILE_LOCATION)
IS_CRAFTED_STRING_BUFFER_P (in CALL_EXPR)
- 6: CAN_COMPLETE_NORMALLY (in statement nodes).
+ IS_INIT_CHECKED (in SAVE_EXPR)
+ 6: CAN_COMPLETE_NORMALLY (in statement nodes)
+ OUTER_FIELD_ACCESS_IDENTIFIER_P (in IDENTIFIER_NODE)
Usage of TYPE_LANG_FLAG_?:
+ 0: CLASS_ACCESS0_GENERATED_P (in RECORD_TYPE)
1: TYPE_ARRAY_P (in RECORD_TYPE).
- 2: CLASS_LOADED_P (in RECORD_TYPE).
+ 2: CLASS_PARSED_P (in RECORD_TYPE).
3: CLASS_FROM_SOURCE_P (in RECORD_TYPE).
4: CLASS_P (in RECORD_TYPE).
5: CLASS_FROM_CURRENTLY_COMPILED_SOURCE_P (in RECORD_TYPE)
- 6: CLASS_HAS_FINIT_P (in RECORD_TYPE)
+ 6: CLASS_BEING_LAIDOUT (in RECORD_TYPE)
Usage of DECL_LANG_FLAG_?:
0: METHOD_DEPRECATED (in FUNCTION_DECL).
6: METHOD_TRANSIENT (in FUNCTION_DECL)
LABEL_CHANGED (in LABEL_DECL)
CLASS_SUPER (in TYPE_DECL, ACC_SUPER flag)
- INITIALIZED_P (in FIELD_DECL, VAR_DECL, PARM_DECL)
+ FIELD_LOCAL_ALIAS (in FIELD_DECL)
7: DECL_CONSTRUCTOR_P (in FUNCTION_DECL).
+ CLASS_STATIC (in TYPE_DECL)
+ FIELD_LOCAL_ALIAS_USED (in FIELD_DECL)
+ FIELD_THISN (in FIELD_DECL)
*/
/* True if the class whose TYPE_BINFO this is has a superclass.
extern int compiling_from_source;
/* The class defined by the actual (main) file we are compiling. */
-extern tree main_class;
+#define main_class \
+ java_global_trees[JTI_MAIN_CLASS]
/* The class we are currently processing. */
-extern tree current_class;
+#define current_class \
+ java_global_trees[JTI_CURRENT_CLASS]
/* List of all class DECLs seen so far. */
-extern tree all_class_list;
+#define all_class_list \
+ java_global_trees[JTI_ALL_CLASS_LIST]
+
+/* List of all class filenames seen so far. */
+#define all_class_filename java_global_trees [JTI_ALL_CLASS_FILENAME]
-/* Nonzero if we want to automatically do array bounds checking;
- on by default. Use -fno-bounds-check to disable. */
+extern int flag_emit_class_files;
-extern int flag_bounds_check;
+extern int flag_filelist_file;
-/* Nonzero if we should make is_compiled_class always return 1 for
- appropriate classes that we're referencing. */
+/* When non zero, assume all native functions are implemented with
+ JNI, not CNI. */
-extern int flag_assume_compiled;
+extern int flag_jni;
-extern int flag_emit_class_files;
+/* When non zero, report the now deprecated empty statements. */
+
+extern int flag_extraneous_semicolon;
+
+/* When non zero, always check for a non gcj generated classes archive. */
+
+extern int flag_force_classes_archive_check;
+
+/* When non zero, we emit xref strings. Values of the flag for xref
+ backends are defined in xref.h. */
+
+extern int flag_emit_xref;
+
+/* When doing xrefs, tell when not to fold. */
+extern int do_not_fold;
/* Turned to 1 if -Wall was encountered. See lang.c for their meanings. */
extern int flag_wall;
extern int flag_not_overriding;
extern int flag_static_local_jdk1_1;
+/* When non zero, warn when source file is newer than matching class
+ file. */
+extern int flag_newer;
+
+/* When non zero, call a library routine to do integer divisions. */
+extern int flag_use_divide_subroutine;
+
+/* When non zero, generate code for the Boehm GC. */
+extern int flag_use_boehm_gc;
+
+/* When non zero, assume the runtime uses a hash table to map an
+ object to its synchronization structure. */
+extern int flag_hash_synchronization;
+
+/* When non zero, generate checks for references to NULL. */
+extern int flag_check_references;
+
+/* Used through STATIC_CLASS_INIT_OPT_P to check whether static
+ initialization optimization should be performed. */
+extern int flag_optimize_sci;
+
+/* Encoding used for source files. */
+extern const char *current_encoding;
+
/* The Java .class file that provides main_class; the main input file. */
-extern struct JCF main_jcf[1], *current_jcf;
+extern struct JCF *current_jcf;
typedef struct CPool constant_pool;
#define COMPONENT_REF_SIGNATURE(CPOOL, IDX) \
NAME_AND_TYPE_SIGNATURE (CPOOL, COMPONENT_REF_NAME_AND_TYPE(CPOOL, IDX))
+enum java_tree_index
+{
+ JTI_PROMOTED_BYTE_TYPE_NODE,
+ JTI_PROMOTED_SHORT_TYPE_NODE,
+ JTI_PROMOTED_CHAR_TYPE_NODE,
+ JTI_PROMOTED_BOOLEAN_TYPE_NODE,
+
+ JTI_BYTE_TYPE_NODE,
+ JTI_SHORT_TYPE_NODE,
+ JTI_INT_TYPE_NODE,
+ JTI_LONG_TYPE_NODE,
+
+ JTI_UNSIGNED_BYTE_TYPE_NODE,
+ JTI_UNSIGNED_SHORT_TYPE_NODE,
+ JTI_UNSIGNED_INT_TYPE_NODE,
+ JTI_UNSIGNED_LONG_TYPE_NODE,
+
+ JTI_BOOLEAN_TYPE_NODE,
+
+ JTI_OBJECT_TYPE_NODE,
+ JTI_UNQUALIFIED_OBJECT_ID_NODE,
+ JTI_OBJECT_PTR_TYPE_NODE,
+ JTI_STRING_TYPE_NODE,
+ JTI_STRING_PTR_TYPE_NODE,
+ JTI_THROWABLE_TYPE_NODE,
+ JTI_RUNTIME_EXCEPTION_TYPE_NODE,
+ JTI_ERROR_EXCEPTION_TYPE_NODE,
+ JTI_RAWDATA_PTR_TYPE_NODE,
+
+ JTI_BYTE_ARRAY_TYPE_NODE,
+ JTI_SHORT_ARRAY_TYPE_NODE,
+ JTI_INT_ARRAY_TYPE_NODE,
+ JTI_LONG_ARRAY_TYPE_NODE,
+ JTI_BOOLEAN_ARRAY_TYPE_NODE,
+ JTI_CHAR_ARRAY_TYPE_NODE,
+ JTI_DOUBLE_ARRAY_TYPE_NODE,
+ JTI_FLOAT_ARRAY_TYPE_NODE,
+ JTI_ARRAY_ARRAY_TYPE_NODE,
+ JTI_OBJECT_ARRAY_TYPE_NODE,
+ JTI_STRING_ARRAY_TYPE_NODE,
+ JTI_BOOLEAN_ARRAY_VTABLE,
+ JTI_BYTE_ARRAY_VTABLE,
+ JTI_CHAR_ARRAY_VTABLE,
+ JTI_SHORT_ARRAY_VTABLE,
+ JTI_INT_ARRAY_VTABLE,
+ JTI_LONG_ARRAY_VTABLE,
+ JTI_FLOAT_ARRAY_VTABLE,
+ JTI_DOUBLE_ARRAY_VTABLE,
+ JTI_TYPE_IDENTIFIER_NODE,
+ JTI_INIT_IDENTIFIER_NODE,
+ JTI_CLINIT_IDENTIFIER_NODE,
+ JTI_FINIT_IDENTIFIER_NODE,
+ JTI_FINIT_LEG_IDENTIFIER_NODE,
+ JTI_VOID_SIGNATURE_NODE,
+ JTI_LENGTH_IDENTIFIER_NODE,
+ JTI_THIS_IDENTIFIER_NODE,
+ JTI_SUPER_IDENTIFIER_NODE,
+ JTI_CONTINUE_IDENTIFIER_NODE,
+ JTI_ACCESS0_IDENTIFIER_NODE,
+ JTI_CLASSDOLLAR_IDENTIFIER_NODE,
+ JTI_ONE_ELT_ARRAY_DOMAIN_TYPE,
+
+ JTI_RETURN_ADDRESS_TYPE_NODE,
+
+ JTI_BOOLEAN_TRUE_NODE,
+ JTI_BOOLEAN_FALSE_NODE,
+
+ JTI_LONG_ZERO_NODE,
+ JTI_FLOAT_ZERO_NODE,
+ JTI_DOUBLE_ZERO_NODE,
+ JTI_INTEGER_TWO_NODE,
+ JTI_INTEGER_FOUR_NODE,
+ JTI_EMPTY_STMT_NODE,
+
+ JTI_METHODTABLE_TYPE,
+ JTI_METHODTABLE_PTR_TYPE,
+
+ JTI_UTF8CONST_TYPE,
+ JTI_UTF8CONST_PTR_TYPE,
+
+ JTI_CLASS_TYPE_NODE,
+ JTI_CLASS_PTR_TYPE,
+ JTI_FIELD_TYPE_NODE,
+ JTI_CONSTANTS_TYPE_NODE,
+ JTI_DTABLE_TYPE,
+ JTI_DTABLE_PTR_TYPE,
+ JTI_FIELD_PTR_TYPE_NODE,
+ JTI_FIELD_INFO_UNION_NODE,
+ JTI_EXCEPTION_TYPE,
+ JTI_EXCEPTION_PTR_TYPE,
+ JTI_LINENUMBERENTRY_TYPE,
+ JTI_LINENUMBERS_TYPE,
+ JTI_METHOD_TYPE_NODE,
+ JTI_METHOD_PTR_TYPE_NODE,
+
+ JTI_END_PARAMS_NODE,
+
+ JTI_THROW_NODE,
+ JTI_ALLOC_OBJECT_NODE,
+ JTI_SOFT_INSTANCEOF_NODE,
+ JTI_SOFT_CHECKCAST_NODE,
+ JTI_SOFT_INITCLASS_NODE,
+ JTI_SOFT_NEWARRAY_NODE,
+ JTI_SOFT_ANEWARRAY_NODE,
+ JTI_SOFT_MULTIANEWARRAY_NODE,
+ JTI_SOFT_BADARRAYINDEX_NODE,
+ JTI_SOFT_NULLPOINTER_NODE,
+ JTI_SOFT_CHECKARRAYSTORE_NODE,
+ JTI_SOFT_MONITORENTER_NODE,
+ JTI_SOFT_MONITOREXIT_NODE,
+ JTI_SOFT_LOOKUPINTERFACEMETHOD_NODE,
+ JTI_SOFT_LOOKUPJNIMETHOD_NODE,
+ JTI_SOFT_GETJNIENVNEWFRAME_NODE,
+ JTI_SOFT_JNIPOPSYSTEMFRAME_NODE,
+ JTI_SOFT_FMOD_NODE,
+ JTI_SOFT_IDIV_NODE,
+ JTI_SOFT_IREM_NODE,
+ JTI_SOFT_LDIV_NODE,
+ JTI_SOFT_LREM_NODE,
+
+ JTI_ACCESS_FLAGS_TYPE_NODE,
+
+ JTI_NATIVECODE_PTR_ARRAY_TYPE_NODE,
+
+ JTI_WFL_OPERATOR,
+ JTI_CURRENT_CONSTANT_POOL_DATA_REF,
+
+ JTI_MAIN_CLASS,
+ JTI_CURRENT_CLASS,
+ JTI_ALL_CLASS_LIST,
+ JTI_ALL_CLASS_FILENAME,
+
+ JTI_MAX
+};
+
+extern tree java_global_trees[JTI_MAX];
+
/* "Promoted types" that are used for primitive types smaller
than int. We could use int_type_node, but then we would lose
type information (such as needed for debugging). */
-extern tree promoted_byte_type_node;
-extern tree promoted_short_type_node;
-extern tree promoted_char_type_node;
-extern tree promoted_boolean_type_node;
-
-extern tree byte_type_node;
-extern tree short_type_node;
-extern tree int_type_node;
-extern tree long_type_node;
-
-extern tree unsigned_byte_type_node;
-extern tree unsigned_short_type_node;
-extern tree unsigned_int_type_node;
-extern tree unsigned_long_type_node;
-
-extern tree boolean_type_node;
-extern tree char_type_node;
-extern tree float_type_node;
-extern tree double_type_node;
-
-extern tree object_type_node;
-extern tree unqualified_object_id_node;
-extern tree object_ptr_type_node;
-extern tree string_type_node;
-extern tree throwable_type_node;
-extern tree runtime_exception_type_node;
-extern tree error_exception_type_node;
-
-extern tree byte_array_type_node;
-extern tree short_array_type_node;
-extern tree int_array_type_node;
-extern tree long_array_type_node;
-extern tree boolean_array_type_node;
-extern tree char_array_type_node;
-extern tree double_array_type_node;
-extern tree float_array_type_node;
-extern tree array_array_type_node;
-extern tree object_array_type_node;
-extern tree string_array_type_node;
-extern tree TYPE_identifier_node; /* "TYPE" */
-extern tree init_identifier_node; /* "<init>" */
-extern tree clinit_identifier_node; /* "<clinit>" */
-extern tree finit_identifier_node; /* "$finit$" */
-extern tree void_signature_node; /* "()V" */
-extern tree length_identifier_node; /* "length" */
-extern tree this_identifier_node; /* "this" */
-extern tree super_identifier_node; /* "super" */
-extern tree one_elt_array_domain_type;
-extern tree void_type_node;
-extern tree ptr_type_node;
+#define promoted_byte_type_node \
+ java_global_trees[JTI_PROMOTED_BYTE_TYPE_NODE]
+#define promoted_short_type_node \
+ java_global_trees[JTI_PROMOTED_SHORT_TYPE_NODE]
+#define promoted_char_type_node \
+ java_global_trees[JTI_PROMOTED_CHAR_TYPE_NODE]
+#define promoted_boolean_type_node \
+ java_global_trees[JTI_PROMOTED_BOOLEAN_TYPE_NODE]
+
+#define byte_type_node \
+ java_global_trees[JTI_BYTE_TYPE_NODE]
+#define short_type_node \
+ java_global_trees[JTI_SHORT_TYPE_NODE]
+#define int_type_node \
+ java_global_trees[JTI_INT_TYPE_NODE]
+#define long_type_node \
+ java_global_trees[JTI_LONG_TYPE_NODE]
+
+#define unsigned_byte_type_node \
+ java_global_trees[JTI_UNSIGNED_BYTE_TYPE_NODE]
+#define unsigned_short_type_node \
+ java_global_trees[JTI_UNSIGNED_SHORT_TYPE_NODE]
+#define unsigned_int_type_node \
+ java_global_trees[JTI_UNSIGNED_INT_TYPE_NODE]
+#define unsigned_long_type_node \
+ java_global_trees[JTI_UNSIGNED_LONG_TYPE_NODE]
+
+#define boolean_type_node \
+ java_global_trees[JTI_BOOLEAN_TYPE_NODE]
+
+#define object_type_node \
+ java_global_trees[JTI_OBJECT_TYPE_NODE]
+#define unqualified_object_id_node \
+ java_global_trees[JTI_UNQUALIFIED_OBJECT_ID_NODE]
+#define object_ptr_type_node \
+ java_global_trees[JTI_OBJECT_PTR_TYPE_NODE]
+#define string_type_node \
+ java_global_trees[JTI_STRING_TYPE_NODE]
+#define string_ptr_type_node \
+ java_global_trees[JTI_STRING_PTR_TYPE_NODE]
+#define throwable_type_node \
+ java_global_trees[JTI_THROWABLE_TYPE_NODE]
+#define runtime_exception_type_node \
+ java_global_trees[JTI_RUNTIME_EXCEPTION_TYPE_NODE]
+#define error_exception_type_node \
+ java_global_trees[JTI_ERROR_EXCEPTION_TYPE_NODE]
+#define rawdata_ptr_type_node \
+ java_global_trees[JTI_RAWDATA_PTR_TYPE_NODE]
+
+#define byte_array_type_node \
+ java_global_trees[JTI_BYTE_ARRAY_TYPE_NODE]
+#define short_array_type_node \
+ java_global_trees[JTI_SHORT_ARRAY_TYPE_NODE]
+#define int_array_type_node \
+ java_global_trees[JTI_INT_ARRAY_TYPE_NODE]
+#define long_array_type_node \
+ java_global_trees[JTI_LONG_ARRAY_TYPE_NODE]
+#define boolean_array_type_node \
+ java_global_trees[JTI_BOOLEAN_ARRAY_TYPE_NODE]
+#define char_array_type_node \
+ java_global_trees[JTI_CHAR_ARRAY_TYPE_NODE]
+#define double_array_type_node \
+ java_global_trees[JTI_DOUBLE_ARRAY_TYPE_NODE]
+#define float_array_type_node \
+ java_global_trees[JTI_FLOAT_ARRAY_TYPE_NODE]
+#define array_array_type_node \
+ java_global_trees[JTI_ARRAY_ARRAY_TYPE_NODE]
+#define object_array_type_node \
+ java_global_trees[JTI_OBJECT_ARRAY_TYPE_NODE]
+#define string_array_type_node \
+ java_global_trees[JTI_STRING_ARRAY_TYPE_NODE]
+#define boolean_array_vtable \
+ java_global_trees[JTI_BOOLEAN_ARRAY_VTABLE]
+#define byte_array_vtable \
+ java_global_trees[JTI_BYTE_ARRAY_VTABLE]
+#define char_array_vtable \
+ java_global_trees[JTI_CHAR_ARRAY_VTABLE]
+#define short_array_vtable \
+ java_global_trees[JTI_SHORT_ARRAY_VTABLE]
+#define int_array_vtable \
+ java_global_trees[JTI_INT_ARRAY_VTABLE]
+#define long_array_vtable \
+ java_global_trees[JTI_LONG_ARRAY_VTABLE]
+#define float_array_vtable \
+ java_global_trees[JTI_FLOAT_ARRAY_VTABLE]
+#define double_array_vtable \
+ java_global_trees[JTI_DOUBLE_ARRAY_VTABLE]
+#define TYPE_identifier_node \
+ java_global_trees[JTI_TYPE_IDENTIFIER_NODE] /* "TYPE" */
+#define init_identifier_node \
+ java_global_trees[JTI_INIT_IDENTIFIER_NODE] /* "<init>" */
+#define clinit_identifier_node \
+ java_global_trees[JTI_CLINIT_IDENTIFIER_NODE] /* "<clinit>" */
+#define finit_identifier_node \
+ java_global_trees[JTI_FINIT_IDENTIFIER_NODE] /* "finit$" */
+#define finit_leg_identifier_node \
+ java_global_trees[JTI_FINIT_LEG_IDENTIFIER_NODE] /* "$finit$" */
+#define void_signature_node \
+ java_global_trees[JTI_VOID_SIGNATURE_NODE] /* "()V" */
+#define length_identifier_node \
+ java_global_trees[JTI_LENGTH_IDENTIFIER_NODE] /* "length" */
+#define this_identifier_node \
+ java_global_trees[JTI_THIS_IDENTIFIER_NODE] /* "this" */
+#define super_identifier_node \
+ java_global_trees[JTI_SUPER_IDENTIFIER_NODE] /* "super" */
+#define continue_identifier_node \
+ java_global_trees[JTI_CONTINUE_IDENTIFIER_NODE] /* "continue" */
+#define access0_identifier_node \
+ java_global_trees[JTI_ACCESS0_IDENTIFIER_NODE] /* "access$0" */
+#define classdollar_identifier_node \
+ java_global_trees[JTI_CLASSDOLLAR_IDENTIFIER_NODE] /* "class$" */
+#define one_elt_array_domain_type \
+ java_global_trees[JTI_ONE_ELT_ARRAY_DOMAIN_TYPE]
/* The type of the return address of a subroutine. */
-extern tree return_address_type_node;
+#define return_address_type_node \
+ java_global_trees[JTI_RETURN_ADDRESS_TYPE_NODE]
/* Nodes for boolean constants TRUE and FALSE. */
-extern tree boolean_true_node, boolean_false_node;
+#define boolean_true_node \
+ java_global_trees[JTI_BOOLEAN_TRUE_NODE]
+#define boolean_false_node \
+ java_global_trees[JTI_BOOLEAN_FALSE_NODE]
/* Integer constants not declared in tree.h. */
-extern tree long_zero_node;
-extern tree float_zero_node;
-extern tree double_zero_node;
-extern tree integer_negative_one_node;
-extern tree integer_two_node;
-extern tree integer_four_node;
-extern tree empty_stmt_node;
+#define long_zero_node \
+ java_global_trees[JTI_LONG_ZERO_NODE]
+#define float_zero_node \
+ java_global_trees[JTI_FLOAT_ZERO_NODE]
+#define double_zero_node \
+ java_global_trees[JTI_DOUBLE_ZERO_NODE]
+#define integer_two_node \
+ java_global_trees[JTI_INTEGER_TWO_NODE]
+#define integer_four_node \
+ java_global_trees[JTI_INTEGER_FOUR_NODE]
+#define empty_stmt_node \
+ java_global_trees[JTI_EMPTY_STMT_NODE]
/* The type for struct methodtable. */
-extern tree methodtable_type;
-extern tree methodtable_ptr_type;
-
-extern tree utf8const_type;
-extern tree utf8const_ptr_type;
-
-extern tree class_type_node;
-extern tree class_ptr_type;
-extern tree field_type_node;
-extern tree constants_type_node;
-extern tree dtable_type, dtable_ptr_type;
-extern tree field_ptr_type_node;
-extern tree field_info_union_node;
-extern tree method_type_node;
-extern tree method_ptr_type_node;
-#define nativecode_ptr_type_node ptr_type_node
-
-extern tree end_params_node;
+#define methodtable_type \
+ java_global_trees[JTI_METHODTABLE_TYPE]
+#define methodtable_ptr_type \
+ java_global_trees[JTI_METHODTABLE_PTR_TYPE]
+
+#define utf8const_type \
+ java_global_trees[JTI_UTF8CONST_TYPE]
+#define utf8const_ptr_type \
+ java_global_trees[JTI_UTF8CONST_PTR_TYPE]
+
+#define class_type_node \
+ java_global_trees[JTI_CLASS_TYPE_NODE]
+#define class_ptr_type \
+ java_global_trees[JTI_CLASS_PTR_TYPE]
+#define field_type_node \
+ java_global_trees[JTI_FIELD_TYPE_NODE]
+#define constants_type_node \
+ java_global_trees[JTI_CONSTANTS_TYPE_NODE]
+#define dtable_type \
+ java_global_trees[JTI_DTABLE_TYPE]
+#define dtable_ptr_type \
+ java_global_trees[JTI_DTABLE_PTR_TYPE]
+#define field_ptr_type_node \
+ java_global_trees[JTI_FIELD_PTR_TYPE_NODE]
+#define field_info_union_node \
+ java_global_trees[JTI_FIELD_INFO_UNION_NODE]
+#define jexception_type \
+ java_global_trees[JTI_EXCEPTION_TYPE]
+#define jexception_ptr_type \
+ java_global_trees[JTI_EXCEPTION_PTR_TYPE]
+#define lineNumberEntry_type \
+ java_global_trees[JTI_LINENUMBERENTRY_TYPE]
+#define lineNumbers_type \
+ java_global_trees[JTI_LINENUMBERS_TYPE]
+#define method_type_node \
+ java_global_trees[JTI_METHOD_TYPE_NODE]
+#define method_ptr_type_node \
+ java_global_trees[JTI_METHOD_PTR_TYPE_NODE]
+
+#define end_params_node \
+ java_global_trees[JTI_END_PARAMS_NODE]
/* References to internal libjava functions we use. */
-extern tree alloc_object_node;
-extern tree soft_instanceof_node;
-extern tree soft_checkcast_node;
-extern tree soft_initclass_node;
-extern tree soft_newarray_node;
-extern tree soft_anewarray_node;
-extern tree soft_multianewarray_node;
-extern tree soft_badarrayindex_node;
-extern tree throw_node;
-extern tree soft_checkarraystore_node;
-extern tree soft_monitorenter_node;
-extern tree soft_monitorexit_node;
-extern tree soft_lookupinterfacemethod_node;
-extern tree soft_fmod_node;
-extern tree soft_exceptioninfo_call_node;
-
-extern tree access_flags_type_node;
-
-extern tree class_dtable_decl;
+#define throw_node \
+ java_global_trees[JTI_THROW_NODE]
+#define alloc_object_node \
+ java_global_trees[JTI_ALLOC_OBJECT_NODE]
+#define soft_instanceof_node \
+ java_global_trees[JTI_SOFT_INSTANCEOF_NODE]
+#define soft_checkcast_node \
+ java_global_trees[JTI_SOFT_CHECKCAST_NODE]
+#define soft_initclass_node \
+ java_global_trees[JTI_SOFT_INITCLASS_NODE]
+#define soft_newarray_node \
+ java_global_trees[JTI_SOFT_NEWARRAY_NODE]
+#define soft_anewarray_node \
+ java_global_trees[JTI_SOFT_ANEWARRAY_NODE]
+#define soft_multianewarray_node \
+ java_global_trees[JTI_SOFT_MULTIANEWARRAY_NODE]
+#define soft_badarrayindex_node \
+ java_global_trees[JTI_SOFT_BADARRAYINDEX_NODE]
+#define soft_nullpointer_node \
+ java_global_trees[JTI_SOFT_NULLPOINTER_NODE]
+#define soft_checkarraystore_node \
+ java_global_trees[JTI_SOFT_CHECKARRAYSTORE_NODE]
+#define soft_monitorenter_node \
+ java_global_trees[JTI_SOFT_MONITORENTER_NODE]
+#define soft_monitorexit_node \
+ java_global_trees[JTI_SOFT_MONITOREXIT_NODE]
+#define soft_lookupinterfacemethod_node \
+ java_global_trees[JTI_SOFT_LOOKUPINTERFACEMETHOD_NODE]
+#define soft_lookupjnimethod_node \
+ java_global_trees[JTI_SOFT_LOOKUPJNIMETHOD_NODE]
+#define soft_getjnienvnewframe_node \
+ java_global_trees[JTI_SOFT_GETJNIENVNEWFRAME_NODE]
+#define soft_jnipopsystemframe_node \
+ java_global_trees[JTI_SOFT_JNIPOPSYSTEMFRAME_NODE]
+#define soft_fmod_node \
+ java_global_trees[JTI_SOFT_FMOD_NODE]
+#define soft_idiv_node \
+ java_global_trees[JTI_SOFT_IDIV_NODE]
+#define soft_irem_node \
+ java_global_trees[JTI_SOFT_IREM_NODE]
+#define soft_ldiv_node \
+ java_global_trees[JTI_SOFT_LDIV_NODE]
+#define soft_lrem_node \
+ java_global_trees[JTI_SOFT_LREM_NODE]
+
+#define access_flags_type_node \
+ java_global_trees[JTI_ACCESS_FLAGS_TYPE_NODE]
+
+#define nativecode_ptr_array_type_node \
+ java_global_trees[JTI_NATIVECODE_PTR_ARRAY_TYPE_NODE]
+
+#define PREDEF_FILENAMES_SIZE 7
+extern tree predef_filenames[PREDEF_FILENAMES_SIZE];
+
+#define nativecode_ptr_type_node ptr_type_node
/* They need to be reset before processing each class */
extern struct CPool *outgoing_cpool;
-extern tree current_constant_pool_data_ref;
+/* If non-NULL, an ADDR_EXPR referencing a VAR_DECL containing
+ the constant data array for the current class. */
+#define current_constant_pool_data_ref \
+ java_global_trees[JTI_CURRENT_CONSTANT_POOL_DATA_REF]
+
+#define wfl_operator \
+ java_global_trees[JTI_WFL_OPERATOR]
-extern tree wfl_operator;
+extern const char *cyclic_inheritance_report;
struct lang_identifier
{
#define DECL_MAX_STACK(DECL) (DECL_LANG_SPECIFIC(DECL)->max_stack)
/* Number of local variable slots needed for the arguments of this function. */
#define DECL_ARG_SLOT_COUNT(DECL) (DECL_LANG_SPECIFIC(DECL)->arg_slot_count)
+/* Information on declaration location */
+#define DECL_FUNCTION_WFL(DECL) (DECL_LANG_SPECIFIC(DECL)->wfl)
/* List of checked thrown exceptions, as specified with the `throws'
keyword */
#define DECL_FUNCTION_THROWS(DECL) (DECL_LANG_SPECIFIC(DECL)->throws_list)
calls */
#define DECL_CONSTRUCTOR_CALLS(DECL) \
(DECL_LANG_SPECIFIC(DECL)->called_constructor)
+/* When the function is an access function, the DECL it was trying to
+ access */
+#define DECL_FUNCTION_ACCESS_DECL(DECL) \
+ (DECL_LANG_SPECIFIC(DECL)->called_constructor)
+/* The identifier of the access method used to invoke this method from
+ an inner class. */
+#define DECL_FUNCTION_INNER_ACCESS(DECL) \
+ (DECL_LANG_SPECIFIC(DECL)->inner_access)
/* Pointer to the function's current's COMPOUND_EXPR tree (while
completing its body) or the function's block */
#define DECL_FUNCTION_BODY(DECL) (DECL_LANG_SPECIFIC(DECL)->function_decl_body)
/* How specific the function is (for method selection - Java source
code front-end */
#define DECL_SPECIFIC_COUNT(DECL) DECL_ARG_SLOT_COUNT(DECL)
+/* For each function decl, init_test_table contains a hash table whose
+ entries are keyed on class names, and whose values are local
+ boolean decls. The variables are intended to be TRUE when the
+ class has been initialized in this function, and FALSE otherwise. */
+#define DECL_FUNCTION_INIT_TEST_TABLE(DECL) \
+ (DECL_LANG_SPECIFIC(DECL)->init_test_table)
+/* For each static function decl, itc contains a hash table whose
+ entries are keyed on class named that are definitively initialized
+ in DECL. */
+#define DECL_FUNCTION_INITIALIZED_CLASS_TABLE(DECL) \
+ (DECL_LANG_SPECIFIC(DECL)->ict)
+/* For each static function call, smic contains contains a hash table
+ whose entries are keyed on the compound statement that encapsulate
+ the invocation. */
+#define DECL_FUNCTION_STATIC_METHOD_INVOCATION_COMPOUND(DECL) \
+ (DECL_LANG_SPECIFIC(DECL)->smic)
+/* The Number of Artificial Parameters (NAP) DECL contains. this$<n>
+ is excluded, because sometimes created as a parameter before the
+ function decl exists. */
+#define DECL_FUNCTION_NAP(DECL) (DECL_LANG_SPECIFIC(DECL)->nap)
+/* True if DECL is a synthetic ctor. */
+#define DECL_FUNCTION_SYNTHETIC_CTOR(DECL) \
+ (DECL_LANG_SPECIFIC(DECL)->synthetic_ctor)
+/* True if DECL initializes all its finals */
+#define DECL_FUNCTION_ALL_FINAL_INITIALIZED(DECL) \
+ (DECL_LANG_SPECIFIC(DECL)->init_final)
+#define DECL_FIXED_CONSTRUCTOR_P(DECL) (DECL_LANG_SPECIFIC(DECL)->fixed_ctor)
+
+/* True when DECL aliases an outer context local variable. */
+#define FIELD_LOCAL_ALIAS(DECL) DECL_LANG_FLAG_6 (DECL)
+
+/* True when DECL, which aliases an outer context local variable is
+ used by the inner classe */
+#define FIELD_LOCAL_ALIAS_USED(DECL) DECL_LANG_FLAG_7 (DECL)
+
+/* True when DECL is a this$<n> field. Note that
+ FIELD_LOCAL_ALIAS_USED can be differenciated when tested against
+ FIELD_LOCAL_ALIAS. */
+#define FIELD_THISN(DECL) DECL_LANG_FLAG_7 (DECL)
/* In a LABEL_DECL, a TREE_VEC that saves the type_map at that point. */
#define LABEL_TYPE_STATE(NODE) (DECL_INITIAL (NODE))
#define LABEL_RETURN_TYPE_STATE(NODE) LABEL_TYPE_STATE (LABEL_RETURN_LABEL (NODE))
/* In a TREE_VEC for a LABEL_RETURN_TYPE_STATE, notes that
- TREE_VEC_LENGTH has been adjust to the correct stack size. */
+ TREE_VEC_LENGTH has been adjusted to the correct stack size. */
#define RETURN_MAP_ADJUSTED(NODE) TREE_LANG_FLAG_2(NODE)
/* In the label of a sub-routine, a chain of the return location labels. */
-#define LABEL_RETURN_LABELS(node) DECL_RESULT (LABEL_RETURN_LABEL(node))
+#define LABEL_RETURN_LABELS(node) \
+ (LABEL_DECL_CHECK (LABEL_RETURN_LABEL(node))->decl.result)
/* In a LABEL_DECL, the next pending label.
See pending_blocks in expr.c. */
-#define LABEL_PENDING_CHAIN(NODE) DECL_RESULT(NODE)
+#define LABEL_PENDING_CHAIN(NODE) (LABEL_DECL_CHECK (NODE)->decl.result)
/* In a LABEL_DECL, the corresponding bytecode program counter. */
-#define LABEL_PC(NODE) ((NODE)->decl.saved_insns.i)
+#define LABEL_PC(NODE) ((NODE)->decl.u2.i)
/* Used during verification to mark the label has "changed". (See JVM Spec). */
#define LABEL_CHANGED(NODE) DECL_LANG_FLAG_6(NODE)
slot_number in decl_map. */
#define DECL_LOCAL_SLOT_CHAIN(NODE) \
(((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->slot_chain)
+/* For a FIELD_DECL, holds the name of the access method. Used to
+ read/write the content of the field from an inner class. */
+#define FIELD_INNER_ACCESS(DECL) \
+ (((struct lang_decl_var*)DECL_LANG_SPECIFIC(DECL))->am)
+/* Safely tests whether FIELD_INNER_ACCESS exists or not. */
+#define FIELD_INNER_ACCESS_P(DECL) \
+ DECL_LANG_SPECIFIC (DECL) && FIELD_INNER_ACCESS (DECL)
+/* True if a final variable was initialized upon its declaration. */
+#define DECL_FIELD_FINAL_IUD(NODE) \
+ (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->final_iud)
+/* Set to true if a final variable is seen locally initialized on a
+ ctor. */
+#define DECL_FIELD_FINAL_LIIC(NODE) \
+ (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->final_liic)
+/* Set to true if an initialization error was already found with this
+ final variable. */
+#define DECL_FIELD_FINAL_IERR(NODE) \
+ (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->final_ierr)
+/* The original WFL of a final variable. */
+#define DECL_FIELD_FINAL_WFL(NODE) \
+ (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->wfl)
+/* True if NODE is a local final (as opposed to a final variable.)
+ This macro accesses the flag to read or set it. */
+#define LOCAL_FINAL(NODE) \
+ (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->local_final)
+/* True if NODE is a local final. */
+#define LOCAL_FINAL_P(NODE) (DECL_LANG_SPECIFIC (NODE) && LOCAL_FINAL (NODE))
+/* True if NODE is a final variable. */
+#define FINAL_VARIABLE_P(NODE) (FIELD_FINAL (NODE) && !FIELD_STATIC (NODE))
+/* True if NODE is a class final variable. */
+#define CLASS_FINAL_VARIABLE_P(NODE) \
+ (FIELD_FINAL (NODE) && FIELD_STATIC (NODE))
+/* True if NODE is a class initialization flag. This macro accesses
+ the flag to read or set it. */
+#define LOCAL_CLASS_INITIALIZATION_FLAG(NODE) \
+ (((struct lang_decl_var*)DECL_LANG_SPECIFIC(NODE))->cif)
+/* True if NODE is a class initialization flag. */
+#define LOCAL_CLASS_INITIALIZATION_FLAG_P(NODE) \
+ (DECL_LANG_SPECIFIC (NODE) && LOCAL_CLASS_INITIALIZATION_FLAG(NODE))
+/* Create a DECL_LANG_SPECIFIC if necessary. */
+#define MAYBE_CREATE_VAR_LANG_DECL_SPECIFIC(T) \
+ if (DECL_LANG_SPECIFIC (T) == NULL) \
+ { \
+ DECL_LANG_SPECIFIC ((T)) \
+ = ((struct lang_decl *) \
+ ggc_alloc_cleared (sizeof (struct lang_decl_var))); \
+ }
+
+/* A ConstantExpression, after folding and name resolution. */
+#define CONSTANT_VALUE_P(NODE) \
+ (TREE_CODE (NODE) == STRING_CST \
+ || (TREE_CODE (NODE) == INTEGER_CST \
+ && TREE_CODE (TREE_TYPE (NODE)) != POINTER_TYPE) \
+ || TREE_CODE (NODE) == REAL_CST)
+
+/* For a local VAR_DECL, holds the index into a words bitstring that
+ specifies if this decl is definitively assigned.
+ A DECL_BIT_INDEX of -1 means we no longer care. */
+#define DECL_BIT_INDEX(DECL) (DECL_CHECK (DECL)->decl.u2.i)
/* DECL_LANG_SPECIFIC for FUNCTION_DECLs. */
struct lang_decl
long localvariables_offset;
int arg_slots;
int max_locals, max_stack, arg_slot_count;
+ tree wfl; /* Information on the original location */
tree throws_list; /* Exception specified by `throws' */
tree function_decl_body; /* Hold all function's statements */
tree called_constructor; /* When decl is a constructor, the
- list of other constructor it calls. */
+ list of other constructor it calls */
+ struct hash_table init_test_table;
+ /* Class initialization test variables */
+ struct hash_table ict; /* Initialized (static) Class Table */
+ struct hash_table smic; /* Static method invocation compound */
+ tree inner_access; /* The identifier of the access method
+ used for invocation from inner classes */
+ int nap; /* Number of artificial parameters */
+ int native : 1; /* Nonzero if this is a native method */
+ int synthetic_ctor : 1; /* Nonzero if this is a synthetic ctor */
+ int init_final : 1; /* Nonzero all finals are initialized */
+ int fixed_ctor : 1;
};
-/* DECL_LANG_SPECIFIC for VAR_DECL and PARM_DECL. */
+/* init_test_table hash table entry structure. */
+struct init_test_hash_entry
+{
+ struct hash_entry root;
+ tree init_test_decl;
+};
+
+/* DECL_LANG_SPECIFIC for VAR_DECL, PARM_DECL and sometimes FIELD_DECL
+ (access methods on outer class fields) and final fields. */
struct lang_decl_var
{
int slot_number;
int start_pc;
int end_pc;
tree slot_chain;
+ tree am; /* Access method for this field (1.1) */
+ tree wfl; /* Original wfl */
+ int final_iud : 1; /* Final initialized upon declaration */
+ int final_liic : 1; /* Final locally initialized in ctors */
+ int final_ierr : 1; /* Initialization error already detected */
+ int local_final : 1; /* True if the decl is a local final */
+ int cif : 1; /* True: decl is a class initialization flag */
};
+/* Macro to access fields in `struct lang_type'. */
+
+#define TYPE_SIGNATURE(T) (TYPE_LANG_SPECIFIC(T)->signature)
+#define TYPE_JCF(T) (TYPE_LANG_SPECIFIC(T)->jcf)
+#define TYPE_CPOOL(T) (TYPE_LANG_SPECIFIC(T)->cpool)
+#define TYPE_CPOOL_DATA_REF(T) (TYPE_LANG_SPECIFIC(T)->cpool_data_ref)
+#define MAYBE_CREATE_TYPE_TYPE_LANG_SPECIFIC(T) \
+ if (TYPE_LANG_SPECIFIC ((T)) == NULL) \
+ { \
+ TYPE_LANG_SPECIFIC ((T)) = \
+ ((struct lang_type *) \
+ ggc_alloc_cleared (sizeof (struct lang_type))); \
+ }
+
+#define TYPE_FINIT_STMT_LIST(T) (TYPE_LANG_SPECIFIC(T)->finit_stmt_list)
+#define TYPE_CLINIT_STMT_LIST(T) (TYPE_LANG_SPECIFIC(T)->clinit_stmt_list)
+#define TYPE_II_STMT_LIST(T) (TYPE_LANG_SPECIFIC(T)->ii_block)
+/* The decl of the synthetic method `class$' used to handle `.class'
+ for non primitive types when compiling to bytecode. */
+#define TYPE_DOT_CLASS(T) (TYPE_LANG_SPECIFIC(T)->dot_class)
+#define TYPE_PACKAGE_LIST(T) (TYPE_LANG_SPECIFIC(T)->package_list)
+#define TYPE_PRIVATE_INNER_CLASS(T) (TYPE_LANG_SPECIFIC(T)->pic)
+#define TYPE_PROTECTED_INNER_CLASS(T) (TYPE_LANG_SPECIFIC(T)->poic)
+#define TYPE_HAS_FINAL_VARIABLE(T) (TYPE_LANG_SPECIFIC(T)->afv)
+
struct lang_type
{
tree signature;
struct JCF *jcf;
+ struct CPool *cpool;
+ tree cpool_data_ref; /* Cached */
+ tree finit_stmt_list; /* List of statements $finit$ will use */
+ tree clinit_stmt_list; /* List of statements <clinit> will use */
+ tree ii_block; /* Instance initializer block */
+ tree dot_class; /* The decl of the `class$' function that
+ needs to be invoked and generated when
+ compiling to bytecode to implement
+ <non_primitive_type>.class */
+ tree package_list; /* List of package names, progressive */
+ unsigned pic:1; /* Private Inner Class. */
+ unsigned poic:1; /* Protected Inner Class. */
+ unsigned afv:1; /* Has final variables */
};
#ifdef JAVA_USE_HANDLES
#define JCF_u4 unsigned long
#define JCF_u2 unsigned short
-extern tree lookup_class PROTO ((tree));
-extern tree lookup_java_constructor PROTO ((tree, tree));
-extern tree lookup_java_method PROTO ((tree, tree, tree));
-extern tree lookup_argument_method PROTO ((tree, tree, tree));
-extern tree promote_type PROTO ((tree));
-extern tree get_constant PROTO ((struct JCF*, int));
-extern tree get_name_constant PROTO ((struct JCF*, int));
-extern tree get_class_constant PROTO ((struct JCF*, int));
-extern tree parse_signature PROTO ((struct JCF *jcf, int sig_index));
-extern void jcf_parse PROTO ((struct JCF*));
-extern tree add_field PROTO ((tree, tree, tree, int));
-extern tree add_method PROTO ((tree, int, tree, tree));
-extern tree add_method_1 PROTO ((tree, int, tree, tree));
-extern tree make_class ();
-extern tree push_class PROTO ((tree, tree));
-extern tree unmangle_classname PROTO ((const char *name, int name_length));
-extern tree parse_signature_string PROTO ((const unsigned char *, int));
-extern tree get_type_from_signature PROTO ((tree));
-extern void layout_class PROTO ((tree));
-extern tree layout_class_method PROTO ((tree, tree, tree, tree));
-extern void layout_class_methods PROTO ((tree));
-extern tree make_class ();
-extern tree build_class_ref PROTO ((tree));
-extern tree build_dtable_decl PROTO ((tree));
-extern tree build_internal_class_name PROTO ((tree));
-extern tree build_constants_constructor ();
-extern tree build_ref_from_constant_pool PROTO ((int));
-extern tree build_utf8_ref PROTO ((tree));
-extern tree ident_subst PROTO ((const char*, int,
+extern void add_assume_compiled PARAMS ((const char *, int));
+extern tree lookup_class PARAMS ((tree));
+extern tree lookup_java_constructor PARAMS ((tree, tree));
+extern tree lookup_java_method PARAMS ((tree, tree, tree));
+extern tree lookup_argument_method PARAMS ((tree, tree, tree));
+extern tree lookup_argument_method2 PARAMS ((tree, tree, tree));
+extern int has_method PARAMS ((tree, tree));
+extern tree promote_type PARAMS ((tree));
+extern tree get_constant PARAMS ((struct JCF*, int));
+extern tree get_name_constant PARAMS ((struct JCF*, int));
+extern tree get_class_constant PARAMS ((struct JCF*, int));
+extern tree parse_signature PARAMS ((struct JCF *jcf, int sig_index));
+extern tree add_field PARAMS ((tree, tree, tree, int));
+extern tree add_method PARAMS ((tree, int, tree, tree));
+extern tree add_method_1 PARAMS ((tree, int, tree, tree));
+extern tree make_class PARAMS ((void));
+extern tree push_class PARAMS ((tree, tree));
+extern tree unmangle_classname PARAMS ((const char *name, int name_length));
+extern tree parse_signature_string PARAMS ((const unsigned char *, int));
+extern tree get_type_from_signature PARAMS ((tree));
+extern void layout_class PARAMS ((tree));
+extern tree layout_class_method PARAMS ((tree, tree, tree, tree));
+extern void layout_class_methods PARAMS ((tree));
+extern tree build_class_ref PARAMS ((tree));
+extern tree build_dtable_decl PARAMS ((tree));
+extern tree build_internal_class_name PARAMS ((tree));
+extern tree build_constants_constructor PARAMS ((void));
+extern tree build_ref_from_constant_pool PARAMS ((int));
+extern tree build_utf8_ref PARAMS ((tree));
+extern tree ident_subst PARAMS ((const char*, int,
const char*, int, int, const char*));
-extern tree identifier_subst PROTO ((const tree,
+extern tree identifier_subst PARAMS ((const tree,
const char *, int, int, const char *));
-extern tree build_java_signature PROTO ((tree));
-extern tree build_java_argument_signature PROTO ((tree));
-extern void set_java_signature PROTO ((tree, tree));
-extern tree build_static_field_ref PROTO ((tree));
-extern tree build_address_of PROTO ((tree));
-extern tree find_local_variable PROTO ((int index, tree type, int pc));
-extern tree find_stack_slot PROTO ((int index, tree type));
-extern tree build_prim_array_type PROTO ((tree, HOST_WIDE_INT));
-extern tree build_java_array_type PROTO ((tree, HOST_WIDE_INT));
-extern int is_compiled_class PROTO ((tree));
-extern tree mangled_classname PROTO ((const char*, tree));
-extern tree lookup_label PROTO ((int));
-extern tree pop_type PROTO ((tree));
-extern void pop_argument_types PROTO ((tree));
-extern tree decode_newarray_type PROTO ((int));
-extern tree lookup_field PROTO ((tree*, tree));
-extern int is_array_type_p PROTO ((tree));
-extern HOST_WIDE_INT java_array_type_length PROTO ((tree));
-extern int read_class PROTO ((tree));
-extern void load_class PROTO ((tree, int));
-
-extern tree lookup_name PROTO ((tree));
-extern tree build_known_method_ref PROTO ((tree, tree, tree, tree, tree));
-extern tree build_class_init PROTO ((tree, tree));
-extern tree build_invokevirtual PROTO ((tree, tree));
-extern tree build_invokeinterface PROTO ((tree, tree, tree));
-extern tree invoke_build_dtable PROTO ((int, tree));
-extern tree build_field_ref PROTO ((tree, tree, tree));
-extern void pushdecl_force_head PROTO ((tree));
-extern tree build_java_binop PROTO ((enum tree_code, tree, tree, tree));
-extern tree binary_numeric_promotion PROTO ((tree, tree, tree *, tree *));
-extern tree build_java_arrayaccess PROTO ((tree, tree, tree));
-extern tree build_newarray PROTO ((int, tree));
-extern tree build_anewarray PROTO ((tree, tree));
-extern tree build_new_array PROTO ((tree, tree));
-extern tree build_java_array_length_access PROTO ((tree));
-extern tree build_java_arraynull_check PROTO ((tree, tree, tree));
-extern tree create_label_decl PROTO ((tree));
-extern void push_labeled_block PROTO ((tree));
-extern tree prepare_eh_table_type PROTO ((tree));
-extern void java_set_exception_lang_code PROTO (());
-extern tree generate_name PROTO ((void));
-extern void pop_labeled_block PROTO (());
-extern char *lang_printable_name PROTO ((tree, int));
-extern tree maybe_add_interface PROTO ((tree, tree));
-extern void set_super_info PROTO ((int, tree, tree, int));
-extern int get_access_flags_from_decl PROTO ((tree));
-extern int interface_of_p PROTO ((tree, tree));
-extern int inherits_from_p PROTO ((tree, tree));
-extern void complete_start_java_method PROTO ((tree));
-extern tree build_result_decl PROTO ((tree));
-extern void emit_handlers PROTO (());
-extern void init_outgoing_cpool PROTO (());
-extern void make_class_data PROTO ((tree));
-extern void register_class PROTO (());
-extern int alloc_name_constant PROTO ((int, tree));
-extern void emit_register_classes PROTO (());
-extern void lang_init_source PROTO ((int));
-extern void write_classfile PROTO ((tree));
-extern char *print_int_node PROTO ((tree));
-extern void parse_error_context PVPROTO ((tree cl, const char *, ...))
+extern tree build_java_signature PARAMS ((tree));
+extern tree build_java_argument_signature PARAMS ((tree));
+extern void set_java_signature PARAMS ((tree, tree));
+extern tree build_static_field_ref PARAMS ((tree));
+extern tree build_address_of PARAMS ((tree));
+extern tree find_local_variable PARAMS ((int index, tree type, int pc));
+extern tree find_stack_slot PARAMS ((int index, tree type));
+extern tree build_prim_array_type PARAMS ((tree, HOST_WIDE_INT));
+extern tree build_java_array_type PARAMS ((tree, HOST_WIDE_INT));
+extern int is_compiled_class PARAMS ((tree));
+extern tree mangled_classname PARAMS ((const char*, tree));
+extern tree lookup_label PARAMS ((int));
+extern tree pop_type_0 PARAMS ((tree, char**));
+extern tree pop_type PARAMS ((tree));
+extern tree decode_newarray_type PARAMS ((int));
+extern tree lookup_field PARAMS ((tree*, tree));
+extern int is_array_type_p PARAMS ((tree));
+extern HOST_WIDE_INT java_array_type_length PARAMS ((tree));
+extern int read_class PARAMS ((tree));
+extern void load_class PARAMS ((tree, int));
+
+extern tree lookup_name PARAMS ((tree));
+extern tree build_known_method_ref PARAMS ((tree, tree, tree, tree, tree));
+extern tree build_class_init PARAMS ((tree, tree));
+extern tree build_invokevirtual PARAMS ((tree, tree));
+extern tree build_invokeinterface PARAMS ((tree, tree));
+extern tree build_jni_stub PARAMS ((tree));
+extern tree invoke_build_dtable PARAMS ((int, tree));
+extern tree build_field_ref PARAMS ((tree, tree, tree));
+extern void pushdecl_force_head PARAMS ((tree));
+extern tree build_java_binop PARAMS ((enum tree_code, tree, tree, tree));
+extern tree build_java_soft_divmod PARAMS ((enum tree_code, tree, tree, tree));
+extern tree binary_numeric_promotion PARAMS ((tree, tree, tree *, tree *));
+extern tree build_java_arrayaccess PARAMS ((tree, tree, tree));
+extern tree build_newarray PARAMS ((int, tree));
+extern tree build_anewarray PARAMS ((tree, tree));
+extern tree build_new_array PARAMS ((tree, tree));
+extern tree build_java_array_length_access PARAMS ((tree));
+extern tree build_java_arraynull_check PARAMS ((tree, tree, tree));
+extern tree build_java_indirect_ref PARAMS ((tree, tree, int));
+extern tree java_check_reference PARAMS ((tree, int));
+extern tree build_get_class PARAMS ((tree));
+extern tree build_instanceof PARAMS ((tree, tree));
+extern tree create_label_decl PARAMS ((tree));
+extern void push_labeled_block PARAMS ((tree));
+extern tree prepare_eh_table_type PARAMS ((tree));
+extern tree build_exception_object_ref PARAMS ((tree));
+extern void java_set_exception_lang_code PARAMS ((void));
+extern tree generate_name PARAMS ((void));
+extern void pop_labeled_block PARAMS ((void));
+extern const char *lang_printable_name PARAMS ((tree, int));
+extern tree maybe_add_interface PARAMS ((tree, tree));
+extern void set_super_info PARAMS ((int, tree, tree, int));
+extern void set_class_decl_access_flags PARAMS ((int, tree));
+extern int get_access_flags_from_decl PARAMS ((tree));
+extern int interface_of_p PARAMS ((tree, tree));
+extern int inherits_from_p PARAMS ((tree, tree));
+extern int common_enclosing_context_p PARAMS ((tree, tree));
+extern int enclosing_context_p PARAMS ((tree, tree));
+extern void complete_start_java_method PARAMS ((tree));
+extern tree build_result_decl PARAMS ((tree));
+extern void emit_handlers PARAMS ((void));
+extern void init_outgoing_cpool PARAMS ((void));
+extern void make_class_data PARAMS ((tree));
+extern void register_class PARAMS ((void));
+extern int alloc_name_constant PARAMS ((int, tree));
+extern void emit_register_classes PARAMS ((void));
+extern void lang_init_source PARAMS ((int));
+extern void write_classfile PARAMS ((tree));
+extern char *print_int_node PARAMS ((tree));
+extern void parse_error_context PARAMS ((tree cl, const char *, ...))
ATTRIBUTE_PRINTF_2;
-extern tree build_primtype_type_ref PROTO ((char *));
-extern tree java_get_real_method_name PROTO ((tree));
-extern void finish_class PROTO ((tree));
-extern void java_layout_seen_class_methods PROTO (());
-extern void check_for_initialization PROTO ((tree));
-
-extern tree pushdecl_top_level PROTO ((tree));
-extern int alloc_class_constant PROTO ((tree));
-extern int unicode_mangling_length PROTO ((char *, int));
-extern void init_expr_processing PROTO ((void));
-extern void push_super_field PROTO ((tree, tree));
-extern void init_class_processing PROTO ((void));
-extern int can_widen_reference_to PROTO ((tree, tree));
-extern int class_depth PROTO ((tree));
-extern int verify_jvm_instructions PROTO ((struct JCF *, unsigned char *, long));
-extern void maybe_pushlevels PROTO ((int));
-extern void maybe_poplevels PROTO ((int));
-extern int process_jvm_instruction PROTO ((int, unsigned char *, long));
-extern void set_local_type PROTO ((int, tree));
-extern int merge_type_state PROTO ((tree));
-extern void push_type PROTO ((tree));
-extern void load_type_state PROTO ((tree));
-extern void add_interface PROTO ((tree, tree));
-extern int find_in_current_zip PROTO ((char *, int, struct JCF **));
-extern void append_gpp_mangled_classtype PROTO ((struct obstack *, char *));
-extern void emit_unicode_mangled_name PROTO ((struct obstack *, char *, int));
-extern tree force_evaluation_order PROTO ((tree));
+extern tree build_primtype_type_ref PARAMS ((const char *));
+extern void finish_class PARAMS ((void));
+extern void java_layout_seen_class_methods PARAMS ((void));
+extern unsigned int check_for_initialization PARAMS ((tree));
+
+extern tree pushdecl_top_level PARAMS ((tree));
+extern int alloc_class_constant PARAMS ((tree));
+extern void init_expr_processing PARAMS ((void));
+extern void push_super_field PARAMS ((tree, tree));
+extern void init_class_processing PARAMS ((void));
+extern int can_widen_reference_to PARAMS ((tree, tree));
+extern int class_depth PARAMS ((tree));
+extern int verify_jvm_instructions PARAMS ((struct JCF *, const unsigned char *, long));
+extern void maybe_pushlevels PARAMS ((int));
+extern void maybe_poplevels PARAMS ((int));
+extern void force_poplevels PARAMS ((int));
+extern int process_jvm_instruction PARAMS ((int, const unsigned char *, long));
+extern int maybe_adjust_start_pc PARAMS ((struct JCF *, int, int, int));
+extern void set_local_type PARAMS ((int, tree));
+extern int merge_type_state PARAMS ((tree));
+extern int push_type_0 PARAMS ((tree));
+extern void push_type PARAMS ((tree));
+extern void load_type_state PARAMS ((tree));
+extern void add_interface PARAMS ((tree, tree));
+extern tree force_evaluation_order PARAMS ((tree));
+extern int verify_constant_pool PARAMS ((struct JCF *));
+extern void start_java_method PARAMS ((tree));
+extern void end_java_method PARAMS ((void));
+extern void give_name_to_locals PARAMS ((struct JCF *));
+extern void note_instructions PARAMS ((struct JCF *, tree));
+extern void expand_byte_code PARAMS ((struct JCF *, tree));
+extern int open_in_zip PARAMS ((struct JCF *, const char *, const char *, int));
+extern void set_constant_value PARAMS ((tree, tree));
+#ifdef jword
+extern int find_constant1 PARAMS ((struct CPool *, int, jword));
+extern int find_constant2 PARAMS ((struct CPool *, int, jword, jword));
+#endif
+extern int find_utf8_constant PARAMS ((struct CPool *, tree));
+extern int find_string_constant PARAMS ((struct CPool *, tree));
+extern int find_class_constant PARAMS ((struct CPool *, tree));
+extern int find_fieldref_index PARAMS ((struct CPool *, tree));
+extern int find_methodref_index PARAMS ((struct CPool *, tree));
+extern int find_methodref_with_class_index PARAMS ((struct CPool *, tree, tree));
+extern void write_constant_pool PARAMS ((struct CPool *, unsigned char *, int));
+extern int count_constant_pool_bytes PARAMS ((struct CPool *));
+extern int encode_newarray_type PARAMS ((tree));
+#ifdef uint64
+extern void format_int PARAMS ((char *, jlong, int));
+extern void format_uint PARAMS ((char *, uint64, int));
+#endif
+extern void jcf_trim_old_input PARAMS ((struct JCF *));
+#ifdef BUFSIZ
+extern void jcf_print_utf8 PARAMS ((FILE *, const unsigned char *, int));
+extern void jcf_print_char PARAMS ((FILE *, int));
+extern void jcf_print_utf8_replace PARAMS ((FILE *, const unsigned char *,
+ int, int, int));
+# if JCF_USE_STDIO
+extern const char* open_class PARAMS ((const char *, struct JCF *,
+ FILE *, const char *));
+# else
+extern const char* open_class PARAMS ((const char *, struct JCF *,
+ int, const char *));
+# endif /* JCF_USE_STDIO */
+#endif
+extern void java_debug_context PARAMS ((void));
+extern void safe_layout_class PARAMS ((tree));
+
+extern tree get_boehm_type_descriptor PARAMS ((tree));
+extern unsigned long java_hash_hash_tree_node PARAMS ((hash_table_key));
+extern bool java_hash_compare_tree_node PARAMS ((hash_table_key,
+ hash_table_key));
+extern bool attach_initialized_static_class PARAMS ((struct hash_entry *,
+ PTR));
+extern void java_check_methods PARAMS ((tree));
+extern void init_jcf_parse PARAMS((void));
+extern void init_src_parse PARAMS((void));
+
+extern int cxx_keyword_p PARAMS ((const char *, int));
+extern tree java_mangle_decl PARAMS ((struct obstack *, tree));
+extern tree java_mangle_class_field PARAMS ((struct obstack *, tree));
+extern tree java_mangle_class_field_from_string PARAMS ((struct obstack *, char *));
+extern tree java_mangle_vtable PARAMS ((struct obstack *, tree));
+extern const char *lang_printable_name_wls PARAMS ((tree, int));
+extern void append_gpp_mangled_name PARAMS ((const char *, int));
+
+/* We use ARGS_SIZE_RTX to indicate that gcc/expr.h has been included
+ to declare `enum expand_modifier'. */
+#if defined (TREE_CODE) && defined(RTX_CODE) && defined (HAVE_MACHINE_MODES) && defined (ARGS_SIZE_RTX)
+struct rtx_def * java_lang_expand_expr PARAMS ((tree, rtx, enum machine_mode,
+ enum expand_modifier));
+#endif /* TREE_CODE && RTX_CODE && HAVE_MACHINE_MODES && ARGS_SIZE_RTX */
/* Access flags etc for a method (a FUNCTION_DECL): */
#define METHOD_STATIC(DECL) DECL_LANG_FLAG_2 (DECL)
#define METHOD_FINAL(DECL) DECL_LANG_FLAG_3 (DECL)
#define METHOD_SYNCHRONIZED(DECL) DECL_LANG_FLAG_4 (DECL)
-#define METHOD_NATIVE(DECL) DECL_EXTERNAL(DECL)
+#define METHOD_NATIVE(DECL) (DECL_LANG_SPECIFIC(DECL)->native)
#define METHOD_ABSTRACT(DECL) DECL_LANG_FLAG_5 (DECL)
#define METHOD_TRANSIENT(DECL) DECL_LANG_FLAG_6 (DECL)
+#define JAVA_FILE_P(NODE) TREE_LANG_FLAG_2 (NODE)
+#define CLASS_FILE_P(NODE) TREE_LANG_FLAG_3 (NODE)
+#define ZIP_FILE_P(NODE) TREE_LANG_FLAG_4 (NODE)
+
+/* Other predicates on method decls */
+
#define DECL_CONSTRUCTOR_P(DECL) DECL_LANG_FLAG_7(DECL)
+#define DECL_INIT_P(DECL) (ID_INIT_P (DECL_NAME (DECL)))
+#define DECL_FINIT_P(DECL) (ID_FINIT_P (DECL_NAME (DECL)))
+#define DECL_CLINIT_P(DECL) (ID_CLINIT_P (DECL_NAME (DECL)))
+
+/* Predicates on method identifiers. Kept close to other macros using
+ them */
+#define ID_INIT_P(ID) ((ID) == init_identifier_node)
+/* Match ID to either `$finit$' or `finit$', so that `$finit$'
+ continues to be recognized as an equivalent to `finit$' which is
+ now the prefered name used for the field initialization special
+ method. */
+#define ID_FINIT_P(ID) ((ID) == finit_identifier_node \
+ || (ID) == finit_leg_identifier_node)
+#define ID_CLINIT_P(ID) ((ID) == clinit_identifier_node)
+#define ID_CLASSDOLLAR_P(ID) ((ID) == classdollar_identifier_node)
+
/* Access flags etc for a variable/field (a FIELD_DECL): */
#define FIELD_PRIVATE(DECL) TREE_PRIVATE (DECL)
#define FIELD_VOLATILE(DECL) DECL_LANG_FLAG_4 (DECL)
#define FIELD_TRANSIENT(DECL) DECL_LANG_FLAG_5 (DECL)
-/* Initialized flag on variable/field/parm decl */
-
-#define INITIALIZED_P(DECL) DECL_LANG_FLAG_6 (DECL)
-
/* Access flags etc for a class (a TYPE_DECL): */
#define CLASS_PUBLIC(DECL) DECL_LANG_FLAG_1 (DECL)
#define CLASS_INTERFACE(DECL) DECL_LANG_FLAG_4 (DECL)
#define CLASS_ABSTRACT(DECL) DECL_LANG_FLAG_5 (DECL)
#define CLASS_SUPER(DECL) DECL_LANG_FLAG_6 (DECL)
+#define CLASS_STATIC(DECL) DECL_LANG_FLAG_7 (DECL)
+#define CLASS_PRIVATE(DECL) (TYPE_PRIVATE_INNER_CLASS (TREE_TYPE (DECL)))
+#define CLASS_PROTECTED(DECL) (TYPE_PROTECTED_INNER_CLASS (TREE_TYPE (DECL)))
/* @deprecated marker flag on methods, fields and classes */
#define BCODE_VERIFIED 8
/* A pointer to the line number table of the current method. */
-extern unsigned char *linenumber_table;
+extern const unsigned char *linenumber_table;
/* The length (in items) of the line number table. */
extern int linenumber_count;
used nor set in the subroutine. */
#define TYPE_UNUSED error_mark_node
+/* When returned from pop_type_0, indicates stack underflow. */
+#define TYPE_UNDERFLOW integer_zero_node
+
+/* When returned from pop_type_0, indicates a type mismatch. */
+#define TYPE_UNEXPECTED NULL_TREE
+
/* A array mapping variable/stack slot index to the type current
in that variable/stack slot.
TYPE_UNKNOWN, TYPE_SECOND, and TYPE_NULL are special cases. */
#define TYPE_IS_WIDE(TYPE) \
((TYPE) == double_type_node || (TYPE) == long_type_node)
+/* True iif CLASS has it's access$0 method generated. */
+#define CLASS_ACCESS0_GENERATED_P(CLASS) TYPE_LANG_FLAG_0 (CLASS)
+
/* True iff TYPE is a Java array type. */
#define TYPE_ARRAY_P(TYPE) TYPE_LANG_FLAG_1 (TYPE)
/* FIXME this use of TREE_TYPE conflicts with something or other. */
#define TYPE_ARRAY_ELEMENT(ATYPE) TREE_TYPE(ATYPE)
-/* True if class TYPE has been loaded. */
-#define CLASS_LOADED_P(TYPE) TYPE_LANG_FLAG_2 (TYPE)
+/* True if class TYPE has been loaded (i.e. parsed plus laid out).
+ (The check for CLASS_PARSED_P is needed because of Object and Class.) */
+#define CLASS_LOADED_P(TYPE) (TYPE_SIZE (TYPE) != NULL_TREE \
+ && (CLASS_PARSED_P(TYPE) || TYPE_ARRAY_P(TYPE)))
+
+/* True if class TYPE has been parsed (first pass). */
+#define CLASS_PARSED_P(TYPE) TYPE_LANG_FLAG_2 (TYPE)
/* True if class TYPE was defined in Java source code. */
#define CLASS_FROM_SOURCE_P(TYPE) TYPE_LANG_FLAG_3 (TYPE)
/* True of a RECORD_TYPE of a class/interface type (not array type) */
#define CLASS_P(TYPE) TYPE_LANG_FLAG_4 (TYPE)
-/* True if class TYPE was defined in a Java source file compiled. */
-#define CLASS_FROM_CURRENTLY_COMPILED_SOURCE_P(TYPE) \
+/* True if class TYPE was requested (on command line) to be compiled.*/
+#define CLASS_FROM_CURRENTLY_COMPILED_P(TYPE) \
TYPE_LANG_FLAG_5 (TYPE)
+/* True if class TYPE is currently being laid out. Helps in detection
+ of inheritance cycle occuring as a side effect of performing the
+ layout of a class. */
+#define CLASS_BEING_LAIDOUT(TYPE) TYPE_LANG_FLAG_6 (TYPE)
+
+/* True if class TYPE is currently being laid out. Helps in detection
+ of inheritance cycle occuring as a side effect of performing the
+ layout of a class. */
+#define CLASS_BEING_LAIDOUT(TYPE) TYPE_LANG_FLAG_6 (TYPE)
+
/* True if class TYPE has a field initializer $finit$ function */
-#define CLASS_HAS_FINIT_P(TYPE) TYPE_LANG_FLAG_6 (TYPE)
+#define CLASS_HAS_FINIT_P(TYPE) TYPE_FINIT_STMT_LIST (TYPE)
/* True if identifier ID was seen while processing a single type import stmt */
#define IS_A_SINGLE_IMPORT_CLASSFILE_NAME_P(ID) TREE_LANG_FLAG_0 (ID)
initialization during its declaration */
#define MODIFY_EXPR_FROM_INITIALIZATION_P(EXPR) TREE_LANG_FLAG_2 (EXPR)
+/* True if EXPR (a TREE_TYPE denoting a class type) has its methods
+ already checked (for redifitions, etc, see java_check_regular_methods.) */
+#define CLASS_METHOD_CHECKED_P(EXPR) TREE_LANG_FLAG_2 (EXPR)
+
/* True if EXPR (a WFL in that case) resolves into an expression name */
#define RESOLVE_EXPRESSION_NAME_P(WFL) TREE_LANG_FLAG_0 (WFL)
/* True if EXPR (a LOOP_EXPR in that case) is part of a for statement */
-#define IS_FOR_LOOP_P(EXPR) TREE_LANG_FLAG_0 (EXPR)
+#define FOR_LOOP_P(EXPR) TREE_LANG_FLAG_0 (EXPR)
+
+/* True if NODE (a RECORD_TYPE in that case) is an anonymous class. */
+#define ANONYMOUS_CLASS_P(NODE) TREE_LANG_FLAG_0 (NODE)
+
+/* True if NODE (a RECORD_TYPE in that case) is a block local class. */
+#define LOCAL_CLASS_P(NODE) TREE_LANG_FLAG_1 (NODE)
+
+/* True if NODE (a TREE_LIST) hold a pair of argument name/type
+ declared with the final modifier */
+#define ARG_FINAL_P(NODE) TREE_LANG_FLAG_0 (NODE)
/* True if EXPR (a WFL in that case) resolves into a package name */
#define RESOLVE_PACKAGE_NAME_P(WFL) TREE_LANG_FLAG_3 (WFL)
/* True if EXPR (a CALL_EXPR in that case) is a crafted StringBuffer */
#define IS_CRAFTED_STRING_BUFFER_P(EXPR) TREE_LANG_FLAG_5 (EXPR)
+/* True if EXPR (a SAVE_EXPR in that case) had its content already
+ checked for (un)initialized local variables. */
+#define IS_INIT_CHECKED(EXPR) TREE_LANG_FLAG_5 (EXPR)
+
/* If set in CALL_EXPR, the receiver is 'super'. */
#define CALL_USING_SUPER(EXPR) TREE_LANG_FLAG_4 (EXPR)
/* True if NODE (a statement) can complete normally. */
#define CAN_COMPLETE_NORMALLY(NODE) TREE_LANG_FLAG_6(NODE)
+/* True if NODE (an IDENTIFIER) bears the name of a outer field from
+ inner class access function. */
+#define OUTER_FIELD_ACCESS_IDENTIFIER_P(NODE) TREE_LANG_FLAG_6(NODE)
+
+/* Non null if NODE belongs to an inner class TYPE_DECL node.
+ Verifies that NODE as the attributes of a decl. */
+#define INNER_CLASS_DECL_P(NODE) (TYPE_NAME (TREE_TYPE (NODE)) == NODE \
+ && DECL_CONTEXT (NODE))
+
+/* Non null if NODE is an top level class TYPE_DECL node: NODE isn't
+ an inner class or NODE is a static class. */
+#define TOPLEVEL_CLASS_DECL_P(NODE) (!INNER_CLASS_DECL_P (NODE) \
+ || CLASS_STATIC (NODE))
+
+/* True if the class decl NODE was declared in a inner scope and is
+ not a toplevel class */
+#define PURE_INNER_CLASS_DECL_P(NODE) \
+ (INNER_CLASS_DECL_P (NODE) && !CLASS_STATIC (NODE))
+
+/* Non null if NODE belongs to an inner class RECORD_TYPE node. Checks
+ that TYPE_NAME bears a decl. An array type wouldn't. */
+#define INNER_CLASS_TYPE_P(NODE) (TREE_CODE (TYPE_NAME (NODE)) == TYPE_DECL \
+ && DECL_CONTEXT (TYPE_NAME (NODE)))
+
+#define TOPLEVEL_CLASS_TYPE_P(NODE) (!INNER_CLASS_TYPE_P (NODE) \
+ || CLASS_STATIC (TYPE_NAME (NODE)))
+
+/* True if the class type NODE was declared in a inner scope and is
+ not a toplevel class */
+#define PURE_INNER_CLASS_TYPE_P(NODE) \
+ (INNER_CLASS_TYPE_P (NODE) && !CLASS_STATIC (TYPE_NAME (NODE)))
+
+/* Non null if NODE (a TYPE_DECL or a RECORD_TYPE) is an inner class. */
+#define INNER_CLASS_P(NODE) (TREE_CODE (NODE) == TYPE_DECL ? \
+ INNER_CLASS_DECL_P (NODE) : \
+ (TREE_CODE (NODE) == RECORD_TYPE ? \
+ INNER_CLASS_TYPE_P (NODE) : \
+ (abort (), 0)))
+
+/* On a TYPE_DECL, hold the list of inner classes defined within the
+ scope of TYPE_DECL. */
+#define DECL_INNER_CLASS_LIST(NODE) DECL_INITIAL (NODE)
+
+/* Build a IDENTIFIER_NODE for a file name we're considering. Since
+ all_class_filename is a registered root, putting this identifier
+ in a TREE_LIST it holds keeps this node alive. */
+#define BUILD_FILENAME_IDENTIFIER_NODE(F, S) \
+ if (!((F) = maybe_get_identifier ((S)))) \
+ { \
+ (F) = get_identifier ((S)); \
+ tree_cons ((F), NULL_TREE, all_class_filename); \
+ }
+
/* Add a FIELD_DECL to RECORD_TYPE RTYPE.
The field has name NAME (a char*), and type FTYPE.
Unless this is the first field, FIELD most hold the previous field.
#define BLOCK_EXPR_DECLS(NODE) BLOCK_VARS(NODE)
#define BLOCK_EXPR_BODY(NODE) BLOCK_SUBBLOCKS(NODE)
+/* True for an implicit block surrounding declaration not at start of {...}. */
+#define BLOCK_IS_IMPLICIT(NODE) TREE_LANG_FLAG_1 (NODE)
#define BUILD_MONITOR_ENTER(WHERE, ARG) \
{ \
(inherits_from_p ((TYPE), runtime_exception_type_node) \
|| inherits_from_p ((TYPE), error_exception_type_node))
+/* True when we can perform static class initialization optimization */
+#define STATIC_CLASS_INIT_OPT_P() \
+ (flag_optimize_sci && (optimize >= 2) && ! flag_emit_class_files)
+
extern int java_error_count; \
/* Make the current function where this macro is invoked report error
if (java_error_count > save_error_count) \
return; \
}
+
+/* These are the possible values for the `state' field of the class
+ structure. This must be kept in sync with libgcj. */
+enum
+{
+ JV_STATE_NOTHING = 0, /* Set by compiler. */
+
+ JV_STATE_PRELOADING = 1, /* Can do _Jv_FindClass. */
+ JV_STATE_LOADING = 3, /* Has super installed. */
+ JV_STATE_LOADED = 5, /* Is complete. */
+
+ JV_STATE_COMPILED = 6, /* This was a compiled class. */
+
+ JV_STATE_PREPARED = 7, /* Layout & static init done. */
+ JV_STATE_LINKED = 9, /* Strings interned. */
+
+ JV_STATE_IN_PROGRESS = 10, /* <Clinit> running. */
+ JV_STATE_DONE = 12,
+
+ JV_STATE_ERROR = 14 /* must be last. */
+};
+
+#undef DEBUG_JAVA_BINDING_LEVELS