diff options
134 files changed, 368 insertions, 324 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4972d30517d..264a2de1c81 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,43 @@ +2010-12-20 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> + + * projects.texi: Fix typos. + * gnat_rm.texi: Likewise. + * gnat_ugn.texi: Likewise. + * sem_util.adb: Fix typo in variable, typos in comments. + * a-btgbso.adb: Fix typos in comments. + * a-cbdlli.adb, a-cbhase.ads, a-cdlili.adb, a-cobove.adb, + a-coinve.adb, a-convec.adb, a-direct.ads, a-strunb-shared.adb, + a-strunb-shared.ads, a-stuten.ads, a-stwiun-shared.adb, + a-stwiun-shared.ads, a-stzunb-shared.adb, a-stzunb-shared.ads, + a-suenco.adb, a-suenst.adb, a-suewst.adb, a-suezst.adb, ali.ads, + aspects.ads, atree.ads, binde.adb, bindgen.adb, checks.adb, + checks.ads, einfo.ads, err_vars.ads, errout.adb, errout.ads, + exp_aggr.adb, exp_attr.adb, exp_cg.adb, exp_ch3.adb, + exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch7.adb, + exp_dbug.ads, exp_disp.adb, exp_fixd.ads, freeze.adb, + g-altive.ads, g-comlin.ads, g-excact.ads, g-mbdira.adb, + g-sechas.ads, g-sehash.ads, g-sha1.ads, g-sha224.ads, + g-sha256.ads, g-sha384.ads, g-sha512.ads, g-shsh32.ads, + g-shsh64.ads, g-socket.adb, g-socket.ads, g-sothco.ads, + gcc-interface/decl.c, gcc-interface/trans.c, + gcc-interface/utils2.c, gnat1drv.adb, init.c, inline.adb, + link.c, locales.c, make.adb, mingw32.h, namet.ads, osint.adb, + par-ch12.adb, par-ch13.adb, par-ch3.adb, par-ch4.adb, + par-prag.adb, par.adb, par_sco.adb, prepcomp.adb, + prj-conf.ads, prj-dect.adb, prj-env.adb, prj-env.ads, + prj-nmsc.adb, prj-tree.ads, prj-util.ads, prj.adb, prj.ads, + s-auxdec-vms-alpha.adb, s-auxdec-vms_64.ads, s-oscons-tmplt.c, + s-osinte-vxworks.ads, s-osprim-mingw.adb, s-regexp.adb, + s-stusta.adb, s-taprop-mingw.adb, s-taprop-solaris.adb, + scn.adb, scos.ads, sem.adb, sem_aggr.adb, sem_attr.adb, + sem_aux.adb, sem_aux.ads, sem_ch12.adb, sem_ch12.ads, + sem_ch13.adb, sem_ch13.ads, sem_ch3.adb, sem_ch4.adb, + sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, sem_disp.adb, + sem_disp.ads, sem_eval.adb, sem_intr.adb, sem_prag.adb, + sem_res.adb, sem_scil.adb, sem_util.ads, sem_warn.adb, + sem_warn.ads, sinfo.ads, socket.c, styleg.adb, switch.ads, + sysdep.c, tb-alvxw.c, xoscons.adb: Likewise. + 2010-12-13 Eric Botcazou <ebotcazou@adacore.com> * gcc-interface/decl.c (gnat_to_gnu_entity) <E_General_Access_Type>: diff --git a/gcc/ada/a-btgbso.adb b/gcc/ada/a-btgbso.adb index 7d6ca3db779..bd4dad4b86d 100644 --- a/gcc/ada/a-btgbso.adb +++ b/gcc/ada/a-btgbso.adb @@ -546,7 +546,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Set_Operations is "attempt to tamper with cursors (container is busy)"; end if; - -- Note that there's no way to decide apriori whether the + -- Note that there's no way to decide a priori whether the -- target has enough capacity for the union with source. -- We cannot simply compare the sum of the existing lengths -- to the capacity of the target, because equivalent items diff --git a/gcc/ada/a-cbdlli.adb b/gcc/ada/a-cbdlli.adb index 5ee296b49da..2dd8a5c879d 100644 --- a/gcc/ada/a-cbdlli.adb +++ b/gcc/ada/a-cbdlli.adb @@ -583,7 +583,7 @@ package body Ada.Containers.Bounded_Doubly_Linked_Lists is -- logical end being manipulated). The only time we need to actually -- initialize the nodes in the free store is if the node that becomes -- inactive is not at the end of the list. The free store would then - -- be discontigous and so its nodes would need to be linked in the + -- be discontiguous and so its nodes would need to be linked in the -- traditional way. -- -- ??? @@ -1936,7 +1936,7 @@ package body Ada.Containers.Bounded_Doubly_Linked_Lists is return False; end if; - if Position.Node = L.First then -- eliminates ealier disjunct + if Position.Node = L.First then -- eliminates earlier disjunct return True; end if; diff --git a/gcc/ada/a-cbhase.ads b/gcc/ada/a-cbhase.ads index 8854357a084..9618ff3087e 100644 --- a/gcc/ada/a-cbhase.ads +++ b/gcc/ada/a-cbhase.ads @@ -258,7 +258,7 @@ package Ada.Containers.Bounded_Hashed_Sets is procedure Symmetric_Difference (Target : in out Set; Source : Set); -- The operation iterates over the Source set, searching for the element -- in Target (calling Hash and Equivalent_Elements). If an equivalent - -- elementis found, it is removed from Target; otherwise it is inserted + -- element is found, it is removed from Target; otherwise it is inserted -- into Target. function Symmetric_Difference (Left, Right : Set) return Set; diff --git a/gcc/ada/a-cdlili.adb b/gcc/ada/a-cdlili.adb index 5ca043554b7..cbac8fd4a1d 100644 --- a/gcc/ada/a-cdlili.adb +++ b/gcc/ada/a-cdlili.adb @@ -1767,7 +1767,7 @@ package body Ada.Containers.Doubly_Linked_Lists is return False; end if; - if Position.Node = L.First then -- eliminates ealier disjunct + if Position.Node = L.First then -- eliminates earlier disjunct return True; end if; diff --git a/gcc/ada/a-cobove.adb b/gcc/ada/a-cobove.adb index 8a71a0cd52b..759bab44599 100644 --- a/gcc/ada/a-cobove.adb +++ b/gcc/ada/a-cobove.adb @@ -84,7 +84,7 @@ package body Ada.Containers.Bounded_Vectors is -- There are two constraints we need to satisfy. The first constraint is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the combined lengths. Note that we cannot - -- simply add the lengths, because of the possibilty of overflow. + -- simply add the lengths, because of the possibility of overflow. if LN > Count_Type'Last - RN then raise Constraint_Error with "new length is out of range"; @@ -917,7 +917,7 @@ package body Ada.Containers.Bounded_Vectors is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the current length and the insertion -- count. Note that we cannot simply add these values, because of the - -- possibilty of overflow. + -- possibility of overflow. if Old_Length > Count_Type'Last - Count then raise Constraint_Error with "Count is out of range"; @@ -1369,7 +1369,7 @@ package body Ada.Containers.Bounded_Vectors is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the current length and the insertion -- count. Note that we cannot simply add these values, because of the - -- possibilty of overflow. + -- possibility of overflow. if Old_Length > Count_Type'Last - Count then raise Constraint_Error with "Count is out of range"; diff --git a/gcc/ada/a-coinve.adb b/gcc/ada/a-coinve.adb index 97d3f8a294a..c6f8cb26325 100644 --- a/gcc/ada/a-coinve.adb +++ b/gcc/ada/a-coinve.adb @@ -142,7 +142,7 @@ package body Ada.Containers.Indefinite_Vectors is -- There are two constraints we need to satisfy. The first constraint is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the combined lengths. Note that we cannot - -- simply add the lengths, because of the possibilty of overflow. + -- simply add the lengths, because of the possibility of overflow. if LN > Count_Type'Last - RN then raise Constraint_Error with "new length is out of range"; @@ -1343,7 +1343,7 @@ package body Ada.Containers.Indefinite_Vectors is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the current length and the insertion -- count. Note that we cannot simply add these values, because of the - -- possibilty of overflow. + -- possibility of overflow. if Old_Length > Count_Type'Last - Count then raise Constraint_Error with "Count is out of range"; @@ -1684,7 +1684,7 @@ package body Ada.Containers.Indefinite_Vectors is Free (Src); -- The new array has a range in the middle containing null access - -- values. We now fill in that partion of the array with the new + -- values. We now fill in that partition of the array with the new -- items. for Idx in Before .. Index - 1 loop @@ -2076,7 +2076,7 @@ package body Ada.Containers.Indefinite_Vectors is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the current length and the insertion -- count. Note that we cannot simply add these values, because of the - -- possibilty of overflow. + -- possibility of overflow. if Old_Length > Count_Type'Last - Count then raise Constraint_Error with "Count is out of range"; @@ -2833,7 +2833,7 @@ package body Ada.Containers.Indefinite_Vectors is Container.Elements := new Elements_Type'(Container.Last, Src); - -- We have succesfully allocated a new internal array (with a + -- We have successfully allocated a new internal array (with a -- smaller length than the old one, and containing a copy of -- just the active elements in the container), so we can -- deallocate the old array. @@ -2964,7 +2964,7 @@ package body Ada.Containers.Indefinite_Vectors is Container.Elements := new Elements_Type'(Container.Last, Src); - -- We have succesfully allocated a new internal array (with a + -- We have successfully allocated a new internal array (with a -- smaller length than the old one, and containing a copy of -- just the active elements in the container), so it is now -- safe to deallocate the old array. @@ -3023,7 +3023,7 @@ package body Ada.Containers.Indefinite_Vectors is Container.Elements.EA (Index_Subtype) := X.EA (Index_Subtype); - -- We have moved the elements from the old interal array, so now we + -- We have moved the elements from the old internal array, so now we -- can deallocate it. Free (X); diff --git a/gcc/ada/a-convec.adb b/gcc/ada/a-convec.adb index 16b6591f6a4..6a3d186a200 100644 --- a/gcc/ada/a-convec.adb +++ b/gcc/ada/a-convec.adb @@ -96,7 +96,7 @@ package body Ada.Containers.Vectors is -- There are two constraints we need to satisfy. The first constraint is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the combined lengths. Note that we cannot - -- simply add the lengths, because of the possibilty of overflow. + -- simply add the lengths, because of the possibility of overflow. if LN > Count_Type'Last - RN then raise Constraint_Error with "new length is out of range"; @@ -1008,7 +1008,7 @@ package body Ada.Containers.Vectors is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the current length and the insertion -- count. Note that we cannot simply add these values, because of the - -- possibilty of overflow. + -- possibility of overflow. if Old_Length > Count_Type'Last - Count then raise Constraint_Error with "Count is out of range"; @@ -1664,7 +1664,7 @@ package body Ada.Containers.Vectors is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the current length and the insertion -- count. Note that we cannot simply add these values, because of the - -- possibilty of overflow. + -- possibility of overflow. if Old_Length > Count_Type'Last - Count then raise Constraint_Error with "Count is out of range"; @@ -2414,7 +2414,7 @@ package body Ada.Containers.Vectors is Container.Elements := new Elements_Type'(Container.Last, Src); - -- We have succesfully allocated a new internal array (with a + -- We have successfully allocated a new internal array (with a -- smaller length than the old one, and containing a copy of -- just the active elements in the container), so it is now -- safe to attempt to deallocate the old array. The old array @@ -2549,7 +2549,7 @@ package body Ada.Containers.Vectors is Container.Elements := new Elements_Type'(Container.Last, Src); - -- We have succesfully allocated a new internal array (with a + -- We have successfully allocated a new internal array (with a -- smaller length than the old one, and containing a copy of -- just the active elements in the container), so it is now -- safe to attempt to deallocate the old array. The old array diff --git a/gcc/ada/a-direct.ads b/gcc/ada/a-direct.ads index 4ad42999257..9e2f880c4a8 100644 --- a/gcc/ada/a-direct.ads +++ b/gcc/ada/a-direct.ads @@ -205,7 +205,7 @@ package Ada.Directories is -- copy: Only copy if the destination file does not already -- exist. If it already exists, Copy_File will fail. -- - -- overwrite: Copy the file in all cases. Overwite an already + -- overwrite: Copy the file in all cases. Overwrite an already -- existing destination file. This is the default if -- no mode= is found in Form. -- diff --git a/gcc/ada/a-strunb-shared.adb b/gcc/ada/a-strunb-shared.adb index 2b497b88dcb..a85e6696931 100644 --- a/gcc/ada/a-strunb-shared.adb +++ b/gcc/ada/a-strunb-shared.adb @@ -86,7 +86,7 @@ package body Ada.Strings.Unbounded is Reference (Empty_Shared_String'Access); DR := Empty_Shared_String'Access; - -- Left string is empty, return Rigth string + -- Left string is empty, return Right string elsif LR.Last = 0 then Reference (RR); @@ -98,7 +98,7 @@ package body Ada.Strings.Unbounded is Reference (LR); DR := LR; - -- Overwise, allocate new shared string and fill data + -- Otherwise, allocate new shared string and fill data else DR := Allocate (LR.Last + RR.Last); diff --git a/gcc/ada/a-strunb-shared.ads b/gcc/ada/a-strunb-shared.ads index f07ac314590..70ba549fd2e 100644 --- a/gcc/ada/a-strunb-shared.ads +++ b/gcc/ada/a-strunb-shared.ads @@ -51,7 +51,7 @@ -- - Implicit sharing or copy-on-write. An Unbounded_String contains only -- the reference to the data which is shared between several instances. -- The shared data is reallocated only when its value is changed and - -- the object mutation can't be used or it is unefficient to use it. + -- the object mutation can't be used or it is inefficient to use it. -- - Object mutation. Shared data object can be reused without memory -- reallocation when all of the following requirements are met: @@ -68,7 +68,7 @@ -- Reference counting uses GCC builtin atomic operations, which allows to -- safely share internal data between Ada tasks. Nevertheless, this doesn't -- make objects of Unbounded_String thread-safe: each instance can't be - -- accessed by several tasks simulatenously. + -- accessed by several tasks simultaneously. with Ada.Strings.Maps; private with Ada.Finalization; @@ -459,7 +459,7 @@ private function Allocate (Max_Length : Natural) return Shared_String_Access; -- Allocates new Shared_String with at least specified maximum length. - -- Actual maximum length of the allocated Shared_String can be sligtly + -- Actual maximum length of the allocated Shared_String can be slightly -- greater. Returns reference to Empty_Shared_String when requested length -- is zero. diff --git a/gcc/ada/a-stuten.ads b/gcc/ada/a-stuten.ads index 5299c6f88e2..b8c09a631db 100644 --- a/gcc/ada/a-stuten.ads +++ b/gcc/ada/a-stuten.ads @@ -49,7 +49,7 @@ package Ada.Strings.UTF_Encoding is -- values encoded in one of three ways (UTF-8, UTF-16BE, or UTF-16LE). -- Typically used in connection with a Scheme parameter indicating which -- of the encodings applies. This is not strictly a String value in the - -- sense defined in the Ada RM, but in practice type String accomodates + -- sense defined in the Ada RM, but in practice type String accommodates -- all possible 256 codes, and can be used to hold any sequence of 8-bit -- codes. We use String directly rather than create a new type so that -- all existing facilities for manipulating type String (e.g. the child diff --git a/gcc/ada/a-stwiun-shared.adb b/gcc/ada/a-stwiun-shared.adb index 7b99542510e..6a9f7a60ae6 100644 --- a/gcc/ada/a-stwiun-shared.adb +++ b/gcc/ada/a-stwiun-shared.adb @@ -86,7 +86,7 @@ package body Ada.Strings.Wide_Unbounded is Reference (Empty_Shared_Wide_String'Access); DR := Empty_Shared_Wide_String'Access; - -- Left string is empty, return Rigth string. + -- Left string is empty, return Right string. elsif LR.Last = 0 then Reference (RR); @@ -98,7 +98,7 @@ package body Ada.Strings.Wide_Unbounded is Reference (LR); DR := LR; - -- Overwise, allocate new shared string and fill data. + -- Otherwise, allocate new shared string and fill data. else DR := Allocate (LR.Last + RR.Last); diff --git a/gcc/ada/a-stwiun-shared.ads b/gcc/ada/a-stwiun-shared.ads index 79cde5042b4..b6314166a05 100644 --- a/gcc/ada/a-stwiun-shared.ads +++ b/gcc/ada/a-stwiun-shared.ads @@ -416,7 +416,7 @@ private Last : Natural := 0; Data : Wide_String (1 .. Max_Length); -- Last is the index of last significant element of the Data. All - -- elements with larger indecies are just an extra room. + -- elements with larger indices are just an extra room. end record; type Shared_Wide_String_Access is access all Shared_Wide_String; @@ -438,7 +438,7 @@ private function Allocate (Max_Length : Natural) return Shared_Wide_String_Access; -- Allocates new Shared_Wide_String with at least specified maximum length. - -- Actual maximum length of the allocated Shared_Wide_String can be sligtly + -- Actual maximum length of the allocated Shared_Wide_String can be slightly -- greater. Returns reference to Empty_Shared_Wide_String when requested -- length is zero. @@ -452,20 +452,20 @@ private Reference : Shared_Wide_String_Access := Empty_Shared_Wide_String'Access; end record; - -- The Unbounded_Wide_String uses several techniques to increasy speed of + -- The Unbounded_Wide_String uses several techniques to increase speed of -- the application: -- - implicit sharing or copy-on-write. Unbounded_Wide_String contains -- only the reference to the data which is shared between several -- instances. The shared data is reallocated only when its value is - -- changed and the object mutation can't be used or it is unefficient to + -- changed and the object mutation can't be used or it is inefficient to -- use it; -- - object mutation. Shared data object can be reused without memory -- reallocation when all of the following requirements are meat: -- - shared data object don't used anywhere longer; -- - its size is sufficient to store new value; - -- - the gap after reuse is less then some threashold. + -- - the gap after reuse is less then some threshold. -- - memory preallocation. Most of used memory allocation algorithms - -- alligns allocated segment on the some boundary, thus some amount of + -- aligns allocated segment on the some boundary, thus some amount of -- additional memory can be preallocated without any impact. Such -- preallocated memory can used later by Append/Insert operations -- without reallocation. @@ -473,7 +473,7 @@ private -- Reference counting uses GCC builtin atomic operations, which allows to -- safely share internal data between Ada tasks. Nevertheless, this not -- make objects of Unbounded_Wide_String thread-safe, so each instance - -- can't be accessed by several tasks simulatenously. + -- can't be accessed by several tasks simultaneously. pragma Stream_Convert (Unbounded_Wide_String, To_Unbounded, To_Wide_String); -- Provide stream routines without dragging in Ada.Streams diff --git a/gcc/ada/a-stzunb-shared.adb b/gcc/ada/a-stzunb-shared.adb index 75799dad2f2..bed79790a3c 100644 --- a/gcc/ada/a-stzunb-shared.adb +++ b/gcc/ada/a-stzunb-shared.adb @@ -86,7 +86,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is Reference (Empty_Shared_Wide_Wide_String'Access); DR := Empty_Shared_Wide_Wide_String'Access; - -- Left string is empty, return Rigth string. + -- Left string is empty, return Right string. elsif LR.Last = 0 then Reference (RR); @@ -98,7 +98,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is Reference (LR); DR := LR; - -- Overwise, allocate new shared string and fill data. + -- Otherwise, allocate new shared string and fill data. else DR := Allocate (LR.Last + RR.Last); diff --git a/gcc/ada/a-stzunb-shared.ads b/gcc/ada/a-stzunb-shared.ads index 3a3cba300a3..bea5169c879 100644 --- a/gcc/ada/a-stzunb-shared.ads +++ b/gcc/ada/a-stzunb-shared.ads @@ -425,7 +425,7 @@ private Last : Natural := 0; Data : Wide_Wide_String (1 .. Max_Length); -- Last is the index of last significant element of the Data. All - -- elements with larger indecies are just an extra room. + -- elements with larger indices are just an extra room. end record; type Shared_Wide_Wide_String_Access is access all Shared_Wide_Wide_String; @@ -450,7 +450,7 @@ private (Max_Length : Natural) return Shared_Wide_Wide_String_Access; -- Allocates new Shared_Wide_Wide_String with at least specified maximum -- length. Actual maximum length of the allocated Shared_Wide_Wide_String - -- can be sligtly greater. Returns reference to + -- can be slightly greater. Returns reference to -- Empty_Shared_Wide_Wide_String when requested length is zero. Empty_Shared_Wide_Wide_String : aliased Shared_Wide_Wide_String (0); @@ -465,20 +465,20 @@ private Empty_Shared_Wide_Wide_String'Access; end record; - -- The Unbounded_Wide_Wide_String uses several techniques to increasy speed + -- The Unbounded_Wide_Wide_String uses several techniques to increase speed -- of the application: -- - implicit sharing or copy-on-write. Unbounded_Wide_Wide_String -- contains only the reference to the data which is shared between -- several instances. The shared data is reallocated only when its value - -- is changed and the object mutation can't be used or it is unefficient + -- is changed and the object mutation can't be used or it is inefficient -- to use it; -- - object mutation. Shared data object can be reused without memory -- reallocation when all of the following requirements are meat: -- - shared data object don't used anywhere longer; -- - its size is sufficient to store new value; - -- - the gap after reuse is less then some threashold. + -- - the gap after reuse is less then some threshold. -- - memory preallocation. Most of used memory allocation algorithms - -- alligns allocated segment on the some boundary, thus some amount of + -- aligns allocated segment on the some boundary, thus some amount of -- additional memory can be preallocated without any impact. Such -- preallocated memory can used later by Append/Insert operations -- without reallocation. @@ -486,7 +486,7 @@ private -- Reference counting uses GCC builtin atomic operations, which allows to -- safely share internal data between Ada tasks. Nevertheless, this not -- make objects of Unbounded_Wide_Wide_String thread-safe, so each instance - -- can't be accessed by several tasks simulatenously. + -- can't be accessed by several tasks simultaneously. pragma Stream_Convert (Unbounded_Wide_Wide_String, To_Unbounded, To_Wide_Wide_String); diff --git a/gcc/ada/a-suenco.adb b/gcc/ada/a-suenco.adb index 24c0231061d..00df4ab14d6 100755 --- a/gcc/ada/a-suenco.adb +++ b/gcc/ada/a-suenco.adb @@ -96,7 +96,7 @@ package body Ada.Strings.UTF_Encoding.Conversions is procedure Get_Continuation; -- Reads a continuation byte of the form 10xxxxxx, shifts R left -- by 6 bits, and or's in the xxxxxx to the low order 6 bits. On - -- return Ptr is incremented. Raises exceptioon if continuation + -- return Ptr is incremented. Raises exception if continuation -- byte does not exist or is invalid. ---------------------- diff --git a/gcc/ada/a-suenst.adb b/gcc/ada/a-suenst.adb index d4207ed3e30..af057f16b0b 100755 --- a/gcc/ada/a-suenst.adb +++ b/gcc/ada/a-suenst.adb @@ -68,7 +68,7 @@ package body Ada.Strings.UTF_Encoding.Strings is procedure Get_Continuation; -- Reads a continuation byte of the form 10xxxxxx, shifts R left -- by 6 bits, and or's in the xxxxxx to the low order 6 bits. On - -- return Ptr is incremented. Raises exceptioon if continuation + -- return Ptr is incremented. Raises exception if continuation -- byte does not exist or is invalid. ---------------------- diff --git a/gcc/ada/a-suewst.adb b/gcc/ada/a-suewst.adb index be8677ae67e..67f39ec2da4 100755 --- a/gcc/ada/a-suewst.adb +++ b/gcc/ada/a-suewst.adb @@ -68,7 +68,7 @@ package body Ada.Strings.UTF_Encoding.Wide_Strings is procedure Get_Continuation; -- Reads a continuation byte of the form 10xxxxxx, shifts R left -- by 6 bits, and or's in the xxxxxx to the low order 6 bits. On - -- return Ptr is incremented. Raises exceptioon if continuation + -- return Ptr is incremented. Raises exception if continuation -- byte does not exist or is invalid. ---------------------- @@ -353,7 +353,7 @@ package body Ada.Strings.UTF_Encoding.Wide_Strings is Len := Len + 1; Result (Len) := Wide_Character'Val (C); - -- Codes in tne range 16#D800#..16#DFFF# should never appear in the + -- Codes in the range 16#D800#..16#DFFF# should never appear in the -- input, since no valid Unicode characters are in this range (which -- would conflict with the UTF-16 surrogate encodings). Similarly -- codes in the range 16#FFFE#..16#FFFF conflict with BOM codes. diff --git a/gcc/ada/a-suezst.adb b/gcc/ada/a-suezst.adb index 0e5bba70a7c..40266fb9266 100755 --- a/gcc/ada/a-suezst.adb +++ b/gcc/ada/a-suezst.adb @@ -68,7 +68,7 @@ package body Ada.Strings.UTF_Encoding.Wide_Wide_Strings is procedure Get_Continuation; -- Reads a continuation byte of the form 10xxxxxx, shifts R left -- by 6 bits, and or's in the xxxxxx to the low order 6 bits. On - -- return Ptr is incremented. Raises exceptioon if continuation + -- return Ptr is incremented. Raises exception if continuation -- byte does not exist or is invalid. ---------------------- diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index b9f953126c0..ab15ca11f3f 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -843,7 +843,7 @@ package ALI is -- Column number of definition Visibility : Visibility_Kind; - -- Visiblity of entity + -- Visibility of entity Entity : Name_Id; -- Name of entity diff --git a/gcc/ada/aspects.ads b/gcc/ada/aspects.ads index 63cb7655081..9f44197dd42 100755 --- a/gcc/ada/aspects.ads +++ b/gcc/ada/aspects.ads @@ -31,7 +31,7 @@ -- This package defines the aspects that are recognized by GNAT in aspect -- specifications. It also contains the subprograms for storing/retrieving --- aspect speciciations from the tree. The semantic processing for aspect +-- aspect specifications from the tree. The semantic processing for aspect -- specifications is found in Sem_Ch13.Analyze_Aspect_Specifications. with Namet; use Namet; @@ -190,7 +190,7 @@ package Aspects is -- True (i.e. the declaration nodes defined in the RM as permitting the -- presence of Aspect_Specifications). However, it is possible for the -- flag Has_Aspects to be set on other nodes as a result of Rewrite and - -- Replace calls, and this function may be used to retrive the aspect + -- Replace calls, and this function may be used to retrieve the aspect -- specifications for the original rewritten node in such cases. procedure Set_Aspect_Specifications (N : Node_Id; L : List_Id); @@ -213,6 +213,6 @@ package Aspects is -- Writes contents of Aspect_Specifications hash table to the tree file procedure Tree_Read; - -- Reads contents of Aspect_Specificatins hash table from the tree file + -- Reads contents of Aspect_Specifications hash table from the tree file end Aspects; diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 51921cdb994..cf8573f0b5c 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -844,7 +844,7 @@ package Atree is -- This is similar to Rewrite, except that the old value of Old_Node is -- not saved, and the New_Node is deleted after the replace, since it -- is assumed that it can no longer be legitimately needed. The flag - -- Is_Rewrite_Susbtitute will be False for the resulting node, unless + -- Is_Rewrite_Substitution will be False for the resulting node, unless -- it was already true on entry, and Original_Node will not return the -- original contents of the Old_Node, but rather the New_Node value (unless -- Old_Node had already been rewritten using Rewrite). Replace also diff --git a/gcc/ada/binde.adb b/gcc/ada/binde.adb index 0dc65218644..46dc6d2a546 100644 --- a/gcc/ada/binde.adb +++ b/gcc/ada/binde.adb @@ -1515,7 +1515,7 @@ package body Binde is -- A before the spec of B if it could. Since it could not, there it -- must be the case that A depends on B. It is therefore a good idea -- to put the body of B last so that if there is an elaboration order - -- problem, we will find it (that's what pssimistic order is about) + -- problem, we will find it (that's what pessimistic order is about) elsif Is_Waiting_Body (U1) and then Is_Waiting_Body (U2) then declare diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 499b61257d2..b17d7b9a1af 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -2120,7 +2120,7 @@ package body Bindgen is -- Write user linker options, i.e. the set of linker options that come -- from all files other than GNAT internal files, Lgnat is left set to -- point to the first entry from a GNAT internal file, or past the end - -- of the entriers if there are no internal files. + -- of the entries if there are no internal files. Lgnat := Linker_Options.Last + 1; diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 68452392994..46a966827fc 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -102,7 +102,7 @@ package body Checks is -- how we ensure that this condition is met. -- First, we need to know for certain that the previous expression has - -- been executed. This is done principly by the mechanism of calling + -- been executed. This is done principally by the mechanism of calling -- Conditional_Statements_Begin at the start of any statement sequence -- and Conditional_Statements_End at the end. The End call causes all -- checks remembered since the Begin call to be discarded. This does @@ -159,7 +159,7 @@ package body Checks is Target_Type : Entity_Id; -- Used only if Do_Range_Check is set. Records the target type for -- the check. We need this, because a check is a duplicate only if - -- it has a the same target type (or more accurately one with a + -- it has the same target type (or more accurately one with a -- range that is smaller or equal to the stored target type of a -- saved check). end record; @@ -650,10 +650,11 @@ package body Checks is return; end if; - -- Here we do not know if the value is acceptable. Stricly we don't have - -- to do anything, since if the alignment is bad, we have an erroneous - -- program. However we are allowed to check for erroneous conditions and - -- we decide to do this by default if the check is not suppressed. + -- Here we do not know if the value is acceptable. Strictly we don't + -- have to do anything, since if the alignment is bad, we have an + -- erroneous program. However we are allowed to check for erroneous + -- conditions and we decide to do this by default if the check is not + -- suppressed. -- However, don't do the check if elaboration code is unwanted @@ -1003,7 +1004,7 @@ package body Checks is return; end if; - -- Apply required constaint checks + -- Apply required constraint checks if Is_Scalar_Type (Typ) then Apply_Scalar_Range_Check (N, Typ); @@ -2148,7 +2149,7 @@ package body Checks is -- If checks are off, then analyze the length check after -- temporarily attaching it to the tree in case the relevant - -- condition can be evaluted at compile time. We still want a + -- condition can be evaluated at compile time. We still want a -- compile time warning in this case. else @@ -2770,7 +2771,7 @@ package body Checks is ("use `OR ELSE` instead of OR?", P); end if; - -- If not short-circuited, we need the ckeck + -- If not short-circuited, we need the check return True; @@ -4029,7 +4030,7 @@ package body Checks is then return; - -- No check on a univeral real constant. The context will eventually + -- No check on a universal real constant. The context will eventually -- convert it to a machine number for some target type, or report an -- illegality. @@ -4038,7 +4039,7 @@ package body Checks is then return; - -- If the expression denotes a component of a packed boolean arrray, + -- If the expression denotes a component of a packed boolean array, -- no possible check applies. We ignore the old ACATS chestnuts that -- involve Boolean range True..True. @@ -5226,7 +5227,7 @@ package body Checks is Reason => CE_Invalid_Data), Suppress => Validity_Check); - -- If the expression is a a reference to an element of a bit-packed + -- If the expression is a reference to an element of a bit-packed -- array, then it is rewritten as a renaming declaration. If the -- expression is an actual in a call, it has not been expanded, -- waiting for the proper point at which to do it. The same happens @@ -5343,7 +5344,7 @@ package body Checks is return False; end if; - -- If we are in a case eexpression, and not part of the + -- If we are in a case expression, and not part of the -- expression, then we return False, since a particular -- branch may not always be elaborated @@ -6073,7 +6074,7 @@ package body Checks is -- The checking code to be generated will freeze the -- corresponding array type. However, we must freeze the -- type now, so that the freeze node does not appear within - -- the generated condional expression, but ahead of it. + -- the generated conditional expression, but ahead of it. Freeze_Before (Ck_Node, T_Typ); diff --git a/gcc/ada/checks.ads b/gcc/ada/checks.ads index c544cfe6064..509a55c2533 100644 --- a/gcc/ada/checks.ads +++ b/gcc/ada/checks.ads @@ -150,7 +150,7 @@ package Checks is -- where the target object may be needed to determine the subtype to -- check against (such as the cases of unconstrained formal parameters -- and unconstrained aliased objects). For the case of unconstrained - -- formals, the check is peformed only if the corresponding actual is + -- formals, the check is performed only if the corresponding actual is -- constrained, i.e., whether Lhs'Constrained is True. procedure Apply_Predicate_Check (N : Node_Id; Typ : Entity_Id); diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index eda094eabcd..88fabd76fc9 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -504,7 +504,7 @@ package Einfo is -- which can never have a null value. This is set True for constant -- access values initialized to a non-null value. This is also True for -- all access parameters in Ada 83 and Ada 95 modes, and for access --- parameters that explicily exclude null in Ada 2005. +-- parameters that explicitly exclude null in Ada 2005. -- -- This is used to avoid unnecessary resetting of the Is_Known_Non_Null -- flag for such entities. In Ada 2005 mode, this is also used when @@ -632,7 +632,7 @@ package Einfo is -- where Comes_From_Source is always False. -- Corresponding_Protected_Entry (Node18) --- Present in subrogram bodies. Set for subprogram bodies that implement +-- Present in subprogram bodies. Set for subprogram bodies that implement -- a protected type entry to point to the entity for the entry. -- Corresponding_Record_Type (Node18) @@ -642,7 +642,8 @@ package Einfo is -- Corresponding_Remote_Type (Node22) -- Present in record types that describe the fat pointer structure for --- Remote_Access_To_Subrogram types. References the original access type. +-- Remote_Access_To_Subprogram types. References the original access +-- type. -- CR_Discriminant (Node23) -- Present in discriminants of concurrent types. Denotes the homologous @@ -1055,7 +1056,7 @@ package Einfo is -- Etype of the N_Null node is Empty. -- Exception_Code (Uint22) --- Present in exception entitites. Set to zero unless either an +-- Present in exception entities. Set to zero unless either an -- Import_Exception or Export_Exception pragma applies to the -- pragma and specifies a Code value. See description of these -- pragmas for details. Note that this field is relevant only if @@ -1175,7 +1176,7 @@ package Einfo is -- First_Exit_Statement (Node8) -- Present in E_Loop entity. The exit statements for a loop are chained --- (in reverse order of appearence) using this field to point to the +-- (in reverse order of appearance) using this field to point to the -- first entry in the chain (last exit statement in the loop). The -- entries are chained through the Next_Exit_Statement field of the -- N_Exit_Statement node with Empty marking the end of the list. @@ -1335,7 +1336,7 @@ package Einfo is -- Has_Anon_Block_Suffix (Flag201) -- Present in all entities. Set if the entity is nested within one or -- more anonymous blocks and the Chars field contains a name with an --- anonymous block suffix (see Exp_Dbug for furthert details). +-- anonymous block suffix (see Exp_Dbug for further details). -- Has_Atomic_Components (Flag86) [implementation base type only] -- Present in all types and objects. Set only for an array type or @@ -1548,7 +1549,7 @@ package Einfo is -- Present in functions and generic functions. Set if there is one or -- more missing return statements in the function. This is used to -- control wrapping of the body in Exp_Ch6 to ensure that the program --- error exeption is correctly raised in this case at runtime. +-- error exception is correctly raised in this case at runtime. -- Has_Up_Level_Access (Flag215) -- Present in E_Variable and E_Constant entities. Set if the entity @@ -3663,7 +3664,7 @@ package Einfo is -- Subprograms_For_Type (Node29) -- Present in all type entities, and in subprogram entities. This is used -- to hold a list of subprogram entities for subprograms associated with --- the type, linked through the Suprogram_List field of the subprogram +-- the type, linked through the Subprogram_List field of the subprogram -- entity. Basically this is a way of multiplexing the single field to -- hold more than one entity (since we ran out of space in some type -- entities). This is currently used for Invariant_Procedure and also @@ -5676,9 +5677,9 @@ package Einfo is Calign_Component_Size_4, -- natural for size <= 4, 4 for size >= 4 Calign_Storage_Unit); -- all components byte aligned - ---------------------------------- - -- Floating Point Repesentation -- - ---------------------------------- + ----------------------------------- + -- Floating Point Representation -- + ----------------------------------- type Float_Rep_Kind is ( IEEE_Binary, -- IEEE 754p conform binary format @@ -7032,7 +7033,7 @@ package Einfo is (E : Entity_Id; Nam : Name_Id) return Node_Id; -- Searches the Rep_Item chain for a given entity E, for an instance of a - -- rep item (pragma, attribute definition clause, or aspect specitication) + -- rep item (pragma, attribute definition clause, or aspect specification) -- whose name matches the given name. If one is found, it is returned, -- otherwise Empty is returned. Unlike the other Get routines for the -- Rep_Item chain, this only returns items whose entity matches E (it diff --git a/gcc/ada/err_vars.ads b/gcc/ada/err_vars.ads index c4c28dafc36..2cf2bedc9a6 100644 --- a/gcc/ada/err_vars.ads +++ b/gcc/ada/err_vars.ads @@ -35,7 +35,7 @@ package Err_Vars is -- All of these variables are set when needed, so they do not need to be -- initialized. However, there is code that saves and restores existing -- values, which may malfunction in -gnatVa mode if the variable has never - -- been iniitalized, so we initialize some variables to avoid exceptions + -- been initialized, so we initialize some variables to avoid exceptions -- from invalid values in such cases. ------------------ diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 26cfc6fbeb1..0fb8f9e1278 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -2144,7 +2144,7 @@ package body Errout is -- if the loop does not exit, then the desired case will be left set to -- Mixed_Case, this can happen if the name was not in canonical form, -- and gets canonicalized on VMS. Possibly we could fix this by - -- unconditinally canonicalizing these names ??? + -- unconditionally canonicalizing these names ??? for J in 1 .. Last_Source_File loop Get_Name_String (Full_Debug_Name (J)); diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index 8fc5f82632f..1dc22797cd1 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -202,7 +202,7 @@ package Errout is -- are that an RM reference may follow in the form (RM .....) and a -- right parenthesis may immediately follow the #. In the case of -- continued messages, # can only appear at the end of a group of - -- continuation messsages, except that \\ messages which always start + -- continuation messages, except that \\ messages which always start -- a new line end the sequence from the point of view of this rule. -- The idea is that for any use of -gnatj, it will still be the case -- that a location reference appears only at the end of a line. diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 922b356d6ce..64d8127e5a2 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -1101,7 +1101,7 @@ package body Exp_Aggr is if Is_Delayed_Aggregate (Expr_Q) then - -- This is either a subaggregate of a multidimentional array, + -- This is either a subaggregate of a multidimensional array, -- or a component of an array type whose component type is -- also an array. In the latter case, the expression may have -- component associations that provide different bounds from @@ -3731,7 +3731,7 @@ package body Exp_Aggr is function Is_Flat (N : Node_Id; Dims : Int) return Boolean; -- Return True iff the array N is flat (which is not trivial in the case - -- of multidimensionsl aggregates). + -- of multidimensional aggregates). ----------------------------- -- Check_Static_Components -- diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 26d54592191..fe92f98cb1b 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -1275,7 +1275,7 @@ package body Exp_Attr is -- and T is B for the cases of Body_Version, or Version applied to a -- subprogram acting as its own spec, and S for Version applied to a -- subprogram spec or package. This sequence of code references the - -- the unsigned constant created in the main program by the binder. + -- unsigned constant created in the main program by the binder. -- A special exception occurs for Standard, where the string returned -- is a copy of the library string in gnatvsn.ads. diff --git a/gcc/ada/exp_cg.adb b/gcc/ada/exp_cg.adb index 995f421814c..4f9666476fe 100644 --- a/gcc/ada/exp_cg.adb +++ b/gcc/ada/exp_cg.adb @@ -354,7 +354,8 @@ package body Exp_CG is or else Entity_Is_In_Main_Unit (Current_Scope) then -- Register a copy of the dispatching call node. Needed since the - -- node containing a dispatching call is rewriten by the expander. + -- node containing a dispatching call is rewritten by the + -- expander. declare Copy : constant Node_Id := New_Copy (N); diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index d5359c1a90c..ecbb9a3a974 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -4961,7 +4961,7 @@ package body Exp_Ch3 is Analyze (N, Suppress => All_Checks); - -- Replace internal identifier of rewriten node by the + -- Replace internal identifier of rewritten node by the -- identifier found in the sources. We also have to exchange -- entities containing their defining identifiers to ensure -- the correct replacement of the object declaration by this @@ -6098,7 +6098,7 @@ package body Exp_Ch3 is -- wrapper functions for each nonoverridden inherited function -- with a controlling result of the type. The wrapper for such -- a function returns an extension aggregate that invokes the - -- the parent function. + -- parent function. if Ada_Version >= Ada_2005 and then not Is_Abstract_Type (Def_Id) diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 2144de90a22..fa1ad4f4459 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -2340,7 +2340,7 @@ package body Exp_Ch4 is -- in packages System.Concat_n. Known_Non_Null_Operand_Seen : Boolean; - -- Set True during generation of the assignements of operands into + -- Set True during generation of the assignments of operands into -- result once an operand known to be non-null has been seen. function Make_Artyp_Literal (Val : Nat) return Node_Id; @@ -2434,9 +2434,10 @@ package body Exp_Ch4 is -- We can't just use the index type, or even its base type for this -- purpose for two reasons. First it might be an enumeration type which - -- is not suitable fo computations of any kind, and second it may simply - -- not have enough range. For example if the index type is -128..+127 - -- then lengths can be up to 256, which is out of range of the type. + -- is not suitable for computations of any kind, and second it may + -- simply not have enough range. For example if the index type is + -- -128..+127 then lengths can be up to 256, which is out of range of + -- the type. -- For enumeration types, we can simply use Standard_Integer, this is -- sufficient since the actual number of enumeration literals cannot @@ -3486,7 +3487,7 @@ package body Exp_Ch4 is -- Same if the allocator is an access discriminant for a local object: -- instead of an allocator we create a local value and constrain the - -- the enclosing object with the corresponding access attribute. + -- enclosing object with the corresponding access attribute. if Is_Static_Coextension (N) then Rewrite_Coextension (N); @@ -3517,7 +3518,7 @@ package body Exp_Ch4 is -- raise Storage_Error; -- end if; - -- where 3.5 gigabytes is a constant large enough to accomodate any + -- where 3.5 gigabytes is a constant large enough to accommodate any -- reasonable request for. But we can't do it this way because at -- least at the moment we don't compute this attribute right, and -- can silently give wrong results when the result gets large. Since @@ -4140,7 +4141,7 @@ package body Exp_Ch4 is -- Cnn := else-expr'Unrestricted_Access; -- end if; - -- and replace the conditional expresion by a reference to Cnn.all. + -- and replace the conditional expression by a reference to Cnn.all. -- This special case can be skipped if the back end handles limited -- types properly and ensures that no incorrect copies are made. @@ -4415,7 +4416,7 @@ package body Exp_Ch4 is -- Start of processing for Expand_N_In begin - -- If set membersip case, expand with separate procedure + -- If set membership case, expand with separate procedure if Present (Alternatives (N)) then Remove_Side_Effects (Lop); @@ -8373,7 +8374,7 @@ package body Exp_Ch4 is -- target is a real type or a 64-bit integer type, and the operand -- is an arithmetic operation using a 32-bit integer type. However, -- we do not bother with this case, because it could cause significant - -- ineffiencies on 32-bit machines. On a 64-bit machine it would be + -- inefficiencies on 32-bit machines. On a 64-bit machine it would be -- much cheaper, but we don't want different behavior on 32-bit and -- 64-bit machines. Note that the exclusion of the 64-bit case also -- handles the configurable run-time cases where 64-bit arithmetic diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 921908979cb..bdd5d3adce8 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -892,7 +892,7 @@ package body Exp_Ch5 is end if; -- Reset the Analyzed flag, because the bounds of the index - -- type itself may be universal, and must must be reaanalyzed + -- type itself may be universal, and must must be reanalyzed -- to acquire the proper type for the back end. Set_Analyzed (Cleft_Lo, False); @@ -3200,7 +3200,7 @@ package body Exp_Ch5 is -- Note: the expander can handle generation of loops over predicated -- subtypes for both the dynamic and static cases. Depending on what - -- we decide is allowed in Ada 2012 mode and/or extentions allowed + -- we decide is allowed in Ada 2012 mode and/or extensions allowed -- mode, the semantic analyzer may disallow one or both forms. procedure Expand_Predicated_Loop (N : Node_Id) is diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index c44ff98f389..1a5fd137609 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -2403,7 +2403,7 @@ package body Exp_Ch6 is -- Ada 2005 (AI-231): Check null-excluding access types. Note that -- the intent of 6.4.1(13) is that null-exclusion checks should -- not be done for 'out' parameters, even though it refers only - -- to constraint checks, and a null_exlusion is not a constraint. + -- to constraint checks, and a null_exclusion is not a constraint. -- Note that AI05-0196-1 corrects this mistake in the RM. if Is_Access_Type (Etype (Formal)) @@ -3231,7 +3231,7 @@ package body Exp_Ch6 is -- Functions returning controlled objects need special attention: -- if the return type is limited, the context is an initialization -- and different processing applies. If the call is to a protected - -- function, the expansion above will call Expand_Call recusively. + -- function, the expansion above will call Expand_Call recursively. -- To prevent a double attachment, check that the current call is -- not a rewriting of a protected function call. diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 70e7a49d2e0..ebfac59d42f 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -2703,7 +2703,7 @@ package body Exp_Ch7 is --------------------------- -- The Deep procedures call the appropriate Controlling proc on the - -- the controller component. In the init case, it also attach the + -- controller component. In the init case, it also attach the -- controller to the current finalization list. function Make_Deep_Record_Body diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads index 711795730f1..5dcbd91488e 100644 --- a/gcc/ada/exp_dbug.ads +++ b/gcc/ada/exp_dbug.ads @@ -416,7 +416,7 @@ package Exp_Dbug is -- ??? We want to migrate all platforms to use the same convention. As a -- first step, we force this constant to always be True. This constant will -- eventually be deleted after we have verified that the migration does not - -- cause any unforseen adverse impact. We chose "__" because it is + -- cause any unforeseen adverse impact. We chose "__" because it is -- supported on all platforms, which is not the case of "$". procedure Get_External_Name diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 2c0832df15e..9cf300fd96a 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -980,7 +980,7 @@ package body Exp_Disp is Parent (Entity (Prefix (Controlling_Tag)))); -- For a direct reference of the tag of the type the SCIL node - -- references the the internal object declaration containing the tag + -- references the internal object declaration containing the tag -- of the type. elsif Nkind (Controlling_Tag) = N_Attribute_Reference @@ -7519,7 +7519,7 @@ package body Exp_Disp is -- excluded from this check because interfaces must be visible in -- the public and private part (RM 7.3 (7.3/2)) - -- We disable this check in CodePeer mode, to accomodate legacy + -- We disable this check in CodePeer mode, to accommodate legacy -- Ada code. if not CodePeer_Mode diff --git a/gcc/ada/exp_fixd.ads b/gcc/ada/exp_fixd.ads index 8c6780d9721..c1dc847a2c2 100644 --- a/gcc/ada/exp_fixd.ads +++ b/gcc/ada/exp_fixd.ads @@ -133,7 +133,7 @@ package Exp_Fixd is procedure Expand_Multiply_Integer_By_Fixed_Giving_Fixed (N : Node_Id); -- This routine expands the multiplication between standard integer and a -- fixed-point type. The result type is the same fixed-point type as the - -- the fixed operand type. N is an N_Op_Multiply node whose result type + -- fixed operand type. N is an N_Op_Multiply node whose result type -- and right operand types are the fixed-point type, and whose left operand -- type is always standard integer. diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index f7b40527395..9ef3a55a508 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -234,7 +234,7 @@ package body Freeze is (not In_Same_Source_Unit (Renamed_Subp, Ent) or else Sloc (Renamed_Subp) < Sloc (Ent)) - -- We can make the renaming entity intrisic if the renamed function + -- We can make the renaming entity intrinsic if the renamed function -- has an interface name, or if it is one of the shift/rotate -- operations known to the compiler. @@ -784,7 +784,7 @@ package body Freeze is return False; -- A subtype of a variant record must not have non-static - -- discriminanted components. + -- discriminated components. elsif T /= Base_Type (T) and then not Static_Discriminated_Components (T) @@ -2373,7 +2373,7 @@ package body Freeze is -- Deal with delayed aspect specifications. At the point of occurrence -- of the aspect definition, we preanalyzed the argument, to capture -- the visibility at that point, but the actual analysis of the aspect - -- is required to be delayed to the freeze point, so we evalute the + -- is required to be delayed to the freeze point, so we evaluate the -- pragma or attribute definition clause in the tree at this point. if Has_Delayed_Aspects (E) then @@ -2701,7 +2701,7 @@ package body Freeze is end if; end if; - -- Give warning for suspicous return of a result of an + -- Give warning for suspicious return of a result of an -- unconstrained array type in a foreign convention -- function. @@ -2958,7 +2958,7 @@ package body Freeze is else -- We used to check here that a full type must have preelaborable -- initialization if it completes a private type specified with - -- pragma Preelaborable_Intialization, but that missed cases where + -- pragma Preelaborable_Initialization, but that missed cases where -- the types occur within a generic package, since the freezing -- that occurs within a containing scope generally skips traversal -- of a generic unit's declarations (those will be frozen within diff --git a/gcc/ada/g-altive.ads b/gcc/ada/g-altive.ads index 57a0a207caf..392b7908dc7 100644 --- a/gcc/ada/g-altive.ads +++ b/gcc/ada/g-altive.ads @@ -143,7 +143,7 @@ -- additional facilities. -- The identification of the low level interface is directly inspired by the --- the base API organization, basically consisting of a rich set of functions +-- base API organization, basically consisting of a rich set of functions -- around a core of low level primitives mapping to AltiVec instructions. -- See for instance "vec_add" in [PIM-4.4 Generic and Specific AltiVec diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads index 50ae802c1e2..4ee683a49d4 100644 --- a/gcc/ada/g-comlin.ads +++ b/gcc/ada/g-comlin.ads @@ -187,7 +187,7 @@ -- Display_Help (Config); -- that will display a properly formatted help message for your application, -- listing all possible switches. That way you have a single place in which --- to maintain the list of switches and their meaning, rather than maintaing +-- to maintain the list of switches and their meaning, rather than maintaining -- both the string to pass to Getopt and a subprogram to display the help. -- Both will properly stay synchronized. diff --git a/gcc/ada/g-excact.ads b/gcc/ada/g-excact.ads index 73e10f7d9fe..77abadac8fb 100644 --- a/gcc/ada/g-excact.ads +++ b/gcc/ada/g-excact.ads @@ -54,7 +54,7 @@ with Ada.Exceptions; use Ada.Exceptions; package GNAT.Exception_Actions is type Exception_Action is access - procedure (Occurence : Exception_Occurrence); + procedure (Occurrence : Exception_Occurrence); -- General callback type whenever an exception is raised. The callback -- procedure must not propagate an exception (execution of the program -- is erroneous if such an exception is propagated). diff --git a/gcc/ada/g-mbdira.adb b/gcc/ada/g-mbdira.adb index f5fd4dce60d..44937f9d6a5 100644 --- a/gcc/ada/g-mbdira.adb +++ b/gcc/ada/g-mbdira.adb @@ -60,7 +60,7 @@ package body GNAT.MBBS_Discrete_Random is -- One might assume that we could get a more accurate result by testing -- the lower and upper bounds of the type Rst against the bounds of 32-bit -- Integer. However, there is no easy way to do that. Why? Because in the - -- relatively rare case where this expresion has to be evaluated at run + -- relatively rare case where this expression has to be evaluated at run -- time rather than compile time (when the bounds are dynamic), we need a -- type to use for the computation. But the possible range of upper bound -- values for Rst (remembering the possibility of 64-bit modular types) is diff --git a/gcc/ada/g-sechas.ads b/gcc/ada/g-sechas.ads index 6197cfc5ec4..7fe34b172f8 100644 --- a/gcc/ada/g-sechas.ads +++ b/gcc/ada/g-sechas.ads @@ -29,7 +29,7 @@ -- -- ------------------------------------------------------------------------------ --- This package provides common suporting code for a family of secure +-- This package provides common supporting code for a family of secure -- hash functions (including MD5 and the FIPS PUB 180-3 functions SHA-1, -- SHA-224, SHA-256, SHA-384 and SHA-512). diff --git a/gcc/ada/g-sehash.ads b/gcc/ada/g-sehash.ads index e03f8a28146..898f2adfa5b 100644 --- a/gcc/ada/g-sehash.ads +++ b/gcc/ada/g-sehash.ads @@ -30,7 +30,7 @@ ------------------------------------------------------------------------------ -- This package provides supporting code for implementation of the SHA-1 --- secure hash function as decsribed in FIPS PUB 180-3. The complete text +-- secure hash function as described in FIPS PUB 180-3. The complete text -- of FIPS PUB 180-3 can be found at: -- http://csrc.nist.gov/publications/fips/fips180-3/fips180-3_final.pdf diff --git a/gcc/ada/g-sha1.ads b/gcc/ada/g-sha1.ads index 39132054ddf..06fe9bc8e7c 100644 --- a/gcc/ada/g-sha1.ads +++ b/gcc/ada/g-sha1.ads @@ -31,7 +31,7 @@ -- -- ------------------------------------------------------------------------------ --- This package implaments the SHA-1 secure hash function as decsribed in +-- This package implements the SHA-1 secure hash function as described in -- FIPS PUB 180-3. The complete text of FIPS PUB 180-3 can be found at: -- http://csrc.nist.gov/publications/fips/fips180-3/fips180-3_final.pdf diff --git a/gcc/ada/g-sha224.ads b/gcc/ada/g-sha224.ads index c7084e82bb2..4b81112bbdb 100644 --- a/gcc/ada/g-sha224.ads +++ b/gcc/ada/g-sha224.ads @@ -29,7 +29,7 @@ -- -- ------------------------------------------------------------------------------ --- This package implaments the SHA-224 secure hash function as decsribed in +-- This package implements the SHA-224 secure hash function as described in -- FIPS PUB 180-3. The complete text of FIPS PUB 180-3 can be found at: -- http://csrc.nist.gov/publications/fips/fips180-3/fips180-3_final.pdf diff --git a/gcc/ada/g-sha256.ads b/gcc/ada/g-sha256.ads index 164f6628fb1..a638ff974ef 100644 --- a/gcc/ada/g-sha256.ads +++ b/gcc/ada/g-sha256.ads @@ -29,7 +29,7 @@ -- -- ------------------------------------------------------------------------------ --- This package implaments the SHA-256 secure hash function as decsribed in +-- This package implements the SHA-256 secure hash function as described in -- FIPS PUB 180-3. The complete text of FIPS PUB 180-3 can be found at: -- http://csrc.nist.gov/publications/fips/fips180-3/fips180-3_final.pdf diff --git a/gcc/ada/g-sha384.ads b/gcc/ada/g-sha384.ads index 9b02d9b6f5a..7a63d7e6ef2 100644 --- a/gcc/ada/g-sha384.ads +++ b/gcc/ada/g-sha384.ads @@ -29,7 +29,7 @@ -- -- ------------------------------------------------------------------------------ --- This package implaments the SHA-384 secure hash function as decsribed in +-- This package implements the SHA-384 secure hash function as described in -- FIPS PUB 180-3. The complete text of FIPS PUB 180-3 can be found at: -- http://csrc.nist.gov/publications/fips/fips180-3/fips180-3_final.pdf diff --git a/gcc/ada/g-sha512.ads b/gcc/ada/g-sha512.ads index 50f46844816..331db7d3469 100644 --- a/gcc/ada/g-sha512.ads +++ b/gcc/ada/g-sha512.ads @@ -29,7 +29,7 @@ -- -- ------------------------------------------------------------------------------ --- This package implaments the SHA-512 secure hash function as decsribed in +-- This package implements the SHA-512 secure hash function as described in -- FIPS PUB 180-3. The complete text of FIPS PUB 180-3 can be found at: -- http://csrc.nist.gov/publications/fips/fips180-3/fips180-3_final.pdf diff --git a/gcc/ada/g-shsh32.ads b/gcc/ada/g-shsh32.ads index 5b6444ba62a..4495a150db8 100644 --- a/gcc/ada/g-shsh32.ads +++ b/gcc/ada/g-shsh32.ads @@ -29,7 +29,7 @@ -- -- ------------------------------------------------------------------------------ --- This pacakge provides support for the 32-bit FIPS PUB 180-3 functions +-- This package provides support for the 32-bit FIPS PUB 180-3 functions -- SHA-224 and SHA-256. -- This is an internal unit and should not be used directly in applications. diff --git a/gcc/ada/g-shsh64.ads b/gcc/ada/g-shsh64.ads index 9518eda87a5..4b27c7db1fe 100644 --- a/gcc/ada/g-shsh64.ads +++ b/gcc/ada/g-shsh64.ads @@ -29,7 +29,7 @@ -- -- ------------------------------------------------------------------------------ --- This pacakge provides support for the 64-bit FIPS PUB 180-3 functions +-- This package provides support for the 64-bit FIPS PUB 180-3 functions -- SHA-384 and SHA-512. -- This is an internal unit and should not be used directly in applications. diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 65bfdd5b4b8..6bca4909a64 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -2319,7 +2319,7 @@ package body GNAT.Sockets is end loop; -- For an empty array, we have First > Max, and hence Index >= Max (no - -- error, the loop above is never executed). After a succesful send, + -- error, the loop above is never executed). After a successful send, -- Index = Max. The only remaining case, Index < Max, is therefore -- always an actual send failure. diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 4ff19364562..169538a4d75 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -61,7 +61,7 @@ package GNAT.Sockets is -- Sockets are designed to provide a consistent communication facility -- between applications. This package provides an Ada binding to the - -- the de-facto standard BSD sockets API. The documentation below covers + -- de-facto standard BSD sockets API. The documentation below covers -- only the specific binding provided by this package. It assumes that -- the reader is already familiar with general network programming and -- sockets usage. A useful reference on this matter is W. Richard Stevens' diff --git a/gcc/ada/g-sothco.ads b/gcc/ada/g-sothco.ads index 44a7b752215..c71a7ddf4fa 100644 --- a/gcc/ada/g-sothco.ads +++ b/gcc/ada/g-sothco.ads @@ -273,9 +273,9 @@ package GNAT.Sockets.Thin_Common is -- - thread unsafe. -- -- In the first and third cases, the Buf and Buflen are ignored. In the - -- second case, the caller must provide a buffer large enough to accomodate - -- the returned data. In the third case, the caller must ensure that these - -- functions are called within a critical section. + -- second case, the caller must provide a buffer large enough to + -- accommodate the returned data. In the third case, the caller must ensure + -- that these functions are called within a critical section. function C_Gethostbyname (Name : C.char_array; diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index b45033f303f..419db6b7d90 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -180,7 +180,7 @@ static void rest_of_type_decl_compilation_no_defer (tree); static void finish_fat_pointer_type (tree, tree); /* The relevant constituents of a subprogram binding to a GCC builtin. Used - to pass around calls performing profile compatibilty checks. */ + to pass around calls performing profile compatibility checks. */ typedef struct { Entity_Id gnat_entity; /* The Ada subprogram entity. */ @@ -3962,7 +3962,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) { gnu_builtin_decl = builtin_decl_for (gnu_ext_name); - /* Unability to find the builtin decl most often indicates a + /* Inability to find the builtin decl most often indicates a genuine mistake, but imports of unregistered intrinsics are sometimes issued on purpose to allow hooking in alternate bodies. We post a warning conditioned on Wshadow in this case, @@ -8297,7 +8297,7 @@ intrin_return_compatible_p (intrin_binding_t * inb) compatible. Issue relevant warnings when they are not. This is intended as a light check to diagnose the most obvious cases, not - as a full fledged type compatiblity predicate. It is the programmer's + as a full fledged type compatibility predicate. It is the programmer's responsibility to ensure correctness of the Ada declarations in Imports, especially when binding straight to a compiler internal. */ diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 8a15c2d0517..689f072d816 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -956,7 +956,7 @@ Identifier_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p) required if this is a static expression because it might be used in a context where a dereference is inappropriate, such as a case statement alternative or a record discriminant. There is no possible - volatile-ness short-circuit here since Volatile constants must bei + volatile-ness short-circuit here since Volatile constants must be imported per C.6. */ if (Ekind (gnat_temp) == E_Constant && Is_Scalar_Type (gnat_temp_type) @@ -6885,7 +6885,7 @@ build_binary_op_trapv (enum tree_code code, tree gnu_type, tree left, case MULT_EXPR: /* The check here is designed to be efficient if the rhs is constant, but it will work for any rhs by using integer division. - Four different check expressions determine wether X * C overflows, + Four different check expressions determine whether X * C overflows, depending on C. C == 0 => false C > 0 => X > type_max / C || X < type_min / C diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index bad121c52ab..905b9aa481e 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -2359,7 +2359,7 @@ gnat_protect_expr (tree exp) if (TREE_CONSTANT (exp) || code == SAVE_EXPR || code == NULL_EXPR) return exp; - /* If EXP has no side effects, we theoritically don't need to do anything. + /* If EXP has no side effects, we theoretically don't need to do anything. However, we may be recursively passed more and more complex expressions involving checks which will be reused multiple times and eventually be unshared for gimplification; in order to avoid a complexity explosion diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 53041cea133..2bd24ad5431 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -321,7 +321,7 @@ procedure Gnat1drv is Targparm.Frontend_Layout_On_Target := True; end if; - -- Set and check exception mechnism + -- Set and check exception mechanism if Targparm.ZCX_By_Default_On_Target then if Targparm.GCC_ZCX_Support_On_Target then diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi index a7af2054c8a..40e3c9142ef 100644 --- a/gcc/ada/gnat_rm.texi +++ b/gcc/ada/gnat_rm.texi @@ -2444,7 +2444,7 @@ implementation_kind ::= By_Entry | By_Protected_Procedure | By_Any @noindent This is an Ada 2012 representation pragma which applies to protected, task and synchronized interface primitives. The use of pragma Implemented provides -a way to impose a static requirement on the overriding opreration by adhering +a way to impose a static requirement on the overriding operation by adhering to one of the three implementation kids: entry, protected procedure or any of the above. @@ -2469,7 +2469,7 @@ end Task_Typ; @noindent When applied to the procedure_or_entry_NAME of a requeue statement, pragma Implemented determines the runtime behavior of the requeue. Implementation kind -By_Entry guarantees that the action of requeueing will procede from an entry to +By_Entry guarantees that the action of requeueing will proceed from an entry to another entry. Implementation kind By_Protected_Procedure transforms the requeue into a dispatching call, thus eliminating the chance of blocking. Kind By_Any shares the behavior of By_Entry and By_Protected_Procedure depending on @@ -2524,7 +2524,7 @@ for r'size use 16; @noindent Without a pragma Pack, each Boolean field requires 8 bits, so the minimum size is 72 bits, but with a pragma Pack, 16 bits would be -sufficient. The use of pragma Implciit_Packing allows this record +sufficient. The use of pragma Implicit_Packing allows this record declaration to compile without an explicit pragma Pack. @node Pragma Import_Exception @unnumberedsec Pragma Import_Exception @@ -3603,7 +3603,7 @@ The effect of this pragma is to output a warning message on a reference to an entity thus marked that the subprogram is obsolescent if the appropriate warning option in the compiler is activated. If the Message parameter is present, then a second warning message is given containing this text. In -addition, a reference to the eneity is considered to be a violation of pragma +addition, a reference to the entity is considered to be a violation of pragma Restrictions (No_Obsolescent_Features). This pragma can also be used as a program unit pragma for a package, @@ -9255,7 +9255,7 @@ Only do the copy if the destination file does not already exist. If it already exists, Copy_File fails. @item overwrite -Copy the file in all cases. Overwite an already existing destination file. +Copy the file in all cases. Overwrite an already existing destination file. @item append Append the original file to the destination file. If the destination file does @@ -16287,7 +16287,7 @@ case for machines compliant with the IEEE floating-point standard, but on machines that are not fully compliant with this standard, such as Alpha, the @option{-mieee} compiler flag must be used for achieving IEEE confirming behavior (although at the cost of a significant performance penalty), so -infinite and and NaN values are properly generated. +infinite and NaN values are properly generated. @node Implementation of Ada 2012 Features @@ -16484,7 +16484,7 @@ A complete description of the AIs may be found in @cindex AI-0003 (Ada 2012 feature) @noindent - In Ada 2012, a qualified expression is considered to be syntatically a name, + In Ada 2012, a qualified expression is considered to be syntactically a name, meaning that constructs such as @code{A'(F(X)).B} are now legal. This is useful in disambiguating some cases of overloading. @@ -16704,7 +16704,7 @@ A complete description of the AIs may be found in @noindent This AI covers a number of issues regarding returning abstract types. In - particular generic fucntions cannot have abstract result types or access + particular generic functions cannot have abstract result types or access result types designated an abstract type. There are some other cases which are detailed in the AI. Note that this binding interpretation has not been retrofitted to operate before Ada 2012 mode, since it caused a significant @@ -17044,11 +17044,11 @@ A complete description of the AIs may be found in @item -@emph{AI-0050 Raising Constraingt_Errpr early for function call (0000-00-00)} +@emph{AI-0050 Raising Constraint_Error early for function call (0000-00-00)} @cindex AI-0050 (Ada 2012 feature) @noindent - The implementation permissions for raising @code{Constraing_Error} early on a function call when it was clear an exception would be raised were over-permissive and allowed mishandling of discriminants in some cases. GNAT did + The implementation permissions for raising @code{Constraint_Error} early on a function call when it was clear an exception would be raised were over-permissive and allowed mishandling of discriminants in some cases. GNAT did not take advantage of these incorrect permissions in any case. @noindent @@ -17108,7 +17108,7 @@ A complete description of the AIs may be found in @noindent This AI clarifies that ``needs finalization'' is part of dynamic semantics, - and therefore depends on the run-time charateristics of an object (i.e. its + and therefore depends on the run-time characteristics of an object (i.e. its tag) and not on its nominal type. As the AI indicates: ``we do not expect this to affect any implementation''. @@ -17799,7 +17799,7 @@ A complete description of the AIs may be found in forbid tasks declared locally within subprograms, or functions returning task objects, and that is the implementation that GNAT has always provided. However the language in the RM was not sufficiently clear on this point. - Thus this is a docmentation change in the RM only. + Thus this is a documentation change in the RM only. @noindent RM References: D.07 (3/3) diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi index 5a3265747de..48a38ba0aee 100644 --- a/gcc/ada/gnat_ugn.texi +++ b/gcc/ada/gnat_ugn.texi @@ -5600,7 +5600,7 @@ component type. Note that @option{-gnatwa} does not affect the setting of this warning option. @item -gnatw.S -@emph{Suppress warnings on overriddebn size clauses.} +@emph{Suppress warnings on overridden size clauses.} @cindex @option{-gnatw.S} (@command{gcc}) This switch suppresses warnings on component clauses in record representation clauses that override size clauses, and similar @@ -8218,7 +8218,7 @@ Use 32-bit allocations for @code{__gnat_malloc} (and thus for access types). For further details see @ref{Dynamic Allocation Control}. @item ^-H64^/64_MALLOC^ -@cindex @option{^-H32^/32_MALLOC^} (@command{gnatbind}) +@cindex @option{^-H64^/64_MALLOC^} (@command{gnatbind}) Use 64-bit allocations for @code{__gnat_malloc} (and thus for access types). @cindex @code{__gnat_malloc} For further details see @ref{Dynamic Allocation Control}. @@ -9492,7 +9492,7 @@ This also assumes that no directory matches the naming scheme for files (for instance that you do not have a directory called "sources.ads" when using the default GNAT naming scheme). -When you do not have to use this switch (ie by default), gnatmake is able to +When you do not have to use this switch (i.e.@: by default), gnatmake is able to save a lot of system calls (several per source file and object file), which can result in a significant speed up to load and manipulate a project file, especially when using source files from a remote system. @@ -10240,7 +10240,7 @@ the slowest compilation time. @item ^-O3^/OPTIMIZE=INLINING^ Full optimization as in @option{-O2}; also uses more aggressive automatic inlining of subprograms within a unit -(@pxref{Inlining of Subprograms}) and attemps to vectorize loops. +(@pxref{Inlining of Subprograms}) and attempts to vectorize loops. @item ^-Os^/OPTIMIZE=SPACE^ Optimize space usage (code and data) of resulting program. @@ -10948,7 +10948,7 @@ being processed. @item ^-wq^/WARNINGS=QUIET^ @cindex @option{^-wq^/WARNINGS=QUIET^} (@command{gnatelim}) -Quet warning mode - some warnings are suppressed. In particular warnings that +Quiet warning mode - some warnings are suppressed. In particular warnings that indicate that the analysed set of sources is incomplete to make up a partition and that some subprogram bodies are missing are not generated. @end table @@ -15471,7 +15471,7 @@ all other options. @item ^--subdirs^/SUBDIRS^=subdir Actual object directory of each project file is the subdirectory subdir of the -object directory specified or defauted in the project file. +object directory specified or defaulted in the project file. @item ^--unchecked-shared-lib-imports^/UNCHECKED_SHARED_LIB_IMPORTS^ By default, shared library projects are not allowed to import static library @@ -17416,7 +17416,7 @@ Same as @option{^-gnatyM^/MAX_LINE_LENGTH=^@var{n}} @item ^--no-exception^/NO_EXCEPTION^ @cindex @option{^--no-exception^/NO_EXCEPTION^} (@command{gnatstub}) -Avoind raising PROGRAM_ERROR in the generated bodies of program unit stubs. +void raising PROGRAM_ERROR in the generated bodies of program unit stubs. This is not always possible for function stubs. @item ^--no-local-header^/NO_LOCAL_HEADER^ @@ -17506,7 +17506,7 @@ easier to interface with other languages than previous versions of Ada. The binding generator is part of the @command{gcc} compiler and can be invoked via the @option{-fdump-ada-spec} switch, which will generate Ada spec files for the header files specified on the command line, and all -header files needed by these files transitivitely. For example: +header files needed by these files transitively. For example: @smallexample $ g++ -c -fdump-ada-spec -C /usr/include/time.h @@ -18633,7 +18633,7 @@ Set a catchpoint that stops execution whenever (any task in the) program raises the exception @var{name}. @item catch exception unhandled -Set a catchpoint that stops executino whenever (any task in the) program +Set a catchpoint that stops executing whenever (any task in the) program raises an exception for which there is no handler. @item info exceptions @@ -26839,7 +26839,7 @@ look for a library name in this specific order: @end enumerate The first three are the GNU style import libraries. The third is the -Microsoft style import libraries. The last two are the DLL themself. +Microsoft style import libraries. The last two are the actual DLL names. Note that if the Ada package spec for @file{API.dll} contains the following pragma diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 60b7cfd0c32..9b6370e1a57 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -1238,7 +1238,7 @@ static const struct cond_except cond_except_table [] = { That predicate function is called indirectly, via a function pointer, by __gnat_error_handler, and changing that pointer is allowed to the - the user code by way of the __gnat_set_resignal_predicate interface. + user code by way of the __gnat_set_resignal_predicate interface. The user level function may then implement what it likes, including for instance the maintenance of a dynamic data structure if the set diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index e5371445ea3..f40edd92d79 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -388,7 +388,7 @@ package body Inline is function Process (N : Node_Id) return Traverse_Result; -- Look for calls to subprograms with no previous spec, declared - -- in the same enclosiong package body. + -- in the same enclosing package body. ------------- -- Process -- diff --git a/gcc/ada/link.c b/gcc/ada/link.c index 1cf6cfd85d7..62dd683f1c7 100644 --- a/gcc/ada/link.c +++ b/gcc/ada/link.c @@ -63,7 +63,7 @@ /* be used by default for linking libgnat (shared or static) */ /* shared_libgcc_default gives the system dependent link method that */ -/* be used by default for linking libgcc (shared or statis) */ +/* be used by default for linking libgcc (shared or static) */ /* using_gnu_linker is set to 1 when the GNU linker is used under this */ /* target. */ diff --git a/gcc/ada/locales.c b/gcc/ada/locales.c index ba649e2b08b..2fa1b58a0cf 100644 --- a/gcc/ada/locales.c +++ b/gcc/ada/locales.c @@ -35,7 +35,7 @@ typedef char char4 [4]; /* c_get_language_code needs to fill in the Alpha-3 encoding of the - language code (3 lowercase letters). That shoud be "und" if the + language code (3 lowercase letters). That should be "und" if the language is unknown. [see Ada.Locales] */ void c_get_language_code (char4 p) { @@ -46,7 +46,7 @@ void c_get_language_code (char4 p) { /* c_get_country_code needs to fill in the Alpha-2 encoding of the - country code (2 uppercase letters). That shoud be "ZZ" if the + country code (2 uppercase letters). That should be "ZZ" if the country is unknown. [see Ada.Locales] */ void c_get_country_code (char4 p) { diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 639a5afc035..98ae1eb4eb3 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -202,7 +202,7 @@ package body Make is -- extracted. function Processed return Natural; - -- Return the number of source in the queue that have aready been + -- Return the number of source in the queue that have already been -- processed. procedure Set_Obj_Dir_Busy (Obj_Dir : Path_Name_Type); @@ -6189,8 +6189,8 @@ package body Make is end; end if; - -- Add switch -M to gnatlink if buider switch --create-map-file - -- has been specified. + -- Add switch -M to gnatlink if builder switch + -- --create-map-file has been specified. if Map_File /= null then Linker_Switches.Increment_Last; @@ -7003,7 +7003,7 @@ package body Make is -- If Put_In_Q is False, we add the source as if it were specified -- on the command line, and we set Put_In_Q to True, so that the -- following sources will only be put in the queue. The source is - -- aready in the Q, but we need at least one fake main to call + -- already in the Q, but we need at least one fake main to call -- Compile_Sources. if Verbose_Mode then diff --git a/gcc/ada/mingw32.h b/gcc/ada/mingw32.h index f11572e7c2a..bee45852e11 100644 --- a/gcc/ada/mingw32.h +++ b/gcc/ada/mingw32.h @@ -83,7 +83,7 @@ extern UINT CurrentCodePage; -/* Macros to convert to/from the code page speficied in CurrentCodePage. */ +/* Macros to convert to/from the code page specified in CurrentCodePage. */ #define S2WSC(wstr,str,len) \ MultiByteToWideChar (CurrentCodePage,0,str,-1,wstr,len) #define WS2SC(str,wstr,len) \ diff --git a/gcc/ada/namet.ads b/gcc/ada/namet.ads index 8eb56835bba..c4155b4ba30 100644 --- a/gcc/ada/namet.ads +++ b/gcc/ada/namet.ads @@ -244,7 +244,7 @@ package Namet is -- initialization is performed automatically during package elaboration. -- Note that this change fixes problems which existed prior to the change -- of Initialize being called more than once. See also Reinitialize which - -- allows reinitialiation of the tables. + -- allows reinitialization of the tables. procedure Lock; -- Lock name tables before calling back end. We reserve some extra space diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 7d2a973d1dd..248845f3fba 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1163,7 +1163,7 @@ package body Osint is begin -- If we are looking for a config file, look only in the current -- directory, i.e. return input argument unchanged. Also look only in - -- the curren directory if we are looking for a .dg file (happens in + -- the current directory if we are looking for a .dg file (happens in -- -gnatD mode). if T = Config diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb index 20dfde989dc..9e80403895e 100644 --- a/gcc/ada/par-ch12.adb +++ b/gcc/ada/par-ch12.adb @@ -278,7 +278,7 @@ package body Ch12 is begin -- Figure out if a generic actual part operation is present. Clearly -- there is no generic actual part if the current token is semicolon - -- or if we have apsect specifications present. + -- or if we have aspect specifications present. if Token = Tok_Semicolon or else Aspect_Specifications_Present then return No_List; diff --git a/gcc/ada/par-ch13.adb b/gcc/ada/par-ch13.adb index 9cb40fc2470..2e237e6631c 100644 --- a/gcc/ada/par-ch13.adb +++ b/gcc/ada/par-ch13.adb @@ -367,9 +367,9 @@ package body Ch13 is -- Parsed by P_Representation_Clause (13.1) - ------------------------------ - -- 13.1 Aspect Specifation -- - ------------------------------ + -------------------------------- + -- 13.1 Aspect Specification -- + -------------------------------- -- ASPECT_SPECIFICATION ::= -- with ASPECT_MARK [=> ASPECT_DEFINITION] {. @@ -456,7 +456,7 @@ package body Ch13 is if not Class_Aspect_OK (A_Id) then Error_Msg_Node_1 := Identifier (Aspect); Error_Msg_SC ("aspect& does not permit attribute here"); - Scan; -- past apostophe + Scan; -- past apostrophe Scan; -- past presumed CLASS OK := False; diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 753c5a57a71..059b40340ae 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -3673,7 +3673,7 @@ package body Ch3 is else -- In Ada 2012 mode, the expression must be a simple - -- expression. The resaon for this restriction (i.e. going + -- expression. The reason for this restriction (i.e. going -- back to the Ada 83 rule) is to avoid ambiguities when set -- membership operations are allowed, consider the -- following: @@ -3681,7 +3681,7 @@ package body Ch3 is -- when A in 1 .. 10 | 12 => -- This is ambiguous without parentheses, so we require one - -- of the following two parenthesized forms to disambuguate: + -- of the following two parenthesized forms to disambiguate: -- one of the following: diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 325efe2fccf..4c25c3ca649 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -1194,7 +1194,7 @@ package body Ch4 is Expr_Node := Error; end Box_Error; - -- Start of processsing for P_Aggregate_Or_Paren_Expr + -- Start of processing for P_Aggregate_Or_Paren_Expr begin Lparen_Sloc := Token_Ptr; diff --git a/gcc/ada/par-prag.adb b/gcc/ada/par-prag.adb index f678c0d20f5..8ddd2209ad6 100644 --- a/gcc/ada/par-prag.adb +++ b/gcc/ada/par-prag.adb @@ -994,7 +994,7 @@ begin -- if it were a configuration pragma. -- Since the reason we provide this pragma is for compatibility with - -- these other compilers, we want to accomodate these strange placement + -- these other compilers, we want to accommodate these strange placement -- rules, and the easiest thing is simply to allow it anywhere in a -- unit. If this pragma appears anywhere within a unit, then the effect -- is as though a pragma Suppress (All_Checks) had appeared as the first diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 0532ec2a98c..776e6bd757f 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -353,7 +353,7 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is Pbod : Boolean; -- True if proper body OK Rnam : Boolean; -- True if renaming declaration OK Stub : Boolean; -- True if body stub OK - Pexp : Boolean; -- True if parametried expression OK + Pexp : Boolean; -- True if parametrized expression OK Fil2 : Boolean; -- Filler to fill to 8 bits end record; pragma Pack (Pf_Rec); @@ -632,7 +632,7 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is function P_Range_Or_Subtype_Mark (Allow_Simple_Expression : Boolean := False) return Node_Id; -- Scans out a range or subtype mark, and also permits a general simple - -- expression if Allow_Simple_Expresion is set to True. + -- expression if Allow_Simple_Expression is set to True. function Init_Expr_Opt (P : Boolean := False) return Node_Id; -- If an initialization expression is present (:= expression), then @@ -858,9 +858,9 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is -- of generating appropriate messages if aspect specifications appear -- in versions of Ada prior to Ada 2012. The parameter strict can be -- set to True, to be rather strict about considering something to be - -- an aspect speficiation. If Strict is False, then the circuitry is + -- an aspect specification. If Strict is False, then the circuitry is -- rather more generous in considering something ill-formed to be an - -- attempt at an aspect speciciation. The default is more strict for + -- attempt at an aspect specification. The default is more strict for -- Ada versions before Ada 2012 (where aspect specifications are not -- permitted). diff --git a/gcc/ada/par_sco.adb b/gcc/ada/par_sco.adb index 7dbaf93af89..251c6e23c82 100644 --- a/gcc/ada/par_sco.adb +++ b/gcc/ada/par_sco.adb @@ -104,7 +104,7 @@ package body Par_SCO is procedure Process_Decisions (N : Node_Id; T : Character); -- If N is Empty, has no effect. Otherwise scans the tree for the node N, -- to output any decisions it contains. T is one of IEPWX (for context of - -- expresion: if/exit when/pragma/while/expression). If T is other than X, + -- expression: if/exit when/pragma/while/expression). If T is other than X, -- the node N is the conditional expression involved, and a decision is -- always present (at the very least a simple decision is present at the -- top level). diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb index e36d59944ca..62f962aa40a 100644 --- a/gcc/ada/prepcomp.adb +++ b/gcc/ada/prepcomp.adb @@ -47,7 +47,7 @@ package body Prepcomp is -- The following variable should be a constant, but this is not possible -- because its type GNAT.Dynamic_Tables.Instance has a component P of - -- unitialized private type GNAT.Dynamic_Tables.Table_Private and there + -- uninitialized private type GNAT.Dynamic_Tables.Table_Private and there -- are no exported values for this private type. Warnings are Off because -- it is never assigned a value. diff --git a/gcc/ada/prj-conf.ads b/gcc/ada/prj-conf.ads index 82b8dc34726..199e3e80947 100644 --- a/gcc/ada/prj-conf.ads +++ b/gcc/ada/prj-conf.ads @@ -64,7 +64,7 @@ package Prj.Conf is -- set). -- -- If the processing fails, Main_Project is set to No_Project. If the error - -- happend while parsing the project itself (ie creating the tree), + -- happened while parsing the project itself (i.e. creating the tree), -- User_Project_Node is also set to Empty_Node. -- -- Autoconf_Specified indicates whether the user has specified --autoconf. @@ -151,7 +151,7 @@ package Prj.Conf is -- by the user (either through gprbuild's --config or --autoconf switches). -- In the latter case, Autoconf_Specified should be set to true to indicate -- that the configuration file can be regenerated to match target and - -- languages. This name can either be an absolute path, or the a base name + -- languages. This name can either be an absolute path, or the base name -- that will be searched in the default config file directories (which -- depends on the installation path for the tools). -- diff --git a/gcc/ada/prj-dect.adb b/gcc/ada/prj-dect.adb index 70f72d963b1..83ec3575b32 100644 --- a/gcc/ada/prj-dect.adb +++ b/gcc/ada/prj-dect.adb @@ -62,7 +62,7 @@ package body Prj.Dect is Project : Project_Node_Id; Attribute : Project_Node_Id; Flags : Processing_Flags); - -- Chech whether the attribute is valid in this project. + -- Check whether the attribute is valid in this project. -- In particular, depending on the type of project (qualifier), some -- attributes might be disabled. diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index 3b49c9a0f05..1114ab34205 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -41,7 +41,7 @@ package body Prj.Env is -- Initial size of Buffer Uninitialized_Prefix : constant String := '#' & Path_Separator; - -- Prefix to indicate that the project path has not been initilized yet. + -- Prefix to indicate that the project path has not been initialized yet. -- Must be two characters long No_Project_Default_Dir : constant String := "-"; @@ -478,7 +478,7 @@ package body Prj.Env is procedure Put (S : String); procedure Put_Line (S : String); -- Output procedures, analogous to normal Text_IO procs of same name. - -- The text is put in Buffer, then it will be writen into a temporary + -- The text is put in Buffer, then it will be written into a temporary -- file with procedure Write_Temp_File below. procedure Write_Temp_File; diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index 99ae6cee7b8..c7500236817 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -197,7 +197,7 @@ package Prj.Env is Project_File_Name : String; Directory : String; Path : out Namet.Path_Name_Type); - -- Search for a the project with the given name either in Directory (which + -- Search for a project with the given name either in Directory (which -- often will be the directory contain the project we are currently parsing -- and which we found a reference to another project), or in the project -- path. Extra_Project_Path contains additional directories to search. diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 3865887fe45..5175d01ab50 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -5684,7 +5684,7 @@ package body Prj.Nmsc is end; end if; - -- Name_Buffer contains the name of the the unit in lower-cases. Check + -- Name_Buffer contains the name of the unit in lower-cases. Check -- that this is a valid unit name Check_Ada_Name (Name_Buffer (1 .. Name_Len), Unit); @@ -7414,7 +7414,7 @@ package body Prj.Nmsc is -- error when appropriate procedure Get_Sources_From_Source_Info; - -- Get the source information from the tabes that were created when a + -- Get the source information from the tables that were created when a -- source info fie was read. --------------------------- diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads index b6ec05413d9..4cd66c0d220 100644 --- a/gcc/ada/prj-tree.ads +++ b/gcc/ada/prj-tree.ads @@ -816,7 +816,7 @@ package Prj.Tree is To : Int); pragma Inline (Set_Source_Index_Of); -- Only valid for N_Literal_String and N_Attribute_Declaration nodes. For - -- N_Literal_String, set the source index of the litteral string. For + -- N_Literal_String, set the source index of the literal string. For -- N_Attribute_Declaration, set the source index of the index of the -- associative array element. @@ -1469,7 +1469,7 @@ package Prj.Tree is External_References : Name_To_Name_HTable.Instance; -- External references are stored in this hash table (and manipulated - -- through subprogrames in prj-ext.ads). External references are + -- through subprograms in prj-ext.ads). External references are -- project-tree specific so that one can load the same tree twice but -- have two views of it, for instance. diff --git a/gcc/ada/prj-util.ads b/gcc/ada/prj-util.ads index 508d7d999b1..741dc7f048d 100644 --- a/gcc/ada/prj-util.ads +++ b/gcc/ada/prj-util.ads @@ -165,7 +165,7 @@ package Prj.Util is -- Open a text file to read (File is invalid if text file cannot be opened) procedure Create (File : out Text_File; Name : String); - -- Create a text file to write (File is invaid if text file cannot be + -- Create a text file to write (File is invalid if text file cannot be -- created). function End_Of_File (File : Text_File) return Boolean; @@ -223,7 +223,7 @@ package Prj.Util is procedure Initialize (Iter : out Source_Info_Iterator; For_Project : Name_Id); - -- Initiaize Iter for the project + -- Initialize Iter for the project function Source_Info_Of (Iter : Source_Info_Iterator) return Source_Info; -- Get the source info for the source corresponding to the current value of diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index 6402126acbe..2ad07b13e1e 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -1164,7 +1164,7 @@ package body Prj is or else Source.Kind /= Spec) then -- Do not modify Source.Compilable before the source record - -- has been initilaized. + -- has been initialized. if Source.Source_TS /= Empty_Time_Stamp then Source.Compilable := Yes; diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index f2d1f00bca2..b1e01efbdee 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -899,7 +899,7 @@ package Prj is -- Return the object directory to use for the project. This depends on -- whether we have a library project or a standard project. This function -- might return No_Name when no directory applies. - -- If we have a a library project file and Including_Libraries is True then + -- If we have a library project file and Including_Libraries is True then -- the library dir is returned instead of the object dir. -- If Only_If_Ada is True, then No_Name will be returned when the project -- doesn't Ada sources. @@ -1508,7 +1508,7 @@ package Prj is type Error_Handler is access procedure (Project : Project_Id; Is_Warning : Boolean); - -- This warngs when an error was found when parsing a project. The error + -- This warns when an error was found when parsing a project. The error -- itself is handled through Prj.Err (and Prj.Err.Finalize should be called -- to actually print the error). This ensures that duplicate error messages -- are always correctly removed, that errors msgs are sorted, and that all diff --git a/gcc/ada/projects.texi b/gcc/ada/projects.texi index 8441ec4da08..3b05c44d5b3 100644 --- a/gcc/ada/projects.texi +++ b/gcc/ada/projects.texi @@ -393,7 +393,7 @@ setting @code{Source_Dirs}. The project manager automatically finds project. Note that it is considered an error for a project file to have no sources -attached to it unless explicitly declared as mentionend above. +attached to it unless explicitly declared as mentioned above. If the order of the source directories is known statically, that is if @code{"/**"} is not used in the string list @code{Source_Dirs}, then there may @@ -534,7 +534,7 @@ or more executables on the command line to build a subset of them. We now have a project file that fully describes our environment, and can be used to build the application with a simple @command{gnatmake} command as seen in the previous section. In fact, the empty project we showed immediately at -the beginning (with no attribute at all) could already fullfill that need if it +the beginning (with no attribute at all) could already fulfill that need if it was put in the @file{common} directory. Of course, we always want more control. This section will show you how to @@ -736,7 +736,7 @@ Notice the three steps described earlier: The default output of GPRbuild's execution is kept reasonably simple and easy to understand. In particular, some of the less frequently used commands are not shown, and some parameters are abbreviated. So it is not possible to rerun the -effect ofthe gprbuild command by cut-and-pasting its output. GPRbuild's option +effect of the gprbuild command by cut-and-pasting its output. GPRbuild's option @code{-v} provides a much more verbose output which includes, among other information, more complete compilation, post-compilation and link commands. @@ -1152,7 +1152,7 @@ when they do, they need to specify precisely which project owns which sources using attribute @code{Source_Files} or equivalent. By contrast, 2 projects can each own a source with the same base file name as long as they live in different directories. The latter is not true for Ada Sources because of the -correlation betwen source files and Ada units. +correlation between source files and Ada units. @c --------------------------------------------- @node Cyclic Project Dependencies @@ -1201,7 +1201,7 @@ end D; @c --------------------------------------------- @noindent -When building an application, it is common to have similar needs in severa of +When building an application, it is common to have similar needs in several of the projects corresponding to the subsystems under construction. For instance, they will all have the same compilation switches. @@ -1495,10 +1495,10 @@ installation of the library (i.e., copying associated source, object and @noindent Let's enhance our example and transform the @code{logging} subsystem into a -library.In orer to do so, a few changes need to be made to @file{logging.gpr}. +library. In order to do so, a few changes need to be made to @file{logging.gpr}. A number of specific attributes needs to be defined: at least @code{Library_Name} and @code{Library_Dir}; in addition, a number of other attributes can be used -to specify specific aspects of the library. For readablility, it is also +to specify specific aspects of the library. For readability, it is also recommended (although not mandatory), to use the qualifier @code{library} in front of the @code{project} keyword. @@ -1547,13 +1547,13 @@ Other library-related attributes can be used to change the defaults: which kind of library should be build (the default is to build a static library, that is an archive of object files that can potentially be linked into a static executable). When the library is set to be dynamic, - a separate image is created that will be loaded independnently, usually + a separate image is created that will be loaded independently, usually at the start of the main program execution. Support for dynamic libraries is very platform specific, for instance on Windows it takes the form of a DLL while on GNU/Linux, it is a dynamic elf image whose suffix is usually @file{.so}. Library project files, on the other hand, can be written in - a platform independant way so that the same project file can be used to build - a library on different Oses. + a platform independent way so that the same project file can be used to build + a library on different operating systems. If you need to build both a static and a dynamic library, it is recommended use two different object directories, since in some cases some extra code @@ -1647,7 +1647,7 @@ executables. It is also possible to build @b{multi-language libraries}. When using @command{gprbuild} as a builder, multi-language library projects allow naturally -the creation of multi-language libraries . @command{gnatmake}, does n ot try to +the creation of multi-language libraries . @command{gnatmake}, does not try to compile non Ada sources. However, when the project is multi-language, it will automatically link all object files found in the object directory, whether or not they were compiled from an Ada source file. This specific behavior does not @@ -1728,10 +1728,10 @@ elaborate the Ada units that are included in the library. A stand-alone library is a convenient way to add an Ada subsystem to a more global system whose main is not in Ada since it makes the elaboration of the Ada part mostly transparent. However, stand-alone libraries are also useful when the main is in -Ada: they provide a means for minimizing relinking & redeployement of complex +Ada: they provide a means for minimizing relinking & redeployment of complex systems when localized changes are made. -The most proeminent characteristic of a stand-alone library is that it offers a +The most prominent characteristic of a stand-alone library is that it offers a distinction between interface units and implementation units. Only the former are visible to units outside the library. A stand-alone library project is thus characterised by a third attribute, @b{Library_Interface}, in addition to the @@ -2140,7 +2140,7 @@ The identifier @code{Empty} is the name of the project. This project name must be present after the reserved word @code{end} at the end of the project file, followed by a semi-colon. -@b{Identifiers} (ie the user-defined names such as project or variable names) +@b{Identifiers} (i.e.@: the user-defined names such as project or variable names) have the same syntax as Ada identifiers: they must start with a letter, and be followed by zero or more letters, digits or underscore characters; it is also illegal to have two underscores next to each other. Identifiers @@ -2445,7 +2445,7 @@ package_extension ::== @noindent An expression is any value that can be assigned to an attribute or a -variable. It is either a litteral value, or a construct requiring runtime +variable. It is either a literal value, or a construct requiring runtime computation by the project manager. In a project file, the computed value of an expression is either a string or a list of strings. @@ -2574,8 +2574,8 @@ the result is an empty list. This is also the case, if the separator is an empty string or if the external value is only one separator. Any separator at the beginning or at the end of the external value is -discarded. Then, if there is no separator in the external vaue, the result is -a string list with only one string. Otherwise, any string between the biginning +discarded. Then, if there is no separator in the external value, the result is +a string list with only one string. Otherwise, any string between the beginning and the first separator, between two consecutive separators and between the last separator and the end are components of the string list. @@ -2920,7 +2920,7 @@ system (file). The text is between brackets ([]) if the index is optional. @item Object_File_Suffix @tab string @tab Compiler @tab insensitive (language) @item Object_File_Switches @tab list @tab Compiler @tab insensitive (language) @item Multi_Unit_Switches @tab list @tab Compiler @tab insensitive (language) -@item Multi_Unit_Object_Separator @tab string @tab Compiler @tab insensitve (language) +@item Multi_Unit_Object_Separator @tab string @tab Compiler @tab insensitive (language) @item Mapping_File_Switches @tab list @tab Compiler @tab insensitive (language) @item Mapping_Spec_Suffix @tab string @tab Compiler @tab insensitive (language) @item Mapping_body_Suffix @tab string @tab Compiler @tab insensitive (language) @@ -3817,7 +3817,7 @@ gnat metric -Pproj -U main_unit will compute the metrics for the closure of units rooted at @code{main_unit}. This last possibility relies implicitly on @command{gnatbind}'s option @option{-R}. But if the argument files for the -tool invoked by the the @command{gnat} driver are explicitly specified +tool invoked by the @command{gnat} driver are explicitly specified either directly or through the tool @option{-files} option, then the tool is called only for these explicitly specified files. diff --git a/gcc/ada/s-auxdec-vms-alpha.adb b/gcc/ada/s-auxdec-vms-alpha.adb index 063b296f3ac..86c4629893f 100644 --- a/gcc/ada/s-auxdec-vms-alpha.adb +++ b/gcc/ada/s-auxdec-vms-alpha.adb @@ -75,7 +75,7 @@ package body System.Aux_DEC is Old_Bit : Boolean; begin - -- All these ASM sequences should be commented. I suggest definining + -- All these ASM sequences should be commented. I suggest defining -- a constant called E which is LF & HT and then you have more space -- for line by line comments ??? diff --git a/gcc/ada/s-auxdec-vms_64.ads b/gcc/ada/s-auxdec-vms_64.ads index 1480a441887..202cdbc9857 100644 --- a/gcc/ada/s-auxdec-vms_64.ads +++ b/gcc/ada/s-auxdec-vms_64.ads @@ -579,7 +579,7 @@ private Mechanism => (Reference, Value, Value, Reference, Reference)); pragma Inline_Always (Or_Atomic); - -- Inline the VAX Queue Funtions + -- Inline the VAX Queue Functions pragma Inline_Always (Insqhi); pragma Inline_Always (Remqhi); diff --git a/gcc/ada/s-oscons-tmplt.c b/gcc/ada/s-oscons-tmplt.c index 7e34a74b611..ed3653a4878 100644 --- a/gcc/ada/s-oscons-tmplt.c +++ b/gcc/ada/s-oscons-tmplt.c @@ -948,7 +948,7 @@ CND(AF_INET, "IPv4 address family") #endif /** - ** Tru64 UNIX V4.0F defines AF_INET6 without IPv6 support, specificially + ** Tru64 UNIX V4.0F defines AF_INET6 without IPv6 support, specifically ** without struct sockaddr_in6. We use _SS_MAXSIZE (used for the definition ** of struct sockaddr_storage on Tru64 UNIX V5.1) to detect this. **/ diff --git a/gcc/ada/s-osinte-vxworks.ads b/gcc/ada/s-osinte-vxworks.ads index 857b7cd1c04..0fc4c13e97e 100644 --- a/gcc/ada/s-osinte-vxworks.ads +++ b/gcc/ada/s-osinte-vxworks.ads @@ -471,7 +471,7 @@ package System.OS_Interface is Handler : Interrupt_Handler; Parameter : System.Address := System.Null_Address) return int; pragma Inline (Interrupt_Connect); - -- Use this to set up an user handler. The routine installs a a user + -- Use this to set up an user handler. The routine installs a user -- handler which is invoked after the OS has saved enough context for a -- high-level language routine to be safely invoked. diff --git a/gcc/ada/s-osprim-mingw.adb b/gcc/ada/s-osprim-mingw.adb index fc286e67b30..6c05b524fb5 100644 --- a/gcc/ada/s-osprim-mingw.adb +++ b/gcc/ada/s-osprim-mingw.adb @@ -193,9 +193,9 @@ package body System.OS_Primitives is GetSystemTimeAsFileTime (Ctrl_Time'Access); - -- Scan for clock tick, will take upto 16ms/1ms depending on PC. + -- Scan for clock tick, will take up to 16ms/1ms depending on PC. -- This cannot be an infinite loop or the system hardware is badly - -- dammaged. + -- damaged. loop GetSystemTimeAsFileTime (Loc_Time'Access); diff --git a/gcc/ada/s-regexp.adb b/gcc/ada/s-regexp.adb index 293412c4764..b347d46ff6a 100755 --- a/gcc/ada/s-regexp.adb +++ b/gcc/ada/s-regexp.adb @@ -196,18 +196,18 @@ package body System.Regexp is Past_Elmt : Boolean := False; -- Set to True everywhere an elmt has been parsed, if Glob=False, - -- meaning there can be now an occurence of '*', '+' and '?'. + -- meaning there can be now an occurrence of '*', '+' and '?'. Past_Term : Boolean := False; -- Set to True everywhere a term has been parsed, if Glob=False, - -- meaning there can be now an occurence of '|'. + -- meaning there can be now an occurrence of '|'. Parenthesis_Level : Integer := 0; Curly_Level : Integer := 0; Last_Open : Integer := S'First - 1; - -- The last occurence of an opening parenthesis, if Glob=False, - -- or the last occurence of an opening curly brace, if Glob=True. + -- The last occurrence of an opening parenthesis, if Glob=False, + -- or the last occurrence of an opening curly brace, if Glob=True. procedure Raise_Exception_If_No_More_Chars (K : Integer := 0); -- If no more characters are raised, call Raise_Exception diff --git a/gcc/ada/s-stusta.adb b/gcc/ada/s-stusta.adb index adea8dfcdc9..8078d9bfee3 100644 --- a/gcc/ada/s-stusta.adb +++ b/gcc/ada/s-stusta.adb @@ -51,7 +51,7 @@ package body System.Stack_Usage.Tasking is -- System.Stack_Usage.Result_Array procedure Compute_Current_Task; - -- Compute the stack usage for a given task and saves it in the a precise + -- Compute the stack usage for a given task and saves it in the precise -- slot in System.Stack_Usage.Result_Array; procedure Report_Impl (All_Tasks : Boolean; Do_Print : Boolean); diff --git a/gcc/ada/s-taprop-mingw.adb b/gcc/ada/s-taprop-mingw.adb index 768bc3f102a..20568ce1c58 100644 --- a/gcc/ada/s-taprop-mingw.adb +++ b/gcc/ada/s-taprop-mingw.adb @@ -957,7 +957,7 @@ package body System.Task_Primitives.Operations is if T.Common.Base_CPU /= System.Multiprocessors.Not_A_Specific_CPU then -- The CPU numbering in pragma CPU starts at 1 while the subprogram - -- to set the affinity starts at 0, therefore we must substract 1. + -- to set the affinity starts at 0, therefore we must subtract 1. Result := SetThreadIdealProcessor (hTask, ProcessorId (T.Common.Base_CPU) - 1); @@ -1115,7 +1115,7 @@ package body System.Task_Primitives.Operations is System.Multiprocessors.Not_A_Specific_CPU then -- The CPU numbering in pragma CPU starts at 1 while the subprogram - -- to set the affinity starts at 0, therefore we must substract 1. + -- to set the affinity starts at 0, therefore we must subtract 1. Result := SetThreadIdealProcessor diff --git a/gcc/ada/s-taprop-solaris.adb b/gcc/ada/s-taprop-solaris.adb index d3cc4909d14..a48622d0345 100644 --- a/gcc/ada/s-taprop-solaris.adb +++ b/gcc/ada/s-taprop-solaris.adb @@ -880,7 +880,7 @@ package body System.Task_Primitives.Operations is System.Multiprocessors.Not_A_Specific_CPU then -- The CPU numbering in pragma CPU starts at 1 while the subprogram - -- to set the affinity starts at 0, therefore we must substract 1. + -- to set the affinity starts at 0, therefore we must subtract 1. Result := processor_bind diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index 6023780f0c1..2862a0afa08 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -473,8 +473,8 @@ package body Scn is if not Used_As_Identifier (Token) or else Force_Msg then - -- If "some" is made into a reseverd work in Ada2012, the following - -- check will make it into a regular identifer in earlier versions + -- If "some" is made into a reserved work in Ada2012, the following + -- check will make it into a regular identifier in earlier versions -- of the language. if Token = Tok_Some and then Ada_Version < Ada_2012 then diff --git a/gcc/ada/scos.ads b/gcc/ada/scos.ads index ca5ffb4e694..fbb7e90ee4e 100644 --- a/gcc/ada/scos.ads +++ b/gcc/ada/scos.ads @@ -186,7 +186,7 @@ package SCOs is -- operand of a logical operator. -- Decisions are either simple or complex. A simple decision is a top - -- level boolean expresssion that has only one condition and that occurs + -- level boolean expression that has only one condition and that occurs -- in the context of a control structure in the source program, including -- WHILE, IF, EXIT WHEN, or in an Assert, Check, Pre_Condition or -- Post_Condition pragma. For pragmas, decision SCOs are generated only diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 9a9809cb070..4cf2ec74026 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -1803,7 +1803,7 @@ package body Sem is Do_Withed_Units (CU, Include_Limited => False); - -- Process the unit if it is a spec or the the main unit, if it + -- Process the unit if it is a spec or the main unit, if it -- has no previous spec or we have done all other units. if not Nkind_In (Item, N_Package_Body, N_Subprogram_Body) diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index e66d15b3a5e..1d75a3c75a9 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -3577,7 +3577,7 @@ package body Sem_Aggr is -- for the rest, if other components are present. -- The type of the aggregate is the known subtype of -- the component. The capture of discriminants must - -- be recursive because subcomponents may be contrained + -- be recursive because subcomponents may be constrained -- (transitively) by discriminants of enclosing types. -- For a private type with discriminants, a call to the -- initialization procedure will be generated, and no diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index bdef6853e73..b7b4f2f6319 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -1630,7 +1630,7 @@ package body Sem_Attr is end if; -- Check special case of Exception_Id and Exception_Occurrence which - -- are not allowed for restriction No_Exception_Regstriation. + -- are not allowed for restriction No_Exception_Registration. if Is_RTE (P_Type, RE_Exception_Id) or else diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 813ede844fb..e9a47a3bfde 100755 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -665,7 +665,7 @@ package body Sem_Aux is -- only occur in the case of a _parent component anyway). -- They don't have any components, plus it would cause this -- function to return true for nonlimited types derived from - -- limited intefaces. + -- limited interfaces. if not Is_Interface (Etype (C)) and then Is_Immutably_Limited_Type (Etype (C)) diff --git a/gcc/ada/sem_aux.ads b/gcc/ada/sem_aux.ads index 25f95ab6e99..e54016c9971 100755 --- a/gcc/ada/sem_aux.ads +++ b/gcc/ada/sem_aux.ads @@ -132,7 +132,7 @@ package Sem_Aux is -- the entity chain of the derived type which are a copy of the -- discriminants of the root type. Furthermore their Is_Completely_Hidden -- flag is set since although they are actually stored in the object, they - -- are not in the set of discriminants that is visble in the type. + -- are not in the set of discriminants that is visible in the type. -- -- For derived untagged types, the set of stored discriminants are the real -- discriminants from Gigi's standpoint, i.e. those that will be stored in @@ -177,7 +177,7 @@ package Sem_Aux is -- These are the types that are defined as return-by-reference types in Ada -- 95 (see RM95-6.5(11-16)). In Ada 2005, these are the types that require -- build-in-place for function calls. Note that build-in-place is allowed - -- for other types, too. This is also used for idenfitying pure procedures + -- for other types, too. This is also used for identifying pure procedures -- whose calls should not be eliminated (RM 10.2.1(18/2)). function Is_Limited_Type (Ent : Entity_Id) return Boolean; diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 76472a0e90e..80eacf6600e 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -2819,7 +2819,7 @@ package body Sem_Ch12 is -- Check restriction imposed by AI05-073: a generic function -- cannot return an abstract type or an access to such. - -- This is a binding interpreration should it apply to earlier + -- This is a binding interpretation should it apply to earlier -- versions of Ada as well as Ada 2012??? if Is_Abstract_Type (Designated_Type (Result_Type)) diff --git a/gcc/ada/sem_ch12.ads b/gcc/ada/sem_ch12.ads index 0a94250ecc0..676be37e31f 100644 --- a/gcc/ada/sem_ch12.ads +++ b/gcc/ada/sem_ch12.ads @@ -53,7 +53,7 @@ package Sem_Ch12 is -- the child unit that must be declared within. Similarly, if this is the -- name of a generic child unit within an instantiation of its own parent, -- retrieve the parent generic. If the parent is installed as a result of - -- this call, then Parent_Installed is set True, otherwise Parent_Intalled + -- this call, then Parent_Installed is set True, otherwise Parent_Installed -- is unchanged by the call. function Copy_Generic_Node diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 8d53120c360..128b398bf7b 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -81,12 +81,12 @@ package body Sem_Ch13 is procedure Build_Predicate_Function (Typ : Entity_Id; N : Node_Id); -- If Typ has predicates (indicated by Has_Predicates being set for Typ, -- then either there are pragma Invariant entries on the rep chain for the - -- type (note that Predicate aspects are converted to pragam Predicate), or + -- type (note that Predicate aspects are converted to pragma Predicate), or -- there are inherited aspects from a parent type, or ancestor subtypes. -- This procedure builds the spec and body for the Predicate function that -- tests these predicates. N is the freeze node for the type. The spec of -- the function is inserted before the freeze node, and the body of the - -- funtion is inserted after the freeze node. + -- function is inserted after the freeze node. procedure Build_Static_Predicate (Typ : Entity_Id; @@ -96,7 +96,7 @@ package body Sem_Ch13 is -- whose predicate expression is Expr, tests if Expr is a static predicate, -- and if so, builds the predicate range list. Nam is the name of the one -- argument to the predicate function. Occurrences of the type name in the - -- predicate expression have been replaced by identifer references to this + -- predicate expression have been replaced by identifier references to this -- name, which is unique, so any identifier with Chars matching Nam must be -- a reference to the type. If the predicate is non-static, this procedure -- returns doing nothing. If the predicate is static, then the predicate @@ -211,7 +211,7 @@ package body Sem_Ch13 is -- The entity of the object being overlaid Off : Boolean; - -- Whether the address is offseted within Y + -- Whether the address is offset within Y end record; package Address_Clause_Checks is new Table.Table ( @@ -723,13 +723,13 @@ package body Sem_Ch13 is end if; -- Return if already analyzed (avoids duplicate calls in some cases - -- where type declarations get rewritten and proessed twice). + -- where type declarations get rewritten and processed twice). if Analyzed (N) then return; end if; - -- Loop through apsects + -- Loop through aspects Aspect := First (L); while Present (Aspect) loop @@ -1077,8 +1077,8 @@ package body Sem_Ch13 is end; -- Invariant aspects generate a corresponding pragma with a - -- first argument that is the entity, and the second argument - -- is the expression and anthird argument with an appropriate + -- first argument that is the entity, a second argument that is + -- the expression and a third argument that is an appropriate -- message. This is inserted right after the declaration, to -- get the required pragma placement. The pragma processing -- takes care of the required delay. @@ -3950,7 +3950,7 @@ package body Sem_Ch13 is procedure Replace_Type_References is new Replace_Type_References_Generic (Replace_Type_Reference); -- Traverse an expression changing every occurrence of an identifier - -- whose name mathches the name of the subtype with a reference to + -- whose name matches the name of the subtype with a reference to -- the formal parameter of the predicate function. ---------------------------- @@ -4186,7 +4186,7 @@ package body Sem_Ch13 is function Is_False (R : RList) return Boolean; pragma Inline (Is_False); -- Returns True if the given range list is empty, and thus represents - -- a False list of ranges that can never be satsified. + -- a False list of ranges that can never be satisfied. function Is_True (R : RList) return Boolean; -- Returns True if R trivially represents the True predicate by having diff --git a/gcc/ada/sem_ch13.ads b/gcc/ada/sem_ch13.ads index 1c51a27e32e..95263ec84fd 100644 --- a/gcc/ada/sem_ch13.ads +++ b/gcc/ada/sem_ch13.ads @@ -40,8 +40,8 @@ package Sem_Ch13 is (N : Node_Id; E : Entity_Id; L : List_Id); - -- This procedure is called to analyze aspect spefications for node N. E is - -- the corresponding entity declared by the declaration node N, and L is + -- This procedure is called to analyze aspect specifications for node N. E + -- is the corresponding entity declared by the declaration node N, and L is -- the list of aspect specifications for this node. If L is No_List, the -- call is ignored. Note that we can't use a simpler interface of just -- passing the node N, since the analysis of the node may cause it to be @@ -210,7 +210,7 @@ package Sem_Ch13 is -- This is called after the back end has been called (and thus after the -- layout of components has been back annotated). It goes through the -- table of saved pragma Independent[_Component] entries, checking that - -- independence can be achieved, and if necessary issuing error mssags. + -- independence can be achieved, and if necessary issuing error messages. ------------------------------------- -- Table for Validate_Independence -- diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 6587916206d..0587b9a36de 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -8683,7 +8683,7 @@ package body Sem_Ch3 is Make_Pragma_Argument_Association (Loc, Expression => Make_Identifier (Loc, Iface_Kind)))); - -- The pragma doesn't need to be analyzed because it is internaly + -- The pragma doesn't need to be analyzed because it is internally -- build. It is safe to directly register it as a rep item since we -- are only interested in the characters of the implementation kind. @@ -10435,7 +10435,7 @@ package body Sem_Ch3 is "be allowed in Ada 2005?", S); else Error_Msg_N - ("access subype of general access type not allowed", S); + ("access subtype of general access type not allowed", S); end if; Error_Msg_N ("\discriminants have defaults", S); @@ -11768,10 +11768,10 @@ package body Sem_Ch3 is Access_Types_To_Process (Freeze_Node (Priv))); end if; - -- Swap the two entities. Now Privat is the full type entity and Full is - -- the private one. They will be swapped back at the end of the private - -- part. This swapping ensures that the entity that is visible in the - -- private part is the full declaration. + -- Swap the two entities. Now Private is the full type entity and Full + -- is the private one. They will be swapped back at the end of the + -- private part. This swapping ensures that the entity that is visible + -- in the private part is the full declaration. Exchange_Entities (Priv, Full); Append_Entity (Full, Scope (Full)); @@ -16869,7 +16869,7 @@ package body Sem_Ch3 is if Ekind (Typ) = E_Record_Type_With_Private then - -- Handle the following erronous case: + -- Handle the following erroneous case: -- type Private_Type is tagged private; -- private -- type Private_Type is new Type_Implementing_Iface; @@ -17407,8 +17407,8 @@ package body Sem_Ch3 is -- but it means we don't have to struggle to meet the requirements in -- the RM for having Preelaborable Initialization. Otherwise we -- require that the type meets the RM rules. But we can't check that - -- yet, because of the rule about overriding Ininitialize, so we - -- simply set a flag that will be checked at freeze time. + -- yet, because of the rule about overriding Initialize, so we simply + -- set a flag that will be checked at freeze time. if not In_Predefined_Unit (Full_T) then Set_Must_Have_Preelab_Init (Full_T); diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 829d0140acc..c94196ab042 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -400,7 +400,7 @@ package body Sem_Ch4 is exit; end if; - -- The other case is appearence in a subprogram body. This may + -- The other case is appearance in a subprogram body. This may -- be a violation if this is a library level subprogram, and it -- turns out to be used as the main program, but only the -- binder knows that, so just record the occurrence. @@ -1195,8 +1195,8 @@ package body Sem_Ch4 is Get_First_Interp (FirstX, I, It); while Present (It.Nam) loop - -- For each intepretation of the first expression, we only - -- add the intepretation if every other expression in the + -- For each interpretation of the first expression, we only + -- add the interpretation if every other expression in the -- case expression alternatives has a compatible type. Alt := Next (First (Alternatives (N))); @@ -1497,7 +1497,7 @@ package body Sem_Ch4 is Get_First_Interp (Then_Expr, I, It); while Present (It.Nam) loop - -- For each possible intepretation of the Then Expression, + -- For each possible interpretation of the Then Expression, -- add it only if the else expression has a compatible type. -- Is this right if Else_Expr is empty? @@ -4084,7 +4084,7 @@ package body Sem_Ch4 is -- Finally, the formal and the actual may be private extensions, -- but the generic is declared in a child unit of the parent, and - -- an addtional step is needed to retrieve the proper scope. + -- an additional step is needed to retrieve the proper scope. elsif In_Instance and then Present (Parent_Subtype (Etype (Base_Type (Prefix_Type)))) @@ -5303,7 +5303,7 @@ package body Sem_Ch4 is null; else - -- Save candidate type for subsquent error message, if any + -- Save candidate type for subsequent error message, if any if not Is_Limited_Type (T1) then Candidate_Type := T1; diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index c9992142d41..ab3f26b7a8e 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -7868,7 +7868,7 @@ package body Sem_Ch6 is -- (Ada 2012: AI05-0125-1): If S is a dispatching operation then -- it may have overridden some hidden inherited primitive. Update - -- Overriden_Subp to avoid spurious errors when checking the + -- Overridden_Subp to avoid spurious errors when checking the -- overriding indicator. if Ada_Version >= Ada_2012 @@ -8766,7 +8766,7 @@ package body Sem_Ch6 is end; end if; - -- Now we can copy the tree, doing any required substituations + -- Now we can copy the tree, doing any required substitutions CP := New_Copy_Tree (Prag, Map => Map, New_Scope => Current_Scope); diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb index b769357dd80..324f1a97311 100644 --- a/gcc/ada/sem_ch7.adb +++ b/gcc/ada/sem_ch7.adb @@ -1934,7 +1934,7 @@ package body Sem_Ch7 is procedure New_Private_Type (N : Node_Id; Id : Entity_Id; Def : Node_Id) is begin - -- For other than Ada 2012, enter tha name in the current scope + -- For other than Ada 2012, enter the name in the current scope if Ada_Version < Ada_2012 then Enter_Name (Id); diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 2a23afa3d2e..c14c446fe6b 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -3508,7 +3508,7 @@ package body Sem_Ch8 is function May_Be_Used_Primitive_Of (T : Entity_Id) return Boolean; -- An operator may be primitive in several types, if they are declared - -- in the same scope as the operator. To determine the use-visiblity of + -- in the same scope as the operator. To determine the use-visibility of -- the operator in such cases we must examine all types in the profile. ------------------------------ diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb index 25e4a6d3164..818f9b85574 100644 --- a/gcc/ada/sem_disp.adb +++ b/gcc/ada/sem_disp.adb @@ -1035,7 +1035,7 @@ package body Sem_Disp is end if; -- Indicate that this is an overriding operation, - -- and replace the overriden entry in the list of + -- and replace the overridden entry in the list of -- primitive operations, which is used for xref -- generation subsequently. @@ -2077,7 +2077,7 @@ package body Sem_Disp is -- The location of entities that come from source in the list of -- primitives of the tagged type must follow their order of occurrence - -- in the sources to fulfill the C++ ABI. If the overriden entity is a + -- in the sources to fulfill the C++ ABI. If the overridden entity is a -- primitive of an interface that is not an ancestor of this tagged -- type (that is, it is an entity added to the list of primitives by -- Derive_Interface_Progenitors), then we must append the new entity @@ -2091,7 +2091,7 @@ package body Sem_Disp is Remove_Elmt (Primitive_Operations (Tagged_Type), Elmt); Append_Elmt (New_Op, Primitive_Operations (Tagged_Type)); - -- The new primitive replaces the overriden entity. Required to ensure + -- The new primitive replaces the overridden entity. Required to ensure -- that overriding primitive is assigned the same dispatch table slot. else diff --git a/gcc/ada/sem_disp.ads b/gcc/ada/sem_disp.ads index 66a02513455..c27346dd428 100644 --- a/gcc/ada/sem_disp.ads +++ b/gcc/ada/sem_disp.ads @@ -90,7 +90,7 @@ package Sem_Disp is -- in the list of primitives of Tagged_Type. This latter search is needed -- when the interface primitive is covered by a private subprogram. If the -- primitive has not been covered yet then return the entity that will be - -- overriden when the primitive is covered (that is, return the entity + -- overridden when the primitive is covered (that is, return the entity -- whose alias attribute references the interface primitive). If none of -- these entities is found then return Empty. diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 84ca9ac5198..caa0f704ffc 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -211,7 +211,7 @@ package body Sem_Eval is -- -- If Stat is set True on return, then Is_Static_Expression is also set -- true in node N. There are some cases where this is over-enthusiastic, - -- e.g. in the two operand case below, for string comaprison, the result + -- e.g. in the two operand case below, for string comparison, the result -- is not static even though the two operands are static. In such cases, -- the caller must reset the Is_Static_Expression flag in N. @@ -4854,7 +4854,7 @@ package body Sem_Eval is elsif Is_Array_Type (T1) then -- If either subtype is unconstrained then both must be, and if both - -- are unconstrained then no further checking is neede. + -- are unconstrained then no further checking is needed. if not Is_Constrained (T1) or else not Is_Constrained (T2) then return not (Is_Constrained (T1) or else Is_Constrained (T2)); diff --git a/gcc/ada/sem_intr.adb b/gcc/ada/sem_intr.adb index f1d86058a46..9203a9af878 100644 --- a/gcc/ada/sem_intr.adb +++ b/gcc/ada/sem_intr.adb @@ -167,7 +167,7 @@ package body Sem_Intr is -- For unchecked deallocation, error to deallocate from empty pool. -- Note: this test used to be in Exp_Intr as a warning, but AI 157 - -- issues a binding intepretation that this should be an error, and + -- issues a binding interpretation that this should be an error, and -- consequently it needs to be done in the semantic analysis so that -- the error is issued even in semantics only mode. diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 7cbd324d6e6..fd509c482ae 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -1644,7 +1644,7 @@ package body Sem_Prag is end; end if; - -- Note: we do not analye the pragma at this point. Instead we + -- Note: we do not analyze the pragma at this point. Instead we -- delay this analysis until the end of the declarative part in -- which the pragma appears. This implements the required delay -- in this analysis, allowing forward references. The analysis @@ -13917,8 +13917,8 @@ package body Sem_Prag is -- whether a given pragma is significant. -- -1 indicates that references in any argument position are significant - -- 0 indicates that appearence in any argument is not significant - -- +n indicates that appearence as argument n is significant, but all + -- 0 indicates that appearance in any argument is not significant + -- +n indicates that appearance as argument n is significant, but all -- other arguments are not significant -- 99 special processing required (e.g. for pragma Check) diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 8dd8a525955..ce5323d85cd 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -4885,7 +4885,7 @@ package body Sem_Res is -- expander does, so we match its logic here). -- The second case is mod where either operand can be negative. - -- In this case, the back end has to generate additonal tests. + -- In this case, the back end has to generate additional tests. if (Nkind (N) = N_Op_Rem and then (LNeg and RNeg)) or else @@ -5985,7 +5985,7 @@ package body Sem_Res is then null; - -- Any other use is an eror + -- Any other use is an error else Error_Msg_N diff --git a/gcc/ada/sem_scil.adb b/gcc/ada/sem_scil.adb index 3ab7511663e..a069a0a632c 100644 --- a/gcc/ada/sem_scil.adb +++ b/gcc/ada/sem_scil.adb @@ -148,7 +148,7 @@ package body Sem_SCIL is -- Note: When the SCIL node is generated the private and full-view -- of the tagged types may have been swapped and hence the node -- referenced by attribute SCIL_Entity may be the private view. - -- Therefore, in order to uniformily locate the full-view we use + -- Therefore, in order to uniformly locate the full-view we use -- attribute Underlying_Type. pragma Assert diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 6962018dea7..b218b8ea663 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -73,7 +73,7 @@ package body Sem_Util is -- safely used by New_Copy_Tree, since there is no case of a recursive -- call from the processing inside New_Copy_Tree. - NCT_Hash_Threshhold : constant := 20; + NCT_Hash_Threshold : constant := 20; -- If there are more than this number of pairs of entries in the -- map, then Hash_Tables_Used will be set, and the hash tables will -- be initialized and used for the searches. @@ -82,7 +82,7 @@ package body Sem_Util is -- Set to True if hash tables are in use NCT_Table_Entries : Nat; - -- Count entries in table to see if threshhold is reached + -- Count entries in table to see if threshold is reached NCT_Hash_Table_Setup : Boolean := False; -- Set to True if hash table contains data. We set this True if we @@ -8248,7 +8248,7 @@ package body Sem_Util is -- Itype references within the copied tree. -- The following hash tables are used if the Map supplied has more - -- than hash threshhold entries to speed up access to the map. If + -- than hash threshold entries to speed up access to the map. If -- there are fewer entries, then the map is searched sequentially -- (because setting up a hash table for only a few entries takes -- more time than it saves. @@ -8984,7 +8984,7 @@ package body Sem_Util is else NCT_Table_Entries := NCT_Table_Entries + 1; - if NCT_Table_Entries > NCT_Hash_Threshhold then + if NCT_Table_Entries > NCT_Hash_Threshold then Build_NCT_Hash_Tables; end if; end if; @@ -9118,7 +9118,7 @@ package body Sem_Util is Next_Elmt (Elmt); end loop; - if NCT_Table_Entries > NCT_Hash_Threshhold then + if NCT_Table_Entries > NCT_Hash_Threshold then Build_NCT_Hash_Tables; else NCT_Hash_Tables_Used := False; @@ -9977,7 +9977,7 @@ package body Sem_Util is then return Original_Corresponding_Operation (Alias (S)); - -- If S overrides an inherted subprogram S2 the original corresponding + -- If S overrides an inherited subprogram S2 the original corresponding -- operation of S is the original corresponding operation of S2 elsif Present (Overridden_Operation (S)) then diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 18d141eae6d..40a3df32cc7 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -776,13 +776,13 @@ package Sem_Util is -- initialized (in particular in the record case, that at least one -- component has an initialization expression). Note that initialization -- resulting from the use of pragma Normalized_Scalars does not count. - -- Include_Implicit controls whether implicit initialiation of access + -- Include_Implicit controls whether implicit initialization of access -- values to null, and of discriminant values, is counted as making the -- type be partially initialized. For the default setting of True, these -- implicit cases do count, and discriminated types or types containing -- access values not explicitly initialized will return True. Otherwise -- if Include_Implicit is False, these cases do not count as making the - -- type be partially initialied. + -- type be partially initialized. function Is_Potentially_Persistent_Type (T : Entity_Id) return Boolean; -- Determines if type T is a potentially persistent type. A potentially diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 209ddfd571b..9388c662900 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -2055,7 +2055,7 @@ package body Sem_Warn is -- or a pragma, and a warning is worthwhile as well. function Check_System_Aux return Boolean; - -- Before giving a warning on a with_clause for System, check wheter + -- Before giving a warning on a with_clause for System, check whether -- a system extension is present. function Find_Package_Renaming @@ -4466,7 +4466,7 @@ package body Sem_Warn is -- variable in question, or if the entity in question -- is an OUT or IN OUT parameter, which which case -- the caller can reference it after the exception - -- hanlder completes + -- handler completes. else if Is_Formal (Ent) then diff --git a/gcc/ada/sem_warn.ads b/gcc/ada/sem_warn.ads index 635629375dc..eb756ed627a 100644 --- a/gcc/ada/sem_warn.ads +++ b/gcc/ada/sem_warn.ads @@ -49,7 +49,7 @@ package Sem_Warn is Warn_On_Overridden_Size : Boolean := False; -- Warn when explicit record component clause or array component_size - -- clause specifies a size that overrides a size for the typen which was + -- clause specifies a size that overrides a size for the type which was -- set with an explicit size clause. Off by default, set by -gnatw.s (but -- not -gnatwa). diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 295b25a1f6c..8a6690360f2 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -1150,7 +1150,7 @@ package Sinfo is -- Has_Pragma_Suppress_All (Flag14-Sem) -- This flag is set in an N_Compilation_Unit node if the Suppress_All - -- pragma appears anywhere in the unit. This accomodates the rather + -- pragma appears anywhere in the unit. This accommodates the rather -- strange placement rules of other compilers (DEC permits it at the -- end of a unit, and Rational allows it as a program unit pragma). We -- allow it anywhere at all, and consider it equivalent to a pragma @@ -1455,7 +1455,7 @@ package Sinfo is -- Next_Exit_Statement (Node3-Sem) -- Present in N_Exit_Statement nodes. The exit statements for a loop are - -- chained (in reverse order of appearence) from the First_Exit_Statement + -- chained (in reverse order of appearance) from the First_Exit_Statement -- field of the E_Loop entity for the loop. Next_Exit_Statement points to -- the next entry on this chain (Empty = end of list). @@ -1466,7 +1466,7 @@ package Sinfo is -- A postorder traversal of the tree whose nodes are units and whose -- links are with_clauses defines the order in which Inspector must -- examine a compiled unit and its full context. This ordering ensures - -- that any subprogram call is examined after the subprogram declartion + -- that any subprogram call is examined after the subprogram declaration -- has been seen. -- Next_Named_Actual (Node4-Sem) @@ -1734,9 +1734,9 @@ package Sinfo is -- secondary stack. -- Suppress_Assignment_Checks (Flag18-Sem) - -- Used in genererated N_Assignment_Statement nodes to suppress predicate + -- Used in generated N_Assignment_Statement nodes to suppress predicate -- and range checks in cases where the generated code knows that the - -- value being assigned is in range and satisifies any predicate. Also + -- value being assigned is in range and satisfies any predicate. Also -- can be set in N_Object_Declaration nodes, to similarly suppress any -- checks on the initializing value. @@ -4063,7 +4063,7 @@ package Sinfo is -- Suppress_Assignment_Checks (Flag18-Sem) -- Note: if a range check is required, then the Do_Range_Check flag - -- is set in the Expression (right hand side), with the check b6ing + -- is set in the Expression (right hand side), with the check being -- done against the type of the Name (left hand side). -- Note: the back end places some restrictions on the form of the @@ -4188,7 +4188,7 @@ package Sinfo is -- explicit loop identifier. Otherwise the parser leaves this field -- set to Empty, and then the semantic processing for a loop statement -- creates an identifier, setting the Has_Created_Identifier flag to - -- True. So after semantic anlaysis, the Identifier is always set, + -- True. So after semantic analysis, the Identifier is always set, -- referencing an identifier whose entity has an Ekind of E_Loop. -------------------------- @@ -6806,7 +6806,7 @@ package Sinfo is -- CASE_EXPRESSION_ALTERNATIVE -- {CASE_EXPRESSION_ALTERNATIVE} - -- Note that the Alternatives cannot include pragmas (this constrasts + -- Note that the Alternatives cannot include pragmas (this contrasts -- with the situation of case statements where pragmas are allowed). -- N_Case_Expression @@ -6830,7 +6830,7 @@ package Sinfo is -- Note: The Actions field temporarily holds any actions associated with -- evaluation of the Expression. During expansion of the case expression - -- these actions are wrapped into the an N_Expressions_With_Actions node + -- these actions are wrapped into an N_Expressions_With_Actions node -- replacing the original expression. ---------------------------- @@ -6859,7 +6859,7 @@ package Sinfo is -- And we add the additional constructs - -- PRIMARY ::= ( CONDITIONAL_EXPRESION ) + -- PRIMARY ::= ( CONDITIONAL_EXPRESSION ) -- PRAGMA_ARGUMENT_ASSOCIATION ::= CONDITIONAL_EXPRESSION -- Note: if we have (IF x1 THEN x2 ELSIF x3 THEN x4 ELSE x5) then it diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c index 31e3e580bf1..ee1f760daab 100644 --- a/gcc/ada/socket.c +++ b/gcc/ada/socket.c @@ -37,7 +37,7 @@ /* * For VMS, gsocket.h can't include sockets-related DEC C header files * when building the runtime (because these files are in a DEC C text library - * (DECC$RTLDEF.TLB) not accessable to GCC). So, we generate a separate header + * (DECC$RTLDEF.TLB) not accessible to GCC). So, we generate a separate header * file along with s-oscons.ads and include it here. */ # include "s-oscons.h" diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb index dc6b6a64892..fd6cbae7ead 100644 --- a/gcc/ada/styleg.adb +++ b/gcc/ada/styleg.adb @@ -201,7 +201,7 @@ package body Styleg is end if; end OK_Boolean_Operand; - -- Start of processig for Check_Boolean_Operator + -- Start of processing for Check_Boolean_Operator begin if Style_Check_Boolean_And_Or diff --git a/gcc/ada/switch.ads b/gcc/ada/switch.ads index 027bf835487..f7c62cba233 100644 --- a/gcc/ada/switch.ads +++ b/gcc/ada/switch.ads @@ -75,7 +75,7 @@ package Switch is function Is_Internal_GCC_Switch (Switch_Chars : String) return Boolean; -- Returns True iff Switch_Chars represents an internal GCC switch to be -- followed by a single argument, such as -dumpbase, --param or -auxbase. - -- Eventhough passed by the "gcc" driver, these need not be stored in ALI + -- Even though passed by the "gcc" driver, these need not be stored in ALI -- files and may safely be ignored by non GCC back-ends. function Switch_Last (Switch_Chars : String) return Natural; @@ -98,7 +98,7 @@ private -- Returns True if an integer is at the current scan location or an equal -- sign. This is used as a guard for calling Scan_Nat. Switch_Chars is the -- string containing the switch, and Ptr points just past the switch - -- character. Max is the maximum alllowed value of Ptr. + -- character. Max is the maximum allowed value of Ptr. procedure Scan_Nat (Switch_Chars : String; @@ -109,7 +109,7 @@ private -- Scan natural integer parameter for switch. On entry, Ptr points just -- past the switch character, on exit it points past the last digit of the -- integer value. Max is the maximum allowed value of Ptr, so the scan is - -- restricted to Switch_Chars (Ptr .. Max). It is posssible for Ptr to be + -- restricted to Switch_Chars (Ptr .. Max). It is possible for Ptr to be -- one greater than Max on return if the entire string is digits. Scan_Nat -- will skip an optional equal sign if it is present. Nat_Present must be -- True, or an error will be signalled. diff --git a/gcc/ada/sysdep.c b/gcc/ada/sysdep.c index 19612884fa8..aee200a8db8 100644 --- a/gcc/ada/sysdep.c +++ b/gcc/ada/sysdep.c @@ -850,11 +850,11 @@ __gnat_localtime_tzoff (const time_t *timer, long *off) #else -/* VMS does not need __gnat_locatime_tzoff */ +/* VMS does not need __gnat_localtime_tzoff */ #if defined (VMS) -/* Other targets except Lynx, VMS and Windows provide a standard locatime_r */ +/* Other targets except Lynx, VMS and Windows provide a standard localtime_r */ #else diff --git a/gcc/ada/tb-alvxw.c b/gcc/ada/tb-alvxw.c index 52d9e1643f6..381c9b0406a 100644 --- a/gcc/ada/tb-alvxw.c +++ b/gcc/ada/tb-alvxw.c @@ -564,7 +564,7 @@ heuristic_proc_desc (CORE_ADDR start_pc, So we recognize only a few registers (t7, t9, ra) within the procedure prologue as valid return address registers. If we encounter a return instruction, we extract the - the return address register from it. + return address register from it. FIXME: Rewriting GDB to access the procedure descriptors, e.g. via the minimal symbol table, might obviate this hack. */ diff --git a/gcc/ada/xoscons.adb b/gcc/ada/xoscons.adb index afe05efd651..56ea8a877d9 100644 --- a/gcc/ada/xoscons.adb +++ b/gcc/ada/xoscons.adb @@ -64,7 +64,7 @@ procedure XOSCons is -- is not available in older base compilers. -- We need to deal with integer values that can be signed or unsigned, so - -- we need to accomodate the maximum range of both cases. + -- we need to accommodate the maximum range of both cases. type Int_Value_Type is record Positive : Boolean; |