diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2007-04-06 11:21:15 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-04-06 11:21:15 +0200 |
| commit | 86109281fd81a6ee378e08c86bec59a3e3a6d34a (patch) | |
| tree | 75bd8292125e226a612bbba4d9dd1138cf4e095e | |
| parent | 62548837380e7ecdf8555ca76256ef6ffaa1239d (diff) | |
| download | gcc-86109281fd81a6ee378e08c86bec59a3e3a6d34a.zip gcc-86109281fd81a6ee378e08c86bec59a3e3a6d34a.tar.gz gcc-86109281fd81a6ee378e08c86bec59a3e3a6d34a.tar.bz2 | |
exp_pakd.adb (Expand_Packed_Boolean_Operator): The bounds of the result are the bounds of the left operand, not the right.
2007-04-06 Ed Schonberg <schonberg@adacore.com>
* exp_pakd.adb (Expand_Packed_Boolean_Operator): The bounds of the
result are the bounds of the left operand, not the right.
From-SVN: r123567
| -rw-r--r-- | gcc/ada/exp_pakd.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 472c0da..fe2eb36 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1824,7 +1824,7 @@ package body Exp_Pakd is P := Make_Op_Xor (Loc, L, R); end if; - Rewrite (N, Unchecked_Convert_To (Rtyp, P)); + Rewrite (N, Unchecked_Convert_To (Ltyp, P)); end; -- For the array case, we insert the actions |