sem_eval.adb: Give a more precise error message.

gcc/ada/
	* sem_eval.adb: Give a more precise error message.

From-SVN: r152619
This commit is contained in:
Samuel Tardieu 2009-10-10 14:52:18 +00:00 committed by Samuel Tardieu
parent 9b99d0fde6
commit fdfea49e45
2 changed files with 5 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2009-10-10 Samuel Tardieu <sam@rfc1149.net>
* sem_eval.adb: Give a more precise error message.
2009-10-06 Samuel Tardieu <sam@rfc1149.net>
PR ada/41383

View file

@ -5018,7 +5018,7 @@ package body Sem_Eval is
if Attribute_Name (N) = Name_Size then
Error_Msg_N
("size attribute is only static for scalar type " &
("size attribute is only static for static scalar type " &
"(RM 4.9(7,8))", N);
-- Flag array cases