mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-06 02:10:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] SPARK: minor error message enhancement

Browse Source 
2018-09-26  Elisa Barboni  <barboni@adacore.com>

gcc/ada/

	* sem_prag.adb (Check_Refined_Global_Item): Improve error
	message.

From-SVN: r264637
This commit is contained in:
Elisa Barboni 2018-09-26 09:20:10 +00:00 committed by Pierre-Marie de Rodat
parent def15641da
commit 1899cb6844
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2018-09-26 Elisa Barboni <barboni@adacore.com>
* sem_prag.adb (Check_Refined_Global_Item): Improve error
message.
2018-09-26 Thomas Quinot <quinot@adacore.com>
* sem_ch13.adb (Inherit_Aspects_At_Freeze_Point): For a

5
gcc/ada/sem_prag.adb
View File

@ -27730,7 +27730,10 @@ package body Sem_Prag is
-- it must be an extra (SPARK RM 7.2.4(3)).
else
SPARK_Msg_NE ("extra global item &", Item, Item_Id);
pragma Assert (Present (Global));
Error_Msg_Sloc := Sloc (Global);
SPARK_Msg_NE ("extra global item & does not refine or " &
"repeat any global item #", Item, Item_Id);
end if;
end if;
end Check_Refined_Global_Item;