[Ada] Sem_Elab: remove duplicate condition

2018-07-31  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* sem_elab.adb: Remove duplicate condition detected by CodePeer.

From-SVN: r263106

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a713ceb8fecc2b5ed17495a8744a13646956a26a..92ec7513bd58b3caa4f72f157fcc8350899ad104 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-07-31  Arnaud Charlet  <charlet@adacore.com>
+
+       * sem_elab.adb: Remove duplicate condition detected by CodePeer.
+
 2018-07-31  Ed Schonberg  <schonberg@adacore.com>
 
        * exp_unst.adb (Subp_Index): In the case of a protected

diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb
index c2fc7c5977beaaafbe03fe51e5bd0ffc646e8418..8226e107565b519d4adb9310689c148e7d80e93d 100644 (file)
--- a/gcc/ada/sem_elab.adb
+++ b/gcc/ada/sem_elab.adb
@@ -4763,7 +4763,6 @@ package body Sem_Elab is
            and then not Comes_From_Source (N)
            and then Present (Context)
            and then Nkind (Context) = N_Handled_Sequence_Of_Statements
-           and then not Comes_From_Source (N)
          then
             return False;
          end if;