diff options
| -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)) |