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

From-SVN: r60159

* sem_ch6.adb (Analyze_Subprogram_Body): Fix typo and formatting
From-SVN: r60159
d2f97d3e · Geert Bosch · Geert Bosch · 93a81b02 · d2f97d3e · d2f97d3e
Commit d2f97d3e authored Dec 15, 2002 by Geert Bosch Committed by Geert Bosch Dec 15, 2002
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 6 deletions

gcc/ada/ChangeLog
+4 -0

gcc/ada/sem_ch6.adb
+6 -6

No files found.
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
+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 

--- 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