+2020-05-09 Eric Botcazou <ebotcazou@adacore.com>
+
+ * gcc-interface/utils2.c: Include builtins.h.
+ (known_alignment) <ADDR_EXPR>: Use DECL_ALIGN for DECL_P operands
+ and get_object_alignment for the rest.
+
2020-05-08 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Force at
return tree_to_shwi (byte_position (field));
}
\f
-/* Return the strictest alignment, in bits, that T is known to have. */
-
-unsigned int
-expr_align (const_tree t)
-{
- unsigned int align0, align1;
-
- switch (TREE_CODE (t))
- {
- CASE_CONVERT: case NON_LVALUE_EXPR:
- /* If we have conversions, we know that the alignment of the
- object must meet each of the alignments of the types. */
- align0 = expr_align (TREE_OPERAND (t, 0));
- align1 = TYPE_ALIGN (TREE_TYPE (t));
- return MAX (align0, align1);
-
- case SAVE_EXPR: case COMPOUND_EXPR: case MODIFY_EXPR:
- case INIT_EXPR: case TARGET_EXPR: case WITH_CLEANUP_EXPR:
- case CLEANUP_POINT_EXPR:
- /* These don't change the alignment of an object. */
- return expr_align (TREE_OPERAND (t, 0));
-
- case COND_EXPR:
- /* The best we can do is say that the alignment is the least aligned
- of the two arms. */
- align0 = expr_align (TREE_OPERAND (t, 1));
- align1 = expr_align (TREE_OPERAND (t, 2));
- return MIN (align0, align1);
-
- /* FIXME: LABEL_DECL and CONST_DECL never have DECL_ALIGN set
- meaningfully, it's always 1. */
- case LABEL_DECL: case CONST_DECL:
- case VAR_DECL: case PARM_DECL: case RESULT_DECL:
- case FUNCTION_DECL:
- gcc_assert (DECL_ALIGN (t) != 0);
- return DECL_ALIGN (t);
-
- default:
- break;
- }
-
- /* Otherwise take the alignment from that of the type. */
- return TYPE_ALIGN (TREE_TYPE (t));
-}
-\f
/* Return, as a tree node, the number of elements for TYPE (which is an
ARRAY_TYPE) minus one. This counts only elements of the top array. */
extern tree type_hash_canon (unsigned int, tree);
extern tree convert (tree, tree);
-extern unsigned int expr_align (const_tree);
extern tree size_in_bytes_loc (location_t, const_tree);
inline tree
size_in_bytes (const_tree t)