diff options
| author | Thomas Quinot <quinot@adacore.com> | 2013-04-11 13:26:06 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 15:26:06 +0200 |
| commit | 327900c7f5b09f16f9199a425d96c93a2c73cc93 (patch) | |
| tree | 643b2d8b594a091a28044601d88fad4b59b8e3d3 /gcc | |
| parent | 59fad002d5a30da06c054b797c61e9798148dd64 (diff) | |
| download | gcc-327900c7f5b09f16f9199a425d96c93a2c73cc93.zip gcc-327900c7f5b09f16f9199a425d96c93a2c73cc93.tar.gz gcc-327900c7f5b09f16f9199a425d96c93a2c73cc93.tar.bz2 | |
sem_ch10.adb, [...]: Minor reformatting.
2013-04-11 Thomas Quinot <quinot@adacore.com>
* sem_ch10.adb, sem_ch12.adb: Minor reformatting.
From-SVN: r197793
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch10.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 10 |
3 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3e584e9..2728524 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2013-04-11 Thomas Quinot <quinot@adacore.com> + + * sem_ch10.adb, sem_ch12.adb: Minor reformatting. + 2013-04-11 Robert Dewar <dewar@adacore.com> * exp_attr.adb, sem_res.adb, sem_attr.adb: Minor reformatting. diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index a4241af..0623206 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -79,8 +79,8 @@ package body Sem_Ch10 is -- Build and decorate the list of shadow entities for a package mentioned -- in a limited_with clause. If the package was not previously analyzed -- then it also performs a basic decoration of the real entities. This is - -- required to do not pass non-decorated entities to the back-end. - -- Implements Ada 2005 (AI-50217). + -- required in order to avoid passing non-decorated entities to the + -- back-end. Implements Ada 2005 (AI-50217). procedure Check_Body_Needed_For_SAL (Unit_Name : Entity_Id); -- Check whether the source for the body of a compilation unit must be diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 3f8abe7..d04ef46 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -4966,8 +4966,7 @@ package body Sem_Ch12 is Make_Compilation_Unit (Sloc (N), Context_Items => Empty_List, Unit => Act_Decl, - Aux_Decls_Node => - Make_Compilation_Unit_Aux (Sloc (N))); + Aux_Decls_Node => Make_Compilation_Unit_Aux (Sloc (N))); Set_Parent_Spec (Act_Decl, Parent_Spec (N)); @@ -4984,8 +4983,8 @@ package body Sem_Ch12 is -- The two compilation unit nodes are linked by the Library_Unit field - Set_Library_Unit (Decl_Cunit, Body_Cunit); - Set_Library_Unit (Body_Cunit, Decl_Cunit); + Set_Library_Unit (Decl_Cunit, Body_Cunit); + Set_Library_Unit (Body_Cunit, Decl_Cunit); -- Preserve the private nature of the package if needed @@ -5043,8 +5042,7 @@ package body Sem_Ch12 is procedure Check_Access_Definition (N : Node_Id) is begin pragma Assert - (Ada_Version >= Ada_2005 - and then Present (Access_Definition (N))); + (Ada_Version >= Ada_2005 and then Present (Access_Definition (N))); null; end Check_Access_Definition; |