diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-08-11 17:57:55 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-01 06:13:36 +0000 |
| commit | fa465c1b609c0d9c5ad426cea803204c74dc277a (patch) | |
| tree | c4c9f444ace16083bb4b05c1e482c01a4c6a174a | |
| parent | 19ab5a56d6a70e91bb276dd41203fda9d1518109 (diff) | |
| download | gcc-fa465c1b609c0d9c5ad426cea803204c74dc277a.zip gcc-fa465c1b609c0d9c5ad426cea803204c74dc277a.tar.gz gcc-fa465c1b609c0d9c5ad426cea803204c74dc277a.tar.bz2 | |
[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.
| -rw-r--r-- | gcc/ada/comperr.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index 064fae0..e009c58 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; |