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/sem_util.ads | |
| 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/sem_util.ads')
| -rw-r--r-- | gcc/ada/sem_util.ads | 3 |
1 files changed, 0 insertions, 3 deletions
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) |