From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 2 Mar 2021 08:58:20 +0000 (+0100)
Subject: [Ada] Fix typos in all occurrences of "occuring" in GNAT
X-Git-Tag: basepoints/gcc-13~6798
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e027681d90cee11d082fefb937b0233de81e9e7b;p=thirdparty%2Fgcc.git

[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.
---

diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb
index 60faa2ac3b8e..35922307460e 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 83f53cdf1fb5..63b0f09ea5d4 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 27c50efed1c6..ef87a5a3e481 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;
 
    -----------------------------------