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
This commit is contained in:
Ed Schonberg 2007-04-06 11:21:15 +02:00 committed by Arnaud Charlet
parent 6254883738
commit 86109281fd
1 changed files with 1 additions and 1 deletions

View File

@ -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