diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2023-09-29 10:43:15 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-10-10 14:12:28 +0200 |
| commit | 25c253e64e51befd9f7567b28e574859f9fce128 (patch) | |
| tree | 173c18ccb39fc355472a38ba87c2094d912af253 /gcc/ada | |
| parent | e05e5d6bc60f938717a58a3a715c67236b0b2974 (diff) | |
| download | gcc-25c253e64e51befd9f7567b28e574859f9fce128.zip gcc-25c253e64e51befd9f7567b28e574859f9fce128.tar.gz gcc-25c253e64e51befd9f7567b28e574859f9fce128.tar.bz2 | |
ada: Remove superfluous setter procedure
It is only called once.
gcc/ada/
* sem_util.ads (Set_Scope_Is_Transient): Delete.
* sem_util.adb (Set_Scope_Is_Transient): Likewise.
* exp_ch7.adb (Create_Transient_Scope): Set Is_Transient directly.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_ch7.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_util.adb | 9 | ||||
| -rw-r--r-- | gcc/ada/sem_util.ads | 3 |
3 files changed, 1 insertions, 13 deletions
diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 5049de54..00b7692 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -4529,7 +4529,7 @@ package body Exp_Ch7 is Push_Scope (Trans_Scop); Scope_Stack.Table (Scope_Stack.Last).Node_To_Be_Wrapped := Context; - Set_Scope_Is_Transient; + Scope_Stack.Table (Scope_Stack.Last).Is_Transient := True; -- The transient scope must also manage the secondary stack diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index e778bab..26ddb52 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -27792,15 +27792,6 @@ package body Sem_Util is end if; end Set_Rep_Info; - ---------------------------- - -- Set_Scope_Is_Transient -- - ---------------------------- - - procedure Set_Scope_Is_Transient (V : Boolean := True) is - begin - Scope_Stack.Table (Scope_Stack.Last).Is_Transient := V; - end Set_Scope_Is_Transient; - ------------------- -- Set_Size_Info -- ------------------- diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 92016bc..dda71e4 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -3165,9 +3165,6 @@ package Sem_Util is -- from sub(type) entity T2 to (sub)type entity T1, as well as Is_Volatile -- if T1 is a base type. - procedure Set_Scope_Is_Transient (V : Boolean := True); - -- Set the flag Is_Transient of the current scope - procedure Set_Size_Info (T1, T2 : Entity_Id); pragma Inline (Set_Size_Info); -- Copies the Esize field and Has_Biased_Representation flag from sub(type) |