diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-04 17:33:55 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 17:33:55 +0200 |
| commit | 1baa4d2d791f5a0faedb4d0eb17253cf7b32ed76 (patch) | |
| tree | 2c309261fbe3668ffab691cfdd8e7e2f224a7f4a /gcc | |
| parent | 771ce78ea0c1c51c2fe1579dea950d40a1b8028d (diff) | |
| download | gcc-1baa4d2d791f5a0faedb4d0eb17253cf7b32ed76.zip gcc-1baa4d2d791f5a0faedb4d0eb17253cf7b32ed76.tar.gz gcc-1baa4d2d791f5a0faedb4d0eb17253cf7b32ed76.tar.bz2 | |
sem_type.adb, [...]: Minor reformatting
2008-08-04 Thomas Quinot <quinot@adacore.com>
* sem_type.adb, sem_ch4.adb, sprint.adb, exp_ch3.adb: Minor reformatting
From-SVN: r138635
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_type.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sprint.adb | 7 |
4 files changed, 6 insertions, 7 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 92a5f8c..e50ea04 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -1543,7 +1543,7 @@ package body Exp_Ch3 is end if; end if; - -- Ada 2005 (AI-287) In case of default initialized components, + -- Ada 2005 (AI-287): In case of default initialized components, -- we need to generate the corresponding selected component node -- to access the discriminant value. In other cases this is not -- required because we are inside the init proc and we use the diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index cd3bb50..19afc8d 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -498,7 +498,7 @@ package body Sem_Ch4 is Set_Directly_Designated_Type (Acc_Type, Type_Id); Check_Fully_Declared (Type_Id, N); - -- Ada 2005 (AI-231) If the designated type is itself an access + -- Ada 2005 (AI-231): If the designated type is itself an access -- type that excludes null, it's default initializastion will -- be a null object, and we can insert an unconditional raise -- before the allocator. diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb index bdd1c38..3ca2e53 100644 --- a/gcc/ada/sem_type.adb +++ b/gcc/ada/sem_type.adb @@ -2101,7 +2101,7 @@ package body Sem_Type is return Covers (Typ, Etype (N)) - -- Ada 2005 (AI-345) The context may be a synchronized interface. + -- Ada 2005 (AI-345): The context may be a synchronized interface. -- If the type is already frozen use the corresponding_record -- to check whether it is a proper descendant. diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 4306ce4..ad20565 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -2334,10 +2334,9 @@ package body Sprint is Write_Str_With_Col_Check ("out "); end if; - -- Ada 2005 (AI-231) parameter specification may carry - -- null exclusion. Do not print it now if this is an - -- access parameter, it is emitted when the access - -- definition is displayed. + -- Ada 2005 (AI-231): Parameter specification may carry null + -- exclusion. Do not print it now if this is an access formal, + -- it is emitted when the access definition is displayed. if Null_Exclusion_Present (Node) and then Nkind (Parameter_Type (Node)) |