[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 60faa2ac3b8e138726beddb995ae26e3f347e615..35922307460ee2f32d0b1150f0d32dce44999d89 100644 (file)
--- 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 83f53cdf1fb526c8bebc95f01bcc9fb09255cc66..63b0f09ea5d464662ce0e7ece87945532b48bd06 100644 (file)
--- 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 27c50efed1c6e0c509b4699b9b72ebeb902e1ee2..ef87a5a3e4818c6abb0f59ac485ccd0de225c3bb 100644 (file)
--- 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;
 
    -----------------------------------