diff options
| author | Olivier Hainque <hainque@adacore.com> | 2006-06-24 12:47:48 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2006-06-24 12:47:48 +0000 |
| commit | 61c25908fdbf3b6c29334ff84b30fcfaa2e29880 (patch) | |
| tree | b0b48b70fe5bdb5192ddb541aa32d97ef613a126 /gcc/tree-ssa-loop-im.c | |
| parent | 7606c786fd0d802f142f18e0cfbb643ad79cc8ec (diff) | |
| download | gcc-61c25908fdbf3b6c29334ff84b30fcfaa2e29880.zip gcc-61c25908fdbf3b6c29334ff84b30fcfaa2e29880.tar.gz gcc-61c25908fdbf3b6c29334ff84b30fcfaa2e29880.tar.bz2 | |
gimplify.c (gimplify_scalar_mode_aggregate_compare): New function.
* gimplify.c (gimplify_scalar_mode_aggregate_compare): New function.
(gimplify_expr): Use it for tcc_comparison of operands of non BLKmode
aggregate types.
* tree-ssa-loop-im.c (for_each_index): Handle ARRAY_RANGE_REF as
ARRAY_REF, so have the callback called for the low bound expression.
* gnat.dg/scalar_mode_agg_compare_loop.adb: New test.
* gnat.dg/scalar_mode_agg_compare.adb: New test.
From-SVN: r114963
Diffstat (limited to 'gcc/tree-ssa-loop-im.c')
| -rw-r--r-- | gcc/tree-ssa-loop-im.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/tree-ssa-loop-im.c b/gcc/tree-ssa-loop-im.c index e51e214..db9f42f6 100644 --- a/gcc/tree-ssa-loop-im.c +++ b/gcc/tree-ssa-loop-im.c @@ -174,7 +174,6 @@ for_each_index (tree *addr_p, bool (*cbck) (tree, tree *, void *), void *data) case BIT_FIELD_REF: case VIEW_CONVERT_EXPR: - case ARRAY_RANGE_REF: case REALPART_EXPR: case IMAGPART_EXPR: nxt = &TREE_OPERAND (*addr_p, 0); @@ -192,6 +191,7 @@ for_each_index (tree *addr_p, bool (*cbck) (tree, tree *, void *), void *data) break; case ARRAY_REF: + case ARRAY_RANGE_REF: nxt = &TREE_OPERAND (*addr_p, 0); if (!cbck (*addr_p, &TREE_OPERAND (*addr_p, 1), data)) return false; |