parent
8daa1407f2
commit
288f28c87e
|
@ -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
|
||||||
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;
|
||||||
|
|
Loading…
Reference in New Issue