diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-10-12 22:09:21 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-10-12 22:09:21 +0000 |
| commit | 722356ce27601ee33c0aabfa939af8367ac11d54 (patch) | |
| tree | 715fe2d48f137b425b9e5f3667210c13f8fb9dbd /gcc/ada/gcc-interface/utils.c | |
| parent | 4eb20b036e26aedb39beae5de3ec4efeb7a097e8 (diff) | |
| download | gcc-722356ce27601ee33c0aabfa939af8367ac11d54.zip gcc-722356ce27601ee33c0aabfa939af8367ac11d54.tar.gz gcc-722356ce27601ee33c0aabfa939af8367ac11d54.tar.bz2 | |
trans.c (Attribute_to_gnu): Use remove_conversions.
* gcc-interface/trans.c (Attribute_to_gnu): Use remove_conversions.
(push_range_check_info): Likewise.
(gnat_to_gnu) <N_Code_Statement>: Likewise.
* gcc-interface/utils2.c (build_unary_op) <INDIRECT_REF>: Likewise.
(gnat_invariant_expr): Likewise.
* gcc-interface/utils.c (compute_related_constant): Likewise.
(max_size): Fix handling of SAVE_EXPR.
(remove_conversions): Fix formatting.
From-SVN: r179873
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index c4cfde7..272c192 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1147,11 +1147,11 @@ compute_related_constant (tree op0, tree op1) static tree split_plus (tree in, tree *pvar) { - /* Strip NOPS in order to ease the tree traversal and maximize the - potential for constant or plus/minus discovery. We need to be careful + /* Strip conversions in order to ease the tree traversal and maximize the + potential for constant or plus/minus discovery. We need to be careful to always return and set *pvar to bitsizetype trees, but it's worth the effort. */ - STRIP_NOPS (in); + in = remove_conversions (in, false); *pvar = convert (bitsizetype, in); @@ -2288,7 +2288,9 @@ max_size (tree exp, bool max_p) switch (TREE_CODE_LENGTH (code)) { case 1: - if (code == NON_LVALUE_EXPR) + if (code == SAVE_EXPR) + return exp; + else if (code == NON_LVALUE_EXPR) return max_size (TREE_OPERAND (exp, 0), max_p); else return @@ -2330,9 +2332,7 @@ max_size (tree exp, bool max_p) } case 3: - if (code == SAVE_EXPR) - return exp; - else if (code == COND_EXPR) + if (code == COND_EXPR) return fold_build2 (max_p ? MAX_EXPR : MIN_EXPR, type, max_size (TREE_OPERAND (exp, 1), max_p), max_size (TREE_OPERAND (exp, 2), max_p)); @@ -4359,8 +4359,9 @@ remove_conversions (tree exp, bool true_address) return remove_conversions (TREE_OPERAND (exp, 0), true_address); break; - case VIEW_CONVERT_EXPR: case NON_LVALUE_EXPR: CASE_CONVERT: + case VIEW_CONVERT_EXPR: + case NON_LVALUE_EXPR: return remove_conversions (TREE_OPERAND (exp, 0), true_address); default: |