diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-06-06 15:27:38 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-05 08:28:19 +0000 |
| commit | 824211e18b96dc56d3a530b31aa16cded2c941eb (patch) | |
| tree | 42c42cd0c54d63f6e7da3a50270239cd390ac6fb /gcc | |
| parent | 5c0729d2edbc963e5bdea29547aa7b0c751cb491 (diff) | |
| download | gcc-824211e18b96dc56d3a530b31aa16cded2c941eb.zip gcc-824211e18b96dc56d3a530b31aa16cded2c941eb.tar.gz gcc-824211e18b96dc56d3a530b31aa16cded2c941eb.tar.bz2 | |
[Ada] Remove repeated analysis for pragma Thread_Local_Storage
When analysing pragma Thread_Local_Storage its argument is analysed by
the call to Check_Arg_Is_Library_Level_Local_Name. There is no need to
reanalyse it. Code cleanup; behaviour is not affected.
gcc/ada/
* sem_prag.adb (Analyze_Pragma): Remove unnecessary call to
Analyze.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 3431e3f..9ebac41 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -24861,7 +24861,6 @@ package body Sem_Prag is Check_Arg_Is_Library_Level_Local_Name (Arg1); Id := Get_Pragma_Arg (Arg1); - Analyze (Id); if not Is_Entity_Name (Id) or else Ekind (Entity (Id)) /= E_Variable |