From: Arnaud Charlet <charlet@adacore.com>
Date: Tue, 22 May 2018 13:23:56 +0000 (+0000)
Subject: [Ada] Take into account N_Generic_Package_Renaming_Declaration
X-Git-Tag: basepoints/gcc-10~6642
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b4914af84f8cb337064fb3e0b8f6b63fbff580e3;p=thirdparty%2Fgcc.git

[Ada] Take into account N_Generic_Package_Renaming_Declaration

2018-05-22  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* comperr.adb (Delete_SCIL_Files): Take into account
	N_Generic_Package_Renaming_Declaration.

From-SVN: r260522
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c0b19899f6d8..659124a69e55 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-05-22  Arnaud Charlet  <charlet@adacore.com>
+
+	* comperr.adb (Delete_SCIL_Files): Take into account
+	N_Generic_Package_Renaming_Declaration.
+
 2018-05-22  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_ch3.adb (Search_Derivation_Levels): Whenever a parent type is
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb
index c8125501541b..e034dcb7124e 100644
--- a/gcc/ada/comperr.adb
+++ b/gcc/ada/comperr.adb
@@ -484,7 +484,9 @@ package body Comperr is
 
          --  No SCIL file generated for generic package declarations
 
-         when N_Generic_Package_Declaration =>
+         when N_Generic_Package_Declaration
+            | N_Generic_Package_Renaming_Declaration
+         =>
             return;
 
          --  Should never happen, but can be ignored in production