From: Piotr Trojanek <troja...@adacore.com> Expansion of assignments to packed array objects has two cases and had duplicated code for both these cases.
gcc/ada/ * exp_pakd.adb (Expand_Bit_Packed_Element_Set): Remove code from the ELSE branch, because it was is identical to code before the IF statements itself. Tested on x86_64-pc-linux-gnu, committed on master. --- gcc/ada/exp_pakd.adb | 4 ---- 1 file changed, 4 deletions(-) diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index 2b92c467187..19d158ffad0 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1432,7 +1432,6 @@ package body Exp_Pakd is Bits_nn : constant Entity_Id := RTE (Bits_Id (Csiz)); Set_nn : Entity_Id; Subscr : Node_Id; - Atyp : Entity_Id; Rev_SSO : Node_Id; begin @@ -1454,9 +1453,6 @@ package body Exp_Pakd is -- Now generate the set reference - Obj := Relocate_Node (Prefix (Lhs)); - Convert_To_Actual_Subtype (Obj); - Atyp := Etype (Obj); Compute_Linear_Subscript (Atyp, Lhs, Subscr); -- Set indication of whether the packed array has reverse SSO -- 2.42.0