* sem_ch6.adb (Analyze_Subprogram_Body): Fix typo and formatting

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@60159 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ed23cf9..834922e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2002-12-15   Geert Bosch <bosch@gnat.com>
+
+       * sem_ch6.adb (Analyze_Subprogram_Body): Fix typo and formatting
+
 2002-12-14   Geert Bosch <bosch@gnat.com>
 
        * sem_ch6.adb (Analyze_Subprogram_Body): Recognize additional 

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 650f19c..c8e79b8 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -1057,14 +1057,14 @@ package body Sem_Ch6 is
 
             if Present (Spec_Decl)
               and then not Comes_From_Source (N)
-
               and then
                 (Nkind (Original_Node (Spec_Decl)) =
-                 N_Subprogram_Renaming_Declaration
-
-                or else (Present (Corresponding_Body (Spec_Decl))
-                  and then Nkind
-                   (Unit_Declaration_Node (Corresponding_Body (Spec_Decl))) = +                      N_Subprogram_Renaming_Declaration))
+                                        N_Subprogram_Renaming_Declaration
+                   or else (Present (Corresponding_Body (Spec_Decl))
+                              and then
+                                Nkind (Unit_Declaration_Node
+                                        (Corresponding_Body (Spec_Decl))) =
+                                           N_Subprogram_Renaming_Declaration))
             then
                Conformant := True;
             else