diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-06-27 13:09:10 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-12 12:24:12 +0000 |
| commit | 4fc09105aa018aec5645e7b2e8d00bef9e2e620e (patch) | |
| tree | 2666830c1226c4014172a07e243a7055e2d771a1 | |
| parent | e124352c0ada83486926f110c8b28a0a431c98b4 (diff) | |
| download | gcc-4fc09105aa018aec5645e7b2e8d00bef9e2e620e.zip gcc-4fc09105aa018aec5645e7b2e8d00bef9e2e620e.tar.gz gcc-4fc09105aa018aec5645e7b2e8d00bef9e2e620e.tar.bz2 | |
[Ada] Fix spurious warning on unreferenced internal generic instance
This patch removes a spurious warning, saying that an internal entity of
a generic formal package is unreferenced. The immediate cause of this
warning is that the internal entity is explicitly flagged as coming from
source.
The explicit flagging was added decades ago to fix a missing
cross-reference in the ALI file. Apparently these days the
cross-references work fine without this flag.
gcc/ada/
* sem_ch12.adb (Analyze_Package_Instantiation): Remove dubious
call to Set_Comes_From_Source.
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index af8bbbe..c980d7b 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -4297,7 +4297,6 @@ package body Sem_Ch12 is if Nkind (N) = N_Package_Instantiation then Act_Decl_Id := New_Copy (Defining_Entity (N)); - Set_Comes_From_Source (Act_Decl_Id, True); if Nkind (Defining_Unit_Name (N)) = N_Defining_Program_Unit_Name then Act_Decl_Name := |