From: Gary Dismukes Date: Thu, 10 Oct 2019 15:25:18 +0000 (+0000) Subject: [Ada] Various minor typo fixes X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=60f66f34a669f4f15c2fc178d95f12b081f83005;p=gcc.git [Ada] Various minor typo fixes 2019-10-10 Gary Dismukes gcc/ada/ * exp_ch4.adb, sem_cat.adb, sem_ch12.adb, sem_ch3.adb, sem_ch6.adb, sem_prag.adb, sem_util.adb, sem_util.ads: Minor typo fixes. From-SVN: r276832 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 24c831e5b90..adc61c44011 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,4 +1,5 @@ -2019-10-10 Ed Schonberg +2019-10-10 Gary Dismukes - * sem_warn.adb (Warn_On_Useless_Assignment): Do not warn if the - second assignment is at the same source position as the first. \ No newline at end of file + * exp_ch4.adb, sem_cat.adb, sem_ch12.adb, sem_ch3.adb, + sem_ch6.adb, sem_prag.adb, sem_util.adb, sem_util.ads: Minor + typo fixes. \ No newline at end of file diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 82145b42a19..158dcb59cc5 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -9577,9 +9577,9 @@ package body Exp_Ch4 is Typ : constant Entity_Id := Etype (Left_Opnd (N)); begin - -- Case of elementary type with standard operator. But if - -- unnesting, handle elementary types whose Equivalent_Types are - -- records because there may be padding or undefined fields. + -- Case of elementary type with standard operator. But if unnesting, + -- handle elementary types whose Equivalent_Types are records because + -- there may be padding or undefined fields. if Is_Elementary_Type (Typ) and then Sloc (Entity (N)) = Standard_Location diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index 780fec94980..833df88b146 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -721,11 +721,11 @@ package body Sem_Cat is -- The purpose is to set categorization flags before analyzing the -- unit itself, so as to diagnose violations of categorization as -- we process each declaration, even though the pragma appears after - -- the unit. This processing is only needsd if compilation unit - -- pragmas are present. - -- Note: this code may be incorrect in the unlikely case a child - -- genericc unit is instantiated as a child of its (non-generic) - -- parent, so that generic and insstance are siblings, + -- the unit. This processing is only needed if compilation unit pragmas + -- are present. + -- Note: This code may be incorrect in the unlikely case a child generic + -- unit is instantiated as a child of its (nongeneric) parent, so that + -- generic and instance are siblings. if Nkind (P) /= N_Compilation_Unit or else No (First (Pragmas_After (Aux_Decls_Node (P)))) diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index d9fa255cc0a..8c3559f98df 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -2927,7 +2927,7 @@ package body Sem_Ch12 is Set_Inner_Instances (Formal, New_Elmt_List); -- It is unclear that any aspects can apply to a formal package - -- declaration, given that they look like a hidden comformance + -- declaration, given that they look like a hidden conformance -- requirement on the corresponding actual. However, Abstract_State -- must be treated specially because it generates declarations that -- must appear before other declarations in the specification and diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 6a0219244e2..b12f69b994c 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -13456,8 +13456,8 @@ package body Sem_Ch3 is -- After expansion of discriminated task types, the value -- of the discriminant may be converted to a run-time type -- for restricted run-times. Propagate the value of the - -- discriminant ss well, so that e.g. the secondary stack - -- component has a static constraint. Necessry for LLVM. + -- discriminant as well, so that e.g. the secondary stack + -- component has a static constraint. Necessary for LLVM. elsif Nkind (Expr) = N_Type_Conversion and then Is_Discriminant (Expression (Expr)) diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index b96a5fda8f8..5af3b7b7e19 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -4262,11 +4262,11 @@ package body Sem_Ch6 is -- object can then be used instead of the formal in case it is used -- in an actual to a call to a nested subprogram. - -- This method is used to suppliment our "small integer model" for - -- accessibility check generation (for more information see + -- This method is used to supplement our "small integer model" for + -- accessibility-check generation (for more information see -- Dynamic_Accessibility_Level). - -- Because we allow accesibility values greater than our expected value + -- Because we allow accessibility values greater than our expected value -- passing along the same extra accessibility formal as an actual -- to a nested subprogram becomes a problem because high values mean -- different things to the callee even though they are the same to the diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index fbfa0e04e1a..7b36f8e3923 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -13093,7 +13093,7 @@ package body Sem_Prag is -- Infer the type to use for a string literal or a concatentation -- of operands whose types can be inferred. For such expressions, -- returns the "narrowest" of the three predefined string types - -- that can represent the characters occuring in the expression. + -- that can represent the characters occurring in the expression. -- For other expressions, returns Empty. function Preferred_String_Type (Expr : Node_Id) return Entity_Id is diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index f4885735f35..9ca80aafda7 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -9071,8 +9071,8 @@ package body Sem_Util is -- components are being gathered for an aggregate, in which case -- the caller must check Report_Errors. -- - -- In Ada2020 the above rules are relaxed. A non-static governing - -- discriminant is ok as long as it has a static subtype and + -- In Ada 2020 the above rules are relaxed. A nonstatic governing + -- discriminant is OK as long as it has a static subtype and -- every value of that subtype (and there must be at least one) -- selects the same variant. diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index b41b8750fd2..7df81405632 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -2991,7 +2991,7 @@ package Sem_Util is function Choice_List_Intervals (Discrete_Choices : List_Id) return Discrete_Interval_List; -- Given a discrete choice list, returns the (unique) interval - -- list representing the chosen values.. + -- list representing the chosen values. function Is_Subset (Subset, Of_Set : Discrete_Interval_List) return Boolean;