From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 11 Aug 2021 15:57:55 +0000 (+0200)
Subject: [Ada] Fix deleting CodePeer files for non-ordinary units
X-Git-Tag: basepoints/gcc-13~4300
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fa465c1b609c0d9c5ad426cea803204c74dc277a;p=thirdparty%2Fgcc.git

[Ada] Fix deleting CodePeer files for non-ordinary units

gcc/ada/

	* comperr.adb (Delete_SCIL_Files): Handle generic subprogram
	declarations and renaming just like generic package declarations
	and renamings, respectively; handle
	N_Subprogram_Renaming_Declaration.
---

diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb
index 064fae062b86..e009c58cf88e 100644
--- a/gcc/ada/comperr.adb
+++ b/gcc/ada/comperr.adb
@@ -478,6 +478,7 @@ package body Comperr is
          when N_Package_Declaration
             | N_Subprogram_Body
             | N_Subprogram_Declaration
+            | N_Subprogram_Renaming_Declaration
          =>
             Unit_Name := Defining_Unit_Name (Specification (Main));
 
@@ -489,10 +490,10 @@ package body Comperr is
          =>
             Unit_Name := Defining_Unit_Name (Main);
 
-         --  No SCIL file generated for generic package declarations
+         --  No SCIL file generated for generic unit declarations
 
-         when N_Generic_Package_Declaration
-            | N_Generic_Package_Renaming_Declaration
+         when N_Generic_Declaration
+            | N_Generic_Renaming_Declaration
          =>
             return;