diff options
-rw-r--r-- | gcc/ada/restrict.adb | 2 | ||||
-rw-r--r-- | gcc/ada/sem_attr.adb | 9 | ||||
-rw-r--r-- | gcc/ada/types.ads | 2 |
3 files changed, 7 insertions, 6 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index 60faa2a..3592230 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -66,7 +66,7 @@ package body Restrict is No_Specification_Of_Aspects : array (Aspect_Id) of Source_Ptr := (others => No_Location); - -- Entries in this array are set to point to a previously occuring pragma + -- Entries in this array are set to point to a previously occurring pragma -- that activates a No_Specification_Of_Aspect check. No_Specification_Of_Aspect_Warning : array (Aspect_Id) of Boolean := diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 83f53cd..63b0f09 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -10751,10 +10751,11 @@ package body Sem_Attr is Nm : Node_Id; Note : Boolean := True; - -- Skip this for the case of Unrestricted_Access occuring in - -- the context of a Valid check, since this otherwise leads - -- to a missed warning (the Valid check does not really - -- modify!) If this case, Note will be reset to False. + -- Skip this for the case of Unrestricted_Access occurring + -- in the context of a Valid check, since this otherwise + -- leads to a missed warning (the Valid check does not + -- really modify!) If this case, Note will be reset to + -- False. -- Skip it as well if the type is an Access_To_Constant, -- given that no use of the value can modify the prefix. diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index 27c50ef..ef87a5a 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -773,7 +773,7 @@ package Types is Overflow_Mode_Assertions : Overflow_Mode_Type; -- This field indicates the mode for handling code generation and -- overflow checking (if enabled) for intermediate expression values. - -- This applies to any expression occuring inside assertions. + -- This applies to any expression occurring inside assertions. end record; ----------------------------------- |