Commit 288f28c8 by Arnaud Charlet

Minor reformatting.

From-SVN: r180957
parent 8daa1407
...@@ -2431,7 +2431,7 @@ package body Sem_Ch5 is ...@@ -2431,7 +2431,7 @@ package body Sem_Ch5 is
declare declare
Element : constant Entity_Id := Element : constant Entity_Id :=
Find_Aspect (Typ, Aspect_Iterator_Element); Find_Aspect (Typ, Aspect_Iterator_Element);
begin begin
if No (Element) then if No (Element) then
Error_Msg_NE ("cannot iterate over&", N, Typ); Error_Msg_NE ("cannot iterate over&", N, Typ);
...@@ -2453,7 +2453,6 @@ package body Sem_Ch5 is ...@@ -2453,7 +2453,6 @@ package body Sem_Ch5 is
Error_Msg_NE Error_Msg_NE
("cannot iterate over&", Name (N), Typ); ("cannot iterate over&", Name (N), Typ);
else else
Error_Msg_N Error_Msg_N
("name must be an iterator, not a container", Name (N)); ("name must be an iterator, not a container", Name (N));
end if; end if;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment