From 16b54914309fa2d94159d71b2e4a75fd497e1e75 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 18 Dec 2019 07:15:22 +0000 Subject: [PATCH] [Ada] Fix three-letter typos like "sss" in comments and docs 2019-12-18 Piotr Trojanek gcc/ada/ * doc/gnat_rm/implementation_defined_pragmas.rst, doc/gnat_rm/obsolescent_features.rst, doc/gnat_ugn/gnat_and_program_execution.rst, exp_attr.adb, exp_ch9.adb, init.c, libgnat/s-valrea.adb, par-ch6.adb, sem_attr.adb, sem_ch4.adb, sem_util.ads: Fix trivial typos. * gnat_rm.texi, gnat_ugn.texi: Regenerate. From-SVN: r279514 --- gcc/ada/ChangeLog | 9 +++++++++ gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst | 2 +- gcc/ada/doc/gnat_rm/obsolescent_features.rst | 2 +- gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst | 2 +- gcc/ada/exp_attr.adb | 4 ++-- gcc/ada/exp_ch9.adb | 2 +- gcc/ada/gnat_rm.texi | 4 ++-- gcc/ada/gnat_ugn.texi | 2 +- gcc/ada/init.c | 2 +- gcc/ada/libgnat/s-valrea.adb | 2 +- gcc/ada/par-ch6.adb | 2 +- gcc/ada/sem_attr.adb | 2 +- gcc/ada/sem_ch4.adb | 2 +- gcc/ada/sem_util.ads | 2 +- 14 files changed, 24 insertions(+), 15 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index acf3b3b5167..90d25c022c9 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,12 @@ +2019-12-18 Piotr Trojanek + + * doc/gnat_rm/implementation_defined_pragmas.rst, + doc/gnat_rm/obsolescent_features.rst, + doc/gnat_ugn/gnat_and_program_execution.rst, exp_attr.adb, + exp_ch9.adb, init.c, libgnat/s-valrea.adb, par-ch6.adb, + sem_attr.adb, sem_ch4.adb, sem_util.ads: Fix trivial typos. + * gnat_rm.texi, gnat_ugn.texi: Regenerate. + 2019-12-18 Gary Dismukes * sem_res.adb (Resolve_Type_Conversion): Add handling for access diff --git a/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst b/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst index 42087ade155..c3d6f90714c 100644 --- a/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst +++ b/gcc/ada/doc/gnat_rm/implementation_defined_pragmas.rst @@ -1344,7 +1344,7 @@ are equivalent to The precondition ensures that one and only one of the case guards is satisfied on entry to the subprogram. The postcondition ensures that for the case guard that was True on entry, -the corrresponding consequence is True on exit. Other consequence expressions +the corresponding consequence is True on exit. Other consequence expressions are not evaluated. A precondition ``P`` and postcondition ``Q`` can also be diff --git a/gcc/ada/doc/gnat_rm/obsolescent_features.rst b/gcc/ada/doc/gnat_rm/obsolescent_features.rst index 2082a2a33fe..3ba502188e0 100644 --- a/gcc/ada/doc/gnat_rm/obsolescent_features.rst +++ b/gcc/ada/doc/gnat_rm/obsolescent_features.rst @@ -49,7 +49,7 @@ pragma Task_Info The functionality provided by pragma ``Task_Info`` is now part of the Ada language. The ``CPU`` aspect and the package ``System.Multiprocessors`` offer a less system-dependent way to specify -task affinity or to query the number of processsors. +task affinity or to query the number of processors. Syntax diff --git a/gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst b/gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst index 0fb9bdd3282..ba2c9b6d201 100644 --- a/gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst +++ b/gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst @@ -2964,7 +2964,7 @@ integer arithmetic package. The compiler will make calls to this package, though only in cases where it cannot be sure that ``Long_Long_Integer`` is sufficient to guard against intermediate overflows. This package does not use dynamic -alllocation, but it does use the secondary stack, so an +allocation, but it does use the secondary stack, so an appropriate secondary stack package must be present (this is always true for standard full Ada, but may require specific steps for restricted run times such as ZFP). diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index f35fa73128e..4057a36dc11 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -5246,7 +5246,7 @@ package body Exp_Attr is Rep_To_Pos_Flag (Ptyp, Loc)))))); else - -- Add Boolean parameter True, to request program errror if + -- Add Boolean parameter True, to request program error if -- we have a bad representation on our hands. If checks are -- suppressed, then add False instead @@ -6216,7 +6216,7 @@ package body Exp_Attr is Make_Integer_Literal (Loc, 1))), Rep_To_Pos_Flag (Ptyp, Loc)))))); else - -- Add Boolean parameter True, to request program errror if + -- Add Boolean parameter True, to request program error if -- we have a bad representation on our hands. Add False if -- checks are suppressed. diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 7b8edf43509..64ac3533caf 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -363,7 +363,7 @@ package body Exp_Ch9 is -- a null trailing statement with the given Loc (which is the sloc of -- the accept, delay, or entry call statement). There might not be any -- generated code for the accept, delay, or entry call itself (the effect - -- of these statements is part of the general processsing done for the + -- of these statements is part of the general processing done for the -- enclosing selective accept, timed entry call, or asynchronous select), -- and the null statement is there to carry the sloc of that statement to -- the back-end for trace-based coverage analysis purposes. diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi index 6476591028c..5261d38bb22 100644 --- a/gcc/ada/gnat_rm.texi +++ b/gcc/ada/gnat_rm.texi @@ -2751,7 +2751,7 @@ pragma Postcondition (if C2 then Pred2); The precondition ensures that one and only one of the case guards is satisfied on entry to the subprogram. The postcondition ensures that for the case guard that was True on entry, -the corrresponding consequence is True on exit. Other consequence expressions +the corresponding consequence is True on exit. Other consequence expressions are not evaluated. A precondition @code{P} and postcondition @code{Q} can also be @@ -28804,7 +28804,7 @@ this kind of implementation dependent addition. The functionality provided by pragma @code{Task_Info} is now part of the Ada language. The @code{CPU} aspect and the package @code{System.Multiprocessors} offer a less system-dependent way to specify -task affinity or to query the number of processsors. +task affinity or to query the number of processors. Syntax diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi index 1a991e91118..66bea96d13a 100644 --- a/gcc/ada/gnat_ugn.texi +++ b/gcc/ada/gnat_ugn.texi @@ -22795,7 +22795,7 @@ integer arithmetic package. The compiler will make calls to this package, though only in cases where it cannot be sure that @code{Long_Long_Integer} is sufficient to guard against intermediate overflows. This package does not use dynamic -alllocation, but it does use the secondary stack, so an +allocation, but it does use the secondary stack, so an appropriate secondary stack package must be present (this is always true for standard full Ada, but may require specific steps for restricted run times such as ZFP). diff --git a/gcc/ada/init.c b/gcc/ada/init.c index f7e830e9259..67ea4dc2579 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -1564,7 +1564,7 @@ int __gl_heap_size = 64; operation, drivide by zero, and overflow. This will prevent the VMS runtime (specifically OTS$CHECK_FP_MODE) from complaining about inconsistent floating point settings in a mixed language program. Ideally the setting - would be determined at link time based on setttings in the object files, + would be determined at link time based on settings in the object files, however the VMS linker seems to take the setting from the first object in the link, e.g. pcrt0.o which is float representation neutral. */ char __gl_float_format = 'I'; diff --git a/gcc/ada/libgnat/s-valrea.adb b/gcc/ada/libgnat/s-valrea.adb index 519e369d94f..424ccd05f4e 100644 --- a/gcc/ada/libgnat/s-valrea.adb +++ b/gcc/ada/libgnat/s-valrea.adb @@ -204,7 +204,7 @@ package body System.Val_Real is if Digit < 0 then if Digit = Underscore and Index + 1 <= Max then - -- Underscore is only alllowed if followed by a digit + -- Underscore is only allowed if followed by a digit Digit := As_Digit (Str (Index + 1)); if Digit in Valid_Digit then Index := Index + 1; diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index bf7f9719b65..8445a4ec412 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -999,7 +999,7 @@ package body Ch6 is if Pf_Flags.Pbod - -- Disconnnect this processing if we have scanned a null procedure + -- Disconnect this processing if we have scanned a null procedure -- because in this case the spec is complete anyway with no body. and then (Nkind (Specification_Node) /= N_Procedure_Specification diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 72729ec8fc4..190d281e455 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -10503,7 +10503,7 @@ package body Sem_Attr is -- to a missed warning (the Valid check does not really -- modify!) If this case, Note will be reset to False. - -- Skip it as well if the type is an Acccess_To_Constant, + -- Skip it as well if the type is an Access_To_Constant, -- given that no use of the value can modify the prefix. begin diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 0158623d496..591011252aa 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -676,7 +676,7 @@ package body Sem_Ch4 is -- In GNATprove mode we need to preserve the link between -- the original subtype indication and the anonymous subtype, - -- to extend proofs to constrained acccess types. We only do + -- to extend proofs to constrained access types. We only do -- that outside of spec expressions, otherwise the declaration -- cannot be inserted and analyzed. In such a case, GNATprove -- later rejects the allocator as it is not used here in diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 351d992a4d5..c148a50d72b 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -547,7 +547,7 @@ package Sem_Util is function Deepest_Type_Access_Level (Typ : Entity_Id) return Uint; -- Same as Type_Access_Level, except that if the type is the type of an Ada -- 2012 stand-alone object of an anonymous access type, then return the - -- static accesssibility level of the object. In that case, the dynamic + -- static accessibility level of the object. In that case, the dynamic -- accessibility level of the object may take on values in a range. The low -- bound of that range is returned by Type_Access_Level; this function -- yields the high bound of that range. Also differs from Type_Access_Level -- 2.30.2