From 86109281fd81a6ee378e08c86bec59a3e3a6d34a Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Fri, 6 Apr 2007 11:21:15 +0200 Subject: [PATCH] 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 * 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 --- gcc/ada/exp_pakd.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 472c0daa6b9..fe2eb369fd1 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 -- 2.30.2