From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 3 Oct 2023 17:43:04 +0000 (+0200)
Subject: ada: Remove duplicated code for expansion of packed array assignments
X-Git-Tag: basepoints/gcc-15~4942
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=fe11fa6bd48a781c6acf0416aff1568e0d66f077;p=thirdparty%2Fgcc.git

ada: Remove duplicated code for expansion of packed array assignments

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

diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb
index 2b92c467187a..19d158ffad03 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