Commit cc68dfe2 by Arnaud Charlet

Minor reformatting.

From-SVN: r223476
parent 4f2cae4a
...@@ -2139,7 +2139,6 @@ package body Sem_Ch5 is ...@@ -2139,7 +2139,6 @@ package body Sem_Ch5 is
begin begin
if Iter_Kind = N_Selected_Component then if Iter_Kind = N_Selected_Component then
Obj := Prefix (Original_Node (Iter_Name)); Obj := Prefix (Original_Node (Iter_Name));
elsif Iter_Kind = N_Function_Call then elsif Iter_Kind = N_Function_Call then
Obj := First_Actual (Original_Node (Iter_Name)); Obj := First_Actual (Original_Node (Iter_Name));
end if; end if;
...@@ -2148,8 +2147,8 @@ package body Sem_Ch5 is ...@@ -2148,8 +2147,8 @@ package body Sem_Ch5 is
and then Is_Dependent_Component_Of_Mutable_Object (Obj) and then Is_Dependent_Component_Of_Mutable_Object (Obj)
then then
Error_Msg_N Error_Msg_N
("container cannot be a discriminant-dependent " & ("container cannot be a discriminant-dependent "
"component of a mutable object", N); & "component of a mutable object", N);
end if; end if;
end; end;
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