diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 14 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 2 | ||||
| -rw-r--r-- | gcc/ada/gnat_ugn.texi | 6 | ||||
| -rw-r--r-- | gcc/ada/init.c | 2 | ||||
| -rw-r--r-- | gcc/ada/par.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/projects.texi | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_dim.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_eval.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_warn.adb | 2 |
12 files changed, 28 insertions, 14 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 437e72f73fb..73ec8dee67d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,17 @@ +2015-07-12 Aldy Hernandez <aldyh@redhat.com> + + * gcc-interface/utils.c: Fix double word typos. + * gnat_ugn.texi: Same. + * init.c: Same. + * par.adb: Same. + * projects.texi: Same. + * sem_ch4.adb: Same. + * sem_ch6.adb: Same. + * sem_dim.adb: Same. + * sem_eval.adb: Same. + * sem_prag.adb: Same. + * sem_warn.adb: Same. + 2015-07-07 Andrew MacLeod <amacleod@redhat.com> * gcc-interface/cuintp.c: Adjust includes. diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index b9f803d616a..00328399c5b 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -4826,7 +4826,7 @@ unchecked_convert (tree type, tree expr, bool notrunc_p) if (etype == type) return expr; - /* If both types types are integral just do a normal conversion. + /* If both types are integral just do a normal conversion. Likewise for a conversion to an unconstrained array. */ if (((INTEGRAL_TYPE_P (type) || (POINTER_TYPE_P (type) && !TYPE_IS_THIN_POINTER_P (type)) diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi index 3a4146cacb0..21fd59ef66e 100644 --- a/gcc/ada/gnat_ugn.texi +++ b/gcc/ada/gnat_ugn.texi @@ -9130,7 +9130,7 @@ messages showing where implicit @cite{pragma Elaborate} and @cite{pragma Elaborate_All} are generated. This is useful in diagnosing elaboration circularities caused by these implicit pragmas when using the static elaboration -model. See See the section in this guide on elaboration checking for +model. See the section in this guide on elaboration checking for further details. These messages are not generated by default, and are intended only for temporary use when debugging circularity problems. @end table @@ -21139,7 +21139,7 @@ in an executable. @item @strong{Run_Path_Origin}: single -Value is the the string that may replace the path name of the executable +Value is the string that may replace the path name of the executable directory in the run path options. @item @@ -21256,7 +21256,7 @@ the prefix is "lib". @item @strong{Shared_Library_Suffix}: single -Value is the the extension of the name of shared library files. When not +Value is the extension of the name of shared library files. When not declared, the extension is ".so". @item diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 9d9f40cd0af..5754fae3619 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -1229,7 +1229,7 @@ __gnat_handle_vms_condition (int *sigargs, void *mechargs) unsigned int acmode); /* If SS$_CONTROLC has been imported as an exception, it will take - priority over a a Ctrl/C handler. See above. SIGINT has a + priority over a Ctrl/C handler. See above. SIGINT has a different condition value due to it's DECCCRTL roots and it's the condition that gets raised for a "kill -INT". */ if ((ctrlc_match || sigint_match) && __gnat_ctrl_c_handler) diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 76f6e53128d..a4658bf6939 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -967,7 +967,7 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is -- to either a WITH keyword starting an aspect specification, or an -- instance of what shpould be a terminator token. In the former case, -- the aspect specifications are scanned out including the terminator - -- token if it it is a semicolon, and the Has_Aspect_Specifications + -- token if it is a semicolon, and the Has_Aspect_Specifications -- flag is set in the given declaration node. A list of aspects -- is built and stored for this declaration node using a call to -- Set_Aspect_Specifications. If no WITH keyword is present, then this diff --git a/gcc/ada/projects.texi b/gcc/ada/projects.texi index aa12e5bc185..2ca6babc55f 100644 --- a/gcc/ada/projects.texi +++ b/gcc/ada/projects.texi @@ -4088,7 +4088,7 @@ in an executable. @item @b{Run_Path_Origin}: single -Value is the the string that may replace the path name of the executable +Value is the string that may replace the path name of the executable directory in the run path options. @item @b{Separate_Run_Path_Options}: single @@ -4186,7 +4186,7 @@ the prefix is "lib". @item @b{Shared_Library_Suffix}: single -Value is the the extension of the name of shared library files. When not +Value is the extension of the name of shared library files. When not declared, the extension is ".so". @item @b{Symbolic_Link_Supported}: single diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 80f023408ec..473d65ef725 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -6136,7 +6136,7 @@ package body Sem_Ch4 is -- to be considered, we don't want the default inequality declared -- in Standard to be chosen, and the "/=" will be rewritten as a -- negation of "=" (see the end of Analyze_Equality_Op). This ensures - -- that that rewriting happens during analysis rather than being + -- that rewriting happens during analysis rather than being -- delayed until expansion (this is needed for ASIS, which only sees -- the unexpanded tree). Note that if the node is N_Op_Ne, but Op_Id -- is Name_Op_Eq then we still proceed with the interpretation, diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 18a9b0299ee..4f6038e2d30 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -4402,7 +4402,7 @@ package body Sem_Ch6 is -- Proceed with analysis. Do not emit a cross-reference entry if the -- specification comes from an expression function, because it may be - -- the completion of a previous declaration. It is is not, the cross- + -- the completion of a previous declaration. It is not, the cross- -- reference entry will be emitted for the new subprogram declaration. if Nkind (Parent (N)) /= N_Expression_Function then diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb index 1f98027a379..ebacba9f965 100644 --- a/gcc/ada/sem_dim.adb +++ b/gcc/ada/sem_dim.adb @@ -322,7 +322,7 @@ package body Sem_Dim is -- string of dimension symbols. If In_Error_Msg is True (i.e. the String_Id -- will be used to issue an error message) then this routine has a special -- handling for the insertion characters * or [ which must be preceded by - -- a quote ' to to be placed literally into the message. + -- a quote ' to be placed literally into the message. function From_Dim_To_Str_Of_Unit_Symbols (Dims : Dimension_Type; diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index ebfa49243c3..d8a4f3e4cca 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -1093,7 +1093,7 @@ package body Sem_Eval is elsif No (Ltyp) or else No (Rtyp) then return Unknown; - -- We do not attempt comparisons for packed arrays arrays represented as + -- We do not attempt comparisons for packed arrays represented as -- modular types, where the semantics of comparison is quite different. elsif Is_Packed_Array_Impl_Type (Ltyp) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index d516c23200a..c3f7618bb9b 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -6753,7 +6753,7 @@ package body Sem_Prag is Generate_Reference (E, Id, 'i'); end if; - -- If the pragma comes from from an aspect, it only applies to the + -- If the pragma comes from an aspect, it only applies to the -- given entity, not its homonyms. if From_Aspect_Specification (N) then diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 518c9191e37..9140a0899f6 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -4366,7 +4366,7 @@ package body Sem_Warn is -- Otherwise we are at the outer level. An exception -- handler is significant only if it references the -- variable in question, or if the entity in question - -- is an OUT or IN OUT parameter, which which case + -- is an OUT or IN OUT parameter, in which case -- the caller can reference it after the exception -- handler completes. |