diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-10-17 11:05:35 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-10-17 11:05:35 +0000 |
| commit | 3f273c8a53e786389658f14a0316e48a5e0de0b6 (patch) | |
| tree | fd8d2040380c07dc46f6c8584fa8fb12829b0e61 /gcc/ada/gcc-interface/utils2.c | |
| parent | 7fc6a96bed6d0b2511f56e246c5ca0c3058616aa (diff) | |
| download | gcc-3f273c8a53e786389658f14a0316e48a5e0de0b6.zip gcc-3f273c8a53e786389658f14a0316e48a5e0de0b6.tar.gz gcc-3f273c8a53e786389658f14a0316e48a5e0de0b6.tar.bz2 | |
utils2.c (build_binary_op): Make sure the element type is consistent.
* gcc-interface/utils2.c (build_binary_op) <ARRAY_RANGE_REF>: Make
sure the element type is consistent.
From-SVN: r152934
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index fcd9ecd..7176740 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -755,6 +755,12 @@ build_binary_op (enum tree_code op_code, tree result_type, left_type = TREE_TYPE (left_operand); } + /* For a range, make sure the element type is consistent. */ + if (op_code == ARRAY_RANGE_REF + && TREE_TYPE (operation_type) != TREE_TYPE (left_type)) + operation_type = build_array_type (TREE_TYPE (left_type), + TYPE_DOMAIN (operation_type)); + /* Then convert the right operand to its base type. This will prevent unneeded sign conversions when sizetype is wider than integer. */ right_operand = convert (right_base_type, right_operand); |