diff options
| author | Geert Bosch <bosch@gnat.com> | 2002-12-15 18:32:01 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2002-12-15 18:32:01 +0100 |
| commit | d2f97d3eb5dedb09bf93a2e12ab7355346989d66 (patch) | |
| tree | f8b3481a4e3c93b67f87c8f37bb2898c0328a782 /gcc/ada | |
| parent | 93a81b023fde51aa4eae1c2544766350067caaef (diff) | |
| download | gcc-d2f97d3eb5dedb09bf93a2e12ab7355346989d66.zip gcc-d2f97d3eb5dedb09bf93a2e12ab7355346989d66.tar.gz gcc-d2f97d3eb5dedb09bf93a2e12ab7355346989d66.tar.bz2 | |
* sem_ch6.adb (Analyze_Subprogram_Body): Fix typo and formatting
From-SVN: r60159
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 12 |
2 files changed, 10 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ed23cf9..834922e 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 650f19c..c8e79b8 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 |