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

From-SVN: r60159

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ed23cf931b8ba1a6d6b32b8cfc832f5b3dcb18db..834922e23631b097a8c837933580aeaf458f5fd2 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 650f19cbc6c119014894b1e7b5660d50dfb6b63d..c8e79b8376fc6cbd192fc3f41e8a9176a339348b 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