diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2018-05-31 10:46:34 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-31 10:46:34 +0000 |
| commit | 7ae795f7b62b8cf30291f4b9ebf6f17c397bb9c4 (patch) | |
| tree | bb217b5e5a074930e9398215d171aea7c28c73cb | |
| parent | 7366d29a546c6ea55a6fe8d2a131dc16c892f4b3 (diff) | |
| download | gcc-7ae795f7b62b8cf30291f4b9ebf6f17c397bb9c4.zip gcc-7ae795f7b62b8cf30291f4b9ebf6f17c397bb9c4.tar.gz gcc-7ae795f7b62b8cf30291f4b9ebf6f17c397bb9c4.tar.bz2 | |
[Ada] Simplify call to Unique_Defining_Entity on protected entry declarations
Calling Unique_Defining_Entity on protectected entry declarations is
equivalent to calling a simpler Defining_Entity; use the simpler routine.
Simplification only; semantics unaffected, so no test provided.
2018-05-31 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* sem_prag.adb (Analyze_Pragma): Replace call to Unique_Defining_Entity
with a semantically equivalent call to Defining_Entity.
From-SVN: r261003
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index a58cfe8..8a138f0 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2018-05-31 Piotr Trojanek <trojanek@adacore.com> + * sem_prag.adb (Analyze_Pragma): Replace call to Unique_Defining_Entity + with a semantically equivalent call to Defining_Entity. + +2018-05-31 Piotr Trojanek <trojanek@adacore.com> + * sem_prag.adb (Analyze_Pragma): Set Etype on the rewritten Max_Queue_Length expression. diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index e80c297..9cfb39c 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -18795,7 +18795,7 @@ package body Sem_Prag is return; end if; - Entry_Id := Unique_Defining_Entity (Entry_Decl); + Entry_Id := Defining_Entity (Entry_Decl); -- Otherwise the pragma is associated with an illegal construct |