From 68040a6947971937bfaec08d8e4a229ceb5d7571 Mon Sep 17 00:00:00 2001
From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 3 Oct 2023 21:08:29 +0200
Subject: [PATCH] ada: Change local variables to constants in expansion of
packed arrays
Cleanup; semantics is unaffected.
gcc/ada/
* exp_pakd.adb
(Expand_Bit_Packed_Element_Set): Change local Decl object from
variable to constant.
(Setup_Inline_Packed_Array_Reference): Likewise for Csiz.
---
gcc/ada/exp_pakd.adb | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb
index 2d3abbd349db..1641e8a51c27 100644
--- a/gcc/ada/exp_pakd.adb
+++ b/gcc/ada/exp_pakd.adb
@@ -1137,14 +1137,12 @@ package body Exp_Pakd is
if Nkind (Rhs) = N_String_Literal then
declare
- Decl : Node_Id;
- begin
- Decl :=
+ Decl : constant Node_Id :=
Make_Object_Declaration (Loc,
Defining_Identifier => Make_Temporary (Loc, 'T', Rhs),
Object_Definition => New_Occurrence_Of (Ctyp, Loc),
Expression => New_Copy_Tree (Rhs));
-
+ begin
Insert_Actions (N, New_List (Decl));
Rhs := New_Occurrence_Of (Defining_Identifier (Decl), Loc);
end;
@@ -2481,12 +2479,10 @@ package body Exp_Pakd is
Loc : constant Source_Ptr := Sloc (N);
PAT : Entity_Id;
Otyp : Entity_Id;
- Csiz : Uint;
+ Csiz : constant Uint := Component_Size (Atyp);
Osiz : Uint;
begin
- Csiz := Component_Size (Atyp);
-
Convert_To_PAT_Type (Obj);
PAT := Etype (Obj);
--
GitLab