From: Arnaud Charlet Date: Wed, 22 Jun 2016 09:55:54 +0000 (+0200) Subject: Minor reformatting. X-Git-Tag: basepoints/gcc-8~6075 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=3ae6c64384e49b9d60fb622f88ab50a42c4c1d5c;p=thirdparty%2Fgcc.git Minor reformatting. From-SVN: r237686 --- diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index bb35ac49c20b..b856badbf921 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -26348,8 +26348,8 @@ package body Sem_Prag is Rewrite (N, New_Occurrence_Of (New_E, Sloc (N))); end if; - -- Check that there are no calls left to abstract operations - -- if the current subprogram is not abstract. + -- Check that there are no calls left to abstract operations if + -- the current subprogram is not abstract. if Nkind (Parent (N)) = N_Function_Call and then N = Name (Parent (N)) @@ -27168,8 +27168,9 @@ package body Sem_Prag is end if; New_Prag := - Build_Pragma_Check_Equivalent (Prag, Subp, Parent_Subp, - Keep_Pragma_Id => True); + Build_Pragma_Check_Equivalent + (Prag, Subp, Parent_Subp, Keep_Pragma_Id => True); + Insert_After (Unit_Declaration_Node (Subp), New_Prag); Preanalyze (New_Prag);