FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ada: Fix internal error on instance in package body with -gnatn

Browse source 
This plugs a small loophole in the procedure responsible for attempting to
hide entities that have been previously made public by the semantic analyzer
in package bodies.

gcc/ada/

	* sem_ch7.adb (Hide_Public_Entities): Use the same condition for
	subprogram bodies without specification as for those with one.
This commit is contained in:
Eric Botcazou 2023-01-12 15:51:40 +01:00 • committed by Marc Poulhiès
parent 1f068a1781
commit 0ca7fcf563
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/ada/sem_ch7.adb
View file

@ -446,7 +446,11 @@ package body Sem_Ch7 is
else
Decl_Id := Defining_Entity (Decl);
-- See the N_Subprogram_Declaration case below
if not Set_Referencer_Of_Non_Subprograms
and then (not In_Nested_Instance
or else not Subprogram_Table.Get_First)
and then not Subprogram_Table.Get (Decl_Id)
then
-- We can reset Is_Public right away