diff options
Diffstat (limited to 'gcc/java/java-tree.h')
| -rw-r--r-- | gcc/java/java-tree.h | 1527 |
1 files changed, 0 insertions, 1527 deletions
diff --git a/gcc/java/java-tree.h b/gcc/java/java-tree.h deleted file mode 100644 index d7ccbbe..0000000 --- a/gcc/java/java-tree.h +++ /dev/null @@ -1,1527 +0,0 @@ -/* Definitions for parsing and type checking for the GNU compiler for - the Java(TM) language. - Copyright (C) 1997-2016 Free Software Foundation, Inc. - -This file is part of GCC. - -GCC is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 3, or (at your option) -any later version. - -GCC is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with GCC; see the file COPYING3. If not see -<http://www.gnu.org/licenses/>. - -Java and all Java-based marks are trademarks or registered trademarks -of Sun Microsystems, Inc. in the United States and other countries. -The Free Software Foundation is independent of Sun Microsystems, Inc. */ - -/* Hacked by Per Bothner <bothner@cygnus.com> February 1996. */ - -#ifndef GCC_JAVA_TREE_H -#define GCC_JAVA_TREE_H - - -struct JCF; - -/* Usage of TREE_LANG_FLAG_?: - 2: QUALIFIED_P (in IDENTIFIER_NODE) - CLASS_FILE_P (in a TRANSLATION_UNIT_DECL in current_file_list) - 3: HAS_FINALIZER (in RECORD_TYPE) - 4: IS_A_COMMAND_LINE_FILENAME_P (in IDENTIFIER_NODE) - IS_ARRAY_LENGTH_ACCESS (in INDIRECT_REF) - 5: HAS_BEEN_ALREADY_PARSED_P (in IDENTIFIER_NODE) - - Usage of TYPE_LANG_FLAG_?: - 1: TYPE_ARRAY_P (in RECORD_TYPE). - 2: CLASS_PARSED_P (in RECORD_TYPE). - 4: CLASS_P (in RECORD_TYPE). - 5: CLASS_FROM_CURRENTLY_COMPILED_P (in RECORD_TYPE) - 6: CLASS_BEING_LAIDOUT (in RECORD_TYPE) - - Usage of DECL_LANG_FLAG_?: - 0: METHOD_DEPRECATED (in FUNCTION_DECL). - FIELD_DEPRECATED (in FIELD_DECL). - CLASS_DEPRECATED (in TYPE_DECL). - 1: METHOD_PUBLIC (in FUNCTION_DECL). - FIELD_PUBLIC (in FIELD_DECL). - CLASS_PUBLIC (in TYPE_DECL). - 2: METHOD_STATIC (in FUNCTION_DECL). - (But note that FIELD_STATIC uses TREE_STATIC!) - FIELD_SYNTHETIC (in FIELD_DECL) - CLASS_COMPLETE_P (in TYPE_DECL) - 3: METHOD_FINAL (in FUNCTION_DECL) - FIELD_FINAL (in FIELD_DECL) - CLASS_FINAL (in TYPE_DECL) - DECL_FINAL (in any decl) - 4: METHOD_SYNCHRONIZED (in FUNCTION_DECL). - CLASS_INTERFACE (in TYPE_DECL) - FIELD_VOLATILE (int FIELD_DECL) - 5: METHOD_ABSTRACT (in FUNCTION_DECL). - CLASS_ABSTRACT (in TYPE_DECL) - FIELD_TRANSIENT (in FIELD_DECL) - 6: CLASS_SUPER (in TYPE_DECL, ACC_SUPER flag) - 7: DECL_CONSTRUCTOR_P (in FUNCTION_DECL). - CLASS_STATIC (in TYPE_DECL) -*/ - -#define VAR_OR_FIELD_CHECK(DECL) \ - TREE_CHECK3 (DECL, FIELD_DECL, VAR_DECL, PARM_DECL) - -/* True if the class whose TYPE_BINFO this is has a superclass. - (True of all classes except Object.) */ -#define CLASS_HAS_SUPER_FLAG(BINFO) BINFO_FLAG_1 (BINFO) -#define CLASS_HAS_SUPER(TYPE) \ - (TYPE_BINFO (TYPE) && CLASS_HAS_SUPER_FLAG (TYPE_BINFO (TYPE))) - -/* Return the supertype of class TYPE, or NULL_TREE is it has none. */ -#define CLASSTYPE_SUPER(TYPE) (CLASS_HAS_SUPER (TYPE) \ - ? BINFO_TYPE (BINFO_BASE_BINFO (TYPE_BINFO (TYPE), 0)) \ - : NULL_TREE) - -/* The class defined by the actual (main) file we are compiling. */ -#define main_class \ - java_global_trees[JTI_MAIN_CLASS] - -/* The class we use as the base for name resolution. It's usually the - class we're generating code for but sometimes it points to an inner - class. If you really want to know the class we're currently - generating code for, use output_class instead. */ -#define current_class \ - java_global_trees[JTI_CURRENT_CLASS] - -/* The class we are currently generating. Really. */ -#define output_class \ - java_global_trees[JTI_OUTPUT_CLASS] - -/* List of virtual decls referred to by this translation unit, used to - generate virtual method offset symbol table. */ - -/* The virtual offset table. This is emitted as uninitialized data of - the required length, and filled out at run time during class - linking. */ - -/* The virtual offset symbol table. Used by the runtime to fill out - the otable. */ - -/* Resource name. */ -extern const char *resource_name; - -/* Turned to 1 if -Wall was encountered. See lang.c for their meanings. */ -extern int flag_wall; - -/* The Java .class file that provides main_class; the main input file. */ -extern GTY(()) struct JCF * current_jcf; - -/* Set to nonzero value in order to emit class initialization code - before static field references. */ -extern int always_initialize_class_p; - -extern int flag_verify_invocations; - -/* Largest pc so far in this method that has been passed to lookup_label. */ -extern int highest_label_pc_this_method; - -/* Base value for this method to add to pc to get generated label. */ -extern int start_label_pc_this_method; - -typedef struct CPool constant_pool; - -#define CONSTANT_ResolvedFlag 16 - -/* Don't eagerly resolve this entry. When this flag is set, constant - pool entries are resolved only at runtime when the entry is first - referred to. */ -#define CONSTANT_LazyFlag 32 - -/* The cpool->data[i] for a ResolvedString points to a STRING_CST. */ -#define CONSTANT_ResolvedString (CONSTANT_String+CONSTANT_ResolvedFlag) - -/* The cpool->data[i] for a ResolvedClass points to a RECORD_TYPE. */ -#define CONSTANT_ResolvedClass (CONSTANT_Class+CONSTANT_ResolvedFlag) - -#define CPOOL_UTF(CPOOL, INDEX) ((CPOOL)->data[INDEX].t) - -/* A NameAndType constant is represented as a TREE_LIST. - The type is the signature string (as an IDENTIFIER_NODE). */ - -#define NAME_AND_TYPE_NAME(CPOOL, IDX) \ - CPOOL_UTF(CPOOL, CPOOL_USHORT1(CPOOL, IDX)) -#define NAME_AND_TYPE_SIGNATURE(CPOOL, IDX) \ - CPOOL_UTF(CPOOL, CPOOL_USHORT2(CPOOL, IDX)) - -/* A FieldRef, MethodRef or InterfaceMethodRef constant - is represented as a TREE_LIST. */ - -#define COMPONENT_REF_CLASS_INDEX(CPOOL, IDX) CPOOL_USHORT1(CPOOL, IDX) -#define COMPONENT_REF_NAME_AND_TYPE(CPOOL, IDX) CPOOL_USHORT2(CPOOL, IDX) -#define COMPONENT_REF_NAME(CPOOL, IDX) \ - NAME_AND_TYPE_NAME (CPOOL, COMPONENT_REF_NAME_AND_TYPE(CPOOL, IDX)) -#define COMPONENT_REF_SIGNATURE(CPOOL, IDX) \ - NAME_AND_TYPE_SIGNATURE (CPOOL, COMPONENT_REF_NAME_AND_TYPE(CPOOL, IDX)) - -extern GTY(()) tree java_lang_cloneable_identifier_node; -extern GTY(()) tree java_io_serializable_identifier_node; -extern GTY(()) tree gcj_abi_version; - -/* The decl for the .constants field of an instance of Class. */ -extern GTY(()) tree constants_field_decl_node; - -/* The decl for the .data field of an instance of Class. */ -extern GTY(()) tree constants_data_field_decl_node; - -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_DECIMAL_INT_MAX_NODE, - JTI_DECIMAL_LONG_MAX_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_EXCEPTION_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_VOID_SIGNATURE_NODE, - JTI_FINALIZE_IDENTIFIER_NODE, - JTI_THIS_IDENTIFIER_NODE, - JTI_ONE_ELT_ARRAY_DOMAIN_TYPE, - - JTI_RETURN_ADDRESS_TYPE_NODE, - - JTI_LONG_ZERO_NODE, - JTI_FLOAT_ZERO_NODE, - JTI_DOUBLE_ZERO_NODE, - JTI_INTEGER_TWO_NODE, - JTI_INTEGER_FOUR_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_OTABLE_TYPE, - JTI_OTABLE_PTR_TYPE, - JTI_ATABLE_TYPE, - JTI_ATABLE_PTR_TYPE, - JTI_ITABLE_TYPE, - JTI_ITABLE_PTR_TYPE, - JTI_SYMBOL_TYPE, - JTI_SYMBOLS_ARRAY_TYPE, - JTI_SYMBOLS_ARRAY_PTR_TYPE, - JTI_ASSERTION_ENTRY_TYPE, - JTI_ASSERTION_TABLE_TYPE, - - JTI_END_PARAMS_NODE, - - JTI_THROW_NODE, - JTI_ALLOC_OBJECT_NODE, - JTI_ALLOC_NO_FINALIZER_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_ABSTRACTMETHOD_NODE, - JTI_SOFT_NOSUCHFIELD_NODE, - JTI_SOFT_CHECKARRAYSTORE_NODE, - JTI_SOFT_MONITORENTER_NODE, - JTI_SOFT_MONITOREXIT_NODE, - JTI_SOFT_LOOKUPINTERFACEMETHOD_NODE, - JTI_SOFT_LOOKUPINTERFACEMETHODBYNAME_NODE, - JTI_SOFT_LOOKUPJNIMETHOD_NODE, - JTI_SOFT_GETJNIENVNEWFRAME_NODE, - JTI_SOFT_JNIPOPSYSTEMFRAME_NODE, - JTI_SOFT_UNWRAPJNI_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_MAIN_CLASS, - JTI_CURRENT_CLASS, - JTI_OUTPUT_CLASS, - - JTI_MAX -}; - -extern GTY(()) 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). */ -#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 decimal_int_max \ - java_global_trees[JTI_DECIMAL_INT_MAX_NODE] -#define decimal_long_max \ - java_global_trees[JTI_DECIMAL_LONG_MAX_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 exception_type_node \ - java_global_trees[JTI_EXCEPTION_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 void_signature_node \ - java_global_trees[JTI_VOID_SIGNATURE_NODE] /* "()V" */ -#define finalize_identifier_node \ - java_global_trees[JTI_FINALIZE_IDENTIFIER_NODE] /* "finalize" */ -#define this_identifier_node \ - java_global_trees[JTI_THIS_IDENTIFIER_NODE] /* "this" */ -#define one_elt_array_domain_type \ - java_global_trees[JTI_ONE_ELT_ARRAY_DOMAIN_TYPE] -/* The type of the return address of a subroutine. */ -#define return_address_type_node \ - java_global_trees[JTI_RETURN_ADDRESS_TYPE_NODE] - -/* Integer constants not declared in tree.h. */ -#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] - -/* The type for struct methodtable. */ -#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 otable_type \ - java_global_trees[JTI_OTABLE_TYPE] -#define atable_type \ - java_global_trees[JTI_ATABLE_TYPE] -#define itable_type \ - java_global_trees[JTI_ITABLE_TYPE] -#define otable_ptr_type \ - java_global_trees[JTI_OTABLE_PTR_TYPE] -#define atable_ptr_type \ - java_global_trees[JTI_ATABLE_PTR_TYPE] -#define itable_ptr_type \ - java_global_trees[JTI_ITABLE_PTR_TYPE] -#define symbol_type \ - java_global_trees[JTI_SYMBOL_TYPE] -#define symbols_array_type \ - java_global_trees[JTI_SYMBOLS_ARRAY_TYPE] -#define symbols_array_ptr_type \ - java_global_trees[JTI_SYMBOLS_ARRAY_PTR_TYPE] -#define assertion_entry_type \ - java_global_trees[JTI_ASSERTION_ENTRY_TYPE] -#define assertion_table_type \ - java_global_trees[JTI_ASSERTION_TABLE_TYPE] - -#define end_params_node \ - java_global_trees[JTI_END_PARAMS_NODE] - -/* References to internal libjava functions we use. */ -#define throw_node \ - java_global_trees[JTI_THROW_NODE] -#define alloc_object_node \ - java_global_trees[JTI_ALLOC_OBJECT_NODE] -#define alloc_no_finalizer_node \ - java_global_trees[JTI_ALLOC_NO_FINALIZER_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_abstractmethod_node \ - java_global_trees[JTI_SOFT_ABSTRACTMETHOD_NODE] -#define soft_nosuchfield_node \ - java_global_trees[JTI_SOFT_NOSUCHFIELD_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_lookupinterfacemethodbyname_node \ - java_global_trees[JTI_SOFT_LOOKUPINTERFACEMETHODBYNAME_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_unwrapjni_node \ - java_global_trees[JTI_SOFT_UNWRAPJNI_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 nativecode_ptr_type_node ptr_type_node - -/* The decl for "_Jv_ResolvePoolEntry". */ -extern GTY(()) tree soft_resolvepoolentry_node; - -struct GTY(()) lang_identifier { - struct tree_identifier ignore; - tree global_value; - tree local_value; - - /* If non-NULL: An ADDR_REF to a VAR_DECL that contains - * the Utf8Const representation of the identifier. */ - tree utf8_ref; -}; - -/* The resulting tree type. */ -union GTY((desc ("TREE_CODE (&%h.generic) == IDENTIFIER_NODE"), - chain_next ("CODE_CONTAINS_STRUCT (TREE_CODE (&%h.generic), TS_COMMON) ? ((union lang_tree_node *) TREE_CHAIN (&%h.generic)) : NULL"))) - - lang_tree_node { - union tree_node GTY ((tag ("0"), - desc ("tree_node_structure (&%h)"))) - generic; - struct lang_identifier GTY ((tag ("1"))) identifier; -}; - -/* Macros for access to language-specific slots in an identifier. */ -/* Unless specified, each of these slots contains a DECL node or null. */ - -/* This represents the value which the identifier has in the - file-scope namespace. */ -#define IDENTIFIER_GLOBAL_VALUE(NODE) \ - (((struct lang_identifier *)(NODE))->global_value) -/* This represents the value which the identifier has in the current - scope. */ -#define IDENTIFIER_LOCAL_VALUE(NODE) \ - (((struct lang_identifier *)(NODE))->local_value) - -/* Given an identifier NODE, get the corresponding class. - E.g. IDENTIFIER_CLASS_VALUE(get_identifier ("java.lang.Number")) - is the corresponding RECORD_TYPE. */ -#define IDENTIFIER_CLASS_VALUE(NODE) IDENTIFIER_GLOBAL_VALUE(NODE) - -/* Given a signature of a reference (or array) type, or a method, return the - corresponding type (if one has been allocated). - Do not use for primitive types, since they may be ambiguous. - (E.g. is "I" a signature or a class name?) */ -#define IDENTIFIER_SIGNATURE_TYPE(NODE) IDENTIFIER_GLOBAL_VALUE(NODE) - -/* If non-NULL: An ADDR_REF to a VAR_DECL that contains - the Utf8Const representation of the identifier. */ -#define IDENTIFIER_UTF8_REF(NODE) \ - (((struct lang_identifier *)(NODE))->utf8_ref) - -#define IDENTIFIER_UTF8_DECL(NODE) \ - TREE_OPERAND((((struct lang_identifier *)(NODE))->utf8_ref), 0) - -/* For a FUNCTION_DECL, if we are compiling a .class file, then this is - the position in the .class file of the method code. - Specifically, this is the code itself, not the code attribute. */ -#define DECL_CODE_OFFSET(DECL) (DECL_LANG_SPECIFIC(DECL)->u.f.code_offset) -/* Similarly, the length of the bytecode. */ -#define DECL_CODE_LENGTH(DECL) (DECL_LANG_SPECIFIC(DECL)->u.f.code_length) -/* Similarly, the position of the LineNumberTable attribute. */ -#define DECL_LINENUMBERS_OFFSET(DECL) \ - (DECL_LANG_SPECIFIC(DECL)->u.f.linenumbers_offset) -/* Similarly, the position of the LocalVariableTable attribute - (following the standard attribute header). */ -#define DECL_LOCALVARIABLES_OFFSET(DECL) \ - (DECL_LANG_SPECIFIC(DECL)->u.f.localvariables_offset) - -#define DECL_MAX_LOCALS(DECL) (DECL_LANG_SPECIFIC(DECL)->u.f.max_locals) -#define DECL_MAX_STACK(DECL) (DECL_LANG_SPECIFIC(DECL)->u.f.max_stack) -/* Number of local variable slots needed for the arguments of this function. */ -#define DECL_ARG_SLOT_COUNT(DECL) \ - (DECL_LANG_SPECIFIC(DECL)->u.f.arg_slot_count) -/* Source location of end of function. */ -#define DECL_FUNCTION_LAST_LINE(DECL) (DECL_LANG_SPECIFIC(DECL)->u.f.last_line) -/* List of checked thrown exceptions, as specified with the `throws' - keyword */ -#define DECL_FUNCTION_THROWS(DECL) (DECL_LANG_SPECIFIC(DECL)->u.f.throws_list) -/* VAR_DECL containing the caught exception object. */ -#define DECL_FUNCTION_EXC_OBJ(DECL) (DECL_LANG_SPECIFIC(DECL)->u.f.exc_obj) -/* 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)->u.f.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)->u.f.ict) - -#define DECL_LOCAL_CNI_METHOD_P(NODE) \ - (DECL_LANG_SPECIFIC (NODE)->u.f.local_cni) - -/* True when DECL (a field) is Synthetic. */ -#define FIELD_SYNTHETIC(DECL) DECL_LANG_FLAG_2 (VAR_OR_FIELD_CHECK (DECL)) - -/* The slot number for this local variable. */ -#define DECL_LOCAL_SLOT_NUMBER(NODE) \ - (DECL_LANG_SPECIFIC (NODE)->u.v.slot_number) -/* The start (bytecode) pc for the valid range of this local variable. */ -#define DECL_LOCAL_START_PC(NODE) (DECL_LANG_SPECIFIC (NODE)->u.v.start_pc) -/* The end (bytecode) pc for the valid range of this local variable. */ -#define DECL_LOCAL_END_PC(NODE) (DECL_LANG_SPECIFIC (NODE)->u.v.end_pc) -/* For a VAR_DECL or PARM_DECL, used to chain decls with the same - slot_number in decl_map. */ -#define DECL_LOCAL_SLOT_CHAIN(NODE) (DECL_LANG_SPECIFIC(NODE)->u.v.slot_chain) -/* The class that's the owner of a dynamic binding table. */ -#define DECL_OWNER(NODE) (DECL_LANG_SPECIFIC(NODE)->u.v.owner) -/* True if NODE is a class final field. */ -#define FIELD_ENUM(DECL) (DECL_LANG_SPECIFIC (DECL)->u.v.field_enum) -/* True if NODE is a variable that is out of scope. */ -#define LOCAL_VAR_OUT_OF_SCOPE_P(NODE) \ - (DECL_LANG_SPECIFIC (NODE)->u.v.freed) -#define LOCAL_SLOT_P(NODE) \ - (DECL_LANG_SPECIFIC (NODE)->u.v.local_slot) - -#define DECL_CLASS_FIELD_P(NODE) \ - (DECL_LANG_SPECIFIC (NODE)->u.v.class_field) -#define DECL_VTABLE_P(NODE) \ - (DECL_LANG_SPECIFIC (NODE)->u.v.vtable) - -/* 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)) = ggc_cleared_alloc<struct lang_decl> (); \ - DECL_LANG_SPECIFIC (T)->desc = 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) - -struct GTY((for_user)) treetreehash_entry { - tree key; - tree value; -}; - -struct treetreehasher : ggc_ptr_hash<treetreehash_entry> -{ - typedef tree compare_type; - - static hashval_t hash (treetreehash_entry *); - static bool equal (treetreehash_entry *, tree); -}; - -struct ict_hasher : ggc_ptr_hash<tree_node> -{ - static hashval_t hash (tree t) { return htab_hash_pointer (t); } - static bool equal (tree a, tree b) { return a == b; } -}; - -/* DECL_LANG_SPECIFIC for FUNCTION_DECLs. */ -struct GTY(()) lang_decl_func { - /* tree chain; not yet used. */ - long code_offset; - int code_length; - long linenumbers_offset; - long localvariables_offset; - int arg_slots; - int max_locals; - int max_stack; - int arg_slot_count; - source_location last_line; /* End line number for a function decl */ - vec<tree, va_gc> *throws_list; /* Exception specified by `throws' */ - tree exc_obj; /* Decl holding the exception object. */ - - /* Class initialization test variables */ - hash_table<treetreehasher> *init_test_table; - - /* Initialized (static) Class Table */ - hash_table<ict_hasher> *ict; - - unsigned int native : 1; /* Nonzero if this is a native method */ - unsigned int strictfp : 1; - unsigned int invisible : 1; /* Set for methods we generate - internally but which shouldn't be - written to the .class file. */ - unsigned int dummy : 1; - unsigned int local_cni : 1; /* Decl needs mangle_local_cni_method. */ - unsigned int bridge : 1; /* Bridge method. */ - unsigned int varargs : 1; /* Varargs method. */ -}; - -/* These represent the possible assertion_codes that can be emitted in the - type assertion table. */ -enum -{ - JV_ASSERT_END_OF_TABLE = 0, /* Last entry in table. */ - JV_ASSERT_TYPES_COMPATIBLE = 1, /* Operand A is assignable to Operand B. */ - JV_ASSERT_IS_INSTANTIABLE = 2 /* Operand A is an instantiable class. */ -}; - -/* Annotation types used in the reflection_data. See - java.lang.Class.getDeclaredAnnotations() in the runtime library for - an example of how these are used. */ - -typedef enum -{ - JV_CLASS_ATTR, - JV_METHOD_ATTR, - JV_FIELD_ATTR, - JV_DONE_ATTR -} jv_attr_type; - -typedef enum -{ - JV_INNER_CLASSES_KIND, - JV_ENCLOSING_METHOD_KIND, - JV_SIGNATURE_KIND, - JV_ANNOTATIONS_KIND, - JV_PARAMETER_ANNOTATIONS_KIND, - JV_ANNOTATION_DEFAULT_KIND -} jv_attr_kind; - -typedef struct GTY((for_user)) type_assertion { - int assertion_code; /* 'opcode' for the type of this assertion. */ - tree op1; /* First operand. */ - tree op2; /* Second operand. */ -} type_assertion; - -struct type_assertion_hasher : ggc_ptr_hash<type_assertion> -{ - static hashval_t hash (type_assertion *); - static bool equal (type_assertion *, type_assertion *); -}; - -extern tree java_treetreehash_find (hash_table<treetreehasher> *, tree); -extern tree * java_treetreehash_new (hash_table<treetreehasher> *, tree); -extern hash_table<treetreehasher> *java_treetreehash_create (size_t size); - -/* DECL_LANG_SPECIFIC for VAR_DECL, PARM_DECL and sometimes FIELD_DECL - (access methods on outer class fields) and final fields. */ -struct GTY(()) lang_decl_var { - int slot_number; - int start_pc; - int end_pc; - tree slot_chain; - tree owner; - unsigned int freed : 1; /* Decl is no longer in scope. */ - unsigned int local_slot : 1; /* Decl is a temporary in the stack frame. */ - unsigned int class_field : 1; /* Decl needs mangle_class_field. */ - unsigned int vtable : 1; /* Decl needs mangle_vtable. */ - unsigned int field_enum:1; /* Field is an enum. */ -}; - -/* This is what 'lang_decl' really points to. */ - -enum lang_decl_desc {LANG_DECL_FUNC, LANG_DECL_VAR}; - -struct GTY(()) lang_decl { - enum lang_decl_desc desc; - union lang_decl_u - { - struct lang_decl_func GTY ((tag ("LANG_DECL_FUNC"))) f; - struct lang_decl_var GTY ((tag ("LANG_DECL_VAR"))) v; - } GTY ((desc ("%0.desc"))) u; -}; - -/* 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)) = ggc_cleared_alloc<struct lang_type> (); - -#define TYPE_DUMMY(T) (TYPE_LANG_SPECIFIC(T)->dummy_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_STRICTFP(T) (TYPE_LANG_SPECIFIC (T)->strictfp) -#define TYPE_ENUM(T) (TYPE_LANG_SPECIFIC (T)->enum_class) -#define TYPE_SYNTHETIC(T) (TYPE_LANG_SPECIFIC (T)->synthetic) -#define TYPE_ANNOTATION(T) (TYPE_LANG_SPECIFIC (T)->annotation) - -#define TYPE_USES_ASSERTIONS(T) (TYPE_LANG_SPECIFIC (T)->assertions) - -#define TYPE_ATABLE_METHODS(T) (TYPE_LANG_SPECIFIC (T)->atable_methods) -#define TYPE_ATABLE_SYMS_DECL(T) (TYPE_LANG_SPECIFIC (T)->atable_syms_decl) -#define TYPE_ATABLE_DECL(T) (TYPE_LANG_SPECIFIC (T)->atable_decl) - -#define TYPE_OTABLE_METHODS(T) (TYPE_LANG_SPECIFIC (T)->otable_methods) -#define TYPE_OTABLE_SYMS_DECL(T) (TYPE_LANG_SPECIFIC (T)->otable_syms_decl) -#define TYPE_OTABLE_DECL(T) (TYPE_LANG_SPECIFIC (T)->otable_decl) - -#define TYPE_ITABLE_METHODS(T) (TYPE_LANG_SPECIFIC (T)->itable_methods) -#define TYPE_ITABLE_SYMS_DECL(T) (TYPE_LANG_SPECIFIC (T)->itable_syms_decl) -#define TYPE_ITABLE_DECL(T) (TYPE_LANG_SPECIFIC (T)->itable_decl) - -#define TYPE_CTABLE_DECL(T) (TYPE_LANG_SPECIFIC (T)->ctable_decl) -#define TYPE_CATCH_CLASSES(T) (TYPE_LANG_SPECIFIC (T)->catch_classes) - -#define TYPE_TO_RUNTIME_MAP(T) (TYPE_LANG_SPECIFIC (T)->type_to_runtime_map) -#define TYPE_ASSERTIONS(T) (TYPE_LANG_SPECIFIC (T)->type_assertions) -#define TYPE_PACKAGE(T) (TYPE_LANG_SPECIFIC (T)->package) - -#define TYPE_REFLECTION_DATA(T) (TYPE_LANG_SPECIFIC (T)->reflection_data) -#define TYPE_REFLECTION_DATASIZE(T) \ - (TYPE_LANG_SPECIFIC (T)->reflection_datasize) - -typedef struct GTY(()) method_entry_d { - tree method; - tree special; -} method_entry; - - -struct GTY(()) lang_type { - tree signature; - struct JCF *jcf; - struct CPool *cpool; - tree cpool_data_ref; /* Cached */ - tree package_list; /* List of package names, progressive */ - - vec<method_entry, va_gc> *otable_methods; /* List of static decls referred - to by this class. */ - tree otable_decl; /* The static address table. */ - tree otable_syms_decl; - - vec<method_entry, va_gc> *atable_methods; /* List of abstract methods - referred to by this class. */ - tree atable_decl; /* The static address table. */ - tree atable_syms_decl; - - vec<method_entry, va_gc> *itable_methods; /* List of interface methods - referred to by this class. */ - tree itable_decl; /* The interfaces table. */ - tree itable_syms_decl; - - tree ctable_decl; /* The table of classes for the runtime - type matcher. */ - vec<constructor_elt, va_gc> *catch_classes; - - hash_table<treetreehasher> *type_to_runtime_map; - /* The mapping of classes to exception region - markers. */ - - hash_table<type_assertion_hasher> *type_assertions; - /* Table of type assertions to be evaluated - by the runtime when this class is loaded. */ - - tree package; /* IDENTIFIER_NODE for package this class is - a member of. */ - - unsigned char* GTY((skip)) reflection_data; /* The raw reflection - data for this - class. */ - long reflection_datasize; /* The size of the raw reflection data - for this class, in bytes. */ - - unsigned pic:1; /* Private Inner Class. */ - unsigned poic:1; /* Protected Inner Class. */ - unsigned strictfp:1; /* `strictfp' class. */ - unsigned assertions:1; /* Any method uses `assert'. */ - unsigned dummy_class:1; /* Not a real class, just a placeholder. */ - unsigned enum_class:1; /* Class is an enum type. */ - unsigned synthetic:1; /* Class is synthetic. */ - unsigned annotation:1; /* Class is an annotation type. */ -}; - -#define JCF_u4 unsigned long -#define JCF_u2 unsigned short - -/* Possible values to pass to lookup_argument_method_generic. */ -#define SEARCH_INTERFACE 1 -#define SEARCH_SUPER 2 -#define SEARCH_VISIBLE 4 - -/* Defined in java-except.h */ -struct eh_range; - -extern void java_parse_file (void); -extern tree java_type_for_mode (machine_mode, int); -extern tree java_type_for_size (unsigned int, int); -extern tree java_truthvalue_conversion (tree); -extern void add_assume_compiled (const char *, int); -extern void add_enable_assert (const char *, int); -extern bool enable_assertions (tree); -extern tree lookup_class (tree); -extern tree lookup_java_constructor (tree, tree); -extern tree lookup_java_method (tree, tree, tree); -extern tree lookup_argument_method (tree, tree, tree); -extern tree lookup_argument_method_generic (tree, tree, tree, int); -extern int has_method (tree, tree); -extern tree promote_type (tree); -extern tree get_constant (struct JCF*, int); -extern tree get_name_constant (struct JCF*, int); -extern tree get_class_constant (struct JCF*, int); -extern tree parse_signature (struct JCF *jcf, int sig_index); -extern tree add_field (tree, tree, tree, int); -extern tree add_method (tree, int, tree, tree); -extern tree add_method_1 (tree, int, tree, tree); -extern void java_hide_decl (tree); -extern tree make_class (void); -extern tree push_class (tree, tree); -extern tree unmangle_classname (const char *name, int name_length); -extern tree parse_signature_string (const unsigned char *, int); -extern tree get_type_from_signature (tree); -extern void layout_class (tree); -extern int get_interface_method_index (tree, tree); -extern tree layout_class_method (tree, tree, tree, tree); -extern void layout_class_methods (tree); -extern void cache_this_class_ref (tree); -extern void uncache_this_class_ref (tree); -extern tree build_class_ref (tree); -extern tree build_dtable_decl (tree); -extern tree build_internal_class_name (tree); -extern tree build_constants_constructor (void); -extern tree build_constant_data_ref (bool); -extern tree build_ref_from_constant_pool (int); -extern tree build_utf8_ref (tree); -extern tree ident_subst (const char *, int, const char *, int, int, - const char *); -extern tree identifier_subst (const tree, const char *, int, int, - const char *); -extern bool global_bindings_p (void); -extern tree getdecls (void); -extern void pushlevel (int); -extern tree poplevel (int,int, int); -extern tree pushdecl (tree); -extern void java_init_decl_processing (void); -extern void java_dup_lang_specific_decl (tree); -extern tree build_java_signature (tree); -extern tree build_java_argument_signature (tree); -extern void set_java_signature (tree, tree); -extern tree build_static_field_ref (tree); -extern tree build_address_of (tree); -extern tree find_local_variable (int index, tree type, int pc); -extern tree find_stack_slot (int index, tree type); -extern tree build_prim_array_type (tree, HOST_WIDE_INT); -extern tree build_java_array_type (tree, HOST_WIDE_INT); -extern int is_compiled_class (tree); -extern tree mangled_classname (const char *, tree); -extern tree lookup_label (int); -extern tree pop_type_0 (tree, char **); -extern tree pop_type (tree); -extern tree decode_newarray_type (int); -extern tree lookup_field (tree *, tree); -extern int is_array_type_p (tree); -extern HOST_WIDE_INT java_array_type_length (tree); -extern int read_class (tree); -extern void load_class (tree, int); - -extern tree check_for_builtin (tree, tree); -extern void initialize_builtins (void); - -extern tree lookup_name (tree); -extern bool special_method_p (tree); -extern void maybe_rewrite_invocation (tree *, vec<tree, va_gc> **, tree *, - tree *); -extern tree build_known_method_ref (tree, tree, tree, tree, vec<tree, va_gc> *, - tree); -extern tree build_class_init (tree, tree); -extern int attach_init_test_initialization_flags (treetreehash_entry **, tree); -extern tree build_invokevirtual (tree, tree, tree); -extern tree build_invokeinterface (tree, tree); -extern tree build_jni_stub (tree); -extern tree invoke_build_dtable (int, vec<tree, va_gc> *); -extern tree build_field_ref (tree, tree, tree); -extern tree java_modify_addr_for_volatile (tree); -extern void pushdecl_force_head (tree); -extern tree build_java_binop (enum tree_code, tree, tree, tree); -extern tree build_java_soft_divmod (enum tree_code, tree, tree, tree); -extern tree binary_numeric_promotion (tree, tree, tree *, tree *); -extern tree build_java_arrayaccess (tree, tree, tree); -extern tree build_java_arraystore_check (tree, tree); -extern tree build_newarray (int, tree); -extern tree build_anewarray (tree, tree); -extern tree build_new_array (tree, tree); -extern tree build_java_array_length_access (tree); -extern tree build_java_indirect_ref (tree, tree, int); -extern tree java_check_reference (tree, int); -extern tree build_get_class (tree); -extern tree build_instanceof (tree, tree); -extern tree create_label_decl (tree); -extern tree prepare_eh_table_type (tree); -extern void java_expand_catch_classes (tree); -extern tree build_exception_object_ref (tree); -extern tree generate_name (void); -extern const char *lang_printable_name (tree, int); -extern tree maybe_add_interface (tree, tree); -extern void set_super_info (int, tree, tree, int); -extern void set_class_decl_access_flags (int, tree); -extern int get_access_flags_from_decl (tree); -extern int interface_of_p (tree, tree); -extern int inherits_from_p (tree, tree); -extern int common_enclosing_context_p (tree, tree); -extern int common_enclosing_instance_p (tree, tree); -extern int enclosing_context_p (tree, tree); -extern tree build_result_decl (tree); -extern void set_method_index (tree decl, tree method_index); -extern tree get_method_index (tree decl); -extern void make_class_data (tree); -extern int alloc_name_constant (int, tree); -extern int alloc_constant_fieldref (tree, tree); -extern void emit_register_classes (tree *); -extern tree emit_symbol_table (tree, tree, vec<method_entry, va_gc> *, - tree, tree, int); -extern void lang_init_source (int); -extern void write_classfile (tree); -extern char *print_int_node (tree); -extern void finish_class (void); -extern void check_for_initialization (tree, tree); -extern struct CPool *cpool_for_class (tree); -extern int find_class_or_string_constant (struct CPool *, int, tree); - -extern tree pushdecl_top_level (tree); -extern tree pushdecl_function_level (tree); -extern tree java_replace_references (tree *, int *, void *); -extern int alloc_class_constant (tree); -extern void init_expr_processing (void); -extern void push_super_field (tree, tree); -extern void init_class_processing (void); -extern void add_type_assertion (tree, int, tree, tree); -extern int can_widen_reference_to (tree, tree); -extern int class_depth (tree); -extern int verify_jvm_instructions_new (struct JCF *, const unsigned char *, - long); -extern void maybe_pushlevels (int); -extern void maybe_poplevels (int); -extern void force_poplevels (int); -extern int process_jvm_instruction (int, const unsigned char *, long); -extern int maybe_adjust_start_pc (struct JCF *, int, int, int); -extern void set_local_type (int, tree); -extern int merge_type_state (tree); -extern int push_type_0 (tree); -extern void push_type (tree); -extern void add_interface (tree, tree); -extern tree java_create_object (tree); -extern int verify_constant_pool (struct JCF *); -extern void start_java_method (tree); -extern void end_java_method (void); -extern void give_name_to_locals (struct JCF *); -extern void note_instructions (struct JCF *, tree); -extern void expand_byte_code (struct JCF *, tree); -extern int open_in_zip (struct JCF *, const char *, const char *, int); -extern void set_constant_value (tree, tree); -#ifdef jword -extern int find_constant1 (struct CPool *, int, jword); -extern int find_constant2 (struct CPool *, int, jword, jword); -#endif -extern int find_utf8_constant (struct CPool *, tree); -extern int find_string_constant (struct CPool *, tree); -extern int find_class_constant (struct CPool *, tree); -extern int find_fieldref_index (struct CPool *, tree); -extern int find_methodref_index (struct CPool *, tree); -extern int find_methodref_with_class_index (struct CPool *, tree, tree); -extern void write_constant_pool (struct CPool *, unsigned char *, int); -extern int count_constant_pool_bytes (struct CPool *); -extern int encode_newarray_type (tree); -#ifdef uint64 -extern void format_int (char *, jlong, int); -extern void format_uint (char *, uint64, int); -#endif -extern void jcf_trim_old_input (struct JCF *); -#ifdef BUFSIZ -extern void jcf_print_utf8 (FILE *, const unsigned char *, int); -extern void jcf_print_char (FILE *, int); -extern void jcf_print_utf8_replace (FILE *, const unsigned char *, int, - int, int); -extern const char* open_class (const char *, struct JCF *, int, const char *); -#endif -extern void java_debug_context (void); -extern void safe_layout_class (tree); - -extern tree get_boehm_type_descriptor (tree); -extern bool uses_jv_markobj_p (tree); -extern bool class_has_finalize_method (tree); -extern void java_check_methods (tree); - -extern void java_mangle_decl (tree); -extern tree java_mangle_class_field (struct obstack *, tree); -extern tree java_mangle_vtable (struct obstack *, tree); -extern tree java_mangle_resource_name (const char *); -extern void append_gpp_mangled_name (const char *, int); - -extern void add_predefined_file (tree); -extern int predefined_filename_p (tree); - -extern tree decl_constant_value (tree); - -extern void java_mark_class_local (tree); - -extern void java_inlining_merge_static_initializers (tree, void *); -extern void java_inlining_map_static_initializers (tree, void *); - -extern void compile_resource_data (const char *name, const char *buffer, int); -extern void compile_resource_file (const char *, const char *); -extern void write_resource_constructor (tree *); -extern tree build_java_empty_stmt (void); -extern tree add_stmt_to_compound (tree, tree, tree); -extern tree java_add_stmt (tree); -extern tree java_add_local_var (tree decl); -extern tree *get_stmts (void); -extern void register_exception_range(struct eh_range *, int, int); - -extern void finish_method (tree); -extern void java_expand_body (tree); - -extern int get_symbol_table_index (tree, tree, vec<method_entry, va_gc> **); - -extern tree make_catch_class_record (tree, tree); -extern tree emit_catch_table (tree); - -extern void gen_indirect_dispatch_tables (tree type); -extern int split_qualified_name (tree *left, tree *right, tree source); -extern int in_same_package (tree, tree); - -extern void java_read_sourcefilenames (const char *fsource_filename); - -extern void rewrite_reflection_indexes (void *); - -int cxx_keyword_p (const char *name, int length); - -#define DECL_FINAL(DECL) DECL_LANG_FLAG_3 (DECL) - -/* Access flags etc for a method (a FUNCTION_DECL): */ - -#define METHOD_DUMMY(DECL) (DECL_LANG_SPECIFIC (DECL)->u.f.dummy) - -#define METHOD_PUBLIC(DECL) DECL_LANG_FLAG_1 (FUNCTION_DECL_CHECK (DECL)) -#define METHOD_PRIVATE(DECL) TREE_PRIVATE (FUNCTION_DECL_CHECK (DECL)) -#define METHOD_PROTECTED(DECL) TREE_PROTECTED (FUNCTION_DECL_CHECK (DECL)) -#define METHOD_STATIC(DECL) DECL_LANG_FLAG_2 (FUNCTION_DECL_CHECK (DECL)) -#define METHOD_FINAL(DECL) DECL_FINAL (FUNCTION_DECL_CHECK (DECL)) -#define METHOD_SYNCHRONIZED(DECL) DECL_LANG_FLAG_4 (FUNCTION_DECL_CHECK (DECL)) -#define METHOD_NATIVE(DECL) \ - (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (DECL))->u.f.native) -#define METHOD_ABSTRACT(DECL) DECL_LANG_FLAG_5 (FUNCTION_DECL_CHECK (DECL)) -#define METHOD_STRICTFP(DECL) \ - (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (DECL))->u.f.strictfp) -#define METHOD_INVISIBLE(DECL) \ - (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (DECL))->u.f.invisible) -#define METHOD_BRIDGE(DECL) \ - (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (DECL))->u.f.bridge) -#define METHOD_VARARGS(DECL) \ - (DECL_LANG_SPECIFIC (FUNCTION_DECL_CHECK (DECL))->u.f.varargs) - -#define CLASS_FILE_P(NODE) TREE_LANG_FLAG_3 (NODE) - -/* Other predicates on method decls */ - -#define DECL_CONSTRUCTOR_P(DECL) DECL_LANG_FLAG_7 (FUNCTION_DECL_CHECK (DECL)) - -#define DECL_INIT_P(DECL) (ID_INIT_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) -#define ID_CLINIT_P(ID) ((ID) == clinit_identifier_node) - -/* Access flags etc for variable/field (FIELD_DECL, VAR_DECL, or PARM_DECL): */ - -#define FIELD_PRIVATE(DECL) TREE_PRIVATE (VAR_OR_FIELD_CHECK (DECL)) -#define FIELD_PROTECTED(DECL) TREE_PROTECTED (VAR_OR_FIELD_CHECK (DECL)) -#define FIELD_PUBLIC(DECL) DECL_LANG_FLAG_1 (VAR_OR_FIELD_CHECK (DECL)) -#define FIELD_STATIC(DECL) TREE_STATIC (VAR_OR_FIELD_CHECK (DECL)) -#define FIELD_FINAL(DECL) DECL_FINAL (VAR_OR_FIELD_CHECK (DECL)) -#define FIELD_VOLATILE(DECL) DECL_LANG_FLAG_4 (VAR_OR_FIELD_CHECK (DECL)) -#define FIELD_TRANSIENT(DECL) DECL_LANG_FLAG_5 (VAR_OR_FIELD_CHECK (DECL)) - -/* Access flags etc for a class (a TYPE_DECL): */ - -#define CLASS_PUBLIC(DECL) DECL_LANG_FLAG_1 (TYPE_DECL_CHECK (DECL)) -#define CLASS_FINAL(DECL) DECL_FINAL (TYPE_DECL_CHECK (DECL)) -#define CLASS_INTERFACE(DECL) DECL_LANG_FLAG_4 (TYPE_DECL_CHECK (DECL)) -#define CLASS_ABSTRACT(DECL) DECL_LANG_FLAG_5 (TYPE_DECL_CHECK (DECL)) -#define CLASS_SUPER(DECL) DECL_LANG_FLAG_6 (TYPE_DECL_CHECK (DECL)) -#define CLASS_STATIC(DECL) DECL_LANG_FLAG_7 (TYPE_DECL_CHECK (DECL)) -#define CLASS_PRIVATE(DECL) (TYPE_PRIVATE_INNER_CLASS (TREE_TYPE (DECL))) -#define CLASS_PROTECTED(DECL) (TYPE_PROTECTED_INNER_CLASS (TREE_TYPE (DECL))) -#define CLASS_STRICTFP(DECL) (TYPE_STRICTFP (TREE_TYPE (DECL))) -#define CLASS_ENUM(DECL) (TYPE_ENUM (TREE_TYPE (DECL))) -#define CLASS_USES_ASSERTIONS(DECL) (TYPE_USES_ASSERTIONS (TREE_TYPE (DECL))) -#define CLASS_SYNTHETIC(DECL) (TYPE_SYNTHETIC (TREE_TYPE (DECL))) -#define CLASS_ANNOTATION(DECL) (TYPE_ANNOTATION (TREE_TYPE (DECL))) - -/* @deprecated marker flag on methods, fields and classes */ - -#define METHOD_DEPRECATED(DECL) DECL_LANG_FLAG_0 (DECL) -#define FIELD_DEPRECATED(DECL) DECL_LANG_FLAG_0 (DECL) -#define CLASS_DEPRECATED(DECL) DECL_LANG_FLAG_0 (DECL) -#define DECL_DEPRECATED(DECL) DECL_LANG_FLAG_0 (DECL) - -/* The number of virtual methods in this class's dispatch table. - Does not include initial two dummy entries (one points to the - Class object, and the other is for G++ -fvtable-thunks compatibility). */ -#define TYPE_NVIRTUALS(TYPE) BINFO_VIRTUALS (TYPE_BINFO (TYPE)) - -/* A TREE_VEC (indexed by DECL_VINDEX) containing this class's - virtual methods. */ -#define TYPE_VTABLE(TYPE) BINFO_VTABLE(TYPE_BINFO (TYPE)) - -/* Use CLASS_LOADED_P? FIXME */ -#define CLASS_COMPLETE_P(DECL) DECL_LANG_FLAG_2 (DECL) - -/* A vector used to track type states for the current method. */ -extern vec<tree, va_gc> *type_states; - -/* This maps a bytecode offset (PC) to various flags, - listed below (starting with BCODE_). */ -extern char *instruction_bits; - -/* True iff the byte is the start of an instruction. */ -#define BCODE_INSTRUCTION_START 1 - -/* True iff there is a jump or a return to this location. */ -#define BCODE_JUMP_TARGET 2 - -/* True iff this is the start of an exception handler. */ -#define BCODE_EXCEPTION_TARGET 16 - -/* True iff there is a jump to this location (and it needs a label). */ -#define BCODE_TARGET (BCODE_JUMP_TARGET| BCODE_EXCEPTION_TARGET) - -/* True iff there is an entry in the linenumber table for this location. */ -#define BCODE_HAS_LINENUMBER 32 - -/* True iff there is more than one entry in the linenumber table for - this location. (This probably does not make much sense.) */ -#define BCODE_HAS_MULTI_LINENUMBERS 64 - -/* True if this instruction has been verified. */ -#define BCODE_VERIFIED 8 - -/* A pointer to the line number table of the current method. */ -extern const unsigned char *linenumber_table; -/* The length (in items) of the line number table. */ -extern int linenumber_count; - -/* In type_map, means the second half of a 64-bit double or long. */ -#define TYPE_SECOND void_type_node - -/* In type_map, means the null type (i.e. type of a null reference). */ -#define TYPE_NULL ptr_type_node - -/* In a type map means the type the address subroutine return address. */ -#define TYPE_RETURN_ADDR return_address_type_node - -/* A array mapping variable/stack slot index to the type current - in that variable/stack slot. - TYPE_SECOND and TYPE_NULL are special cases. */ -extern tree *type_map; - -/* Map a stack index to the type currently in that slot. */ -#define stack_type_map (type_map + DECL_MAX_LOCALS (current_function_decl)) - -/* True iff TYPE takes two variable/stack slots. */ -#define TYPE_IS_WIDE(TYPE) \ - ((TYPE) == double_type_node || (TYPE) == long_type_node) - -/* True iff TYPE is a Java array type. */ -#define TYPE_ARRAY_P(TYPE) TYPE_LANG_FLAG_1 (TYPE) - -/* True for an INDIRECT_REF created from a 'ARRAY.length' operation. */ -#define IS_ARRAY_LENGTH_ACCESS(NODE) TREE_LANG_FLAG_4 (NODE) - -/* If FUNCTION_TYPE or METHOD_TYPE: cache for build_java_argument_signature. */ -#define TYPE_ARGUMENT_SIGNATURE(TYPE) \ - (TYPE_MINVAL (TREE_CHECK2 (TYPE, FUNCTION_TYPE, METHOD_TYPE))) - -/* Given an array type, give the type of the elements. */ -/* 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 (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 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 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 occurring as a side effect of performing the - layout of a class. */ -#define CLASS_BEING_LAIDOUT(TYPE) TYPE_LANG_FLAG_6 (TYPE) - -/* True if ID is a qualified named (contains . or /) */ -#define QUALIFIED_P(ID) TREE_LANG_FLAG_2 (ID) - -/* True if ID is a command-line specified filename */ -#define IS_A_COMMAND_LINE_FILENAME_P(ID) TREE_LANG_FLAG_4 (ID) - -/* True if filename ID has already been parsed */ -#define HAS_BEEN_ALREADY_PARSED_P(ID) TREE_LANG_FLAG_5 (ID) - -/* True if TYPE (a TREE_TYPE denoting a class type) was found to - feature a finalizer method. */ -#define HAS_FINALIZER_P(EXPR) TREE_LANG_FLAG_3 (EXPR) - -/* True 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)) - -/* True 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))) - -/* True if the class type NODE was declared in an 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))) - -/* True 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 (TYPE_DECL_CHECK (NODE)) - -/* Add a FIELD_DECL to RECORD_TYPE RTYPE. - The field has name NAME (a char*), a type FTYPE, and a location of LOC. - Unless this is the first field, FIELD most hold the previous field. - FIELD is set to the newly created FIELD_DECL. - - We set DECL_ARTIFICIAL so these fields get skipped by make_class_data - if compiling java.lang.Object or java.lang.Class. */ - -#define PUSH_FIELD(LOC, RTYPE, FIELD, NAME, FTYPE) \ -{ tree _field = build_decl (LOC, FIELD_DECL, get_identifier ((NAME)), (FTYPE)); \ - if (TYPE_FIELDS (RTYPE) == NULL_TREE) \ - TYPE_FIELDS (RTYPE) = _field; \ - else \ - DECL_CHAIN(FIELD) = _field; \ - DECL_CONTEXT (_field) = (RTYPE); \ - DECL_ARTIFICIAL (_field) = 1; \ - FIELD = _field; } - -#define FINISH_RECORD(RTYPE) layout_type (RTYPE) - -/* Start building a RECORD_TYPE constructor's elements in V. The - constructor will have type CTYPE. */ -#define START_RECORD_CONSTRUCTOR(V, CTYPE) \ - do \ - { \ - vec_alloc (V, 0); \ - CONSTRUCTOR_APPEND_ELT (V, TYPE_FIELDS (CTYPE), NULL); \ - } \ - while (0) - -/* Append a field initializer to V for the dummy field for the inherited - fields. The dummy field has the given VALUE, and the same type as the - super-class. Must be specified before calls to PUSH_FIELD_VALUE. */ -#define PUSH_SUPER_VALUE(V, VALUE) \ - do \ - { \ - constructor_elt *_elt___ = &(V)->last (); \ - tree _next___ = DECL_CHAIN (_elt___->index); \ - gcc_assert (!DECL_NAME (_elt___->index)); \ - _elt___->value = VALUE; \ - CONSTRUCTOR_APPEND_ELT (V, _next___, NULL); \ - } \ - while (0) - -/* Append a field initializer to V for a field with the given VALUE. - NAME is a char* string used for error checking; - the initializer must be specified in order. */ -#define PUSH_FIELD_VALUE(V, NAME, VALUE) \ - do \ - { \ - constructor_elt *_elt___ = &(V)->last (); \ - tree _next___ = DECL_CHAIN (_elt___->index); \ - gcc_assert (strcmp (IDENTIFIER_POINTER (DECL_NAME (_elt___->index)), \ - NAME) == 0); \ - _elt___->value = VALUE; \ - CONSTRUCTOR_APPEND_ELT (V, _next___, NULL); \ - } \ - while (0) - -/* Finish creating a record CONSTRUCTOR CONS with type CTYPE and elements V. */ -#define FINISH_RECORD_CONSTRUCTOR(CONS, V, CTYPE) \ - do \ - { \ - V->pop (); \ - CONS = build_constructor (CTYPE, V); \ - TREE_CONSTANT (CONS) = 0; \ - } \ - while (0) - -#define BLOCK_EXPR_DECLS(NODE) BLOCK_VARS(NODE) -#define BLOCK_EXPR_BODY(NODE) BLOCK_SUBBLOCKS(NODE) - -#define BUILD_MONITOR_ENTER(WHERE, ARG) \ - { \ - (WHERE) = build_call_nary (int_type_node, \ - build_address_of (soft_monitorenter_node), \ - 1, (ARG)); \ - TREE_SIDE_EFFECTS (WHERE) = 1; \ - } - -#define BUILD_MONITOR_EXIT(WHERE, ARG) \ - { \ - (WHERE) = build_call_nary (int_type_node, \ - build_address_of (soft_monitorexit_node), \ - 1, (ARG)); \ - TREE_SIDE_EFFECTS (WHERE) = 1; \ - } - -/* True when we can perform static class initialization optimization */ -#define STATIC_CLASS_INIT_OPT_P() \ - (flag_optimize_sci && (optimize >= 2)) - -/* 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_READ = 4, /* Has been completely defined. */ - JV_STATE_LOADED = 5, /* Has Miranda methods defined. */ - - 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_ERROR = 12, - - JV_STATE_DONE = 14 /* Must be last. */ -}; - -#undef DEBUG_JAVA_BINDING_LEVELS - -extern void java_genericize (tree); -extern int java_gimplify_expr (tree *, gimple_seq *, gimple_seq *); - -extern FILE *finput; - -#endif /* ! GCC_JAVA_TREE_H */ |