diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index dfde06e..013fccd 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -357,7 +357,7 @@ add_deferred_decl_context (tree decl, Entity_Id gnat_scope, int force_global); computed. */ static void add_deferred_type_context (struct deferred_decl_context_node *n, tree type); - + /* Initialize data structures of the utils.c module. */ void @@ -397,7 +397,7 @@ destroy_gnat_utils (void) pad_type_hash_table->empty (); pad_type_hash_table = NULL; } - + /* GNAT_ENTITY is a GNAT tree node for an entity. Associate GNU_DECL, a GCC tree node, with GNAT_ENTITY. If GNU_DECL is not a ..._DECL node, abort. If NO_CHECK is true, the latter check is suppressed. @@ -438,7 +438,7 @@ present_gnu_tree (Entity_Id gnat_entity) { return PRESENT_GNU_TREE (gnat_entity); } - + /* Make a dummy type corresponding to GNAT_TYPE. */ tree @@ -533,7 +533,7 @@ build_dummy_unc_pointer_types (Entity_Id gnat_desig_type, tree gnu_desig_type) TYPE_REFERENCE_TO (gnu_desig_type) = gnu_fat_type; TYPE_OBJECT_RECORD_TYPE (gnu_desig_type) = gnu_object_type; } - + /* Return true if we are in the global binding level. */ bool @@ -663,7 +663,7 @@ gnat_zaplevel (void) level->chain = free_binding_level; free_binding_level = level; } - + /* Set the context of TYPE and its parallel types (if any) to CONTEXT. */ static void @@ -935,7 +935,7 @@ gnat_pushdecl (tree decl, Node_Id gnat_node) } } } - + /* Create a record type that contains a SIZE bytes long field of TYPE with a starting bit position so that it is aligned to ALIGN bits, and leaving at least ROOM bytes free before the field. BASE_ALIGN is the alignment the @@ -1772,7 +1772,7 @@ set_reverse_storage_order_on_pad_type (tree type) TYPE_REVERSE_STORAGE_ORDER (type) = 1; return canonicalize_pad_type (type); } - + /* Relate the alias sets of GNU_NEW_TYPE and GNU_OLD_TYPE according to OP. If this is a multi-dimensional array type, do this recursively. @@ -1847,7 +1847,7 @@ relate_alias_sets (tree gnu_new_type, tree gnu_old_type, enum alias_set_op op) record_component_aliases (gnu_new_type); } - + /* Record TYPE as a builtin type for Ada. NAME is the name of the type. ARTIFICIAL_P is true if the type was generated by the compiler. */ @@ -1863,7 +1863,7 @@ record_builtin_type (const char *name, tree type, bool artificial_p) if (debug_hooks->type_decl) debug_hooks->type_decl (type_decl, false); } - + /* Finish constructing the character type CHAR_TYPE. In Ada character types are enumeration types and, as a consequence, are @@ -2558,7 +2558,7 @@ split_plus (tree in, tree *pvar) else return bitsize_zero_node; } - + /* Return a copy of TYPE but safe to modify in any way. */ tree @@ -2595,7 +2595,7 @@ copy_type (tree type) return new_type; } - + /* Return a subtype of sizetype with range MIN to MAX and whose TYPE_INDEX_TYPE is INDEX. GNAT_NODE is used for the position of the associated TYPE_DECL. */ @@ -2634,8 +2634,8 @@ create_range_type (tree type, tree min, tree max) return range_type; } - - /* Return an extra subtype of TYPE with range MIN to MAX. */ + +/* Return an extra subtype of TYPE with range MIN to MAX. */ tree create_extra_subtype (tree type, tree min, tree max) @@ -2652,7 +2652,7 @@ create_extra_subtype (tree type, tree min, tree max) return subtype; } - + /* Return a TYPE_DECL node suitable for the TYPE_STUB_DECL field of TYPE. NAME gives the name of the type to be used in the declaration. */ @@ -2718,7 +2718,7 @@ create_type_decl (tree name, tree type, bool artificial_p, bool debug_info_p, return type_decl; } - + /* Return a VAR_DECL or CONST_DECL node. NAME gives the name of the variable. ASM_NAME is its assembler name @@ -2886,7 +2886,7 @@ create_var_decl (tree name, tree asm_name, tree type, tree init, return var_decl; } - + /* Return true if TYPE, an aggregate type, contains (or is) an array. If SELF_REFERENTIAL is true, then an additional requirement on the array is that it be self-referential. */ @@ -3097,7 +3097,7 @@ create_field_decl (tree name, tree type, tree record_type, tree size, tree pos, return field_decl; } - + /* Return a PARM_DECL node with NAME and TYPE. */ tree @@ -3131,7 +3131,7 @@ create_param_decl (tree name, tree type) DECL_ARG_TYPE (param_decl) = type; return param_decl; } - + /* Process the attributes in ATTR_LIST for NODE, which is either a DECL or a TYPE. If IN_PLACE is true, the tree pointed to by NODE should not be changed. GNAT_NODE is used for the position of error messages. */ @@ -3420,7 +3420,7 @@ create_label_decl (tree name, Node_Id gnat_node) return label_decl; } - + /* Return a FUNCTION_DECL node. NAME is the name of the subprogram, ASM_NAME its assembler name, TYPE its type (a FUNCTION_TYPE or METHOD_TYPE node), PARAM_DECL_LIST the list of its parameters (a list of PARM_DECL nodes @@ -3558,7 +3558,7 @@ finish_subprog_decl (tree decl, tree asm_name, tree type) DECL_NAME (decl) = main_identifier_node; } } - + /* Set up the framework for generating code for SUBPROG_DECL, a subprogram body. This routine needs to be invoked before processing the declarations appearing in the subprogram. */ @@ -3830,7 +3830,7 @@ fntype_same_flags_p (const_tree t, tree cico_list, bool return_unconstrained_p, && TYPE_RETURN_BY_DIRECT_REF_P (t) == return_by_direct_ref_p && TREE_ADDRESSABLE (t) == return_by_invisi_ref_p; } - + /* EXP is an expression for the size of an object. If this size contains discriminant references, replace them with the maximum (if MAX_P) or minimum (if !MAX_P) possible value of the discriminant. @@ -4042,7 +4042,7 @@ max_size (tree exp, bool max_p) gcc_unreachable (); } - + /* Build a template of type TEMPLATE_TYPE from the array bounds of ARRAY_TYPE. EXPR is an expression that we can use to locate any PLACEHOLDER_EXPRs. Return a constructor for the template. */ @@ -4108,7 +4108,7 @@ build_template (tree template_type, tree array_type, tree expr) return gnat_build_constructor (template_type, template_elts); } - + /* Return true if TYPE is suitable for the element type of a vector. */ static bool @@ -4198,7 +4198,7 @@ build_vector_type_for_array (tree array_type, tree attribute) TYPE_REPRESENTATIVE_ARRAY (vector_type) = array_type; return vector_type; } - + /* Build a type to be used to represent an aliased object whose nominal type is an unconstrained array. This consists of a RECORD_TYPE containing a field of TEMPLATE_TYPE and a field of OBJECT_TYPE, which is an ARRAY_TYPE. @@ -4248,7 +4248,7 @@ build_unc_object_type_from_ptr (tree thin_fat_ptr_type, tree object_type, return build_unc_object_type (template_type, object_type, name, debug_info_p); } - + /* Update anything previously pointing to OLD_TYPE to point to NEW_TYPE. In the normal case this is just two adjustments, but we have more to do if NEW_TYPE is an UNCONSTRAINED_ARRAY_TYPE. */ @@ -4379,7 +4379,7 @@ update_pointer_to (tree old_type, tree new_type) TYPE_REFERENCE_TO (old_type) = NULL_TREE; } } - + /* Convert EXPR, a pointer to a constrained array, into a pointer to an unconstrained one. This involves making or finding a template. */ @@ -4483,7 +4483,7 @@ convert_to_fat_pointer (tree type, tree expr) CONSTRUCTOR_APPEND_ELT (v, DECL_CHAIN (TYPE_FIELDS (type)), template_addr); return gnat_build_constructor (type, v); } - + /* Create an expression whose value is that of EXPR, converted to type TYPE. The TREE_TYPE of the value is always TYPE. This function implements all reasonable @@ -5170,7 +5170,7 @@ convert_to_index_type (tree expr) return convert (sizetype, expr); } - + /* Remove all conversions that are done in EXP. This includes converting from a padded type or to a justified modular type. If TRUE_ADDRESS is true, always return the address of the containing object even if @@ -5205,7 +5205,7 @@ remove_conversions (tree exp, bool true_address) return exp; } - + /* If EXP's type is an UNCONSTRAINED_ARRAY_TYPE, return an expression that refers to the underlying array. If it has TYPE_CONTAINS_TEMPLATE_P, likewise return an expression pointing to the underlying array. */ @@ -5293,7 +5293,7 @@ maybe_unconstrained_array (tree exp) return exp; } - + /* Return true if EXPR is an expression that can be folded as an operand of a VIEW_CONVERT_EXPR. See ada-tree.h for a complete rationale. */ @@ -5687,7 +5687,7 @@ unchecked_convert (tree type, tree expr, bool notrunc_p) return expr; } - + /* Return the appropriate GCC tree code for the specified GNAT_TYPE, the latter being a record type as predicated by Is_Record_Type. */ |