diff options
| author | Tomas Bily <tbily@suse.cz> | 2008-05-12 16:20:35 +0200 |
|---|---|---|
| committer | Tomas Bily <tomby@gcc.gnu.org> | 2008-05-12 16:20:35 +0200 |
| commit | 751d1520c31199d7a67e8c3caaed4e4af90fcb75 (patch) | |
| tree | 4f9197dd372e807b35158d95c6870719d2c538c5 /gcc/ada/trans.c | |
| parent | 63a906f02b620920f146512e2c5572b2ae5314f8 (diff) | |
| download | gcc-751d1520c31199d7a67e8c3caaed4e4af90fcb75.zip gcc-751d1520c31199d7a67e8c3caaed4e4af90fcb75.tar.gz gcc-751d1520c31199d7a67e8c3caaed4e4af90fcb75.tar.bz2 | |
* utils2.c (known_alignment, contains_save_expr_p)
(gnat_mark_addressable): Use CASE_CONVERT.
* decl.c (annotate_value): Likewise.
* trans.c (maybe_stabilize_reference): Likewise.
* utils2.c (build_binary_op): Use CONVERT_EXPR_P.
* utils.c (rest_of_record_type_compilation): Likewise.
* trans.c (protect_multiple_eval, Attribute_to_gnu)
(protect_multiple_eval): Likewise.
From-SVN: r135215
Diffstat (limited to 'gcc/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 5ec3ecd..122857a 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -916,8 +916,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) if (attribute == Attr_Code_Address) { for (gnu_expr = gnu_result; - TREE_CODE (gnu_expr) == NOP_EXPR - || TREE_CODE (gnu_expr) == CONVERT_EXPR; + CONVERT_EXPR_P (gnu_expr); gnu_expr = TREE_OPERAND (gnu_expr, 0)) TREE_CONSTANT (gnu_expr) = 1; @@ -931,8 +930,7 @@ Attribute_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, int attribute) else if (TREE_CODE (TREE_TYPE (gnu_prefix)) == FUNCTION_TYPE) { for (gnu_expr = gnu_result; - TREE_CODE (gnu_expr) == NOP_EXPR - || TREE_CODE (gnu_expr) == CONVERT_EXPR; + CONVERT_EXPR_P (gnu_expr); gnu_expr = TREE_OPERAND (gnu_expr, 0)) ; @@ -6567,7 +6565,7 @@ protect_multiple_eval (tree exp) actually need to protect the address since the data itself can't change in these situations. */ else if (TREE_CODE (exp) == NON_LVALUE_EXPR - || TREE_CODE (exp) == NOP_EXPR || TREE_CODE (exp) == CONVERT_EXPR + || CONVERT_EXPR_P (exp) || TREE_CODE (exp) == VIEW_CONVERT_EXPR || TREE_CODE (exp) == INDIRECT_REF || TREE_CODE (exp) == UNCONSTRAINED_ARRAY_REF) @@ -6613,8 +6611,7 @@ maybe_stabilize_reference (tree ref, bool force, bool *success) return ref; case ADDR_EXPR: - case NOP_EXPR: - case CONVERT_EXPR: + CASE_CONVERT: case FLOAT_EXPR: case FIX_TRUNC_EXPR: case VIEW_CONVERT_EXPR: |