From e027681d90cee11d082fefb937b0233de81e9e7b Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 2 Mar 2021 09:58:20 +0100 Subject: [PATCH] [Ada] Fix typos in all occurrences of "occuring" in GNAT gcc/ada/ * restrict.adb, sem_attr.adb, types.ads: Fix typos in "occuring"; refill comment as necessary. --- gcc/ada/restrict.adb | 2 +- gcc/ada/sem_attr.adb | 9 +++++---- 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; ----------------------------------- -- 2.7.4