diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-10-12 22:09:21 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-10-12 22:09:21 +0000 |
| commit | 7ad4f11d076ff45813e918e94ff9fe81ad923b4c (patch) | |
| tree | 715fe2d48f137b425b9e5f3667210c13f8fb9dbd /gcc/ada/gcc-interface/utils.c | |
| parent | 02c36302950951a867bc5cd21b4ca4b5f843fdab (diff) | |
| download | ppe42-gcc-7ad4f11d076ff45813e918e94ff9fe81ad923b4c.tar.gz ppe42-gcc-7ad4f11d076ff45813e918e94ff9fe81ad923b4c.zip | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179873 138bc75d-0d04-0410-961f-82ee72b054a4
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 c4cfde7e421..272c192dbee 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: |
