diff options
Diffstat (limited to 'gcc/ada')
64 files changed, 111 insertions, 92 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1a1837eab11..747758b50ea 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,23 @@ +2008-09-14 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> + + * a-crbtgk.adb, a-direct.ads, a-tasatt.adb, ali.ads, + bindgen.adb, checks.adb, einfo.ads, exp_aggr.adb, exp_ch11.adb, + exp_ch3.adb, exp_ch4.adb, exp_ch6.adb, exp_ch7.adb, exp_ch9.adb, + exp_dbug.ads, exp_disp.adb, exp_dist.adb, exp_pakd.adb, + exp_util.adb, g-alveop.ads, g-comlin.adb, g-comlin.ads, + g-diopit.adb, g-socket.ads, gcc-interface/decl.c, + gcc-interface/gigi.h, gcc-interface/trans.c, + lib-load.adb, lib-xref.ads, make.adb, mlib-prj.adb, nlists.ads, + opt.ads, par-ch10.adb, par-ch5.adb, par.adb, s-os_lib.ads, + s-oscons-tmplt.c, s-parint.ads, s-regpat.ads, s-shasto.ads, + s-stausa.ads, s-taprop-vms.adb, sem.adb, sem_ch10.adb, + sem_ch11.adb, sem_ch12.adb, sem_ch13.adb, sem_ch3.adb, + sem_ch3.ads, sem_ch4.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb, + sem_elim.adb, sem_prag.adb, sem_util.adb, sem_util.ads, + sem_warn.adb, sinfo.ads, styleg.adb, vms_data.ads: Fix typos in + comments. + * gnathtml.pl: Fix typos. + 2008-09-10 Joel Sherrill <joel.sherrill@oarcorp.com> * gcc-interface/Makefile.in: Switch RTEMS to s-interr-hwint.adb. diff --git a/gcc/ada/a-crbtgk.adb b/gcc/ada/a-crbtgk.adb index f3f8e07dae4..a8acc40c94d 100644 --- a/gcc/ada/a-crbtgk.adb +++ b/gcc/ada/a-crbtgk.adb @@ -205,7 +205,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Keys is pragma Assert (Tree.Length > 0); -- A hint can either name the node that immediately follows Key, - -- or immediately precedes Key. We first test whether Key is is + -- or immediately precedes Key. We first test whether Key is -- less than the hint, and if so we compare Key to the node that -- precedes the hint. If Key is both less than the hint and -- greater than the hint's preceding neighbor, then we're done; diff --git a/gcc/ada/a-direct.ads b/gcc/ada/a-direct.ads index 8b918f638b8..40992e0228d 100644 --- a/gcc/ada/a-direct.ads +++ b/gcc/ada/a-direct.ads @@ -317,7 +317,7 @@ package Ada.Directories is procedure End_Search (Search : in out Search_Type); -- Ends the search represented by Search. After a successful call on -- End_Search, the object Search will have no entries available. Note - -- that is is not necessary to call End_Search if the call to Start_Search + -- that it is not necessary to call End_Search if the call to Start_Search -- was unsuccessful and raised an exception (but it is harmless to make -- the call in this case). diff --git a/gcc/ada/a-tasatt.adb b/gcc/ada/a-tasatt.adb index 0140df956d4..10d29b61e42 100644 --- a/gcc/ada/a-tasatt.adb +++ b/gcc/ada/a-tasatt.adb @@ -719,7 +719,7 @@ begin In_Use := In_Use or Two_To_J; Local.Index := J; - -- This unchecked conversions can give a warning when the the + -- This unchecked conversions can give a warning when the -- alignment is incorrect, but it will not be used in such a -- case anyway, so the warning can be safely ignored. diff --git a/gcc/ada/ali.ads b/gcc/ada/ali.ads index 3e95595edca..c4be2ef9eec 100644 --- a/gcc/ada/ali.ads +++ b/gcc/ada/ali.ads @@ -959,7 +959,7 @@ package ALI is -- Ignore_Lines requests that Scan_ALI ignore any lines that start -- with any given key character. The default value of X causes all -- Xref lines to be ignored. The corresponding data in the ALI - -- tables will not be filled in in this case. It is not possible + -- tables will not be filled in this case. It is not possible -- to ignore U (unit) lines, they are always read. -- -- Read_Lines requests that Scan_ALI process only lines that start diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 7f3f6274327..a632dd4aa86 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -205,7 +205,7 @@ package body Bindgen is -- value of 1 signals its presence in the partition. -- Default_Stack_Size is the default stack size used when creating an Ada - -- task with no explicit Storize_Size clause. + -- task with no explicit Storage_Size clause. -- Leap_Seconds_Support denotes whether leap seconds have been enabled or -- disabled. A value of zero indicates that leap seconds are turned "off", diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 12c5b64a9fc..92b66f32f76 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -502,7 +502,7 @@ package body Checks is Type_Level := Make_Integer_Literal (Loc, Type_Access_Level (Typ)); - -- Raise Program_Error if the accessibility level of the the access + -- Raise Program_Error if the accessibility level of the access -- parameter is deeper than the level of the target access type. Insert_Action (Insert_Node, @@ -1096,7 +1096,7 @@ package body Checks is Apply_Discriminant_Check (N, Typ); end if; - -- Apply the the 2005 Null_Excluding check. Note that we do not apply + -- Apply the 2005 Null_Excluding check. Note that we do not apply -- this check if the constraint node is illegal, as shown by having -- an error posted. This additional guard prevents cascaded errors -- and compiler aborts on illegal programs involving Ada 2005 checks. diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index a7058747149..409b001d39f 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -497,7 +497,7 @@ package Einfo is -- Checks_May_Be_Suppressed (Flag31) -- Present in all entities. Set if a pragma Suppress or Unsuppress -- mentions the entity specifically in the second argument. If this --- flag is set the the Global_Entity_Suppress and Local_Entity_Suppress +-- flag is set the Global_Entity_Suppress and Local_Entity_Suppress -- tables must be consulted to determine if the is actually an active -- Suppress or Unsuppress pragma that applies to the entity. @@ -588,7 +588,7 @@ package Einfo is -- Constant_Value (synthesized) -- Applies to variables, constants, named integers, and named reals. -- Obtains the initialization expression for the entity. Will return --- Empty for for a deferred constant whose full view is not available +-- Empty for a deferred constant whose full view is not available -- or in some other cases of internal entities, which cannot be treated -- as constants from the point of view of constant folding. Empty is -- also returned for variables with no initialization expression. @@ -1594,7 +1594,7 @@ package Einfo is -- Has_Pragma_Pack (Flag121) [implementation base type only] -- Present in all entities. If set, indicates that a valid pragma Pack --- was was given for the type. Note that this flag is not inherited by +-- was given for the type. Note that this flag is not inherited by -- derived type. See also the Is_Packed flag. -- Has_Pragma_Pure (Flag203) diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index df5617a09fc..21a0fd83aea 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -326,7 +326,7 @@ package body Exp_Aggr is -- The limit is applied to the total number of components that the -- aggregate will have, which is the number of static expressions -- that will appear in the flattened array. This requires a recursive - -- computation of the the number of scalar components of the structure. + -- computation of the number of scalar components of the structure. --------------------- -- Component_Count -- diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index 7ad1881151a..13da1ff83a9 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -849,7 +849,7 @@ package body Exp_Ch11 is begin -- If we have no Entity, then we are probably in no run time mode - -- or some weird error has occurred. In either case do do nothing! + -- or some weird error has occurred. In either case do nothing! if Present (Ent) then declare diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index f2b3eaff0e3..4f9df51c11d 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -4428,8 +4428,8 @@ package body Exp_Ch3 is -- unconstrained nominal subtype, then it acquired its constraints -- from the expression in the first place, and not only does this -- mean that the constraint check is not needed, but an attempt to - -- perform the constraint check can cause order order of - -- elaboration problems. + -- perform the constraint check can cause order of elaboration + -- problems. if not Is_Constr_Subt_For_U_Nominal (Typ) then diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 6e763729a46..9309c485048 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -6552,7 +6552,7 @@ package body Exp_Ch4 is Determine_Range (Right, ROK, Rlo, Rhi); Determine_Range (Left, LOK, Llo, Lhi); - -- The operand type may be private (e.g. in the expansion of an an + -- The operand type may be private (e.g. in the expansion of an -- intrinsic operation) so we must use the underlying type to get the -- bounds, and convert the literals explicitly. diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index a84b0255ad8..ae5b8d547d1 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -4492,7 +4492,7 @@ package body Exp_Ch6 is -- which denotes the enclosing protected object. If the enclosing -- operation is an entry, we are immediately within the protected body, -- and we can retrieve the object from the service entries procedure. A - -- barrier function has has the same signature as an entry. A barrier + -- barrier function has the same signature as an entry. A barrier -- function is compiled within the protected object, but unlike -- protected operations its never needs locks, so that its protected -- body subprogram points to itself. diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 1d7cb78f77a..9b11ce7502f 100644 --- a/gcc/ada/exp_ch7.adb +++ b/gcc/ada/exp_ch7.adb @@ -2716,7 +2716,7 @@ package body Exp_Ch7 is With_Attach => Make_Identifier (Loc, Name_B))); -- When the type is also a controlled type by itself, - -- Initialize it and attach it to the finalization chain + -- initialize it and attach it to the finalization chain. if Is_Controlled (Typ) then Append_To (Res, @@ -2739,7 +2739,7 @@ package body Exp_Ch7 is Make_Identifier (Loc, Name_B))); -- When the type is also a controlled type by itself, - -- Adjust it it and attach it to the finalization chain + -- adjust it and attach it to the finalization chain. if Is_Controlled (Typ) then Append_To (Res, diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 53de7a0e9d5..de5877cc488 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -4124,7 +4124,7 @@ package body Exp_Ch9 is -- objectR - -- which is a renaming of the _object field of the current object object + -- which is a renaming of the _object field of the current object -- record, passed into protected operations as a parameter. function Concurrent_Ref (N : Node_Id) return Node_Id is @@ -8721,7 +8721,7 @@ package body Exp_Ch9 is Alt_Stats := New_List; end if; - -- After the call, if any, branch to to trailing statements. We + -- After the call, if any, branch to trailing statements. We -- create a label for each, as well as the corresponding label -- declaration. @@ -12292,7 +12292,7 @@ package body Exp_Ch9 is when ' ' => return True; - -- FIFO_Within_Priorities certainly certainly does not permit this + -- FIFO_Within_Priorities certainly does not permit this -- optimization since the Rendezvous is a scheduling action that may -- require some other task to be run. diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads index 1552c77a7aa..71c2f79b14f 100644 --- a/gcc/ada/exp_dbug.ads +++ b/gcc/ada/exp_dbug.ads @@ -1490,7 +1490,7 @@ package Exp_Dbug is -- -- These are the external names generated for Case_1.Typ (note that -- Pkg1.Typ is associated with the Primary Dispatch Table, because it - -- is the the parent of this type, and hence no external name is + -- is the parent of this type, and hence no external name is -- generated for it). -- case_1__typ0P (associated with Pkg2.Typ) -- case_1__typ1P (associated with Pkg3.Typ) diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 3d1f776f8b3..b44ea2e3027 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -767,7 +767,7 @@ package body Exp_Disp is end if; -- If the target type is a tagged synchronized type, the dispatch table - -- info is in the correspondoing record type. + -- info is in the corresponding record type. if Is_Concurrent_Type (Iface_Typ) then Iface_Typ := Corresponding_Record_Type (Iface_Typ); diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index da7210b7b12..546bbcc5797 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -10353,7 +10353,7 @@ package body Exp_Dist is -- to the union parameter list. -- Ordering of declarations is a complete mess in this - -- area, it is supposed to be types/varibles, then + -- area, it is supposed to be types/variables, then -- subprogram specs, then subprogram bodies ??? --------------------------------------- diff --git a/gcc/ada/exp_pakd.adb b/gcc/ada/exp_pakd.adb index e04d723e79f..d66ed0f7519 100644 --- a/gcc/ada/exp_pakd.adb +++ b/gcc/ada/exp_pakd.adb @@ -1541,7 +1541,7 @@ package body Exp_Pakd is else -- We have to convert the right hand side to Etype (Obj). - -- A special case case arises if what we have now is a Val + -- A special case arises if what we have now is a Val -- attribute reference whose expression type is Etype (Obj). -- This happens for assignments of fields from the same -- array. In this case we get the required right hand side diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index 8e367e1d79d..b36f80d46cd 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -1895,7 +1895,7 @@ package body Exp_Util is -- If the variable reference does not come from source, we -- cannot reliably tell whether it appears in the else part. - -- In particular, if if appears in generated code for a node + -- In particular, if it appears in generated code for a node -- that requires finalization, it may be attached to a list -- that has not been yet inserted into the code. For now, -- treat it as unknown. diff --git a/gcc/ada/g-alveop.ads b/gcc/ada/g-alveop.ads index 0897942ced7..55a9fcf6471 100644 --- a/gcc/ada/g-alveop.ads +++ b/gcc/ada/g-alveop.ads @@ -43,7 +43,7 @@ package GNAT.Altivec.Vector_Operations is -- much smaller set of low level primitives with type conversions around. -- -- In some cases, a direct binding without any intermediate body is - -- possible or even even mandatory for technical reasons. What we provide + -- possible or even mandatory for technical reasons. What we provide -- here for such cases are renamings of straight imports exposed by -- Altivec.Low_Level_Interface. See the comments in the private part for -- additional details. diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index b5a82d5dc9c..47f821d4271 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -114,10 +114,10 @@ package body GNAT.Command_Line is -- the beginning, else it is appended. function Can_Have_Parameter (S : String) return Boolean; - -- True when S can have a parameter + -- True if S can have a parameter. function Require_Parameter (S : String) return Boolean; - -- True when S requires a parameter + -- True if S requires a parameter. function Actual_Switch (S : String) return String; -- Remove any possible trailing '!', ':', '?' and '=' diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads index 12a9888cbc7..1f393afd042 100644 --- a/gcc/ada/g-comlin.ads +++ b/gcc/ada/g-comlin.ads @@ -610,8 +610,8 @@ package GNAT.Command_Line is -- added if not already present. For example, to add the -g switch into the -- -cargs section, you need to call (Cmd, "-g", Section => "-cargs") -- - -- Add_Before allows insertion of the switch at the begining of the command - -- line. + -- Add_Before allows insertion of the switch at the beginning of the + -- command line. procedure Add_Switch (Cmd : in out Command_Line; diff --git a/gcc/ada/g-diopit.adb b/gcc/ada/g-diopit.adb index e88d2ee6c43..4829bb43c7e 100644 --- a/gcc/ada/g-diopit.adb +++ b/gcc/ada/g-diopit.adb @@ -376,7 +376,7 @@ package body GNAT.Directory_Operations.Iteration is end; -- Exit if Quit set by call to Action, either at this level - -- or at at some lower recursive call to Next_Level. + -- or at some lower recursive call to Next_Level. exit Dir_Iterator when Quit; end loop Dir_Iterator; diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 045e3bfb7d0..cd12b016975 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -370,7 +370,7 @@ package GNAT.Sockets is -- end PingPong; package SOSC renames System.OS_Constants; - -- Renaming used to provide short-hand notations thoughout the sockets + -- Renaming used to provide short-hand notations throughout the sockets -- binding. Note that System.OS_Constants is an internal unit, and the -- entities declared therein are not meant for direct access by users, -- including through this renaming. diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 65dd02e7834..c254990d45c 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1939,7 +1939,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) true, Has_Component_Size_Clause (gnat_entity)); /* If the component type is a RECORD_TYPE that has a self-referential - size, use the maxium size. */ + size, use the maximum size. */ if (!gnu_comp_size && TREE_CODE (tem) == RECORD_TYPE && CONTAINS_PLACEHOLDER_P (TYPE_SIZE (tem))) gnu_comp_size = max_size (TYPE_SIZE (tem), true); @@ -2304,7 +2304,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) Has_Component_Size_Clause (gnat_entity)); /* If the component type is a RECORD_TYPE that has a - self-referential size, use the maxium size. */ + self-referential size, use the maximum size. */ if (!gnu_comp_size && TREE_CODE (gnu_type) == RECORD_TYPE && CONTAINS_PLACEHOLDER_P (TYPE_SIZE (gnu_type))) diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index e1c2fe923c9..7b08f8dad4e 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -782,7 +782,7 @@ extern bool value_factor_p (tree value, HOST_WIDE_INT factor); desired for the result. Usually the operation is to be performed in that type. For MODIFY_EXPR and ARRAY_REF, RESULT_TYPE may be 0 in which case the type to be used will be derived from the operands. */ -extern tree build_binary_op (enum tree_code op_code, tree retult_type, +extern tree build_binary_op (enum tree_code op_code, tree result_type, tree left_operand, tree right_operand); /* Similar, but make unary operation. */ diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index a67476eae70..f8265cc6dc7 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -1621,7 +1621,7 @@ Case_Statement_to_gnu (Node_Id gnat_node) /* If the case value is a subtype that raises Constraint_Error at run-time because of a wrong bound, then gnu_low or gnu_high is - not transtaleted into an INTEGER_CST. In such a case, we need + not translated into an INTEGER_CST. In such a case, we need to ensure that the when statement is not added in the tree, otherwise it will crash the gimplifier. */ if ((!gnu_low || TREE_CODE (gnu_low) == INTEGER_CST) diff --git a/gcc/ada/gnathtml.pl b/gcc/ada/gnathtml.pl index 9d893268055..c72cecb0207 100644 --- a/gcc/ada/gnathtml.pl +++ b/gcc/ada/gnathtml.pl @@ -65,7 +65,7 @@ sub print_usage print " command line\n"; print " -ext ext : Choose the generated file names extension (default\n"; print " is htm)\n"; - print "This program attemps to generate an html file from an Ada file\n"; + print "This program attempts to generate an html file from an Ada file\n"; exit; } @@ -351,7 +351,7 @@ sub to_type # return 'generic package' if ($char eq 'K'); return 'block' if ($char eq 'L'); return 'modular integer' if ($char eq 'M'); - return 'enumeration litteral' if ($char eq 'N'); + return 'enumeration literal' if ($char eq 'N'); return 'ordinary fixed point' if ($char eq 'O'); return 'access' if ($char eq 'P'); return 'label' if ($char eq 'Q'); diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb index d928b79a3a9..29a9090f90e 100644 --- a/gcc/ada/lib-load.adb +++ b/gcc/ada/lib-load.adb @@ -711,7 +711,7 @@ package body Lib.Load is -- it may very likely be the case that there is also pragma -- Restriction forbidding its usage. This is typically the -- case when building a configurable run time, where the - -- usage of certain run-time units units is restricted by + -- usage of certain run-time units is restricted by -- means of both the corresponding pragma Restriction (such -- as No_Calendar), and by not including the unit. Hence, -- we check whether this predefined unit is forbidden, so diff --git a/gcc/ada/lib-xref.ads b/gcc/ada/lib-xref.ads index 92334484d9b..01e227c047f 100644 --- a/gcc/ada/lib-xref.ads +++ b/gcc/ada/lib-xref.ads @@ -587,7 +587,7 @@ package Lib.Xref is -- Node N is an operator node, whose entity has been set. If this entity -- is a user defined operator (i.e. an operator not defined in package -- Standard), then a reference to the operator is recorded at node N. - -- T is the operand type of of the operator. A reference to the operator + -- T is the operand type of the operator. A reference to the operator -- is an implicit reference to the type, and that needs to be recorded -- to avoid spurious warnings on unused entities, when the operator is -- a renaming of a predefined operator. diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index c85e7ff13b2..20813c07e49 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -4363,7 +4363,7 @@ package body Make is -- directory information. File_Name : constant String := Base_Name (Main); - -- The simple file name of the current main main + -- The simple file name of the current main begin exit when Main = ""; @@ -7220,7 +7220,7 @@ package body Make is elsif Sfile /= No_File then - -- If Put_In_Q is False, we add the source as it it were specified + -- 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 be put directly in the queue. This will -- allow parallel compilation processes if -jx switch is used. diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb index 7e86facd99d..9b532be27d7 100644 --- a/gcc/ada/mlib-prj.adb +++ b/gcc/ada/mlib-prj.adb @@ -1163,7 +1163,7 @@ package body MLib.Prj is Close (FD); - -- And invoke gnatbind with this this response file + -- And invoke gnatbind with this response file Spawn (Gnatbind_Path.all, Args, Success); diff --git a/gcc/ada/nlists.ads b/gcc/ada/nlists.ads index 75072e2b8a1..77f2a2034a3 100644 --- a/gcc/ada/nlists.ads +++ b/gcc/ada/nlists.ads @@ -172,7 +172,7 @@ package Nlists is function Prev (Node : Node_Id) return Node_Id; pragma Inline (Prev); - -- This function returns the previous node on a node list list, or Empty + -- This function returns the previous node on a node list, or Empty -- if Node is the first element of the node list. The argument must be -- a member of a node list. Note: the implementation does maintain back -- pointers, so this function executes quickly in constant time. diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index 542dc2568d0..12b6acefe77 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -161,7 +161,7 @@ package Opt is Assume_No_Invalid_Values : Boolean := True; -- ??? true for now, enable by setting to false later -- GNAT - -- Normallly, in accordance with (RM 13.9.1 (9-11)) the front end assumes + -- Normally, in accordance with (RM 13.9.1 (9-11)) the front end assumes -- that values could have invalid representations, unless it can clearly -- prove that the values are valid. If this switch is set (by -gnatB or by -- pragma Assume_No_Invalid_Values (Off)), then the compiler assumes values diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index f433352b06d..d90d27bfc4e 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -331,7 +331,7 @@ package body Ch10 is -- A common error is to omit the body keyword after package. We can -- often diagnose this early on (before getting loads of errors from - -- contained subprogram bodies), by knowing that that the file we + -- contained subprogram bodies), by knowing that the file we -- are compiling has a name that requires a body to be found. Save_Scan_State (Scan_State); diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index ddc7b61fd10..57c54449ac3 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -1067,7 +1067,7 @@ package body Ch5 is -- scanned out and is in Prev_Token. procedure Check_If_Column; - -- An internal procedure used to check that THEN, ELSE ELSE, or ELSIF + -- An internal procedure used to check that THEN, ELSE, or ELSIF -- appear in the right place if column checking is enabled (i.e. if -- they are the first token on the line, then they must appear in -- the same column as the opening IF). diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index a76ee2593e9..2f9edeb4256 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -1105,7 +1105,7 @@ is pragma Inline (Push_Scope_Stack); -- Push a new entry onto the scope stack. Scope.Last (the stack pointer) -- is incremented. The Junk field is preinitialized to False. The caller - -- is expected to fill in all remaining entries of the new new top stack + -- is expected to fill in all remaining entries of the new top stack -- entry at Scope.Table (Scope.Last). procedure Pop_Scope_Stack; diff --git a/gcc/ada/s-os_lib.ads b/gcc/ada/s-os_lib.ads index b5f55485446..6d009259578 100755 --- a/gcc/ada/s-os_lib.ads +++ b/gcc/ada/s-os_lib.ads @@ -307,7 +307,7 @@ package System.OS_Lib is Append); -- If the target file exists, the contents of the source file is -- appended at the end. Otherwise the source file is just copied. The - -- time stamps and other file attributes are are preserved if the + -- time stamps and other file attributes are preserved if the -- destination file does not exist. type Attribute is diff --git a/gcc/ada/s-oscons-tmplt.c b/gcc/ada/s-oscons-tmplt.c index 614a8660d9b..36a6b8eb1bc 100644 --- a/gcc/ada/s-oscons-tmplt.c +++ b/gcc/ada/s-oscons-tmplt.c @@ -243,7 +243,7 @@ CND(FNDELAY, "Nonblocking") /* ---------------------- - -- Ioctl operatings -- + -- Ioctl operations -- ---------------------- */ diff --git a/gcc/ada/s-parint.ads b/gcc/ada/s-parint.ads index 2562b73d2e5..99eda8ea511 100644 --- a/gcc/ada/s-parint.ads +++ b/gcc/ada/s-parint.ads @@ -115,7 +115,7 @@ package System.Partition_Interface is Version : String; RCI : Boolean := True); -- Use by the main subprogram to check that a remote receiver - -- unit has has the same version than the caller's one. + -- unit has the same version than the caller's one. function Same_Partition (Left : not null access RACW_Stub_Type; diff --git a/gcc/ada/s-regpat.ads b/gcc/ada/s-regpat.ads index 077518dd903..0ab027ca9f2 100755 --- a/gcc/ada/s-regpat.ads +++ b/gcc/ada/s-regpat.ads @@ -404,7 +404,7 @@ package System.Regpat is Expression : String; Final_Code_Size : out Program_Size; Flags : Regexp_Flags := No_Flags); - -- Compile a regular expression into into internal code + -- Compile a regular expression into internal code -- This procedure is significantly faster than the Compile function since -- it avoids the extra step of precomputing the required size. diff --git a/gcc/ada/s-shasto.ads b/gcc/ada/s-shasto.ads index 40089a33075..584e253c933 100644 --- a/gcc/ada/s-shasto.ads +++ b/gcc/ada/s-shasto.ads @@ -91,7 +91,7 @@ -- set a new value to the shared variable and, according to the used -- implementation, propagate this value among processes referencing it. -- A call to this procedure is generated by the expander after each --- assignement of the shared varible. +-- assignment of the shared variable. -- Note: a special circuit allows the use of stream attributes Read and -- Write for limited types (using the corresponding attribute for the diff --git a/gcc/ada/s-stausa.ads b/gcc/ada/s-stausa.ads index 2aa9dd70d2d..165f82dcc0b 100644 --- a/gcc/ada/s-stausa.ads +++ b/gcc/ada/s-stausa.ads @@ -107,7 +107,7 @@ package System.Stack_Usage is -- appear as used in the final measure. -- Strategy: As the user passes the value of the bottom of stack to - -- the instrumentation to deal with the bottom offset error, and as as + -- the instrumentation to deal with the bottom offset error, and as -- the instrumentation procedure knows where the pattern filling start -- on the stack, the difference between the two values is the minimum -- stack usage that the method can measure. If, when the results are diff --git a/gcc/ada/s-taprop-vms.adb b/gcc/ada/s-taprop-vms.adb index 92d1a187b7d..a193501a9ca 100644 --- a/gcc/ada/s-taprop-vms.adb +++ b/gcc/ada/s-taprop-vms.adb @@ -822,7 +822,7 @@ package body System.Task_Primitives.Operations is begin -- Since the initial signal mask of a thread is inherited from the - -- creator, we need to set our local signal mask mask all signals + -- creator, we need to set our local signal mask to mask all signals -- during the creation operation, to make sure the new thread is -- not disturbed by signals before it has set its own Task_Id. diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 20ac16eb8ad..32e9657e9da 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -1339,7 +1339,7 @@ package body Sem is Current_Sem_Unit := Get_Cunit_Unit_Number (Comp_Unit); -- Compile predefined units with GNAT_Mode set to True, to properly - -- process the categorization stuff. However, do not set set GNAT_Mode + -- process the categorization stuff. However, do not set GNAT_Mode -- to True for the renamings units (Text_IO, IO_Exceptions, Direct_IO, -- Sequential_IO) as this would prevent pragma Extend_System from being -- taken into account, for example when Text_IO is renaming DEC.Text_IO. diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index 6331c0443ea..cbdda92aa17 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -1292,7 +1292,7 @@ package body Sem_Ch10 is -- the implicit with's on parent units. -- Skip use clauses at this stage, since we don't want to do any - -- installing of potentially use visible entities until we we + -- installing of potentially use visible entities until we -- actually install the complete context (in Install_Context). -- Otherwise things can get installed in the wrong context. diff --git a/gcc/ada/sem_ch11.adb b/gcc/ada/sem_ch11.adb index 2be74709f09..b4adf7078cd 100644 --- a/gcc/ada/sem_ch11.adb +++ b/gcc/ada/sem_ch11.adb @@ -185,8 +185,7 @@ package body Sem_Ch11 is -- scope for visibility purposes. We create an entity to denote -- the whole exception part, and use it as the scope of all the -- choices, which may even have the same name without conflict. - -- This scope plays no other role in expansion or or code - -- generation. + -- This scope plays no other role in expansion or code generation. Choice := Choice_Parameter (Handler); diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index c956e7cbada..549d5b4ee3c 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -896,8 +896,8 @@ package body Sem_Ch12 is Num_Actuals : Int := 0; Others_Present : Boolean := False; - -- In Ada 2005, indicates partial parametrization of of a formal - -- package. As usual an others association must be last in the list. + -- In Ada 2005, indicates partial parametrization of a formal + -- package. As usual an other association must be last in the list. function Matching_Actual (F : Entity_Id; @@ -9564,7 +9564,7 @@ package body Sem_Ch12 is Abandon_Instantiation (Actual); end if; - -- This case should be caught by the earlier check for for + -- This case should be caught by the earlier check for -- constrainedness, but the check here is added for completeness. elsif Has_Discriminants (Act_T) diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index 0de30ebaec7..d9b626f8981 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -420,7 +420,7 @@ package body Sem_Ch13 is -- 1 .. 4 3 .. 6 1 3 -- 4 .. 7 0 .. 3 4 0 - -- The general rule is that the first bit is is obtained by + -- The general rule is that the first bit is obtained by -- subtracting the old ending bit from machine scalar size - 1. for C in Start .. Stop loop diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 18538c878be..9490c88adda 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -765,7 +765,7 @@ package body Sem_Ch3 is -- If the current scope is a protected type, the anonymous access -- is associated with one of the protected operations, and must -- be available in the scope that encloses the protected declaration. - -- Otherwise the type is is in the scope enclosing the subprogram. + -- Otherwise the type is in the scope enclosing the subprogram. if Ekind (Current_Scope) = E_Protected_Type then Anon_Scope := Scope (Scope (Defining_Entity (Related_Nod))); @@ -1121,7 +1121,7 @@ package body Sem_Ch3 is -- A bit of a kludge here. These kludges will be removed when Itypes -- have proper parent pointers to their declarations??? - -- Kludge 1) Link definining_identifier of formals. Required by + -- Kludge 1) Link defining_identifier of formals. Required by -- First_Formal to provide its functionality. declare @@ -1993,7 +1993,7 @@ package body Sem_Ch3 is End_Scope; - -- If the type has discriminants, non-trivial subtypes may be be + -- If the type has discriminants, non-trivial subtypes may be -- declared before the full view of the type. The full views of those -- subtypes will be built after the full view of the type. @@ -15724,7 +15724,7 @@ package body Sem_Ch3 is -- Ada 2005 (AI-251): If the parent of the private type declaration -- is an interface there is no need to check that it is an ancestor -- of the associated full type declaration. The required tests for - -- this case case are performed by Build_Derived_Record_Type. + -- this case are performed by Build_Derived_Record_Type. elsif not Is_Interface (Base_Type (Priv_Parent)) and then not Is_Ancestor (Base_Type (Priv_Parent), Full_Parent) @@ -15960,7 +15960,7 @@ package body Sem_Ch3 is Prim_Elmt := First_Elmt (Priv_List); -- In the case of a concurrent type completing a private tagged - -- type, primivies may have been declared in between the two + -- type, primitives may have been declared in between the two -- views. These subprograms need to be wrapped the same way -- entries and protected procedures are handled because they -- cannot be directly shared by the two views. diff --git a/gcc/ada/sem_ch3.ads b/gcc/ada/sem_ch3.ads index 89b85fe2c23..076966a0f17 100644 --- a/gcc/ada/sem_ch3.ads +++ b/gcc/ada/sem_ch3.ads @@ -180,7 +180,7 @@ package Sem_Ch3 is -- attributes of a class wide type are inherited from those of the type T. -- If T is introduced by a private declaration, the corresponding class -- wide type is created at the same time, and therefore there is a private - -- and a full declaration for the class wide type type as well. + -- and a full declaration for the class wide type as well. function OK_For_Limited_Init_In_05 (Exp : Node_Id) return Boolean; -- Presuming Exp is an expression of an inherently limited type, returns diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 19afc8d8fa7..47fd4e6aaf5 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -499,7 +499,7 @@ package body Sem_Ch4 is Check_Fully_Declared (Type_Id, N); -- Ada 2005 (AI-231): If the designated type is itself an access - -- type that excludes null, it's default initializastion will + -- type that excludes null, its default initialization will -- be a null object, and we can insert an unconditional raise -- before the allocator. diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 9a319d992a4..a2a5078d6a0 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -1602,7 +1602,7 @@ package body Sem_Ch6 is -- Note that wrappers already have their corresponding specs and -- bodies set during their creation, so if the candidate spec is - -- a wrapper, then we definately need to swap all types to their + -- a wrapper, then we definitely need to swap all types to their -- original concurrent status. if No (Spec_N) @@ -5098,7 +5098,7 @@ package body Sem_Ch6 is end if; -- If this is a derived subprogram then the subtypes of the parent - -- subprogram's formal parameters will be used to to determine the need + -- subprogram's formal parameters will be used to determine the need -- for extra formals. if Is_Overloadable (E) and then Present (Alias (E)) then diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb index ef9a6540b0c..46cd9383987 100644 --- a/gcc/ada/sem_ch7.adb +++ b/gcc/ada/sem_ch7.adb @@ -2115,7 +2115,7 @@ package body Sem_Ch7 is then if not Has_Private_Declaration (Etype (Id)) then - -- We assume that the user did not not intend a deferred + -- We assume that the user did not intend a deferred -- constant declaration, and the expression is just missing. Error_Msg_N diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 96eac0e1785..3e231f61212 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -2063,7 +2063,7 @@ package body Sem_Ch8 is Check_Frozen_Renaming (N, Rename_Spec); -- Check explicitly that renamed entity is not intrinsic, because - -- in in a generic the renamed body is not built. In this case, + -- in a generic the renamed body is not built. In this case, -- the renaming_as_body is a completion. if Inside_A_Generic then @@ -4803,7 +4803,7 @@ package body Sem_Ch8 is end if; -- Operator is visible if prefix of expanded name denotes - -- scope of type, or else type type is defined in System_Aux + -- scope of type, or else type is defined in System_Aux -- and the prefix denotes System. return Scope (Btyp) = Scop diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb index f1461237adc..2badebb0517 100644 --- a/gcc/ada/sem_elim.adb +++ b/gcc/ada/sem_elim.adb @@ -476,7 +476,7 @@ package body Sem_Elim is end loop; -- Find last non-space before this colon. If there - -- is no no space character before this colon, then + -- is no space character before this colon, then -- return False. Otherwise, End_Idx set to point to -- this non-space character. diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index e2d02aeef90..065cb9701d4 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -3096,7 +3096,7 @@ package body Sem_Prag is return; end if; - -- Import pragmas must be be for imported entities + -- Import pragmas must be for imported entities if Prag_Id = Pragma_Import_Function or else @@ -3395,7 +3395,7 @@ package body Sem_Prag is Process_Interface_Name (Def_Id, Arg3, Arg4); -- Note that we do not set Is_Public here. That's because we - -- only want to set if if there is no address clause, and we + -- only want to set it if there is no address clause, and we -- don't know that yet, so we delay that processing till -- freeze time. diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 83c3f4b21f2..82dca5662a3 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -8053,7 +8053,7 @@ package body Sem_Util is return Object_Access_Level (Expression (Obj)); -- Function results are objects, so we get either the access level of - -- the function or, in the case of an indirect call, the level of of the + -- the function or, in the case of an indirect call, the level of the -- access-to-subprogram type. elsif Nkind (Obj) = N_Function_Call then diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index a8f7fc8dc33..ce6d4bd99d2 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -457,7 +457,7 @@ package Sem_Util is -- Given an entity for an exception, package, subprogram or generic unit, -- returns the ultimately renamed entity if this is a renaming. If this is -- not a renamed entity, returns its argument. It is an error to call this - -- with any any other kind of entity. + -- with any other kind of entity. function Get_Subprogram_Entity (Nod : Node_Id) return Entity_Id; -- Nod is either a procedure call statement, or a function call, or diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index feb19ce5631..c29c6256e17 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -1025,7 +1025,7 @@ package body Sem_Warn is -- Suppress warning if private type, and the procedure -- has a separate declaration in a different unit. This -- is the case where the client of a package sees only - -- the private type, and it it may be quite reasonable + -- the private type, and it may be quite reasonable -- for the logical view to be in out, even if the -- implementation ends up using access types or some -- other method to achieve the local effect of a diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 29404b2332b..ddf5c1fd40b 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -1392,7 +1392,7 @@ package Sinfo is -- is undefined and should not be read). -- No_Ctrl_Actions (Flag7-Sem) - -- Present in N_Assignment_Statement to indicate that no finalize nor nor + -- Present in N_Assignment_Statement to indicate that no finalize nor -- adjust should take place on this assignment even though the rhs is -- controlled. This is used in init procs and aggregate expansions where -- the generated assignments are more initialisations than real @@ -1592,7 +1592,7 @@ package Sinfo is -- and N_Extended_Return_Statement nodes. References the entity for the -- storage pool to be used for the allocate or free call or for the -- allocation of the returned value from function. Empty indicates that - -- the global default default pool is to be used. Note that in the case + -- the global default pool is to be used. Note that in the case -- of a return statement, this field is set only if the function returns -- value of a type whose size is not known at compile time on the -- secondary stack. diff --git a/gcc/ada/styleg.adb b/gcc/ada/styleg.adb index f22c828c673..f54ab35baef 100644 --- a/gcc/ada/styleg.adb +++ b/gcc/ada/styleg.adb @@ -967,7 +967,7 @@ package body Styleg is -- Non_Lower_Case_Keyword -- ---------------------------- - -- In check casing mode (-gnatyk), reserved keywords must be be spelled + -- In check casing mode (-gnatyk), reserved keywords must be spelled -- in all lower case (excluding keywords range, access, delta and digits -- used as attribute designators). diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index b302791e144..446f7cba8b9 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -780,7 +780,7 @@ package VMS_Data is -- /ERROR_LIMIT=nnn -- -- NNN is a decimal integer in the range of 1 to 1000 and limits the - -- number of diagnostic messages to be generated into Stdoutto that + -- number of diagnostic messages to be generated into Stdout to that -- number. Once that number has been reached, gnatcheck stops -- to print out diagnoses into Stderr. If NNN is equal to 0, this means -- that there is no limit on the number of diagnoses in Stdout @@ -4878,8 +4878,8 @@ package VMS_Data is -- -- Specifies the syntax element metrics to be computed (if at least one -- positive syntax element metric, line metric, complexity or coupling - -- metric is specified then only explicitly specified specified syntax - -- element metrics are computed and reported) + -- metric is specified then only explicitly specified syntax element + -- metrics are computed and reported) -- -- option may be one of the following: -- @@ -5012,8 +5012,8 @@ package VMS_Data is -- Specifies the line metrics to be computed (if at least one positive -- syntax element metric, line metric, complexity or coupling metric is - -- specified then only explicitly specified specified line metrics are - -- computed and reported) + -- specified then only explicitly specified line metrics are computed + -- and reported) -- -- option may be one of the following: -- @@ -5067,8 +5067,8 @@ package VMS_Data is -- Specifies the complexity metrics to be computed (if at least one -- positive syntax element metric, line metric, complexity or coupling - -- metric is specified then only explicitly specified specified complexity - -- metrics are computed and reported) + -- metric is specified then only explicitly specified complexity metrics + -- are computed and reported) -- -- option may be one of the following: -- |