diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-06-22 11:55:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-06-22 11:55:54 +0200 |
| commit | 3ae6c64384e49b9d60fb622f88ab50a42c4c1d5c (patch) | |
| tree | ed811926093bad8a6938f18857c3fe3843c4e167 | |
| parent | b48a45e33c1022f9b60437131e3d6e640345cc54 (diff) | |
| download | gcc-3ae6c64384e49b9d60fb622f88ab50a42c4c1d5c.zip gcc-3ae6c64384e49b9d60fb622f88ab50a42c4c1d5c.tar.gz gcc-3ae6c64384e49b9d60fb622f88ab50a42c4c1d5c.tar.bz2 | |
Minor reformatting.
From-SVN: r237686
| -rw-r--r-- | gcc/ada/sem_prag.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index bb35ac4..b856bad 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); |