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

[Ada] Include generic instance names in non-visible entity errors

Browse source 
gcc/ada/

	* sem_ch8.adb (Nvis_Messages): Add generic instance name to
	error message.
This commit is contained in:
Justin Squirek 2021-12-23 02:27:43 +00:00 • committed by Pierre-Marie de Rodat
parent 805655c137
commit 10608753db
1 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gcc/ada/sem_ch8.adb
View file

@ -5689,8 +5689,27 @@ package body Sem_Ch8 is
null;
else
Error_Msg_N -- CODEFIX
("non-visible declaration#!", N);
-- When the entity comes from a generic instance the
-- normal error message machinery will give the line
-- number of the generic package and the location of
-- the generic instance, but not the name of the
-- the instance.
-- So, in order to give more descriptive error messages
-- in this case, we include the name of the generic
-- package.
if Is_Generic_Instance (Scope (Ent)) then
Error_Msg_Name_1 := Chars (Scope (Ent));
Error_Msg_N -- CODEFIX
("non-visible declaration from %#!", N);
-- Otherwise print the message normally
else
Error_Msg_N -- CODEFIX
("non-visible declaration#!", N);
end if;
if Ekind (Scope (Ent)) /= E_Generic_Package then
Found := True;