Commit 3ae6c643 by Arnaud Charlet

Minor reformatting.

From-SVN: r237686
parent b48a45e3
...@@ -26348,8 +26348,8 @@ package body Sem_Prag is ...@@ -26348,8 +26348,8 @@ package body Sem_Prag is
Rewrite (N, New_Occurrence_Of (New_E, Sloc (N))); Rewrite (N, New_Occurrence_Of (New_E, Sloc (N)));
end if; end if;
-- Check that there are no calls left to abstract operations -- Check that there are no calls left to abstract operations if
-- if the current subprogram is not abstract. -- the current subprogram is not abstract.
if Nkind (Parent (N)) = N_Function_Call if Nkind (Parent (N)) = N_Function_Call
and then N = Name (Parent (N)) and then N = Name (Parent (N))
...@@ -27168,8 +27168,9 @@ package body Sem_Prag is ...@@ -27168,8 +27168,9 @@ package body Sem_Prag is
end if; end if;
New_Prag := New_Prag :=
Build_Pragma_Check_Equivalent (Prag, Subp, Parent_Subp, Build_Pragma_Check_Equivalent
Keep_Pragma_Id => True); (Prag, Subp, Parent_Subp, Keep_Pragma_Id => True);
Insert_After (Unit_Declaration_Node (Subp), New_Prag); Insert_After (Unit_Declaration_Node (Subp), New_Prag);
Preanalyze (New_Prag); Preanalyze (New_Prag);
......
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