From d2f97d3eb5dedb09bf93a2e12ab7355346989d66 Mon Sep 17 00:00:00 2001
From: Geert Bosch <bosch@gnat.com>
Date: Sun, 15 Dec 2002 18:32:01 +0100
Subject: [PATCH] * sem_ch6.adb (Analyze_Subprogram_Body): Fix typo and
formatting
From-SVN: r60159
---
gcc/ada/ChangeLog | 4 ++++
gcc/ada/sem_ch6.adb | 12 ++++++------
2 files changed, 10 insertions(+), 6 deletions(-)
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ed23cf931b8b..834922e23631 100644
--- 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 650f19cbc6c1..c8e79b8376fc 100644
--- 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
--
GitLab