diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f0b7109dd1d..35eea8d1997 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,38 @@ +2014-01-29 Robert Dewar + + * a-except-2005.adb, a-except.adb, a-excpol-abort.adb, a-exstat.adb, + ali.adb, a-numaux.ads, a-numaux-darwin.ads, a-numaux-libc-x86.ads, + a-numaux-vms.ads, a-numaux-vxworks.ads, a-numaux-x86.ads, aspects.ads, + a-taside.adb, a-teioed.adb, a-textio.adb, a-textio.ads, atree.adb, + atree.ads, a-witeio.adb, a-witeio.ads, a-wtedit.adb, a-ztedit.adb, + a-ztexio.adb, bcheck.adb, binde.adb, checks.adb, comperr.adb, + cstand.adb, debug_a.adb, einfo.ads, errout.adb, erroutc.adb, + eval_fat.adb, exp_aggr.adb, exp_attr.adb, exp_ch11.adb, exp_ch3.adb, + exp_ch4.adb, exp_ch5.adb, exp_ch6.adb, exp_ch9.adb, exp_dbug.adb, + exp_disp.adb, exp_fixd.adb, exp_imgv.adb, exp_intr.adb, exp_util.adb, + freeze.adb, frontend.adb, g-comlin.ads, g-mbdira.adb, gnat1drv.adb, + gprep.adb, g-spipat.adb, i-cpp.ads, i-vxwork.ads, i-vxwork-x86.ads, + krunch.ads, layout.adb, lib-load.adb, lib-writ.adb, lib-writ.ads, + live.adb, namet.ads, osint.adb, osint-c.adb, output.ads, par.adb, + par-ch10.adb, par-ch13.adb, par-ch3.adb, par-ch4.adb, par-ch5.adb, + par-ch6.adb, par-ch9.adb, par-endh.adb, par-labl.adb, par-prag.adb, + par-sync.adb, par-tchk.adb, par-util.adb, prj.adb, repinfo.adb, + rtsfind.adb, s-arit64.adb, s-asthan-vms-alpha.adb, + s-asthan-vms-ia64.adb, s-bignum.adb, scans.adb, scng.adb, s-dimmks.ads, + sem_aggr.adb, sem_attr.adb, sem_aux.adb, sem_cat.adb, sem_ch10.adb, + sem_ch12.adb, sem_ch13.adb, sem_ch13.ads, sem_ch3.adb, sem_ch4.adb, + sem_ch5.adb, sem_ch6.adb, sem_ch8.adb, sem_disp.adb, sem_elab.adb, + sem_elim.adb, sem_eval.adb, sem_intr.adb, sem_prag.adb, sem_res.adb, + sem_type.adb, sem_util.adb, sem_warn.adb, set_targ.adb, s-fatgen.adb, + s-fatgen.ads, s-fileio.adb, s-imgcha.adb, s-imgrea.adb, sinfo.ads, + sinput-c.adb, snames.ads-tmpl, s-os_lib.adb, sprint.adb, + s-regpat.adb, s-secsta.adb, s-stalib.ads, + s-stchop.adb, s-stoele.ads, stand.ads, s-taprop-solaris.adb, + s-tasdeb-vms.adb, s-tasini.adb, s-tassta.adb, s-valdec.adb, + s-valuti.adb, s-wchjis.adb, s-wchwts.adb, system.ads, system-vms_64.ads, + system-vms-ia64.ads, treepr.adb, types.ads, uintp.adb, uname.adb, + urealp.adb, usage.adb, vxaddr2line.adb: Minor reformatting. + 2014-01-29 Robert Dewar * expander.adb: Minor reformatting. diff --git a/gcc/ada/a-except-2005.adb b/gcc/ada/a-except-2005.adb index 9d6354cadf7..7ed9e0302bd 100644 --- a/gcc/ada/a-except-2005.adb +++ b/gcc/ada/a-except-2005.adb @@ -160,9 +160,9 @@ package body Ada.Exceptions is -- The Exception_Name and Message lines are omitted in the abort -- signal case, since this is not really an exception. - -- !! If the format of the generated string is changed, please note - -- !! that an equivalent modification to the routine String_To_EO must - -- !! be made to preserve proper functioning of the stream attributes. + -- Note: If the format of the generated string is changed, please note + -- that an equivalent modification to the routine String_To_EO must be + -- made to preserve proper functioning of the stream attributes. --------------------------------------- -- Exception backtracing subprograms -- @@ -573,7 +573,7 @@ package body Ada.Exceptions is pragma Export (C, Rcheck_CE_Range_Check_Ext, "__gnat_rcheck_CE_Range_Check_ext"); - -- None of these procedures ever returns (they raise an exception!). By + -- None of these procedures ever returns (they raise an exception). By -- using pragma No_Return, we ensure that any junk code after the call, -- such as normal return epilog stuff, can be eliminated). @@ -690,7 +690,7 @@ package body Ada.Exceptions is -- This function gives us the start of the PC range for addresses -- within the exception unit itself. We hope that gigi/gcc keep all the - -- procedures in their original order! + -- procedures in their original order. function Code_Address_For_AAA return System.Address is begin @@ -1746,7 +1746,7 @@ package body Ada.Exceptions is -- This function gives us the end of the PC range for addresses -- within the exception unit itself. We hope that gigi/gcc keeps all the - -- procedures in their original order! + -- procedures in their original order. function Code_Address_For_ZZZ return System.Address is begin diff --git a/gcc/ada/a-except.adb b/gcc/ada/a-except.adb index 65687d72266..a90cfc70785 100644 --- a/gcc/ada/a-except.adb +++ b/gcc/ada/a-except.adb @@ -511,7 +511,7 @@ package body Ada.Exceptions is pragma Export (C, Rcheck_SE_Object_Too_Large, "__gnat_rcheck_SE_Object_Too_Large"); - -- None of these procedures ever returns (they raise an exception!). By + -- None of these procedures ever returns (they raise an exception). By -- using pragma No_Return, we ensure that any junk code after the call, -- such as normal return epilog stuff, can be eliminated). @@ -629,7 +629,7 @@ package body Ada.Exceptions is pragma Export (C, Rcheck_34, "__gnat_rcheck_34"); pragma Export (C, Rcheck_35, "__gnat_rcheck_35"); - -- None of these procedures ever returns (they raise an exception!). By + -- None of these procedures ever returns (they raise an exception). By -- using pragma No_Return, we ensure that any junk code after the call, -- such as normal return epilog stuff, can be eliminated). @@ -962,7 +962,7 @@ package body Ada.Exceptions is -- the parameter value in a local variable, and add a pragma Volatile to -- make sure it is spilled. The pragma Warnings (Off) is needed because -- the compiler knows that Id is not referenced and that this use of - -- pragma Volatile is peculiar! + -- pragma Volatile is peculiar. begin Debug_Raise_Exception (E => SSL.Exception_Data_Ptr (E)); diff --git a/gcc/ada/a-excpol-abort.adb b/gcc/ada/a-excpol-abort.adb index 94acae6a10b..ebfc1a0b4d4 100644 --- a/gcc/ada/a-excpol-abort.adb +++ b/gcc/ada/a-excpol-abort.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -40,7 +40,7 @@ pragma Warnings (Off); -- Allow withing of non-Preelaborated units in Ada 2005 mode where this -- package will be categorized as Preelaborate. See AI-362 for details. --- It is safe in the context of the run-time to violate the rules! +-- It is safe in the context of the run-time to violate the rules. with System.Soft_Links; diff --git a/gcc/ada/a-exstat.adb b/gcc/ada/a-exstat.adb index f5674e5e867..f8f75b2cd13 100644 --- a/gcc/ada/a-exstat.adb +++ b/gcc/ada/a-exstat.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -32,7 +32,7 @@ pragma Warnings (Off); -- Allow withing of non-Preelaborated units in Ada 2005 mode where this -- package will be categorized as Preelaborate. See AI-362 for details. --- It is safe in the context of the run-time to violate the rules! +-- It is safe in the context of the run-time to violate the rules. with System.Exception_Table; use System.Exception_Table; with System.Storage_Elements; use System.Storage_Elements; diff --git a/gcc/ada/a-numaux-darwin.ads b/gcc/ada/a-numaux-darwin.ads index 1f0eea9077c..4164f512d12 100644 --- a/gcc/ada/a-numaux-darwin.ads +++ b/gcc/ada/a-numaux-darwin.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (Apple OS X Version) -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -58,7 +58,7 @@ package Ada.Numerics.Aux is pragma Inline (Cos); -- We import these functions directly from C. Note that we label them - -- all as pure functions, because indeed all of them are in fact pure! + -- all as pure functions, because indeed all of them are in fact pure. function Tan (X : Double) return Double; pragma Import (C, Tan, "tan"); diff --git a/gcc/ada/a-numaux-libc-x86.ads b/gcc/ada/a-numaux-libc-x86.ads index 2a48d8a811e..3261c111c43 100644 --- a/gcc/ada/a-numaux-libc-x86.ads +++ b/gcc/ada/a-numaux-libc-x86.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (C Library Version for x86) -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -49,7 +49,7 @@ package Ada.Numerics.Aux is type Double is digits 18; -- We import these functions directly from C. Note that we label them - -- all as pure functions, because indeed all of them are in fact pure! + -- all as pure functions, because indeed all of them are in fact pure. function Sin (X : Double) return Double; pragma Import (C, Sin, "sinl"); diff --git a/gcc/ada/a-numaux-vms.ads b/gcc/ada/a-numaux-vms.ads index d64f6b7ca07..f6d1dfa9081 100644 --- a/gcc/ada/a-numaux-vms.ads +++ b/gcc/ada/a-numaux-vms.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (VMS Version) -- -- -- --- Copyright (C) 2003-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -47,7 +47,7 @@ package Ada.Numerics.Aux is -- since we use the IEEE version of the C library with VMS. -- We import these functions directly from C. Note that we label them - -- all as pure functions, because indeed all of them are in fact pure! + -- all as pure functions, because indeed all of them are in fact pure. function Sin (X : Double) return Double; pragma Import (C, Sin, "MATH$SIN_T"); diff --git a/gcc/ada/a-numaux-vxworks.ads b/gcc/ada/a-numaux-vxworks.ads index 1b6d68e0774..ce567ad6586 100644 --- a/gcc/ada/a-numaux-vxworks.ads +++ b/gcc/ada/a-numaux-vxworks.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (C Library Version, VxWorks) -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -51,7 +51,7 @@ package Ada.Numerics.Aux is -- Type Double is the type used to call the C routines -- We import these functions directly from C. Note that we label them - -- all as pure functions, because indeed all of them are in fact pure! + -- all as pure functions, because indeed all of them are in fact pure. function Sin (X : Double) return Double; pragma Import (C, Sin, "sin"); diff --git a/gcc/ada/a-numaux-x86.ads b/gcc/ada/a-numaux-x86.ads index c0f8b40c3bb..7211fbb64ce 100644 --- a/gcc/ada/a-numaux-x86.ads +++ b/gcc/ada/a-numaux-x86.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (Machine Version for x86) -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- diff --git a/gcc/ada/a-numaux.ads b/gcc/ada/a-numaux.ads index 31281218bd3..cef530183f5 100644 --- a/gcc/ada/a-numaux.ads +++ b/gcc/ada/a-numaux.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (C Library Version, non-x86) -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -52,7 +52,7 @@ package Ada.Numerics.Aux is -- Type Double is the type used to call the C routines -- We import these functions directly from C. Note that we label them - -- all as pure functions, because indeed all of them are in fact pure! + -- all as pure functions, because indeed all of them are in fact pure. function Sin (X : Double) return Double; pragma Import (C, Sin, "sin"); diff --git a/gcc/ada/a-taside.adb b/gcc/ada/a-taside.adb index 520a7dfc1c9..ac4473e4c1a 100644 --- a/gcc/ada/a-taside.adb +++ b/gcc/ada/a-taside.adb @@ -39,7 +39,7 @@ with Ada.Unchecked_Conversion; pragma Warnings (Off); -- Allow withing of non-Preelaborated units in Ada 2005 mode where this -- package will be categorized as Preelaborate. See AI-362 for details. --- It is safe in the context of the run-time to violate the rules! +-- It is safe in the context of the run-time to violate the rules. with System.Tasking.Utilities; diff --git a/gcc/ada/a-teioed.adb b/gcc/ada/a-teioed.adb index 2bb1435a881..423e6873d96 100644 --- a/gcc/ada/a-teioed.adb +++ b/gcc/ada/a-teioed.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -751,13 +751,13 @@ package body Ada.Text_IO.Editing is return String'(1 .. Last => '*'); end if; - -- This was once a simple return statement, now there are nine - -- different return cases. Not to mention the five above to deal - -- with zeros. Why not split things out? + -- This was once a simple return statement, now there are nine different + -- return cases. Not to mention the five above to deal with zeros. Why + -- not split things out? - -- Processing the radix and sign expansion separately - -- would require lots of copying--the string and some of its - -- indicies--without really simplifying the logic. The cases are: + -- Processing the radix and sign expansion separately would require + -- lots of copying--the string and some of its indexes--without + -- really simplifying the logic. The cases are: -- 1) Expand $, replace '.' with Radix_Point -- 2) No currency expansion, replace '.' with Radix_Point @@ -875,7 +875,7 @@ package body Ada.Text_IO.Editing is when '0' => -- Only count a zero before the decimal point if it follows a - -- non-zero digit. After the decimal point, zeros will be + -- non-zero digit. After the decimal point, zeros will be -- counted if followed by a non-zero digit. if not Answer.Has_Fraction then @@ -910,7 +910,7 @@ package body Ada.Text_IO.Editing is Answer.End_Of_Int := J - 1; when others => - raise Picture_Error; -- can this happen? probably not! + raise Picture_Error; -- can this happen? probably not end case; end loop; @@ -1321,9 +1321,8 @@ package body Ada.Text_IO.Editing is -- Leading_Dollar -- -------------------- - -- Note that Leading_Dollar can be called in either State. - -- It will set state to Okay only if a 9 or (second) $ - -- is encountered. + -- Note that Leading_Dollar can be called in either State. It will set + -- state to Okay only if a 9 or (second) $ is encountered. -- Also notice the tricky bit with State and Zero_Suppression. -- Zero_Suppression is Picture_Error if a '$' or a '9' has been @@ -1448,11 +1447,10 @@ package body Ada.Text_IO.Editing is -- This one is complex! A Leading_Pound can be fixed or floating, -- but in some cases the decision has to be deferred until we leave - -- this procedure. Also note that Leading_Pound can be called in + -- this procedure. Also note that Leading_Pound can be called in -- either State. - -- It will set state to Okay only if a 9 or (second) # is - -- encountered. + -- It will set state to Okay only if a 9 or (second) # is encountered -- One Last note: In ambiguous cases, the currency is treated as -- floating unless there is only one '#'. diff --git a/gcc/ada/a-textio.adb b/gcc/ada/a-textio.adb index 2f2fe27c680..f28711e57f2 100644 --- a/gcc/ada/a-textio.adb +++ b/gcc/ada/a-textio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -71,7 +71,7 @@ package body Ada.Text_IO is -- correct filename length. -- -- Note: the names for these files are bogus, and probably it would be - -- better for these files to have no names, but the ACVC tests insist! + -- better for these files to have no names, but the ACVC tests insist. -- We use names that are bound to fail in open etc. Null_Str : aliased constant String := ""; diff --git a/gcc/ada/a-textio.ads b/gcc/ada/a-textio.ads index 675dc63184b..5ae8334695d 100644 --- a/gcc/ada/a-textio.ads +++ b/gcc/ada/a-textio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -389,7 +389,7 @@ private -- there is no convenient way of backing up more than one character, -- what we do is to leave ourselves positioned past the LM, but set -- this flag, so that we know that from an Ada point of view we are - -- in front of the LM, not after it. A bit of a kludge, but it works! + -- in front of the LM, not after it. A bit of a kludge, but it works. Before_LM_PM : Boolean := False; -- This flag similarly handles the case of being physically positioned diff --git a/gcc/ada/a-witeio.adb b/gcc/ada/a-witeio.adb index efd5021849d..045705448b8 100644 --- a/gcc/ada/a-witeio.adb +++ b/gcc/ada/a-witeio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -71,7 +71,7 @@ package body Ada.Wide_Text_IO is -- correct filename length. -- -- Note: the names for these files are bogus, and probably it would be - -- better for these files to have no names, but the ACVC tests insist! + -- better for these files to have no names, but the ACVC tests insist. -- We use names that are bound to fail in open etc. Null_Str : aliased constant String := ""; @@ -663,15 +663,15 @@ package body Ada.Wide_Text_IO is -- Otherwise store the character, note that we know that ch is -- something other than LM or EOF. It could possibly be a page - -- mark if there is a stray page mark in the middle of a line, - -- but this is not an official page mark in any case, since - -- official page marks can only follow a line mark. The whole - -- page business is pretty much nonsense anyway, so we do not - -- want to waste time trying to make sense out of non-standard - -- page marks in the file! This means that the behavior of - -- Get_Line is different from repeated Get of a character, but - -- that's too bad. We only promise that page numbers etc make - -- sense if the file is formatted in a standard manner. + -- mark if there is a stray page mark in the middle of a line, but + -- this is not an official page mark in any case, since official + -- page marks can only follow a line mark. The whole page business + -- is pretty much nonsense anyway, so we do not want to waste + -- time trying to make sense out of non-standard page marks in + -- the file. This means that the behavior of Get_Line is different + -- from repeated Get of a character, but that's too bad. We + -- only promise that page numbers etc make sense if the file + -- is formatted in a standard manner. -- Note: we do not adjust the column number because it is quicker -- to adjust it once at the end of the operation than incrementing diff --git a/gcc/ada/a-witeio.ads b/gcc/ada/a-witeio.ads index f5cab06fa97..9151bf9b520 100644 --- a/gcc/ada/a-witeio.ads +++ b/gcc/ada/a-witeio.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -389,7 +389,7 @@ private -- there is no convenient way of backing up more than one character, -- what we do is to leave ourselves positioned past the LM, but set -- this flag, so that we know that from an Ada point of view we are - -- in front of the LM, not after it. A bit of a kludge, but it works! + -- in front of the LM, not after it. A bit of a kludge, but it works. Before_LM_PM : Boolean := False; -- This flag similarly handles the case of being physically positioned diff --git a/gcc/ada/a-wtedit.adb b/gcc/ada/a-wtedit.adb index 921c0afc1fa..e616488585b 100644 --- a/gcc/ada/a-wtedit.adb +++ b/gcc/ada/a-wtedit.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -909,12 +909,12 @@ package body Ada.Wide_Text_IO.Editing is end if; -- This was once a simple return statement, now there are nine - -- different return cases. Not to mention the five above to deal - -- with zeros. Why not split things out? + -- different return cases. Not to mention the five above to deal + -- with zeros. Why not split things out? - -- Processing the radix and sign expansion separately - -- would require lots of copying--the string and some of its - -- indicies--without really simplifying the logic. The cases are: + -- Processing the radix and sign expansion separately would require + -- lots of copying--the string and some of its indexes--without + -- really simplifying the logic. The cases are: -- 1) Expand $, replace '.' with Radix_Point -- 2) No currency expansion, replace '.' with Radix_Point @@ -1033,7 +1033,7 @@ package body Ada.Wide_Text_IO.Editing is when '0' => -- Only count a zero before the decimal point if it follows a - -- non-zero digit. After the decimal point, zeros will be + -- non-zero digit. After the decimal point, zeros will be -- counted if followed by a non-zero digit. if not Answer.Has_Fraction then @@ -1068,7 +1068,7 @@ package body Ada.Wide_Text_IO.Editing is Answer.End_Of_Int := J - 1; when others => - raise Picture_Error; -- can this happen? probably not! + raise Picture_Error; -- can this happen? probably not end case; end loop; @@ -1412,8 +1412,7 @@ package body Ada.Wide_Text_IO.Editing is -------------------- -- Note that Leading_Dollar can be called in either State. - -- It will set state to Okay only if a 9 or (second) $ - -- is encountered. + -- It will set state to Okay only if a 9 or (second) $ is encountered. -- Also notice the tricky bit with State and Zero_Suppression. -- Zero_Suppression is Picture_Error if a '$' or a '9' has been @@ -1521,9 +1520,9 @@ package body Ada.Wide_Text_IO.Editing is -- Leading_Pound -- ------------------- - -- This one is complex! A Leading_Pound can be fixed or floating, + -- This one is complex. A Leading_Pound can be fixed or floating, -- but in some cases the decision has to be deferred until we leave - -- this procedure. Also note that Leading_Pound can be called in + -- this procedure. Also note that Leading_Pound can be called in -- either State. -- It will set state to Okay only if a 9 or (second) # is diff --git a/gcc/ada/a-ztedit.adb b/gcc/ada/a-ztedit.adb index 6d97f61ff45..f28a81f4f46 100644 --- a/gcc/ada/a-ztedit.adb +++ b/gcc/ada/a-ztedit.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -910,13 +910,13 @@ package body Ada.Wide_Wide_Text_IO.Editing is return Wide_Wide_String'(1 .. Last => '*'); end if; - -- This was once a simple return statement, now there are nine - -- different return cases. Not to mention the five above to deal - -- with zeros. Why not split things out? + -- This was once a simple return statement, now there are nine different + -- return cases. Not to mention the five above to deal with zeros. Why + -- not split things out? - -- Processing the radix and sign expansion separately - -- would require lots of copying--the string and some of its - -- indicies--without really simplifying the logic. The cases are: + -- Processing the radix and sign expansion separately would require + -- lots of copying--the string and some of its indexes--without + -- really simplifying the logic. The cases are: -- 1) Expand $, replace '.' with Radix_Point -- 2) No currency expansion, replace '.' with Radix_Point @@ -1034,7 +1034,7 @@ package body Ada.Wide_Wide_Text_IO.Editing is when '0' => -- Only count a zero before the decimal point if it follows a - -- non-zero digit. After the decimal point, zeros will be + -- non-zero digit. After the decimal point, zeros will be -- counted if followed by a non-zero digit. if not Answer.Has_Fraction then @@ -1069,7 +1069,7 @@ package body Ada.Wide_Wide_Text_IO.Editing is Answer.End_Of_Int := J - 1; when others => - raise Picture_Error; -- can this happen? probably not! + raise Picture_Error; -- can this happen? probably not end case; end loop; @@ -1521,10 +1521,10 @@ package body Ada.Wide_Wide_Text_IO.Editing is -- Leading_Pound -- ------------------- - -- This one is complex! A Leading_Pound can be fixed or floating, - -- but in some cases the decision has to be deferred until we leave - -- this procedure. Also note that Leading_Pound can be called in - -- either State. + -- This one is complex. A Leading_Pound can be fixed or floating, but + -- in some cases the decision has to be deferred until we leave this + -- procedure. Also note that Leading_Pound can be called in either + -- State. -- It will set state to Okay only if a 9 or (second) # is encountered diff --git a/gcc/ada/a-ztexio.adb b/gcc/ada/a-ztexio.adb index 8be8a91d9e2..803f62b6ac0 100644 --- a/gcc/ada/a-ztexio.adb +++ b/gcc/ada/a-ztexio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -71,7 +71,7 @@ package body Ada.Wide_Wide_Text_IO is -- correct filename length. -- -- Note: the names for these files are bogus, and probably it would be - -- better for these files to have no names, but the ACVC tests insist! + -- better for these files to have no names, but the ACVC tests insist. -- We use names that are bound to fail in open etc. Null_Str : aliased constant String := ""; @@ -668,7 +668,7 @@ package body Ada.Wide_Wide_Text_IO is -- official page marks can only follow a line mark. The whole -- page business is pretty much nonsense anyway, so we do not -- want to waste time trying to make sense out of non-standard - -- page marks in the file! This means that the behavior of + -- page marks in the file. This means that the behavior of -- Get_Line is different from repeated Get of a character, but -- that's too bad. We only promise that page numbers etc make -- sense if the file is formatted in a standard manner. diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 87cb61d4f54..3bf12f32584 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -2216,7 +2216,7 @@ package body ALI is else -- Deal with body only and spec only cases, note that the reason we -- do our own checking of the name (rather than using Is_Body_Name) - -- is that Uname drags in far too much compiler junk! + -- is that Uname drags in far too much compiler junk. Get_Name_String (Units.Table (Units.Last).Uname); diff --git a/gcc/ada/aspects.ads b/gcc/ada/aspects.ads index 1ba3ee0ecce..e8d3a1dc73d 100644 --- a/gcc/ada/aspects.ads +++ b/gcc/ada/aspects.ads @@ -559,7 +559,7 @@ package Aspects is -- identifier, and there is no issue of evaluating it and thus no -- issue of delaying the evaluation. The second case is implementation -- defined aspects where we have decided that we don't want to allow - -- delays (and for our own aspects we can do what we like!). + -- delays (and for our own aspects we can do what we like). Rep_Aspect); -- These are the cases of representation aspects that are in general diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index e4592359bb5..35e8a7a09ff 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -122,10 +122,10 @@ package body Atree is -- Count allocated nodes for Num_Nodes function use Unchecked_Access; - -- We are allowed to see these from within our own body! + -- We are allowed to see these from within our own body use Atree_Private_Part; - -- We are also allowed to see our private data structures! + -- We are also allowed to see our private data structures -- Functions used to store Entity_Kind value in Nkind field @@ -1326,7 +1326,7 @@ package body Atree is Set_Name1 (Empty, No_Name); -- Allocate Error node, and set Error_Posted, since we certainly - -- only generate an Error node if we do post some kind of error! + -- only generate an Error node if we do post some kind of error. Dummy := New_Node (N_Error, No_Location); Set_Name1 (Error, Error_Name); diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 48b6858af4c..b167d8f438e 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -3793,7 +3793,7 @@ package Atree is -- Fifth entry: holds 8 additional flags (Flag247-254) -- Sixth entry: holds 8 additional flags (Flag310-317) - -- Now finally (on an 32-bit boundary!) comes the variant part + -- Now finally (on an 32-bit boundary) comes the variant part case Is_Extension is diff --git a/gcc/ada/bcheck.adb b/gcc/ada/bcheck.adb index fc2b9b62035..fec69598cc7 100644 --- a/gcc/ada/bcheck.adb +++ b/gcc/ada/bcheck.adb @@ -889,7 +889,7 @@ package body Bcheck is declare M1 : constant String := "{ has restriction "; S : constant String := Restriction_Id'Image (R); - M2 : String (1 .. 2000); -- big enough! + M2 : String (1 .. 2000); -- big enough P : Integer; begin diff --git a/gcc/ada/binde.adb b/gcc/ada/binde.adb index ed51554b6fd..1e79756de4e 100644 --- a/gcc/ada/binde.adb +++ b/gcc/ada/binde.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -124,7 +124,7 @@ package body Binde is -- than the spec link) to the spec. Then when then the spec gets chosen, -- we choose the body right afterwards. We mark the links that get moved -- from the body to the spec by setting their Elab_Body flag True, so - -- that we can understand what is going on! + -- that we can understand what is going on. Succ_First : constant := 1; @@ -580,7 +580,7 @@ package body Binde is Elab_Order.Table (Elab_Order.Last) := Chosen; -- Remove from No_Pred list. This is a little inefficient and may - -- be we should doubly link the list, but it will do for now! + -- be we should doubly link the list, but it will do for now. if No_Pred = Chosen then No_Pred := UNR.Table (Chosen).Nextnp; @@ -849,7 +849,7 @@ package body Binde is -- Try to find cycles starting with any of the remaining nodes that have -- not yet been chosen. There must be at least one (there is some reason - -- we are being called!) + -- we are being called). for U in Units.First .. Units.Last loop if UNR.Table (U).Elab_Position = 0 then @@ -1314,7 +1314,7 @@ package body Binde is end if; -- A limited_with does not establish an elaboration - -- dependence (that's the whole point!). + -- dependence (that's the whole point).. elsif Withs.Table (W).Limited_With then null; @@ -1470,7 +1470,7 @@ package body Binde is return False; -- Prefer anything else to a waiting body. We want to make bodies wait - -- as long as possible, till we are forced to choose them! + -- as long as possible, till we are forced to choose them. elsif Is_Waiting_Body (U1) and then not Is_Waiting_Body (U2) then if Debug_Flag_B then @@ -1486,7 +1486,7 @@ package body Binde is return True; - -- Prefer a spec to a body (!) + -- Prefer a spec to a body (this is mandatory) elsif Is_Body_Unit (U1) and then not Is_Body_Unit (U2) then if Debug_Flag_B then diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 872c18a5859..7fd8bc576d7 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -2780,7 +2780,7 @@ package body Checks is end if; -- Do not set range checks for any values from System.Scalar_Values - -- since the whole idea of such values is to avoid checking them! + -- since the whole idea of such values is to avoid checking them. if Is_Entity_Name (Expr) and then Is_RTU (Scope (Entity (Expr)), System_Scalar_Values) @@ -3267,7 +3267,7 @@ package body Checks is -- An unconstrained derived type may have inherited discriminant. -- Build an actual discriminant constraint list using the stored -- constraint, to verify that the expression of the parent type - -- satisfies the constraints imposed by the (unconstrained!) + -- satisfies the constraints imposed by the (unconstrained) -- derived type. This applies to value conversions, not to view -- conversions of tagged types. @@ -3618,7 +3618,7 @@ package body Checks is -- such as itype declarations in this context, to keep the loop going -- since we may well have generated such stuff in complex situations. -- Also done if no parent (probably an error condition, but no point - -- in behaving nasty if we find it!) + -- in behaving nasty if we find it). if No (P) or else (K not in N_Subexpr and then Comes_From_Source (P)) @@ -3758,7 +3758,7 @@ package body Checks is -- Only do this check for expressions that come from source. We assume -- that expander generated assignments explicitly include any necessary -- checks. Note that this is not just an optimization, it avoids - -- infinite recursions! + -- infinite recursions. elsif not Comes_From_Source (Expr) then return; @@ -4022,7 +4022,7 @@ package body Checks is Cache_Size : constant := 2 ** 10; type Cache_Index is range 0 .. Cache_Size - 1; - -- Determine size of below cache (power of 2 is more efficient!) + -- Determine size of below cache (power of 2 is more efficient) Determine_Range_Cache_N : array (Cache_Index) of Node_Id; Determine_Range_Cache_V : array (Cache_Index) of Boolean; @@ -4144,7 +4144,7 @@ package body Checks is OK := True; -- If value is compile time known, then the possible range is the one - -- value that we know this expression definitely has! + -- value that we know this expression definitely has. if Compile_Time_Known_Value (N) then Lo := Expr_Value (N); @@ -4705,7 +4705,7 @@ package body Checks is -- is not worth the effort to eliminate checks for other than discrete -- types. In addition, we take this same path if we have stored the -- maximum number of checks possible already (a very unlikely situation, - -- but we do not want to blow up!) + -- but we do not want to blow up). if Optimization_Level = 0 or else not Is_Discrete_Type (Etype (N)) @@ -4810,7 +4810,7 @@ package body Checks is begin -- Return if unchecked type conversion with range check killed. In this - -- case we never set the flag (that's what Kill_Range_Check is about!) + -- case we never set the flag (that's what Kill_Range_Check is about). if Nkind (N) = N_Unchecked_Type_Conversion and then Kill_Range_Check (N) @@ -4874,7 +4874,7 @@ package body Checks is -- is not worth the effort to eliminate checks for other than discrete -- types. In addition, we take this same path if we have stored the -- maximum number of checks possible already (a very unlikely situation, - -- but we do not want to blow up!) + -- but we do not want to blow up). if Optimization_Level = 0 or else No (Etype (N)) @@ -5061,7 +5061,7 @@ package body Checks is -- No check required if expression is from the expander, we assume the -- expander will generate whatever checks are needed. Note that this is - -- not just an optimization, it avoids infinite recursions! + -- not just an optimization, it avoids infinite recursions. -- Unchecked conversions must be checked, unless they are initialized -- scalar values, as in a component assignment in an init proc. @@ -5843,7 +5843,7 @@ package body Checks is -- First special case, if the source type is already within the range -- of the target type, then no check is needed (probably we should have -- stopped Do_Range_Check from being set in the first place, but better - -- late than never in preventing junk code! + -- late than never in preventing junk code. if In_Subrange_Of (Source_Type, Target_Type) @@ -6019,7 +6019,7 @@ package body Checks is -- With these two checks out of the way, we can do the check -- using the source type safely - -- This is definitely the most annoying case! + -- This is definitely the most annoying case. -- [constraint_error -- when (Target_Type'First >= 0 @@ -6454,7 +6454,7 @@ package body Checks is -- Insert the validity check. Note that we do this with validity -- checks turned off, to avoid recursion, we do not want validity - -- checks on the validity checking code itself! + -- checks on the validity checking code itself. Insert_Action (Expr, CE, Suppress => Validity_Check); @@ -6488,7 +6488,7 @@ package body Checks is -- when a range check is present, but that's not the case, because -- the back end is allowed to assume for the range check that the -- operand is within its declared range (an assumption that validity - -- checking is all about NOT assuming!) + -- checking is all about NOT assuming). -- Note: no need to worry about Possible_Local_Raise here, it will -- already have been called if original node has Do_Range_Check set. @@ -6645,7 +6645,7 @@ package body Checks is if Is_Entity_Name (N) then -- For sure, we want to clear an indication that this is known to - -- be null, since if we get past this check, it definitely is not! + -- be null, since if we get past this check, it definitely is not. Set_Is_Known_Null (Entity (N), False); @@ -7023,7 +7023,7 @@ package body Checks is -- This is called when we have modified the node and we therefore need -- to reanalyze it. It is important that we reset the mode to STRICT for -- this reanalysis, since if we leave it in MINIMIZED or ELIMINATED mode - -- we would reenter this routine recursively which would not be good! + -- we would reenter this routine recursively which would not be good. -- The argument Suppress is set True if we also want to suppress -- overflow checking for the reexpansion (this is set when we know -- overflow is not possible). Typ is the type for the reanalysis. @@ -7154,7 +7154,7 @@ package body Checks is -- Use the normal Determine_Range routine to get the range. We -- don't require operands to be valid, invalid values may result in -- rubbish results where the result has not been properly checked for - -- overflow, that's fine! + -- overflow, that's fine. Determine_Range (N, OK, Lo, Hi, Assume_Valid => False); @@ -7204,7 +7204,7 @@ package body Checks is -- If at least one of our operands is now Bignum, we must rebuild -- the if expression to use Bignum operands. We will analyze the -- rebuilt if expression with overflow checks off, since once we - -- are in bignum mode, we are all done with overflow checks! + -- are in bignum mode, we are all done with overflow checks. if Bignum_Operands then Rewrite (N, @@ -7681,7 +7681,7 @@ package body Checks is -- here because it will cause recursion into the whole MINIMIZED/ -- ELIMINATED overflow processing which is not what we want. Here -- we are at the top level, and we need a check against the result - -- mode (i.e. we want to use STRICT mode). So do exactly that! + -- mode (i.e. we want to use STRICT mode). So do exactly that. -- Also, we have not modified the node, so this is a case where -- we need to reexpand, but not reanalyze. @@ -7821,7 +7821,7 @@ package body Checks is -- Here we will do the operation in Long_Long_Integer. We do this even -- if we know an overflow check is required, better to do this in long - -- long integer mode, since we are less likely to overflow! + -- long integer mode, since we are less likely to overflow. -- Convert right or only operand to Long_Long_Integer, except that -- we do not touch the exponentiation right operand. @@ -7849,7 +7849,7 @@ package body Checks is -- setting of the Do_Division_Check flag). -- We do this reanalysis in STRICT mode to avoid recursion into the - -- MINIMIZED/ELIMINATED handling, since we are now done with that! + -- MINIMIZED/ELIMINATED handling, since we are now done with that. declare SG : constant Overflow_Mode_Type := diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index ac620e6227c..13646a5c155 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -115,15 +115,15 @@ package body Comperr is Abort_In_Progress := True; - -- Generate a "standard" error message instead of a bug box in case of - -- .NET compiler, since we do not support all constructs of the - -- language. Of course ideally, we should detect this before bombing - -- on e.g. an assertion error, but in practice most of these bombs - -- are due to a legitimate case of a construct not being supported (in - -- a sense they all are, since for sure we are not supporting something - -- if we bomb!) By giving this message, we provide a more reasonable - -- practical interface, since giving scary bug boxes on unsupported - -- features is definitely not helpful. + -- Generate a "standard" error message instead of a bug box in case + -- of .NET compiler, since we do not support all constructs of the + -- language. Of course ideally, we should detect this before bombing on + -- e.g. an assertion error, but in practice most of these bombs are due + -- to a legitimate case of a construct not being supported (in a sense + -- they all are, since for sure we are not supporting something if we + -- bomb). By giving this message, we provide a more reasonable practical + -- interface, since giving scary bug boxes on unsupported features is + -- definitely not helpful. -- Similarly if we are generating SCIL, an error message is sufficient -- instead of generating a bug box. diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index ed022388049..062a2dab8a2 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -1126,7 +1126,7 @@ package body CStand is -- special insertion character } for types results in special handling -- of these type names in any case. The blanks in these names would -- trouble in Gigi, but that's OK here, since none of these types - -- should ever get through to Gigi! Attributes of these types are + -- should ever get through to Gigi. Attributes of these types are -- filled out to minimize problems with cascaded errors (for example, -- Any_Integer is given reasonable and consistent type and size values) @@ -1812,7 +1812,7 @@ package body CStand is Set_Needs_Debug_Info (E); -- All standard entities are built with fully qualified names, so - -- set the flag to prevent an abortive attempt at requalification! + -- set the flag to prevent an abortive attempt at requalification. Set_Has_Qualified_Name (E); @@ -1828,7 +1828,7 @@ package body CStand is procedure Print_Standard is procedure P (Item : String) renames Output.Write_Line; - -- Short-hand, since we do a lot of line writes here! + -- Short-hand, since we do a lot of line writes here procedure P_Int_Range (Size : Pos); -- Prints the range of an integer based on its Size diff --git a/gcc/ada/debug_a.adb b/gcc/ada/debug_a.adb index 43455b910d9..30d584e09db 100644 --- a/gcc/ada/debug_a.adb +++ b/gcc/ada/debug_a.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -44,7 +44,7 @@ package body Debug_A is -- A stack used to keep track of Node_Id values for setting the value of -- Current_Error_Node correctly. Note that if we have more than 200 -- recursion levels, we just don't reset the right value on exit, which - -- is not crucial, since this is only for debugging! + -- is not crucial, since this is only for debugging. ----------------------- -- Local Subprograms -- diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads index eec27081422..9dbc54b77bc 100644 --- a/gcc/ada/einfo.ads +++ b/gcc/ada/einfo.ads @@ -127,7 +127,7 @@ package Einfo is -- Handling of Type'Size Values -- ---------------------------------- --- The Ada 95 RM contains some rather peculiar (to us!) rules on the value +-- The Ada 95 RM contains some rather peculiar (to us) rules on the value -- of type'Size (see RM 13.3(55)). We have found that attempting to use -- these RM Size values generally, and in particular for determining the -- default size of objects, creates chaos, and major incompatibilities in @@ -3738,7 +3738,7 @@ package Einfo is -- Scope_Depth_Set (synthesized) -- Applies to a special predicate function that returns a Boolean value -- indicating whether or not the Scope_Depth field has been set. It is --- needed, since returns an invalid value in this case! +-- needed, since returns an invalid value in this case. -- Sec_Stack_Needed_For_Return (Flag167) -- Defined in scope entities (blocks, functions, procedures, tasks, @@ -4570,7 +4570,7 @@ package Einfo is ); for Entity_Kind'Size use 8; - -- The data structures in Atree assume this! + -- The data structures in Atree assume this -------------------------- -- Subtype Declarations -- @@ -6076,7 +6076,7 @@ package Einfo is -- computation. Of course, from the point of view of a user of this -- package, the distinction is not visible (even the field information -- provided below should be disregarded, as it is subject to change - -- without notice!). A number of attributes appear as lists: lists of + -- without notice). A number of attributes appear as lists: lists of -- formals, lists of actuals, of discriminants, etc. For these, pairs -- of functions are defined, which take the form: diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index f3469364c82..390583794b5 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -23,7 +23,7 @@ -- -- ------------------------------------------------------------------------------ --- Warning! Error messages can be generated during Gigi processing by direct +-- Warning: Error messages can be generated during Gigi processing by direct -- calls to error message routines, so it is essential that the processing -- in this body be consistent with the requirements for the Gigi processing -- environment, and that in particular, no disallowed table expansion is @@ -3113,7 +3113,7 @@ package body Errout is -- but it makes too much noise to be accurate and add 'Base in all -- cases. Note that we only do this is the first named subtype is not -- itself an internal name. This avoids the obvious loop (subtype -> - -- basetype -> subtype) which would otherwise occur!) + -- basetype -> subtype) which would otherwise occur). else declare @@ -3152,7 +3152,7 @@ package body Errout is -- If we are stuck in a loop, get out and settle for the internal -- name after all. In this case we set to kill the message if it is -- not the first error message (we really try hard not to show the - -- dirty laundry of the implementation to the poor user!) + -- dirty laundry of the implementation to the poor user). if Ent = Old_Ent then Kill_Message := True; diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index 63aea28e86a..6924ce26449 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -23,7 +23,7 @@ -- -- ------------------------------------------------------------------------------ --- Warning! Error messages can be generated during Gigi processing by direct +-- Warning: Error messages can be generated during Gigi processing by direct -- calls to error message routines, so it is essential that the processing -- in this body be consistent with the requirements for the Gigi processing -- environment, and that in particular, no disallowed table expansion is @@ -185,7 +185,7 @@ package body Erroutc is return; -- Otherwise see if continuations are the same, if not, keep both - -- sequences, a curious case, but better to keep everything! + -- sequences, a curious case, but better to keep everything. elsif not Same_Error (N1, N2) then return; diff --git a/gcc/ada/eval_fat.adb b/gcc/ada/eval_fat.adb index d1c9d74859a..bb729f9e0b9 100644 --- a/gcc/ada/eval_fat.adb +++ b/gcc/ada/eval_fat.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -178,7 +178,7 @@ package body Eval_Fat is Uintp_Mark : Uintp.Save_Mark; -- The code is divided into blocks that systematically release - -- intermediate values (this routine generates lots of junk!) + -- intermediate values (this routine generates lots of junk). begin if N = Uint_0 then diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 6518e5bb950..5c0f4de7511 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -4933,7 +4933,7 @@ package body Exp_Aggr is -- Here we test for is packed array aggregate that we can handle at -- compile time. If so, return with transformation done. Note that we do -- this even if the aggregate is nested, because once we have done this - -- processing, there is no more nested aggregate! + -- processing, there is no more nested aggregate. if Packed_Array_Aggregate_Handled (N) then return; @@ -5279,7 +5279,7 @@ package body Exp_Aggr is -- form (others => 'x'), with a single choice and no expressions, -- and N is less than 80 (an arbitrary limit for now), then replace -- the aggregate by the equivalent string literal (but do not mark - -- it as static since it is not!) + -- it as static since it is not). -- Note: this entire circuit is redundant with respect to code in -- Expand_Array_Aggregate that collapses others choices to positional @@ -5303,7 +5303,7 @@ package body Exp_Aggr is -- But it succeeds (DH looks static to pragma Export) - -- To be sorted out! ??? + -- To be sorted out ??? if Present (Component_Associations (N)) then declare diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 93a2390168a..a52342cf409 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -567,7 +567,7 @@ package body Exp_Attr is -- of the entities in the Fat packages, but first they have identical -- names (so we would have to have lots of renaming declarations to -- meet the normal RE rule of separate names for all runtime entities), - -- and second there would be an awful lot of them! + -- and second there would be an awful lot of them. Fnm := Make_Selected_Component (Loc, @@ -2602,7 +2602,7 @@ package body Exp_Attr is -- This is simply a direct conversion from the enumeration type to -- the target integer type, which is treated by the back end as a -- normal integer conversion, treating the enumeration type as an - -- integer, which is exactly what we want! We set Conversion_OK to + -- integer, which is exactly what we want. We set Conversion_OK to -- make sure that the analyzer does not complain about what otherwise -- might be an illegal conversion. @@ -2798,7 +2798,7 @@ package body Exp_Attr is -- Note: it might appear that a properly analyzed unchecked conversion -- would be just fine here, but that's not the case, since the full - -- range checks performed by the following call are critical! + -- range checks performed by the following call are critical. Apply_Type_Conversion_Checks (N); end Fixed_Value; @@ -3274,7 +3274,7 @@ package body Exp_Attr is -- Note: it might appear that a properly analyzed unchecked conversion -- would be just fine here, but that's not the case, since the full - -- range checks performed by the following call are critical! + -- range checks performed by the following call are critical. Apply_Type_Conversion_Checks (N); end Integer_Value; @@ -5775,7 +5775,7 @@ package body Exp_Attr is begin -- The value whose validity is being checked has been captured in -- an object declaration. We certainly don't want this object to - -- appear valid because the declaration initializes it! + -- appear valid because the declaration initializes it. if Is_Entity_Name (Temp) then Set_Is_Known_Valid (Entity (Temp), False); @@ -5991,7 +5991,7 @@ package body Exp_Attr is -- But that's precisely what won't work because of possible -- unwanted optimization (and indeed the basic motivation for - -- the Valid attribute is exactly that this test does not work!) + -- the Valid attribute is exactly that this test does not work). -- What will work is: -- Btyp!(X) >= Btyp!(type(X)'First) diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index db729a62291..8951ffbac74 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -1118,7 +1118,7 @@ package body Exp_Ch11 is -- handling of exceptions. When control is passed to the -- handler, then in the normal case we undefer aborts. In -- any case this entire handling is relevant only if aborts - -- are allowed! + -- are allowed. elsif Abort_Allowed and then Exception_Mechanism /= Back_End_Exceptions @@ -1431,7 +1431,7 @@ package body Exp_Ch11 is -- We adjust the condition to deal with the C/Fortran boolean case. This -- may well not be necessary, as all such conditions are generated by -- the expander and probably are all standard boolean, but who knows - -- what strange optimization in future may require this adjustment! + -- what strange optimization in future may require this adjustment. Adjust_Condition (Condition (N)); @@ -1505,7 +1505,7 @@ package body Exp_Ch11 is -- We adjust the condition to deal with the C/Fortran boolean case. This -- may well not be necessary, as all such conditions are generated by -- the expander and probably are all standard boolean, but who knows - -- what strange optimization in future may require this adjustment! + -- what strange optimization in future may require this adjustment. Adjust_Condition (Condition (N)); @@ -1822,7 +1822,7 @@ package body Exp_Ch11 is -- We adjust the condition to deal with the C/Fortran boolean case. This -- may well not be necessary, as all such conditions are generated by -- the expander and probably are all standard boolean, but who knows - -- what strange optimization in future may require this adjustment! + -- what strange optimization in future may require this adjustment. Adjust_Condition (Condition (N)); @@ -2171,7 +2171,7 @@ package body Exp_Ch11 is -- Note: it is a little irregular for the body of exp_ch11 to know -- the details of the encoding scheme for names, but on the other - -- hand, gigi knows them, and this is for gigi's benefit anyway! + -- hand, gigi knows them, and this is for gigi's benefit anyway. if Name_Buffer (1 .. 30) /= "system__aux_dec__non_ada_error" then return False; diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 4f3846fbd0b..f3055872099 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -3406,7 +3406,7 @@ package body Exp_Ch3 is -- the client will think an initialization procedure is present -- and call it, when in fact no such procedure is required, but -- since the call is generated, there had better be a routine - -- at the other end of the call, even if it does nothing!) + -- at the other end of the call, even if it does nothing). -- Note: the reason we exclude the CPP_Class case is because in this -- case the initialization is performed by the C++ constructors, and @@ -5298,7 +5298,7 @@ package body Exp_Ch3 is elsif Is_Interface (Typ) -- Avoid never-ending recursion because if Equivalent_Type is set - -- then we've done it already and must not do it again! + -- then we've done it already and must not do it again. and then not (Nkind (Object_Definition (N)) = N_Identifier @@ -5746,7 +5746,7 @@ package body Exp_Ch3 is -- We do not analyze this renaming declaration, because all its -- components have already been analyzed, and if we were to go -- ahead and analyze it, we would in effect be trying to generate - -- another declaration of X, which won't do! + -- another declaration of X, which won't do. Set_Renamed_Object (Defining_Identifier (N), Expr_Q); Set_Analyzed (N); @@ -6295,7 +6295,7 @@ package body Exp_Ch3 is -- Note: if exceptions are not supported, then we suppress the raise -- and return -1 unconditionally (this is an erroneous program in any - -- case and there is no obligation to raise Constraint_Error here!) We + -- case and there is no obligation to raise Constraint_Error here). We -- also do this if pragma Restrictions (No_Exceptions) is active. -- Is this right??? What about No_Exception_Propagation??? @@ -9795,7 +9795,7 @@ package body Exp_Ch3 is Append_To (Res, Decl); end if; - -- Body for inequality (if required!) + -- Body for inequality (if required) Decl := Make_Neq_Body (Tag_Typ); diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 6952665ce21..06c69b1fc36 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -1790,7 +1790,7 @@ package body Exp_Ch4 is -- components of the arrays. -- -- The actual way the code works is to return the comparison of - -- corresponding components for the N+1 call. That's neater! + -- corresponding components for the N+1 call. That's neater. function Test_Empty_Arrays return Node_Id; -- This function constructs the test for both arrays being empty @@ -4419,7 +4419,7 @@ package body Exp_Ch4 is Analyze_And_Resolve (N, PtrT); -- We set the variable as statically allocated, since we don't want - -- it going on the stack of the current procedure! + -- it going on the stack of the current procedure. Set_Is_Statically_Allocated (Temp); return; @@ -5727,7 +5727,7 @@ package body Exp_Ch4 is -- way we get all the processing above for an explicit range. -- Don't do this for predicated types, since in this case we - -- want to check the predicate! + -- want to check the predicate. elsif Is_Scalar_Type (Typ) then if No (Predicate_Function (Typ)) then @@ -6004,7 +6004,7 @@ package body Exp_Ch4 is -- If a predicate is present, then we do the predicate test, but we -- most certainly want to omit this if we are within the predicate - -- function itself, since otherwise we have an infinite recursion! + -- function itself, since otherwise we have an infinite recursion. -- The check should also not be emitted when testing against a range -- (the check is only done when the right operand is a subtype; see -- RM12-4.5.2 (28.1/3-30/3)). @@ -7151,7 +7151,7 @@ package body Exp_Ch4 is then -- Search for equality operation, checking that the operands -- have the same type. Note that we must find a matching entry, - -- or something is very wrong! + -- or something is very wrong. Prim := First_Elmt (Collect_Primitive_Operations (A_Typ)); @@ -9127,7 +9127,7 @@ package body Exp_Ch4 is and then Is_Constrained (Ptyp) then -- Do this optimization for discrete types only, and not for - -- access types (access discriminants get us into trouble!) + -- access types (access discriminants get us into trouble). if not Is_Discrete_Type (Etype (N)) then null; @@ -9135,7 +9135,7 @@ package body Exp_Ch4 is -- Don't do this on the left hand of an assignment statement. -- Normally one would think that references like this would not -- occur, but they do in generated code, and mean that we really - -- do want to assign the discriminant! + -- do want to assign the discriminant. elsif Nkind (Par) = N_Assignment_Statement and then Name (Par) = N @@ -9154,7 +9154,7 @@ package body Exp_Ch4 is -- Don't do this optimization if we are within the code for a -- discriminant check, since the whole point of such a check may - -- be to verify the condition on which the code below depends! + -- be to verify the condition on which the code below depends. elsif Is_In_Discriminant_Check (N) then null; @@ -9248,7 +9248,7 @@ package body Exp_Ch4 is return; -- Otherwise we can just copy the constraint, but the - -- result is certainly not static! In some cases the + -- result is certainly not static. In some cases the -- discriminant constraint has been analyzed in the -- context of the original subtype indication, but for -- itypes the constraint might not have been analyzed @@ -9961,7 +9961,7 @@ package body Exp_Ch4 is -- in Checks.Apply_Arithmetic_Overflow_Check, but we catch more cases in -- the processing here. Also we still need the Checks circuit, since we -- have to be sure not to generate junk overflow checks in the first - -- place, since it would be trick to remove them here! + -- place, since it would be trick to remove them here. if Integer_Promotion_Possible (N) then diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 32108620519..e563ccf8edc 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -631,7 +631,7 @@ package body Exp_Ch5 is -- Otherwise, we assume the worst, which is that the two arrays -- are the same array. There is no need to check if we know that -- is the case, because if we don't know it, we still have to - -- assume it! + -- assume it. -- Generally if the same array is involved, then we have an -- overlapping case. We will have to really assume the worst (i.e. @@ -697,7 +697,7 @@ package body Exp_Ch5 is -- Note: the above code MUST be analyzed with checks off, because -- otherwise the Succ could overflow. But in any case this is more - -- efficient! + -- efficient. -- Forwards_OK = False, Backwards_OK = True @@ -709,7 +709,7 @@ package body Exp_Ch5 is -- Note: the above code MUST be analyzed with checks off, because -- otherwise the Pred could overflow. But in any case this is more - -- efficient! + -- efficient. -- Forwards_OK = Backwards_OK = False @@ -1775,7 +1775,7 @@ package body Exp_Ch5 is -- We do not need to reanalyze that assignment, and we do not need -- to worry about references to the temporary, but we do need to -- make sure that the temporary is not marked as a true constant - -- since we now have a generated assignment to it! + -- since we now have a generated assignment to it. Set_Is_True_Constant (Tnn, False); end; diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 8e1e9547072..494f11efdee 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -825,7 +825,7 @@ package body Exp_Ch6 is -- We must have a call, since Has_Recursive_Call was set. If not just -- ignore (this is only an error check, so if we have a funny situation, - -- due to bugs or errors, we do not want to bomb!) + -- due to bugs or errors, we do not want to bomb). elsif Is_Empty_Elmt_List (Call_List) then return; @@ -2043,7 +2043,7 @@ package body Exp_Ch6 is procedure Do_Backend_Inline is begin -- No extra test needed for init subprograms since we know they - -- are available to the backend! + -- are available to the backend. if Is_Init_Proc (Subp) then Add_Inlined_Body (Subp); @@ -3108,7 +3108,7 @@ package body Exp_Ch6 is -- For an OUT or IN OUT parameter, if the actual is an entity, then -- clear current values, since they can be clobbered. We are probably -- doing this in more places than we need to, but better safe than - -- sorry when it comes to retaining bad current values! + -- sorry when it comes to retaining bad current values. if Ekind (Formal) /= E_In_Parameter and then Is_Entity_Name (Actual) @@ -3122,7 +3122,7 @@ package body Exp_Ch6 is -- For an OUT or IN OUT parameter that is an assignable entity, -- we do not want to clobber the Last_Assignment field, since -- if it is set, it was precisely because it is indeed an OUT - -- or IN OUT parameter! We do reset the Is_Known_Valid flag + -- or IN OUT parameter. We do reset the Is_Known_Valid flag -- since the subprogram could have returned in invalid value. if Ekind_In (Formal, E_Out_Parameter, E_In_Out_Parameter) @@ -3746,7 +3746,7 @@ package body Exp_Ch6 is -- If this is a call to an intrinsic subprogram, then perform the -- appropriate expansion to the corresponding tree node and we - -- are all done (since after that the call is gone!) + -- are all done (since after that the call is gone). -- In the case where the intrinsic is to be processed by the back end, -- the call to Expand_Intrinsic_Call will do nothing, which is fine, @@ -4056,7 +4056,7 @@ package body Exp_Ch6 is begin -- First step, remove all the named parameters from the -- list (they are still chained using First_Named_Actual - -- and Next_Named_Actual, so we have not lost them!) + -- and Next_Named_Actual, so we have not lost them). Temp := First (Parameter_Associations (Call_Node)); @@ -5665,7 +5665,7 @@ package body Exp_Ch6 is if Is_Unc_Decl then - -- No action needed since return statement has been already removed! + -- No action needed since return statement has been already removed null; @@ -7634,7 +7634,7 @@ package body Exp_Ch6 is ----------------------------------- -- The "simple" comes from the syntax rule simple_return_statement. The - -- semantics are not at all simple! + -- semantics are not at all simple. procedure Expand_Simple_Function_Return (N : Node_Id) is Loc : constant Source_Ptr := Sloc (N); diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index f6629626e87..0557995c563 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -5701,7 +5701,7 @@ package body Exp_Ch9 is -- Mark NULL statement as coming from source so that it is not -- eliminated by GIGI. - -- Another covert channel! If this is a requirement, it must be + -- Another covert channel. If this is a requirement, it must be -- documented in sinfo/einfo ??? Set_Comes_From_Source (Stmt, True); @@ -11228,7 +11228,7 @@ package body Exp_Ch9 is -- Single task declarations should never be present after semantic -- analysis, since we expect them to be replaced by a declaration of an -- anonymous task type, followed by a declaration of the task object. We - -- include this routine to make sure that is happening! + -- include this routine to make sure that is happening. procedure Expand_N_Single_Task_Declaration (N : Node_Id) is begin diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index 7d74ed13fa4..6db896fa72d 100644 --- a/gcc/ada/exp_dbug.adb +++ b/gcc/ada/exp_dbug.adb @@ -488,7 +488,7 @@ package body Exp_Dbug is -- If we get an exception, just figure it is a case that we cannot -- successfully handle using our current approach, since this is - -- only for debugging, no need to take the compilation with us! + -- only for debugging, no need to take the compilation with us. exception when others => @@ -1199,9 +1199,7 @@ package body Exp_Dbug is function Is_BNPE (S : Entity_Id) return Boolean is begin - return - Ekind (S) = E_Package - and then Is_Package_Body_Entity (S); + return Ekind (S) = E_Package and then Is_Package_Body_Entity (S); end Is_BNPE; -------------------- @@ -1212,7 +1210,7 @@ package body Exp_Dbug is begin -- If we got all the way to Standard, then we have certainly -- fully qualified the name, so set the flag appropriately, - -- and then return False, since we are most certainly done! + -- and then return False, since we are most certainly done. if S = Standard_Standard then Set_Has_Fully_Qualified_Name (Ent, True); @@ -1221,13 +1219,10 @@ package body Exp_Dbug is -- Otherwise figure out if further qualification is required else - return - Is_Subprogram (Ent) - or else - Ekind (Ent) = E_Subprogram_Body - or else - (Ekind (S) /= E_Block - and then not Is_Dynamic_Scope (S)); + return Is_Subprogram (Ent) + or else Ekind (Ent) = E_Subprogram_Body + or else (Ekind (S) /= E_Block + and then not Is_Dynamic_Scope (S)); end if; end Qualify_Needed; diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 1f84738985f..d18e32c18c4 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -1287,11 +1287,11 @@ package body Exp_Disp is Selector_Name => New_Occurrence_Of (Iface_Tag, Loc)))); else - -- Build internal function to handle the case in which the - -- actual is null. If the actual is null returns null because - -- no displacement is required; otherwise performs a type - -- conversion that will be expanded in the code that returns - -- the value of the displaced actual. That is: + -- Build internal function to handle the case in which the actual is + -- null. If the actual is null returns null because no displacement + -- is required; otherwise performs a type conversion that will be + -- expanded in the code that returns the value of the displaced + -- actual. That is: -- function Func (O : Address) return Iface_Typ is -- type Op_Typ is access all Operand_Typ; @@ -5050,7 +5050,7 @@ package body Exp_Disp is -- Of course this value will only be valid if the tagged type is still -- in scope, but it clearly must be erroneous to compute the internal - -- tag of a tagged type that is out of scope! + -- tag of a tagged type that is out of scope. -- We don't do this processing if an explicit external tag has been -- specified. That's an odd case for which we have already issued a @@ -7217,7 +7217,7 @@ package body Exp_Disp is -- the decoration required by the backend. -- Odd comment, the back end cannot require anything not properly - -- documented in einfo! ??? + -- documented in einfo. ??? Set_Is_Dispatch_Table_Entity (RTE (RE_Prim_Ptr)); Set_Is_Dispatch_Table_Entity (RTE (RE_Predef_Prims_Table_Ptr)); diff --git a/gcc/ada/exp_fixd.adb b/gcc/ada/exp_fixd.adb index 28b93b5f8a5..37cded71c9e 100644 --- a/gcc/ada/exp_fixd.adb +++ b/gcc/ada/exp_fixd.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -122,7 +122,7 @@ package body Exp_Fixd is -- both integer types, which need not be the same. Build_Rem converts the -- operand with the smaller sized type to match the type of the other -- operand and sets this as the result type. The result is never rounded - -- (rem operations cannot be rounded in any case!) On return, the resulting + -- (rem operations cannot be rounded in any case). On return, the resulting -- node is analyzed and has its Etype set. function Build_Scaled_Divide @@ -407,7 +407,7 @@ package body Exp_Fixd is begin -- If denominator fits in 64 bits, we can build the operations directly - -- without causing any intermediate overflow, so that's what we do! + -- without causing any intermediate overflow, so that's what we do. if Int'Max (Y_Size, Z_Size) <= 32 then return @@ -787,7 +787,7 @@ package body Exp_Fixd is begin -- If numerator fits in 64 bits, we can build the operations directly - -- without causing any intermediate overflow, so that's what we do! + -- without causing any intermediate overflow, so that's what we do. if Int'Max (X_Size, Y_Size) <= 32 then return diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index 5da403bb35d..2a62dad72c2 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -310,7 +310,8 @@ package body Exp_Imgv is Tent := Rtyp; -- For standard character, we have to select the version which handles - -- soft hyphen correctly, based on the version of Ada in use (ugly!) + -- soft hyphen correctly, based on the version of Ada in use (this is + -- ugly, but we have no choice). elsif Rtyp = Standard_Character then if Ada_Version < Ada_2005 then diff --git a/gcc/ada/exp_intr.adb b/gcc/ada/exp_intr.adb index 6289b1ee224..6f9df388362 100644 --- a/gcc/ada/exp_intr.adb +++ b/gcc/ada/exp_intr.adb @@ -420,7 +420,7 @@ package body Exp_Intr is New_Occurrence_Of (Choice_Parameter (P), Loc)))); exit; - -- Keep climbing! + -- Keep climbing else P := Parent (P); @@ -747,7 +747,7 @@ package body Exp_Intr is -- Loop to output the name - -- is this right wrt wide char encodings ??? (no!) + -- This is not right wrt wide char encodings ??? () SDef := Sloc (E); while TDef (SDef) in '0' .. '9' diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index f6fff6cff7d..c77a1cb3a7b 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -4691,7 +4691,7 @@ package body Exp_Util is -- The following code is historical, it used to be present but it -- is too cautious, because the front-end does not know the proper -- default alignments for the target. Also, if the alignment is - -- not known, the front end can't know in any case! If a copy is + -- not known, the front end can't know in any case. If a copy is -- needed, the back-end will take care of it. This whole section -- including this comment can be removed later ??? @@ -6225,7 +6225,7 @@ package body Exp_Util is end; -- For a slice, test the prefix, if that is possibly misaligned, - -- then for sure the slice is! + -- then for sure the slice is. when N_Slice => return Possible_Bit_Aligned_Component (Prefix (N)); @@ -7958,7 +7958,7 @@ package body Exp_Util is -- We need the last guard because we don't want to raise CE for empty -- arrays since no out of range values result. (Empty arrays with a -- component type of True .. True -- very useful -- even the ACATS - -- does not test that marginal case!) + -- does not test that marginal case). Insert_Action (N, Make_Raise_Constraint_Error (Loc, @@ -8009,7 +8009,7 @@ package body Exp_Util is -- We need the last guard because we don't want to raise CE for empty -- arrays since no out of range values result (Empty arrays with a -- component type of True .. True -- very useful -- even the ACATS - -- does not test that marginal case!). + -- does not test that marginal case). Insert_Action (N, Make_Raise_Constraint_Error (Loc, @@ -8039,7 +8039,7 @@ package body Exp_Util is Integer_Sized_Small : Ureal; -- Set to 2.0 ** -(Integer'Size - 1) the first time that this function is - -- called (we don't want to compute it more than once!) + -- called (we don't want to compute it more than once). Long_Integer_Sized_Small : Ureal; -- Set to 2.0 ** -(Long_Integer'Size - 1) the first time that this function diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 4dd7347eebc..3b5f01b9ec6 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -2147,11 +2147,9 @@ package body Freeze is then Error_Msg_Sloc := Sloc (Comp_Size_C); Error_Msg_NE - ("?r?pragma Pack for& ignored!", - Pack_Pragma, Ent); + ("?r?pragma Pack for& ignored!", Pack_Pragma, Ent); Error_Msg_N - ("\?r?explicit component size given#!", - Pack_Pragma); + ("\?r?explicit component size given#!", Pack_Pragma); Set_Is_Packed (Base_Type (Ent), False); Set_Is_Bit_Packed_Array (Base_Type (Ent), False); end if; @@ -3280,7 +3278,7 @@ package body Freeze is and then RM_Size (Rec) < Scalar_Component_Total_Esize -- And the total RM size cannot be greater than the specified size - -- since otherwise packing will not get us where we have to be! + -- since otherwise packing will not get us where we have to be. and then RM_Size (Rec) >= Scalar_Component_Total_RM_Size @@ -3966,7 +3964,7 @@ package body Freeze is -- However, we don't do that for internal entities. We figure -- that if we deliberately set Is_True_Constant for an internal - -- entity, e.g. a dispatch table entry, then we mean it! + -- entity, e.g. a dispatch table entry, then we mean it. if (Is_Aliased (E) or else Is_Aliased (Etype (E))) and then not Is_Internal_Name (Chars (E)) @@ -4091,7 +4089,7 @@ package body Freeze is then -- Make sure we actually have a pragma, and have not merely -- inherited the indication from elsewhere (e.g. an address - -- clause, which is not good enough in RM terms!) + -- clause, which is not good enough in RM terms). if Has_Rep_Pragma (E, Name_Atomic) or else @@ -5393,7 +5391,7 @@ package body Freeze is -- expression, see section "Handling of Default Expressions" in the -- spec of package Sem for further details. Note that we have to make -- sure that we actually have a real expression (if we have a subtype - -- indication, we can't test Is_Static_Expression!) However, we exclude + -- indication, we can't test Is_Static_Expression). However, we exclude -- the case of the prefix of an attribute of a static scalar subtype -- from this early return, because static subtype attributes should -- always cause freezing, even in default expressions, but the attribute @@ -5740,7 +5738,7 @@ package body Freeze is end case; -- We fall through the case if we did not yet find the proper - -- place in the free for inserting the freeze node, so climb! + -- place in the free for inserting the freeze node, so climb. P := Parent_P; end loop; @@ -6532,7 +6530,7 @@ package body Freeze is -- For non-foreign convention subprograms, this is where we create -- the extra formals (for accessibility level and constrained bit -- information). We delay this till the freeze point precisely so - -- that we know the convention! + -- that we know the convention. if not Has_Foreign_Convention (E) then Create_Extra_Formals (E); diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 20a92f47980..e07e0cc6c7b 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -226,7 +226,7 @@ begin end loop; end if; - -- Restore style check, but if config file turned on checks, leave on! + -- Restore style check, but if config file turned on checks, leave on Opt.Style_Check := Save_Style_Check or Style_Check; diff --git a/gcc/ada/g-comlin.ads b/gcc/ada/g-comlin.ads index c4b290e5567..c3bfe304b62 100644 --- a/gcc/ada/g-comlin.ads +++ b/gcc/ada/g-comlin.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1999-2012, AdaCore -- +-- Copyright (C) 1999-2013, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -64,7 +64,7 @@ -- when 'b' => Put_Line ("Got b + " & Parameter); -- when others => --- raise Program_Error; -- cannot occur! +-- raise Program_Error; -- cannot occur -- end case; -- end loop; diff --git a/gcc/ada/g-mbdira.adb b/gcc/ada/g-mbdira.adb index 44937f9d6a5..3d026ab5242 100644 --- a/gcc/ada/g-mbdira.adb +++ b/gcc/ada/g-mbdira.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -111,7 +111,7 @@ package body GNAT.MBBS_Discrete_Random is S.X2 := Square_Mod_N (S.X2, S.Q); Temp := S.X2 - S.X1; - -- Following duplication is not an error, it is a loop unwinding! + -- Following duplication is not an error, it is a loop unwinding if Temp < 0 then Temp := Temp + S.Q; diff --git a/gcc/ada/g-spipat.adb b/gcc/ada/g-spipat.adb index b1dacd98dc1..f11bcfc997a 100644 --- a/gcc/ada/g-spipat.adb +++ b/gcc/ada/g-spipat.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2011, AdaCore -- +-- Copyright (C) 1998-2013, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1081,7 +1081,7 @@ package body GNAT.Spitbol.Patterns is -- control. One might be tempted to think that at this point, the -- history stack entries made by matching P can just be removed since -- they certainly are not going to be used for rematching (that is - -- whole point of Fence after all!) However, this is wrong, because + -- whole point of Fence after all). However, this is wrong, because -- it would result in the loss of possible assign-on-match entries -- for deferred pattern assignments. diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index ba30b4c1d74..f5c312a678d 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -283,7 +283,7 @@ procedure Gnat1drv is -- Make the Ada front-end more liberal so that the compiler will -- allow illegal code that is allowed by other compilers. CodePeer - -- is in the business of finding problems, not enforcing rules! + -- is in the business of finding problems, not enforcing rules. -- This is useful when using CodePeer mode with other compilers. Relaxed_RM_Semantics := True; @@ -441,7 +441,7 @@ procedure Gnat1drv is -- Deal with forcing OpenVMS switches True if debug flag M is set, but -- record the setting of Targparm.Open_VMS_On_Target in True_VMS_Target - -- before doing this, so we know if we are in real OpenVMS or not! + -- before doing this, so we know if we are in real OpenVMS or not. Opt.True_VMS_Target := Targparm.OpenVMS_On_Target; @@ -696,8 +696,8 @@ procedure Gnat1drv is -- Remaining cases are packages and generic packages. Here -- we only do the test if there are no previous errors, -- because if there are errors, they may lead us to - -- incorrectly believe that a package does not allow a body - -- when in fact it does. + -- incorrectly believe that a package does not allow a + -- body when in fact it does. elsif not Compilation_Errors then if Main_Kind = N_Package_Declaration then @@ -1258,7 +1258,7 @@ begin when Storage_Error => -- Assume this is a bug. If it is real, the message will in any case - -- say Storage_Error, giving a strong hint! + -- say Storage_Error, giving a strong hint. Comperr.Compiler_Abort ("Storage_Error"); end; diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb index 8eb1465bff4..54d2c8e92e8 100644 --- a/gcc/ada/gprep.adb +++ b/gcc/ada/gprep.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -165,7 +165,7 @@ package body GPrep is procedure Gnatprep is begin - -- Do some initializations (order is important here!) + -- Do some initializations (order is important here) Csets.Initialize; Snames.Initialize; diff --git a/gcc/ada/i-cpp.ads b/gcc/ada/i-cpp.ads index 0435c135f62..27db1c2b1fd 100644 --- a/gcc/ada/i-cpp.ads +++ b/gcc/ada/i-cpp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -39,7 +39,7 @@ package Interfaces.CPP is subtype Vtable_Ptr is Ada.Tags.Tag; - -- These need commenting (this is not an RM package!) + -- These need commenting (this is not an RM package) ??? function Expanded_Name (T : Vtable_Ptr) return String renames Ada.Tags.Expanded_Name; diff --git a/gcc/ada/i-vxwork-x86.ads b/gcc/ada/i-vxwork-x86.ads index 479b6ad0787..549c3c7badb 100644 --- a/gcc/ada/i-vxwork-x86.ads +++ b/gcc/ada/i-vxwork-x86.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1999-2010, AdaCore -- +-- Copyright (C) 1999-2013, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -85,9 +85,10 @@ package Interfaces.VxWorks is -- -- with P; use P; -- procedure Useint is - -- -- Be sure to use a reasonable interrupt number for the target - -- -- board! + -- + -- -- Be sure to use a reasonable interrupt number for target board. -- -- This one is an unreserved interrupt for the Pentium 3 BSP + -- -- Interrupt : constant := 16#33#; -- -- task T; @@ -101,6 +102,7 @@ package Interfaces.VxWorks is -- delay 1.0; -- -- -- Generate interrupt, using interrupt number + -- -- Asm ("int %0", -- Inputs => -- Ada.Interrupts.Interrupt_ID'Asm_Input @@ -134,32 +136,32 @@ package Interfaces.VxWorks is (vector : Interrupt_Vector; handler : VOIDFUNCPTR; parameter : System.Address := System.Null_Address) return STATUS; - -- Binding to the C routine intConnect. Use this to set up an - -- user handler. The routine generates a wrapper around the user - -- handler to save and restore context + -- Binding to the C routine intConnect. Use this to set up an user handler. + -- The routine generates a wrapper around the user handler to save and + -- restore context function intContext return int; - -- Binding to the C routine intContext. This function returns 1 only - -- if the current execution state is in interrupt context. + -- Binding to the C routine intContext. This function returns 1 only if the + -- current execution state is in interrupt context. function intVecGet (Vector : Interrupt_Vector) return VOIDFUNCPTR; - -- Binding to the C routine intVecGet. Use this to get the - -- existing handler for later restoral + -- Binding to the C routine intVecGet. Use this to get the existing handler + -- for later restoral procedure intVecSet (Vector : Interrupt_Vector; Handler : VOIDFUNCPTR); - -- Binding to the C routine intVecSet. Use this to restore a - -- handler obtained using intVecGet + -- Binding to the C routine intVecSet. Use this to restore a handler + -- obtained using intVecGet procedure intVecGet2 (vector : Interrupt_Vector; pFunction : out VOIDFUNCPTR; pIdtGate : not null access int; pIdtSelector : not null access int); - -- Binding to the C routine intVecGet2. Use this to get the - -- existing handler for later restoral + -- Binding to the C routine intVecGet2. Use this to get the existing + -- handler for later restoral procedure intVecSet2 (vector : Interrupt_Vector; @@ -180,12 +182,11 @@ package Interfaces.VxWorks is -- (e.g logMsg ("Interrupt" & ASCII.NUL)) type FP_CONTEXT is private; - -- Floating point context save and restore. Handlers using floating - -- point must be bracketed with these calls. The pFpContext parameter - -- should be an object of type FP_CONTEXT that is - -- declared local to the handler. - -- See the VxWorks Intel Architecture Supplement regarding - -- these routines. + -- Floating point context save and restore. Handlers using floating point + -- must be bracketed with these calls. The pFpContext parameter should be + -- an object of type FP_CONTEXT that is declared local to the handler. + -- + -- See the VxWorks Intel Architecture Supplement regarding these routines procedure fppRestore (pFpContext : in out FP_CONTEXT); -- Restore floating point context - old style diff --git a/gcc/ada/i-vxwork.ads b/gcc/ada/i-vxwork.ads index 0b2991e8122..81c42993730 100644 --- a/gcc/ada/i-vxwork.ads +++ b/gcc/ada/i-vxwork.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1999-2010, AdaCore -- +-- Copyright (C) 1999-2013, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -30,15 +30,16 @@ ------------------------------------------------------------------------------ -- This package provides a limited binding to the VxWorks API + -- In particular, it interfaces with the VxWorks hardware interrupt --- facilities, allowing the use of low-latency direct-vectored --- interrupt handlers. Note that such handlers have a variety of --- restrictions regarding system calls and language constructs. In particular, --- the use of exception handlers and functions returning variable-length --- objects cannot be used. Less restrictive, but higher-latency handlers can --- be written using Ada protected procedures, Ada 83 style interrupt entries, --- or by signalling an Ada task from within an interrupt handler using a --- binary semaphore as described in the VxWorks Programmer's Manual. +-- facilities, allowing the use of low-latency direct-vectored interrupt +-- handlers. Note that such handlers have a variety of restrictions regarding +-- system calls and language constructs. In particular, the use of exception +-- handlers and functions returning variable-length objects cannot be used. +-- Less restrictive, but higher-latency handlers can be written using Ada +-- protected procedures, Ada 83 style interrupt entries, or by signalling +-- an Ada task from within an interrupt handler using a binary semaphore +-- as described in the VxWorks Programmer's Manual. -- -- For complete documentation of the operations in this package, please -- consult the VxWorks Programmer's Manual and VxWorks Reference Manual. @@ -81,6 +82,7 @@ package Interfaces.VxWorks is -- logMsg ("received an interrupt" & ASCII.LF & ASCII.NUL); -- -- -- Acknowledge VME interrupt + -- -- S := sysBusIntAck (intLevel => Level); -- end Handler; -- end P; @@ -90,9 +92,10 @@ package Interfaces.VxWorks is -- -- with P; use P; -- procedure Useint is - -- -- Be sure to use a reasonable interrupt number for the target - -- -- board! + -- + -- -- Be sure to use a reasonable interrupt number for board. -- -- This one is the unused VME graphics interrupt on the PPC MV2604 + -- -- Interrupt : constant := 16#14#; -- -- task T; @@ -106,6 +109,7 @@ package Interfaces.VxWorks is -- delay 1.0; -- -- -- Generate VME interrupt, using interrupt number + -- -- S := sysBusIntGen (1, Interrupt); -- end loop; -- end T; @@ -137,24 +141,24 @@ package Interfaces.VxWorks is (vector : Interrupt_Vector; handler : VOIDFUNCPTR; parameter : System.Address := System.Null_Address) return STATUS; - -- Binding to the C routine intConnect. Use this to set up an - -- user handler. The routine generates a wrapper around the user - -- handler to save and restore context + -- Binding to the C routine intConnect. Use this to set up an user handler. + -- The routine generates a wrapper around the user handler to save and + -- restore context function intContext return int; - -- Binding to the C routine intContext. This function returns 1 only - -- if the current execution state is in interrupt context. + -- Binding to the C routine intContext. This function returns 1 only if the + -- current execution state is in interrupt context. function intVecGet (Vector : Interrupt_Vector) return VOIDFUNCPTR; - -- Binding to the C routine intVecGet. Use this to get the - -- existing handler for later restoral + -- Binding to the C routine intVecGet. Use this to get the existing handler + -- for later restoral procedure intVecSet (Vector : Interrupt_Vector; Handler : VOIDFUNCPTR); - -- Binding to the C routine intVecSet. Use this to restore a - -- handler obtained using intVecGet + -- Binding to the C routine intVecSet. Use this to restore a handler + -- obtained using intVecGet function INUM_TO_IVEC (intNum : int) return Interrupt_Vector; -- Equivalent to the C macro INUM_TO_IVEC used to convert an interrupt @@ -170,10 +174,10 @@ package Interfaces.VxWorks is -- Binding to the C routine sysBusIntAck function sysBusIntGen (intLevel : int; Intnum : int) return STATUS; - -- Binding to the C routine sysBusIntGen. Note that the T2 - -- documentation implies that a vector address is the proper - -- argument - it's not. The interrupt number in the range - -- 0 .. 255 (for 68K and PPC) is the correct argument. + -- Binding to the C routine sysBusIntGen. Note that the T2 documentation + -- implies that a vector address is the proper argument - it's not. The + -- interrupt number in the range 0 .. 255 (for 68K and PPC) is the correct + -- argument. procedure logMsg (fmt : String; arg1, arg2, arg3, arg4, arg5, arg6 : int := 0); @@ -182,10 +186,9 @@ package Interfaces.VxWorks is -- (e.g logMsg ("Interrupt" & ASCII.NUL)) type FP_CONTEXT is private; - -- Floating point context save and restore. Handlers using floating - -- point must be bracketed with these calls. The pFpContext parameter - -- should be an object of type FP_CONTEXT that is - -- declared local to the handler. + -- Floating point context save and restore. Handlers using floating point + -- must be bracketed with these calls. The pFpContext parameter should be + -- an object of type FP_CONTEXT that is declared local to the handler. procedure fppRestore (pFpContext : in out FP_CONTEXT); -- Restore floating point context diff --git a/gcc/ada/krunch.ads b/gcc/ada/krunch.ads index 95a0218e634..2a6d9681ed4 100644 --- a/gcc/ada/krunch.ads +++ b/gcc/ada/krunch.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -114,7 +114,7 @@ -- we replace the prefix ada.wide_wide_text_io- by a-zt- and then -- the normal crunching rules are applied. --- These are the only irregularity required (so far!) to keep the file names +-- These are the only irregularity required (so far) to keep the file names -- unique in the standard predefined libraries. procedure Krunch diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index ff49104e066..75957c53fc1 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -751,7 +751,7 @@ package body Layout is then S := Expr_Value (Hi) - Expr_Value (Lo) + 1; - -- If known flat bound, entire size of array is zero! + -- If known flat bound, entire size of array is zero if S <= 0 then return Make_Integer_Literal (Loc, 0); @@ -1088,7 +1088,7 @@ package body Layout is then S := Expr_Value (Hi) - Expr_Value (Lo) + 1; - -- If known flat bound, entire size of array is zero! + -- If known flat bound, entire size of array is zero if S <= 0 then Set_Esize (E, Uint_0); @@ -1688,7 +1688,7 @@ package body Layout is -- Set size of component from type. We use the Esize except in a -- packed record, where we use the RM_Size (since that is what the - -- RM_Size value, as distinct from the Object_Size is useful for!) + -- RM_Size value, as distinct from the Object_Size is useful for). if Is_Packed (E) then Set_Esize (Comp, RM_Size (Ctyp)); @@ -1771,7 +1771,7 @@ package body Layout is End_NPMax : SO_Ref; begin - -- Only lay out components if there are some to lay out! + -- Only lay out components if there are some to lay out if Present (From) then @@ -2508,7 +2508,7 @@ package body Layout is -- since this is part of the earlier processing and the front end is -- always required to lay out the sizes of such types (since they are -- available as static attributes). All we do is to check that this - -- rule is indeed obeyed! + -- rule is indeed obeyed. if Is_Discrete_Type (E) then diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb index 6d65c81383c..540bd63043c 100644 --- a/gcc/ada/lib-load.adb +++ b/gcc/ada/lib-load.adb @@ -740,7 +740,7 @@ package body Lib.Load is goto Done; end if; - -- If loaded unit had a fatal error, then caller inherits it! + -- If loaded unit had a fatal error, then caller inherits it if Units.Table (Unum).Fatal_Error and then Present (Error_Node) diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 015c628b87b..48adf70c97a 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -1496,7 +1496,7 @@ package body Lib.Writ is end if; -- Output final blank line and we are done. This final blank line is - -- probably junk, but we don't feel like making an incompatible change! + -- probably junk, but we don't feel like making an incompatible change. Write_Info_Terminate; Close_Output_Library_Info; diff --git a/gcc/ada/lib-writ.ads b/gcc/ada/lib-writ.ads index f886b668ce0..cfcc01c6dfa 100644 --- a/gcc/ada/lib-writ.ads +++ b/gcc/ada/lib-writ.ads @@ -260,7 +260,7 @@ package Lib.Writ is -- Note: The P line must be present. Even in Ignore_Errors mode, Scan_ALI -- insists on finding a P line. So if changes are made to the ALI format, - -- they should not include removing the P line! + -- they should not include removing the P line. -- --------------------- -- -- R Restrictions -- diff --git a/gcc/ada/live.adb b/gcc/ada/live.adb index b0c616f961e..5366b513d6c 100644 --- a/gcc/ada/live.adb +++ b/gcc/ada/live.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -84,7 +84,7 @@ package body Live is -- Given a subprogram body N, return defining identifier of its declaration -- ??? the body of this package contains no comments at all, this - -- should be fixed! + -- should be fixed. ------------- -- Body_Of -- diff --git a/gcc/ada/namet.ads b/gcc/ada/namet.ads index 4c9fc77bf78..431204b6a77 100644 --- a/gcc/ada/namet.ads +++ b/gcc/ada/namet.ads @@ -128,7 +128,7 @@ package Namet is -- This buffer is used to set the name to be stored in the table for the -- Name_Find call, and to retrieve the name for the Get_Name_String call. -- The limit here is intended to be an infinite value that ensures that we - -- never overflow the buffer (names this long are too absurd to worry!) + -- never overflow the buffer (names this long are too absurd to worry). Name_Len : Natural := 0; -- Length of name stored in Name_Buffer. Used as an input parameter for diff --git a/gcc/ada/osint-c.adb b/gcc/ada/osint-c.adb index d4333269477..72395f84c6b 100644 --- a/gcc/ada/osint-c.adb +++ b/gcc/ada/osint-c.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -225,7 +225,7 @@ package body Osint.C is function Debug_File_Eol_Length return Nat is begin - -- There has to be a cleaner way to do this! ??? + -- There has to be a cleaner way to do this ??? if Directory_Separator = '/' then return 1; diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index aefffc3ed59..b9b03d45f6d 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -2430,7 +2430,8 @@ package body Osint is Len : Integer; -- Length of source file text (ALI). If it doesn't fit in an integer - -- we're probably stuck anyway (>2 gigs of source seems a lot!) + -- we're probably stuck anyway (>2 gigs of source seems a lot, and + -- there are other places in the compiler that make this assumption). Text : Text_Buffer_Ptr; -- Allocated text buffer @@ -2585,7 +2586,7 @@ package body Osint is -- indicates failure to open the specified source file. Len : Integer; - -- Length of file. Assume no more than 2 gigabytes of source! + -- Length of file, assume no more than 2 gigabytes of source Actual_Len : Integer; diff --git a/gcc/ada/output.ads b/gcc/ada/output.ads index ddc395448d3..bcbca57328d 100644 --- a/gcc/ada/output.ads +++ b/gcc/ada/output.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -168,7 +168,7 @@ package Output is -- The following procedures are intended only for debugging purposes, -- for temporary insertion into the text in environments where a debugger -- is not available. They all have non-standard very short lower case - -- names, precisely to make sure that they are only used for debugging! + -- names, precisely to make sure that they are only used for debugging. procedure w (C : Character); -- Dump quote, character, quote, followed by line return diff --git a/gcc/ada/par-ch10.adb b/gcc/ada/par-ch10.adb index 00b294b1edd..2cb424102a7 100644 --- a/gcc/ada/par-ch10.adb +++ b/gcc/ada/par-ch10.adb @@ -514,7 +514,7 @@ package body Ch10 is return Error; end if; - -- Only try this if we got an OK unit! + -- Only try this if we got an OK unit if Unit_Node /= Error then if Nkind (Unit_Node) = N_Subunit then @@ -577,7 +577,7 @@ package body Ch10 is Set_Sloc (Comp_Unit_Node, Sloc (Name_Node)); Set_Sloc (Aux_Decls_Node (Comp_Unit_Node), Sloc (Name_Node)); - -- Set Entity field in file table. Easier now that we have name! + -- Set Entity field in file table. Easier now that we have name. -- Note that this is also skipped if we had a bad unit if Nkind (Name_Node) = N_Defining_Program_Unit_Name then @@ -601,7 +601,7 @@ package body Ch10 is -- Clear away any missing semicolon indication, we are done with that -- unit, so what's done is done, and we don't want anything hanging - -- around from the attempt to parse it! + -- around from the attempt to parse it. SIS_Entry_Active := False; diff --git a/gcc/ada/par-ch13.adb b/gcc/ada/par-ch13.adb index 18c63a3bf6c..4c661a5a5f7 100644 --- a/gcc/ada/par-ch13.adb +++ b/gcc/ada/par-ch13.adb @@ -454,7 +454,7 @@ package body Ch13 is Scan; -- past FOR -- Note that the name in a representation clause is always a simple - -- name, even in the attribute case, see AI-300 which made this so! + -- name, even in the attribute case, see AI-300 which made this so. Identifier_Node := P_Identifier (C_Use); diff --git a/gcc/ada/par-ch3.adb b/gcc/ada/par-ch3.adb index 29126152d43..c09a68fbb2f 100644 --- a/gcc/ada/par-ch3.adb +++ b/gcc/ada/par-ch3.adb @@ -701,7 +701,7 @@ package body Ch3 is else Decl_Node := New_Node (N_Private_Type_Declaration, Type_Loc); Set_Limited_Present (Decl_Node, True); - T_Private; -- past PRIVATE (or complain if not there!) + T_Private; -- past PRIVATE (or complain if not there) end if; exit; @@ -4506,7 +4506,7 @@ package body Ch3 is Scan; -- past PRIVATE end if; - -- An end of file definitely terminates the declarations! + -- An end of file definitely terminates the declarations when Tok_EOF => Done := True; @@ -4730,7 +4730,7 @@ package body Ch3 is -- declaration sequence on a second error, we scan out the statement -- and append it to the list of declarations (note that the semantics -- can handle statements in a declaration list so if we proceed to - -- call the semantic phase, all will be (reasonably) well! + -- call the semantic phase, all will be (reasonably) well. Append_List_To (Decls, P_Sequence_Of_Statements (SS_Unco)); diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb index 4003d96812a..8dd49f3166c 100644 --- a/gcc/ada/par-ch4.adb +++ b/gcc/ada/par-ch4.adb @@ -1512,7 +1512,7 @@ package body Ch4 is -- If we are at an expression terminator, something is seriously -- wrong, so let's get out now, before we start eating up stuff - -- that doesn't belong to us! + -- that doesn't belong to us. if Token in Token_Class_Eterm then Error_Msg_AP @@ -1992,7 +1992,7 @@ package body Ch4 is -- If range attribute, then we return with Token pointing to the -- apostrophe. Note: avoid the normal error check on exit. We - -- know that the expression really is complete in this case! + -- know that the expression really is complete in this case. else -- Token = Tok_Range then Restore_Scan_State (Scan_State); -- to apostrophe @@ -2634,7 +2634,7 @@ package body Ch4 is end if; -- Minus may well be an improper attempt at a unary minus. Give - -- a message, skip the minus and keep going! + -- a message, skip the minus and keep going. when Tok_Minus => Error_Msg_SC ("parentheses required for unary minus"); @@ -2893,7 +2893,7 @@ package body Ch4 is -- Parsed by P_Factor (4.4) - -- Note: this rule is not in fact used by the grammar at any point! + -- Note: this rule is not in fact used by the grammar at any point -------------------------- -- 4.6 Type Conversion -- diff --git a/gcc/ada/par-ch5.adb b/gcc/ada/par-ch5.adb index 779acc34ae9..2f83c3bc1e3 100644 --- a/gcc/ada/par-ch5.adb +++ b/gcc/ada/par-ch5.adb @@ -447,7 +447,7 @@ package body Ch5 is -- Otherwise we treat THEN as some kind of mess where we did -- not see the associated IF, but we pick up assuming it had - -- been there! + -- been there. Restore_Scan_State (Scan_State); -- to THEN Append_To (Statement_List, P_If_Statement); @@ -570,7 +570,7 @@ package body Ch5 is -- We will set Error_name as the Block_Label since -- we really don't know which of the labels might - -- be used at the end of the loop or block! + -- be used at the end of the loop or block. Block_Label := Error_Name; diff --git a/gcc/ada/par-ch6.adb b/gcc/ada/par-ch6.adb index 560cf4c989c..b8391e53145 100644 --- a/gcc/ada/par-ch6.adb +++ b/gcc/ada/par-ch6.adb @@ -1146,7 +1146,7 @@ package body Ch6 is -- On exit from the loop, Ident_Node is the last identifier scanned, -- i.e. the defining identifier, and Prefix_Node is a node for the - -- entire name, structured (incorrectly!) as a selected component. + -- entire name, structured (incorrectly) as a selected component. Name_Node := Prefix (Prefix_Node); Change_Node (Prefix_Node, N_Designator); @@ -1252,7 +1252,7 @@ package body Ch6 is -- On exit from the loop, Ident_Node is the last identifier scanned, -- i.e. the defining identifier, and Prefix_Node is a node for the - -- entire name, structured (incorrectly!) as a selected component. + -- entire name, structured (incorrectly) as a selected component. Name_Node := Prefix (Prefix_Node); Change_Node (Prefix_Node, N_Defining_Program_Unit_Name); @@ -1399,7 +1399,7 @@ package body Ch6 is -- If we run into a semicolon, then assume that a -- colon was missing, e.g. Parms (X Y; ...). Also - -- assume missing colon on EOF (a real disaster!) + -- assume missing colon on EOF (a real disaster) -- and on a right paren, e.g. Parms (X Y), and also -- on an assignment symbol, e.g. Parms (X Y := ..) diff --git a/gcc/ada/par-ch9.adb b/gcc/ada/par-ch9.adb index e1692c4a11b..7e4a9ee4e39 100644 --- a/gcc/ada/par-ch9.adb +++ b/gcc/ada/par-ch9.adb @@ -267,7 +267,7 @@ package body Ch9 is -- regard the semicolon after end as part of the Task_Definition, and in -- the official syntax, it's part of the enclosing declaration. The reason -- for this deviation is that otherwise the end processing would have to - -- be special cased, which would be a nuisance! + -- be special cased, which would be a nuisance. -- Error recovery: cannot raise Error_Resync @@ -1036,7 +1036,7 @@ package body Ch9 is else Restore_Scan_State (Scan_State); -- to left paren - Scan; -- past left paren (again!) + Scan; -- past left paren (again) Set_Entry_Index (Accept_Node, P_Expression); T_Right_Paren; Set_Parameter_Specifications (Accept_Node, P_Parameter_Profile); @@ -1280,7 +1280,7 @@ package body Ch9 is Scan; -- past DELAY -- The following check for delay until misused in Ada 83 doesn't catch - -- all cases, but it's good enough to catch most of them! + -- all cases, but it's good enough to catch most of them. if Token_Name = Name_Until then Check_95_Keyword (Tok_Until, Tok_Left_Paren); diff --git a/gcc/ada/par-endh.adb b/gcc/ada/par-endh.adb index e41e7a31ba4..d22cce2a534 100644 --- a/gcc/ada/par-endh.adb +++ b/gcc/ada/par-endh.adb @@ -700,7 +700,7 @@ package body Endh is -- Extra statements past the bogus END are discarded. This is not -- ideal for maximum error recovery, but it's too much trouble to - -- find an appropriate place to put them! + -- find an appropriate place to put them. Discard_Junk_List (P_Sequence_Of_Statements (SS_None)); end loop; @@ -973,7 +973,7 @@ package body Endh is -- The other possibility is a missing END for a subprogram with a -- suspicious IS (that probably should have been a semicolon). The - -- missing IS confirms the suspicion! + -- missing IS confirms the suspicion. else -- End_Type = E_Suspicious_Is or E_Bad_Is Scope.Table (Scope.Last).Etyp := E_Bad_Is; diff --git a/gcc/ada/par-labl.adb b/gcc/ada/par-labl.adb index f709dd088ee..8b2cb5eccba 100644 --- a/gcc/ada/par-labl.adb +++ b/gcc/ada/par-labl.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -407,7 +407,7 @@ procedure Labl is -- Intervening label before possible end of loop. Current -- label is not a candidate. This is conservative, because -- the label might not be the target of any jumps, but not - -- worth dealing with useless labels! + -- worth dealing with useless labels. No_Header (N); return; diff --git a/gcc/ada/par-prag.adb b/gcc/ada/par-prag.adb index 5b2f4487ffb..2061eb9e0f3 100644 --- a/gcc/ada/par-prag.adb +++ b/gcc/ada/par-prag.adb @@ -407,7 +407,7 @@ begin -- We unconditionally make a List_On entry for the pragma, so that -- in the List (Off) case, the pragma will print even in a region - -- of code with listing turned off (this is required!) + -- of code with listing turned off (this is required). List_Pragmas.Increment_Last; List_Pragmas.Table (List_Pragmas.Last) := diff --git a/gcc/ada/par-sync.adb b/gcc/ada/par-sync.adb index cbf1d1ef01e..0cf73db55a4 100644 --- a/gcc/ada/par-sync.adb +++ b/gcc/ada/par-sync.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -41,7 +41,7 @@ package body Sync is Resync_Init; -- Loop till we get a token that terminates a choice. Note that EOF is - -- one such token, so we are sure to get out of this loop eventually! + -- one such token, so we are sure to get out of this loop eventually. while Token not in Token_Class_Cterm loop Scan; @@ -135,7 +135,7 @@ package body Sync is -- loop resynchronizing and getting nowhere. If we are called to do a -- resynchronize and we are exactly at the same point that we left off -- on the last resynchronize call, then we force at least one token to - -- be skipped so that we make progress! + -- be skipped so that we make progress. if Token_Ptr = Last_Resync_Point then Scan; -- to skip at least one token diff --git a/gcc/ada/par-tchk.adb b/gcc/ada/par-tchk.adb index eefd7b4302e..c2d37bda22a 100644 --- a/gcc/ada/par-tchk.adb +++ b/gcc/ada/par-tchk.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -558,11 +558,11 @@ package body Tchk is or else Token = Tok_Semicolon or else Token = Tok_EOF then - Restore_Scan_State (Scan_State); -- to where we were! + Restore_Scan_State (Scan_State); -- to where we were return; end if; - Scan; -- continue search! + Scan; -- continue search if Token = Tok_Arrow then Scan; -- past arrow @@ -600,11 +600,11 @@ package body Tchk is or else Token = Tok_Semicolon or else Token = Tok_EOF then - Restore_Scan_State (Scan_State); -- to where we were! + Restore_Scan_State (Scan_State); -- to where we were return; end if; - Scan; -- continue search! + Scan; -- continue search if Token = Tok_Is or else Token = Tok_Of @@ -642,11 +642,11 @@ package body Tchk is or else Token = Tok_Semicolon or else Token = Tok_EOF then - Restore_Scan_State (Scan_State); -- to where we were! + Restore_Scan_State (Scan_State); -- to where we were return; end if; - Scan; -- continue search! + Scan; -- continue search if Token = Tok_Loop or else Token = Tok_Then then Scan; -- past loop or then (message already generated) @@ -677,11 +677,11 @@ package body Tchk is or else Token = Tok_Semicolon or else Token = Tok_EOF then - Restore_Scan_State (Scan_State); -- to where we were! + Restore_Scan_State (Scan_State); -- to where we were return; end if; - Scan; -- continue search! + Scan; -- continue search if Token = Tok_Return then Scan; -- past RETURN @@ -784,7 +784,7 @@ package body Tchk is return; end if; - Scan; -- continue search! + Scan; -- continue search if Token = Tok_Then then Scan; -- past THEN @@ -818,7 +818,7 @@ package body Tchk is return; end if; - Scan; -- continue search! + Scan; -- continue search if Token = Tok_Use then Scan; -- past use diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb index f2ac335e08c..ff75cf1c49c 100644 --- a/gcc/ada/par-util.adb +++ b/gcc/ada/par-util.adb @@ -97,7 +97,7 @@ package body Util is -- Never consider something a misspelling if either the actual or -- expected string is less than 3 characters (before this check we - -- used to consider i to be a misspelled if in some cases!) + -- used to consider i to be a misspelled if in some cases). if SL < 3 or else Name_Len < 3 then return False; @@ -268,7 +268,7 @@ package body Util is Paren_Count : Nat; begin - -- First check, if a comma is present, then a comma is present! + -- First check, if a comma is present, then a comma is present if Token = Tok_Comma then T_Comma; @@ -318,7 +318,7 @@ package body Util is -- If that test didn't work, loop ahead looking for a comma or -- semicolon at the same parenthesis level. Always remember that - -- we can't go badly wrong in an error situation like this! + -- we can't go badly wrong in an error situation like this. Paren_Count := 0; diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 7e69166ddc0..93f5bb537bd 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -589,11 +589,11 @@ function Par (Configuration_Pragmas : Boolean) return List_Id is -- Quite a bit of work, but really helpful in the case where it helps, and -- the need for this is based on actual experience with tracking down this - -- kind of error (the eye often easily mistakes semicolon for colon!) + -- kind of error (the eye often easily mistakes semicolon for colon). -- Note: we actually have enough information to patch up the tree, but - -- this may not be worth the effort! Also we could deal with the same - -- situation for EXIT with a label, but for now don't bother with that! + -- this may not be worth the effort. Also we could deal with the same + -- situation for EXIT with a label, but for now don't bother with that. --------------------------------- -- Parsing Routines by Chapter -- diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index d7e2bc74a6b..6a0a830fe10 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -229,7 +229,7 @@ package body Prj is -- Make sure that we don't have a config file for this -- project, in case there are several mains. In this case, -- we will recreate another config file: we cannot reuse the - -- one that we just deleted! + -- one that we just deleted. Proj.Project.Config_Checked := False; Proj.Project.Config_File_Name := No_Path; diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index 11b92e62c38..19b63397d0d 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -929,7 +929,7 @@ package body Repinfo is else -- For the packed case, we don't know the bit positions if we - -- don't know the starting position! + -- don't know the starting position. if Is_Packed (Ent) then Write_Line ("?? range ? .. ??;"); diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 9eeaa331f62..2c74afbe85e 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -710,7 +710,7 @@ package body Rtsfind is -- of diagnostics, since we will take care of it here. -- We save style checking switches and turn off style checking for - -- loading the unit, since we don't want any style checking! + -- loading the unit, since we don't want any style checking. declare Save_Style_Check : constant Boolean := Style_Check; @@ -1088,7 +1088,7 @@ package body Rtsfind is -- declaration and otherwise do a regular find. -- Not pleasant, but these kinds of annoying recursion when - -- writing an Ada compiler in Ada have to be broken somewhere! + -- writing an Ada compiler in Ada have to be broken somewhere. if Present (Main_Unit_Entity) and then Chars (Main_Unit_Entity) = Name_System diff --git a/gcc/ada/s-arit64.adb b/gcc/ada/s-arit64.adb index b6f253585c1..ce4f75abef5 100644 --- a/gcc/ada/s-arit64.adb +++ b/gcc/ada/s-arit64.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -199,7 +199,7 @@ package body System.Arith_64 is -- Compute Y * Z. Note that if the result overflows 64 bits unsigned, -- then the rounded result is clearly zero (since the dividend is at - -- most 2**63 - 1, the extra bit of precision is nice here!) + -- most 2**63 - 1, the extra bit of precision is nice here). if Yhi /= 0 then if Zhi /= 0 then diff --git a/gcc/ada/s-asthan-vms-alpha.adb b/gcc/ada/s-asthan-vms-alpha.adb index 623538f8613..253870f619b 100644 --- a/gcc/ada/s-asthan-vms-alpha.adb +++ b/gcc/ada/s-asthan-vms-alpha.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -399,7 +399,7 @@ package body System.AST_Handling is STI.Undefer_Abort (Self_Id); - -- We are awake, there is something to do! + -- We are awake, there is something to do Lock_AST (Self_Id); Num_Waiting_AST_Servers := Num_Waiting_AST_Servers - 1; diff --git a/gcc/ada/s-asthan-vms-ia64.adb b/gcc/ada/s-asthan-vms-ia64.adb index bd88b3a03fc..0f16fe8e331 100644 --- a/gcc/ada/s-asthan-vms-ia64.adb +++ b/gcc/ada/s-asthan-vms-ia64.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1996-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -404,7 +404,7 @@ package body System.AST_Handling is STI.Undefer_Abort (Self_Id); - -- We are awake, there is something to do! + -- We are awake, there is something to do Lock_AST (Self_Id); Num_Waiting_AST_Servers := Num_Waiting_AST_Servers - 1; diff --git a/gcc/ada/s-bignum.adb b/gcc/ada/s-bignum.adb index cfcf7edf063..d12a9e3cd5f 100644 --- a/gcc/ada/s-bignum.adb +++ b/gcc/ada/s-bignum.adb @@ -364,7 +364,7 @@ package body System.Bignums is Free_Bignum (XY2); -- Raise storage error if intermediate value is getting too - -- large, which we arbitrarily define as 200 words for now! + -- large, which we arbitrarily define as 200 words for now. if XY2S.Len > 200 then Free_Bignum (XY2S); @@ -708,7 +708,7 @@ package body System.Bignums is -- If both X and Y are less than 2**63-1, we can use Long_Long_Integer -- arithmetic. Note it is good not to do an accurate range check against - -- Long_Long_Integer since -2**63 / -1 overflows! + -- Long_Long_Integer since -2**63 / -1 overflows. elsif (X.Len <= 1 or else (X.Len = 2 and then X.D (1) < 2**31)) and then diff --git a/gcc/ada/s-dimmks.ads b/gcc/ada/s-dimmks.ads index 879f5d740a9..d5526900461 100644 --- a/gcc/ada/s-dimmks.ads +++ b/gcc/ada/s-dimmks.ads @@ -105,7 +105,7 @@ package System.Dim.Mks is -- Turn off the all the dimension warnings for these basic assignments -- since otherwise we would get complaints about assigning dimensionless - -- values to dimensioned subtypes (we can't assign 1.0*m to m!). + -- values to dimensioned subtypes (we can't assign 1.0*m to m). pragma Warnings (Off, "*assumed to be*"); diff --git a/gcc/ada/s-fatgen.adb b/gcc/ada/s-fatgen.adb index 1288904278d..f68dc76204f 100644 --- a/gcc/ada/s-fatgen.adb +++ b/gcc/ada/s-fatgen.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -342,7 +342,7 @@ package body System.Fat_Gen is -- The trick with Machine is to force the compiler to store the result -- in memory so that we do not have extra precision used. The compiler - -- is clever, so we have to outwit its possible optimizations! We do + -- is clever, so we have to outwit its possible optimizations. We do -- this by using an intermediate pragma Volatile location. function Machine (X : T) return T is diff --git a/gcc/ada/s-fatgen.ads b/gcc/ada/s-fatgen.ads index 81d6b1b9e02..13e78850416 100644 --- a/gcc/ada/s-fatgen.ads +++ b/gcc/ada/s-fatgen.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -47,7 +47,7 @@ package System.Fat_Gen is -- actual type used. For functions returning universal integer, there -- is no problem, since the result always is in range of integer. For -- input arguments, the expander has to do some special casing to deal - -- with the (very annoying!) cases of out of range values. If we used + -- with the (very annoying) cases of out of range values. If we used -- Long_Long_Integer to represent universal, then there would be no -- problem, but the resulting inefficiency would be annoying. diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index 64b89926753..01313a09cff 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -348,7 +348,7 @@ package body System.File_IO is -- Now unlink the external file. Note that we use the full name in -- this unlink, because the working directory may have changed since - -- we did the open, and we want to unlink the right file! + -- we did the open, and we want to unlink the right file. if unlink (Filename'Address) = -1 then raise Use_Error with Errno_Message; @@ -492,7 +492,7 @@ package body System.File_IO is -- initial call will be made by the caller to first open the file in "r" -- mode to be sure that it exists. The real open, in "w" mode, will then -- destroy this file. This is peculiar, but that's what Ada semantics - -- require and the ACATS tests insist on! + -- require and the ACATS tests insist on. -- If text file translation is required, then either "b" or "t" is appended -- to the mode, depending on the setting of Text. @@ -1238,7 +1238,7 @@ package body System.File_IO is -- Note: for a corresponding delete, we will use the full name, -- since by the time of the delete, the current working directory - -- may have changed and we do not want to delete a different file! + -- may have changed and we do not want to delete a different file. if VMS_Formstr = null then Stream := fopen (Namestr'Address, Fopstr'Address, Encoding, diff --git a/gcc/ada/s-imgcha.adb b/gcc/ada/s-imgcha.adb index 67613ddbd48..bd60dc2d70b 100644 --- a/gcc/ada/s-imgcha.adb +++ b/gcc/ada/s-imgcha.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -134,7 +134,7 @@ package body System.Img_Char is -- Special case, res means RESERVED_nnn where nnn is the three digit -- decimal value corresponding to the code position (more efficient - -- to compute than to store!) + -- to compute than to store). else declare diff --git a/gcc/ada/s-imgrea.adb b/gcc/ada/s-imgrea.adb index 5c5cbef24b7..fcfd107dd03 100644 --- a/gcc/ada/s-imgrea.adb +++ b/gcc/ada/s-imgrea.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -158,7 +158,7 @@ package body System.Img_Real is Field_Max : constant := 255; -- This should be the same value as Ada.[Wide_]Text_IO.Field'Last. -- It is not worth dragging in Ada.Text_IO to pick up this value, - -- since it really should never be necessary to change it! + -- since it really should never be necessary to change it. Digs : String (1 .. 2 * Field_Max + 16); -- Array used to hold digits of converted integer value. This is a diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index 8b4db7b5f03..dc51fa17716 100644 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -844,7 +844,7 @@ package body System.OS_Lib is -- temp file names. Return Invalid_FD. There is almost -- no chance that this code will be ever be executed, -- since it would mean that there are one million temp - -- files in the same directory! + -- files in the same directory. SSL.Unlock_Task.all; FD := Invalid_FD; @@ -1718,7 +1718,7 @@ package body System.OS_Lib is -- If argument is terminated by '\', then double it. Otherwise -- the ending quote will be taken as-is. This is quite strange - -- spawn behavior from Windows, but this is what we see! + -- spawn behavior from Windows, but this is what we see. else if Res (J) = '\' then diff --git a/gcc/ada/s-regpat.adb b/gcc/ada/s-regpat.adb index 88143289e44..d32bb03f06d 100644 --- a/gcc/ada/s-regpat.adb +++ b/gcc/ada/s-regpat.adb @@ -2556,7 +2556,7 @@ package body System.Regpat is case Op is when EOP => Dump_Indent := Dump_Indent - 1; - return True; -- Success ! + return True; -- Success when BRANCH => if Program (Next) /= BRANCH then diff --git a/gcc/ada/s-secsta.adb b/gcc/ada/s-secsta.adb index 0afea184baf..e883721e309 100644 --- a/gcc/ada/s-secsta.adb +++ b/gcc/ada/s-secsta.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -161,7 +161,7 @@ package body System.Secondary_Stack is -- Well it is not quite true that we never allocate an object of the -- type. This dummy object is allocated for the purpose of getting the -- offset of the Mem field via the 'Position attribute (such a nuisance - -- that we cannot apply this to a field of a type!) + -- that we cannot apply this to a field of a type). type Fixed_Stack_Ptr is access Fixed_Stack_Id; -- Pointer to record used to describe statically allocated sec stack diff --git a/gcc/ada/s-stalib.ads b/gcc/ada/s-stalib.ads index 6658afbae31..b1c06180939 100644 --- a/gcc/ada/s-stalib.ads +++ b/gcc/ada/s-stalib.ads @@ -87,7 +87,7 @@ package System.Standard_Library is -- The following record defines the underlying representation of exceptions - -- WARNING! Any changes to this may need to be reflected in the following + -- WARNING: Any changes to this may need to be reflected in the following -- locations in the compiler and runtime code: -- 1. The Internal_Exception routine in s-exctab.adb diff --git a/gcc/ada/s-stchop.adb b/gcc/ada/s-stchop.adb index b757c56532b..bce3e3f391a 100644 --- a/gcc/ada/s-stchop.adb +++ b/gcc/ada/s-stchop.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2013, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -180,7 +180,7 @@ package body System.Stack_Checking.Operations is raise Standard'Abort_Signal; end if; - -- Never trust the cached value, but return local copy! + -- Never trust the cached value, but return local copy return My_Stack; end Set_Stack_Info; @@ -233,7 +233,7 @@ package body System.Stack_Checking.Operations is declare My_Stack : constant Stack_Access := Set_Stack_Info (Cache'Access); -- At this point Stack.all might already be invalid, so - -- it is essential to use our local copy of Stack! + -- it is essential to use our local copy of Stack. begin if (Stack_Grows_Down and then diff --git a/gcc/ada/s-stoele.ads b/gcc/ada/s-stoele.ads index af60beb5518..132482b7502 100644 --- a/gcc/ada/s-stoele.ads +++ b/gcc/ada/s-stoele.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2002-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2002-2013, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -35,7 +35,7 @@ -- Warning: declarations in this package are ambiguous with respect to the -- extra declarations that can be introduced into System using Extend_System. --- It is a good idea to avoid use clauses for this package! +-- It is a good idea to avoid use clauses for this package. pragma Compiler_Unit; diff --git a/gcc/ada/s-taprop-solaris.adb b/gcc/ada/s-taprop-solaris.adb index 92088e10cb4..1d8797913e8 100644 --- a/gcc/ada/s-taprop-solaris.adb +++ b/gcc/ada/s-taprop-solaris.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1125,7 +1125,7 @@ package body System.Task_Primitives.Operations is -- on the Real_Time clock. That is technically incorrect, if the Calendar -- clock happens to be reset or adjusted. To solve this defect will require -- modification to the compiler interface, so that it can pass through more - -- information, to tell us here which clock to use! + -- information, to tell us here which clock to use. -- cond_timedwait will return if any of the following happens: -- 1) some other task did cond_signal on this condition variable diff --git a/gcc/ada/s-tasdeb-vms.adb b/gcc/ada/s-tasdeb-vms.adb index 1dbb5c53fc5..6c9ae75e332 100644 --- a/gcc/ada/s-tasdeb-vms.adb +++ b/gcc/ada/s-tasdeb-vms.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2008-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1248,10 +1248,10 @@ package body System.Tasking.Debug is is Task_Value : Task_Id; Task_Index : constant Integer := Integer (Event_Value) - 1; - begin + begin -- At least one event enabled, any and all events will cause a - -- condition to be raised and checked. Major tasking slowdown! + -- condition to be raised and checked. Major tasking slowdown. Global_Task_Debug_Event_Set := True; Events_Enabled_Count := Events_Enabled_Count + 1; @@ -1284,8 +1284,8 @@ package body System.Tasking.Debug is Event_Entry : out Unsigned_Longword; Status : out Cond_Value_Type) is - K_SUCCESS : constant := 1; - K_NO_SUCH_EVENT : constant := 9; + K_SUCCESS : constant := 1; + K_NO_SUCH_EVENT : constant := 9; begin Trace_Output ("Looking for Event: "); @@ -1313,8 +1313,8 @@ package body System.Tasking.Debug is Event_Entry : out Unsigned_Longword; Status : out Cond_Value_Type) is - K_SUCCESS : constant := 1; - K_NO_SUCH_EVENT : constant := 9; + K_SUCCESS : constant := 1; + K_NO_SUCH_EVENT : constant := 9; Event_Name_Cstr : constant ASCIC := To_AASCIC (Event_Name).all; begin @@ -1384,7 +1384,7 @@ package body System.Tasking.Debug is Task_Image : ASCIC := (Entry_Call.Self.Common.Task_Image_Len, Entry_Call.Self.Common.Task_Image - (1 .. Entry_Call.Self.Common.Task_Image_Len)); + (1 .. Entry_Call.Self.Common.Task_Image_Len)); begin Print_Routine (Print_FAO, Print_Newline, To_UL (DoAC (" %TASK !UI, type: !AC")), diff --git a/gcc/ada/s-tasini.adb b/gcc/ada/s-tasini.adb index 7203c1ccec2..27bf9398151 100644 --- a/gcc/ada/s-tasini.adb +++ b/gcc/ada/s-tasini.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -598,7 +598,7 @@ package body System.Tasking.Initialization is -- Undefer_Abort -- ------------------- - -- Precondition : Self does not hold any locks! + -- Precondition : Self does not hold any locks -- Undefer_Abort is called on any abort completion point (aka. -- synchronization point). It performs the following actions if they diff --git a/gcc/ada/s-tassta.adb b/gcc/ada/s-tassta.adb index 487bf8d5340..79669584b4c 100644 --- a/gcc/ada/s-tassta.adb +++ b/gcc/ada/s-tassta.adb @@ -459,7 +459,7 @@ package body System.Tasking.Stages is Vulnerable_Complete_Task (Self_ID); - -- All of our dependents have terminated. Never undefer abort again! + -- All of our dependents have terminated, never undefer abort again end Complete_Task; @@ -829,7 +829,7 @@ package body System.Tasking.Stages is Initialization.Defer_Abort_Nestable (Self_ID); - -- Never undefer again!!! + -- Never undefer again end if; -- This code is only executed by the environment task @@ -1394,7 +1394,7 @@ package body System.Tasking.Stages is -- unlocking, after which the parent was observed to race ahead, deallocate -- the ATCB, and then reallocate it to another task. The call to -- Undefer_Abort in Task_Unlock by the "terminated" task was overwriting - -- the data of the new task that reused the ATCB! To solve this problem, we + -- the data of the new task that reused the ATCB. To solve this problem, we -- introduced the new operation Final_Task_Unlock. procedure Terminate_Task (Self_ID : Task_Id) is diff --git a/gcc/ada/s-valdec.adb b/gcc/ada/s-valdec.adb index 88b28c9b1a6..ecd76821cae 100644 --- a/gcc/ada/s-valdec.adb +++ b/gcc/ada/s-valdec.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -40,7 +40,7 @@ package body System.Val_Dec is -- For decimal types where Size < Integer'Size, it is fine to use -- the floating-point circuit, since it certainly has sufficient -- precision for any reasonable hardware, and we just don't support - -- things on junk hardware! + -- things on junk hardware. function Scan_Decimal (Str : String; diff --git a/gcc/ada/s-valuti.adb b/gcc/ada/s-valuti.adb index ce6db6fecb4..6d6b827a79c 100644 --- a/gcc/ada/s-valuti.adb +++ b/gcc/ada/s-valuti.adb @@ -222,7 +222,7 @@ package body System.Val_Util is P : Natural := Ptr.all; begin - -- Deal with case of null string (all blanks!). As per spec, we raise + -- Deal with case of null string (all blanks). As per spec, we raise -- constraint error, with Ptr unchanged, and thus > Max. if P > Max then diff --git a/gcc/ada/s-wchjis.adb b/gcc/ada/s-wchjis.adb index a005ec68d9b..73282796c8e 100644 --- a/gcc/ada/s-wchjis.adb +++ b/gcc/ada/s-wchjis.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -118,7 +118,7 @@ package body System.WCh_JIS is begin -- The following is the required algorithm, it's hard to make any - -- more intelligent comments! This was copied from a public domain + -- more intelligent comments. This was copied from a public domain -- C program called etos.c (author unknown). JIS1 := Byte (Natural (Wide_Character'Pos (J) / 256)); @@ -154,7 +154,7 @@ package body System.WCh_JIS is begin -- The following is the required algorithm, it's hard to make any - -- more intelligent comments! This was copied from a public domain + -- more intelligent comments. This was copied from a public domain -- C program called stoj.c written by shige@csk.JUNET. SJIS1 := Character'Pos (SJ1); diff --git a/gcc/ada/s-wchwts.adb b/gcc/ada/s-wchwts.adb index 4902a7f48dd..895221e88dc 100644 --- a/gcc/ada/s-wchwts.adb +++ b/gcc/ada/s-wchwts.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -86,7 +86,7 @@ package body System.WCh_WtS is (S : Wide_String; EM : WC_Encoding_Method) return String is - R : String (S'First .. S'First + 5 * S'Length); -- worst case length! + R : String (S'First .. S'First + 5 * S'Length); -- worst case length RP : Natural; begin @@ -106,7 +106,7 @@ package body System.WCh_WtS is (S : Wide_Wide_String; EM : WC_Encoding_Method) return String is - R : String (S'First .. S'First + 7 * S'Length); -- worst case length! + R : String (S'First .. S'First + 7 * S'Length); -- worst case length RP : Natural; begin diff --git a/gcc/ada/scans.adb b/gcc/ada/scans.adb index 0c51891f369..121ab11a8fd 100644 --- a/gcc/ada/scans.adb +++ b/gcc/ada/scans.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -51,7 +51,7 @@ package body Scans is -- Set up Token_Type values in Names table entries for reserved -- words. We use the Pos value of the Token_Type value. Note that -- Is_Keyword_Name relies on the fact that Token_Type'Val (0) is not - -- a reserved word! + -- a reserved word. Set_Name_Table_Byte (N, Token_Type'Pos (T)); end Set_Reserved; diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 8b08949601a..f8377f4bb5c 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -429,7 +429,7 @@ package body Scng is procedure Error_Illegal_Wide_Character; -- Give illegal wide character message. On return, Scan_Ptr is bumped -- past the illegal character, which may still leave us pointing to - -- junk, not much we can do if the escape sequence is messed up! + -- junk, not much we can do if the escape sequence is messed up. procedure Error_No_Double_Underline; -- Signal error of two underline or punctuation characters in a row. @@ -2511,7 +2511,7 @@ package body Scng is -- Left bracket not followed by a quote terminates an identifier. -- This is an error, but we don't want to give a junk error msg - -- about wide characters in this case! + -- about wide characters in this case. elsif Source (Scan_Ptr) = '[' and then Source (Scan_Ptr + 1) /= '"' diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 374bb7b9081..18365fc781c 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -761,7 +761,7 @@ package body Sem_Aggr is begin -- All the components of List are matched against Component and a count -- is maintained of possible misspellings. When at the end of the the - -- analysis there are one or two (not more!) possible misspellings, + -- analysis there are one or two (not more) possible misspellings, -- these misspellings will be suggested as possible correction. Component_Elmt := First_Elmt (Elements); diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index ee1841196ff..b69c1b241a7 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6183,7 +6183,7 @@ package body Sem_Attr is -- Note, we need a range check in general, but we wait for the -- Resolve call to do this, since we want to let Eval_Attribute - -- have a chance to find an static illegality first! + -- have a chance to find an static illegality first. end Val; ----------- @@ -6726,7 +6726,7 @@ package body Sem_Attr is -- Note that the whole point of the E_String_Literal_Subtype is to -- avoid this construction of bounds, but the cases in which we - -- have to materialize them are rare enough that we don't worry! + -- have to materialize them are rare enough that we don't worry. -- The low bound is simply the low bound of the base type. The -- high bound is computed from the length of the string and this @@ -6776,7 +6776,7 @@ package body Sem_Attr is end loop; -- If no index type, get out (some other error occurred, and - -- we don't have enough information to complete the job!) + -- we don't have enough information to complete the job). if No (Indx) then Lo_Bound := Error; @@ -9075,7 +9075,7 @@ package body Sem_Attr is if J > 255 then - -- No need to compute this more than once! + -- No need to compute this more than once exit; @@ -10444,7 +10444,7 @@ package body Sem_Attr is ----------------- -- Prefix must not be resolved in this case, since it is not a - -- real entity reference. No action of any kind is require! + -- real entity reference. No action of any kind is require. when Attribute_UET_Address => return; @@ -10533,7 +10533,7 @@ package body Sem_Attr is -- Eval_Attribute may replace the node with a raise CE, or -- fold it to a constant. Obviously we only apply a scalar - -- range check if this did not happen! + -- range check if this did not happen. if Nkind (N) = N_Attribute_Reference and then Attribute_Name (N) = Name_Val diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 84547c2fb55..9aa7f4cac4f 100644 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -977,7 +977,7 @@ package body Sem_Aux is -- Otherwise we will look around to see if there is some other reason -- for it to be limited, except that if an error was posted on the -- entity, then just assume it is non-limited, because it can cause - -- trouble to recurse into a murky erroneous entity! + -- trouble to recurse into a murky erroneous entity. elsif Error_Posted (Ent) then return False; diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index 3692e519330..47736565dd5 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -1066,7 +1066,7 @@ package body Sem_Cat is -- Note that the 10.2.1(9) restrictions are not relevant to us anyway. -- We have to enforce them for RM compatibility, but we have no trouble -- accepting these objects and doing the right thing. Note that there is - -- no requirement that Preelaborate not actually generate any code! + -- no requirement that Preelaborate not actually generate any code. if In_Preelaborated_Unit and then not Debug_Flag_PP diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index cedcab7b794..eac99c3ac8d 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -1171,7 +1171,7 @@ package body Sem_Ch10 is Set_Elaboration_Entity_Required (Spec_Id, False); -- Case of elaboration entity is required for access before - -- elaboration checking (so certainly we must build it!) + -- elaboration checking (so certainly we must build it). else Set_Elaboration_Entity_Required (Spec_Id, True); diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index c9adaaca353..4ddfdc56220 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -98,7 +98,7 @@ package body Sem_Ch12 is -- tree and the copy, in order to recognize non-local references within -- the generic, and propagate them to each instance (recall that name -- resolution is done on the generic declaration: generics are not really - -- macros!). This is summarized in the following diagram: + -- macros). This is summarized in the following diagram: -- .-----------. .----------. -- | semantic |<--------------| generic | @@ -6773,7 +6773,7 @@ package body Sem_Ch12 is -- If the node is a compilation unit, it is the subunit of a stub, which -- has been loaded already (see code below). In this case, the library -- unit field of N points to the parent unit (which is a compilation - -- unit) and need not (and cannot!) be copied. + -- unit) and need not (and cannot) be copied. -- When the proper body of the stub is analyzed, the library_unit link -- is used to establish the proper context (see sem_ch10). diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb index f28be3b6879..6540bbf0400 100644 --- a/gcc/ada/sem_ch13.adb +++ b/gcc/ada/sem_ch13.adb @@ -4804,7 +4804,7 @@ package body Sem_Ch13 is begin if Is_Task_Type (U_Ent) then - -- Check obsolescent (but never obsolescent if from aspect!) + -- Check obsolescent (but never obsolescent if from aspect) if not From_Aspect_Specification (N) then Check_Restriction (No_Obsolescent_Features, N); @@ -5392,7 +5392,7 @@ package body Sem_Ch13 is end; end if; - -- We repeat the too late test in case it froze itself! + -- We repeat the too late test in case it froze itself if Rep_Item_Too_Late (Enumtype, N) then null; @@ -6795,7 +6795,7 @@ package body Sem_Ch13 is -- Build the body, we declare the boolean expression before -- doing the return, because we are not really confident of - -- what happens if a return appears within a return! + -- what happens if a return appears within a return. BTemp := Make_Defining_Identifier (Loc, @@ -9602,10 +9602,10 @@ package body Sem_Ch13 is -- on the modified variant part, since its only effect would be -- to compute the Others_Discrete_Choices node laboriously, and -- of course we already know the list of choices corresponding - -- to the others choice (it's the list we're replacing!) + -- to the others choice (it's the list we're replacing). -- We only want to do this if the expander is active, since - -- we do not want to clobber the ASIS tree! + -- we do not want to clobber the ASIS tree. if Expander_Active then declare @@ -11226,7 +11226,7 @@ package body Sem_Ch13 is -- If we are dealing with private types, then do the check on their -- fully declared counterparts if the full declarations have been - -- encountered (they don't have to be visible, but they must exist!) + -- encountered (they don't have to be visible, but they must exist). Source := Ancestor_Subtype (Etype (First_Formal (Act_Unit))); diff --git a/gcc/ada/sem_ch13.ads b/gcc/ada/sem_ch13.ads index 37bf09132ab..edf106ad3ff 100644 --- a/gcc/ada/sem_ch13.ads +++ b/gcc/ada/sem_ch13.ads @@ -306,7 +306,7 @@ package Sem_Ch13 is -- in these two expressions are the same, by seeing if the two expressions -- are fully conformant, and if not, issue appropriate error messages. - -- Quite an awkward approach, but this is an awkard requirement! + -- Quite an awkward approach, but this is an awkard requirement procedure Analyze_Aspects_At_Freeze_Point (E : Entity_Id); -- Analyze all the delayed aspects for entity E at freezing point. This diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 2cc3ea3e4d4..817ccb58fba 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -3877,7 +3877,7 @@ package body Sem_Ch3 is -- If not library level entity, then indicate we don't know max -- tasks and also check task hierarchy restriction and blocking - -- operation (since starting a task is definitely blocking!) + -- operation (since starting a task is definitely blocking). else Check_Restriction (Max_Tasks, N); @@ -4742,7 +4742,7 @@ package body Sem_Ch3 is -- record. elsif Ekind (Scope (Id)) /= E_Protected_Type - and then Present (Scope (Scope (Id))) -- error defense! + and then Present (Scope (Scope (Id))) -- error defense and then Ekind (Scope (Scope (Id))) /= E_Protected_Type then Conditional_Delay (Id, T); @@ -9145,8 +9145,8 @@ package body Sem_Ch3 is -- be unanalyzed at this point? and if it is, what business do we -- have messing around with it? and why is the base type of the -- parent type the right type for the resolution. It probably is - -- not! It is OK for the new bound we are creating, but not for - -- the old one??? Still if it never happens, no problem! + -- not. It is OK for the new bound we are creating, but not for + -- the old one??? Still if it never happens, no problem. Analyze_And_Resolve (Bound, Base_Type (Par_T)); @@ -10680,7 +10680,7 @@ package body Sem_Ch3 is Set_Is_Itype (Full); -- A subtype of a private-type-without-discriminants, whose full-view - -- has discriminants with default expressions, is not constrained! + -- has discriminants with default expressions, is not constrained. if not Has_Discriminants (Priv) then Set_Is_Constrained (Full, Is_Constrained (Full_Base)); @@ -12066,7 +12066,7 @@ package body Sem_Ch3 is procedure Fixup_Bad_Constraint; -- This is called after finding a bad constraint, and after having -- posted an appropriate error message. The mission is to leave the - -- entity T in as reasonable state as possible! + -- entity T in as reasonable state as possible. -------------------------- -- Fixup_Bad_Constraint -- @@ -12241,7 +12241,7 @@ package body Sem_Ch3 is -- Check that digits value is in range. Obviously we can do this -- at compile time, but it is strictly a runtime check, and of - -- course there is an ACVC test that checks this! + -- course there is an ACVC test that checks this. if Digits_Value (Def_Id) > Digits_Value (T) then Error_Msg_Uint_1 := Digits_Value (T); @@ -12468,7 +12468,7 @@ package body Sem_Ch3 is -- Check that delta value is in range. Obviously we can do this -- at compile time, but it is strictly a runtime check, and of - -- course there is an ACVC test that checks this! + -- course there is an ACVC test that checks this. if Delta_Value (Def_Id) < Delta_Value (T) then Error_Msg_N ("??delta value is too small", D); @@ -12844,7 +12844,7 @@ package body Sem_Ch3 is -- Set the parent so we have a proper link for freezing etc. This is -- not a real parent pointer, since of course our parent does not own -- up to us and reference us, we are an illegitimate child of the - -- original parent! + -- original parent. Set_Parent (New_Compon, Parent (Old_Compon)); @@ -17345,7 +17345,7 @@ package body Sem_Ch3 is begin -- If the mod expression is (exactly) 2 * literal, where literal is - -- 64 or less,then almost certainly the * was meant to be **. Warn! + -- 64 or less,then almost certainly the * was meant to be **. Warn. if Warn_On_Suspicious_Modulus_Value and then Nkind (Mod_Expr) = N_Op_Multiply @@ -17391,7 +17391,7 @@ package body Sem_Ch3 is -- Properly analyze the literals for the range. We do this manually -- because we can't go calling Resolve, since we are resolving these - -- bounds with the type, and this type is certainly not complete yet! + -- bounds with the type, and this type is certainly not complete yet. Set_Etype (Low_Bound (Scalar_Range (T)), T); Set_Etype (High_Bound (Scalar_Range (T)), T); diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index c7fc43269cc..86c492566c1 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -589,8 +589,8 @@ package body Sem_Ch4 is N_Index_Or_Discriminant_Constraint then Error_Msg_N -- CODEFIX - ("if qualified expression was meant, " & - "use apostrophe!", Constraint (E)); + ("if qualified expression was meant, " + & "use apostrophe!", Constraint (E)); end if; E := New_Occurrence_Of (Def_Id, Loc); @@ -1247,33 +1247,33 @@ package body Sem_Ch4 is if Is_Signed_Integer_Type (Typ) then Error_Msg_N - ("possible missing instantiation of " & - "'Text_'I'O.'Integer_'I'O!", Nam); + ("possible missing instantiation of " + & "'Text_'I'O.'Integer_'I'O!", Nam); elsif Is_Modular_Integer_Type (Typ) then Error_Msg_N - ("possible missing instantiation of " & - "'Text_'I'O.'Modular_'I'O!", Nam); + ("possible missing instantiation of " + & "'Text_'I'O.'Modular_'I'O!", Nam); elsif Is_Floating_Point_Type (Typ) then Error_Msg_N - ("possible missing instantiation of " & - "'Text_'I'O.'Float_'I'O!", Nam); + ("possible missing instantiation of " + & "'Text_'I'O.'Float_'I'O!", Nam); elsif Is_Ordinary_Fixed_Point_Type (Typ) then Error_Msg_N - ("possible missing instantiation of " & - "'Text_'I'O.'Fixed_'I'O!", Nam); + ("possible missing instantiation of " + & "'Text_'I'O.'Fixed_'I'O!", Nam); elsif Is_Decimal_Fixed_Point_Type (Typ) then Error_Msg_N - ("possible missing instantiation of " & - "'Text_'I'O.'Decimal_'I'O!", Nam); + ("possible missing instantiation of " + & "'Text_'I'O.'Decimal_'I'O!", Nam); elsif Is_Enumeration_Type (Typ) then Error_Msg_N - ("possible missing instantiation of " & - "'Text_'I'O.'Enumeration_'I'O!", Nam); + ("possible missing instantiation of " + & "'Text_'I'O.'Enumeration_'I'O!", Nam); end if; end; end if; @@ -3273,9 +3273,9 @@ package body Sem_Ch4 is Defining_Identifier (Associated_Node_For_Itype (Nam)); begin - Error_Msg_NE ( - "\\ =='> in call to dereference of &#!", - Actual, Access_To_Subprogram_Typ); + Error_Msg_NE + ("\\ =='> in call to dereference of &#!", + Actual, Access_To_Subprogram_Typ); end; else @@ -5347,7 +5347,7 @@ package body Sem_Ch4 is begin -- All the components of the prefix of selector Sel are matched against -- Sel and a count is maintained of possible misspellings. When at - -- the end of the analysis there are one or two (not more!) possible + -- the end of the analysis there are one or two (not more) possible -- misspellings, these misspellings will be suggested as possible -- correction. diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index 590d8ab1788..a7cf878b33f 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -180,7 +180,7 @@ package body Sem_Ch5 is end if; else - -- If we fall through, we have no special message to issue! + -- If we fall through, we have no special message to issue Error_Msg_N ("left hand side of assignment must be a variable", N); end if; @@ -2865,7 +2865,7 @@ package body Sem_Ch5 is ---------------------------- -- Note: the semantics of the null statement is implemented by a single - -- null statement, too bad everything isn't as simple as this! + -- null statement, too bad everything isn't as simple as this. procedure Analyze_Null_Statement (N : Node_Id) is pragma Warnings (Off, N); @@ -2885,7 +2885,7 @@ package body Sem_Ch5 is -- The labels declared in the statement list are reachable from -- statements in the list. We do this as a prepass so that any goto -- statement will be properly flagged if its target is not reachable. - -- This is not required, but is nice behavior! + -- This is not required, but is nice behavior. S := First (L); while Present (S) loop @@ -2989,7 +2989,7 @@ package body Sem_Ch5 is then -- Special very annoying exception. If we have a return that -- follows a raise, then we allow it without a warning, since - -- the Ada RM annoyingly requires a useless return here! + -- the Ada RM annoyingly requires a useless return here. if Nkind (Original_Node (N)) /= N_Raise_Statement or else Nkind (Nxt) /= N_Simple_Return_Statement diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 68775fbde7b..a6054ab86db 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -3362,7 +3362,7 @@ package body Sem_Ch6 is -- Here the purpose of X is simply to satisfy the annoying requirement -- in Ada that there be at least one return, and we certainly do not - -- want to go posting warnings on X that it is not initialized! On + -- want to go posting warnings on X that it is not initialized. On -- the other hand, if X is entirely unreferenced that should still -- get a warning. @@ -4541,7 +4541,7 @@ package body Sem_Ch6 is -- Emit a warning if this is a call to a runtime subprogram -- which is located inside a generic. Previously this call - -- was silently skipped! + -- was silently skipped. if Is_Generic_Instance (Subp) then declare @@ -5284,7 +5284,7 @@ package body Sem_Ch6 is -- Compiling with optimizations enabled else - -- Procedures are never frontend inlined in this case! + -- Procedures are never frontend inlined in this case if Ekind (Subp) /= E_Function then return False; @@ -5671,7 +5671,7 @@ package body Sem_Ch6 is end; end if; - -- Build the body to inline only if really needed! + -- Build the body to inline only if really needed if Check_Body_To_Inline (N, Spec_Id) and then Serious_Errors_Detected = 0 @@ -5881,7 +5881,7 @@ package body Sem_Ch6 is -- Note: we use the entity information, rather than going directly -- to the specification in the tree. This is not only simpler, but -- absolutely necessary for some cases of conformance tests between - -- operators, where the declaration tree simply does not exist! + -- operators, where the declaration tree simply does not exist. Old_Formal := First_Formal (Old_Id); New_Formal := First_Formal (New_Id); @@ -7230,7 +7230,7 @@ package body Sem_Ch6 is -- Note: if both ECA and DCA are missing the return, then we -- post only one message, should be enough to fix the bugs. -- If not we will get a message next time on the DCA when the - -- ECA is fixed! + -- ECA is fixed. elsif No (Statements (DCA)) then Last_Stm := DCA; @@ -8662,7 +8662,7 @@ package body Sem_Ch6 is end if; -- Compare two lists, skipping rewrite insertions (we want to compare - -- the original trees, not the expanded versions!) + -- the original trees, not the expanded versions). loop if Is_Rewrite_Insertion (N1) then @@ -8718,7 +8718,7 @@ package body Sem_Ch6 is begin -- Non-conformant if paren count does not match. Note: if some idiot -- complains that we don't do this right for more than 3 levels of - -- parentheses, they will be treated with the respect they deserve! + -- parentheses, they will be treated with the respect they deserve. if Paren_Count (E1) /= Paren_Count (E2) then return False; @@ -11394,7 +11394,7 @@ package body Sem_Ch6 is AS_Needed := False; -- If we have unknown discriminants, then we do not need an actual - -- subtype, or more accurately we cannot figure it out! Note that + -- subtype, or more accurately we cannot figure it out. Note that -- all class-wide types have unknown discriminants. elsif Has_Unknown_Discriminants (T) then diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index aea2a4d2d05..8a77e4861d6 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -259,7 +259,7 @@ package body Sem_Ch8 is -- of use clauses consists in setting this flag on all visible entities -- defined in the corresponding package. On exit from the scope of the use -- clause, the corresponding flag must be reset. However, a package may - -- appear in several nested use clauses (pathological but legal, alas!) + -- appear in several nested use clauses (pathological but legal, alas) -- which forces us to use a slightly more involved scheme: -- a) The defining occurrence for a package holds a flag -In_Use- to @@ -1197,7 +1197,7 @@ package body Sem_Ch8 is -- Initialize the object size and alignment. Note that we used to call -- Init_Size_Align here, but that's wrong for objects which have only - -- an Esize, not an RM_Size field! + -- an Esize, not an RM_Size field. Init_Object_Size_Align (Id); @@ -3333,7 +3333,7 @@ package body Sem_Ch8 is -- This procedure is called in the context of subprogram renaming, and -- thus the attribute must be one that is a subprogram. All of those -- have at least one formal parameter, with the exceptions of AST_Entry - -- (which is a real oddity, it is odd that this can be renamed at all!) + -- (which is a real oddity, it is odd that this can be renamed at all) -- and the GNAT attribute 'Img, which GNAT treats as renameable. if not Is_Non_Empty_List (Parameter_Specifications (Spec)) then @@ -4785,7 +4785,7 @@ package body Sem_Ch8 is -- If no entries on homonym chain that were potentially visible, -- and no entities reasonably considered as non-visible, then -- we have a plain undefined reference, with no additional - -- explanation required! + -- explanation required. if not Nvis_Entity then Undefined (Nvis => False); @@ -5511,7 +5511,7 @@ package body Sem_Ch8 is -- If this is a selection from a dummy package, then suppress -- the error message, of course the entity is missing if the - -- package is missing! + -- package is missing. elsif Sloc (Error_Msg_Node_2) = No_Location then null; diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb index bf4fa8f0379..53aefc9ecbf 100644 --- a/gcc/ada/sem_disp.adb +++ b/gcc/ada/sem_disp.adb @@ -1118,11 +1118,11 @@ package body Sem_Disp is if Has_Dispatch_Table (Tagged_Type) then Error_Msg_N - ("overriding of& is too late for building" & - " static dispatch tables!", Subp); + ("overriding of& is too late for building " + & " static dispatch tables!", Subp); Error_Msg_N - ("\spec should appear immediately after" & - " the type!", Subp); + ("\spec should appear immediately after " + & "the type!", Subp); end if; -- No code required to register primitives in VM @@ -1576,7 +1576,7 @@ package body Sem_Disp is if Derives_From (Node (Op1)) then if No (Prev) then - -- Avoid adding it to the list of primitives if already there! + -- Avoid adding it to the list of primitives if already there if Node (Op2) /= Subp then Prepend_Elmt (Subp, New_Prim); @@ -2250,7 +2250,7 @@ package body Sem_Disp is begin -- Diagnose failure to match No_Return in parent (Ada-2005, AI-414, but - -- we do it unconditionally in Ada 95 now, since this is our pragma!) + -- we do it unconditionally in Ada 95 now, since this is our pragma). if No_Return (Prev_Op) and then not No_Return (New_Op) then Error_Msg_N ("procedure & must have No_Return pragma", New_Op); diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb index 8447be198ff..70fc33f01cd 100644 --- a/gcc/ada/sem_elab.adb +++ b/gcc/ada/sem_elab.adb @@ -976,7 +976,7 @@ package body Sem_Elab is -- elaboration Boolean for the unit containing the entity. -- Note that for this case, we do check the real unit (the one - -- from following renamings, since that is the issue!) + -- from following renamings, since that is the issue). -- Could this possibly miss a useless but required PE??? @@ -2043,7 +2043,7 @@ package body Sem_Elab is -- we go in unconditionally. This is not so terrible, it means the -- error backtrace is not quite complete, and we are too eager to -- scan bodies of tasks that are unused, but this is hardly very - -- significant! + -- significant. elsif Nkind (N) = N_Subprogram_Body and then Comes_From_Source (N) diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb index fdf9ba354c8..c8a07a97f0e 100644 --- a/gcc/ada/sem_elim.adb +++ b/gcc/ada/sem_elim.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1997-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1997-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -408,7 +408,7 @@ package body Sem_Elim is end if; -- If given entity is a library level subprogram and pragma had a - -- single parameter, a match! + -- single parameter, a match. if Is_Compilation_Unit (E) and then Is_Subprogram (E) diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 920ee7c8777..4d690217987 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -758,7 +758,7 @@ package body Sem_Eval is end if; -- If either operand could raise constraint error, then we cannot - -- know the result at compile time (since CE may be raised!) + -- know the result at compile time (since CE may be raised). if not (Cannot_Raise_Constraint_Error (L) and then @@ -1707,7 +1707,7 @@ package body Sem_Eval is -- Eval_Character_Literal -- ---------------------------- - -- Nothing to be done! + -- Nothing to be done procedure Eval_Character_Literal (N : Node_Id) is pragma Warnings (Off, N); @@ -2791,7 +2791,7 @@ package body Sem_Eval is -- will be false because the lengths of one or more index subtypes are -- compile time known and different, then we can replace the entire -- result by False. We only do this for one dimensional arrays, because - -- the case of multi-dimensional arrays is rare and too much trouble! If + -- the case of multi-dimensional arrays is rare and too much trouble. If -- one of the operands is an illegal aggregate, its type might still be -- an arbitrary composite type, so nothing to do. @@ -3425,7 +3425,7 @@ package body Sem_Eval is -- string literal is not marked as static (happens in some cases -- of folding strings known at compile time, but not static). -- Furthermore in such cases, we reword the message, since there - -- is no string literal in the source program! + -- is no string literal in the source program. if Is_Static_Expression (N) then Apply_Compile_Time_Constraint_Error @@ -5331,7 +5331,7 @@ package body Sem_Eval is return In_Range; -- Never known if not scalar type. Don't know if this can actually - -- happen, but our spec allows it, so we must check! + -- happen, but our spec allows it, so we must check. elsif not Is_Scalar_Type (Typ) then return Unknown; diff --git a/gcc/ada/sem_intr.adb b/gcc/ada/sem_intr.adb index ed607ce53c1..a3f578d0345 100644 --- a/gcc/ada/sem_intr.adb +++ b/gcc/ada/sem_intr.adb @@ -330,7 +330,7 @@ package body Sem_Intr is -- We always allow intrinsic specifications in language defined units -- and in expanded code. We assume that the GNAT implementors know what - -- they are doing, and do not write or generate junk use of intrinsic! + -- they are doing, and do not write or generate junk use of intrinsic. elsif not Comes_From_Source (E) or else not Comes_From_Source (N) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index e0d275e58d4..3837275990b 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -6053,7 +6053,7 @@ package body Sem_Prag is D := Declaration_Node (E); K := Nkind (D); - -- Check duplicate before we chain ourselves! + -- Check duplicate before we chain ourselves Check_Duplicate_Pragma (E); @@ -6458,7 +6458,7 @@ package body Sem_Prag is -- for an overridden dispatching operation. Technically this is -- an amendment and should only be done in Ada 2005 mode. However, -- this is clearly a mistake, since the problem that is addressed - -- by this AI is that there is a clear gap in the RM! + -- by this AI is that there is a clear gap in the RM. if Is_Dispatching_Operation (E) and then Present (Overridden_Operation (E)) @@ -6490,7 +6490,7 @@ package body Sem_Prag is -- Note: make this unconditional so that if there is more -- than one call to which the pragma applies, we get a -- message for each call. Also don't use Error_Pragma, - -- so that we get multiple messages! + -- so that we get multiple messages. Error_Msg_N ("dispatching subprogram# cannot use Stdcall convention!", @@ -11486,7 +11486,7 @@ package body Sem_Prag is -- If a giant value is given, Int'Last will do well enough. -- If sometime someone complains that a record larger than - -- two gigabytes is not copied, we will worry about it then! + -- two gigabytes is not copied, we will worry about it then. else Default_C_Record_Mechanism := Mechanism_Type'Last; @@ -14513,7 +14513,7 @@ package body Sem_Prag is D := Declaration_Node (E); K := Nkind (D); - -- Check duplicate before we chain ourselves! + -- Check duplicate before we chain ourselves Check_Duplicate_Pragma (E); @@ -14573,7 +14573,7 @@ package body Sem_Prag is E := Entity (E_Id); - -- Check duplicate before we chain ourselves! + -- Check duplicate before we chain ourselves Check_Duplicate_Pragma (E); @@ -17891,7 +17891,7 @@ package body Sem_Prag is else -- Check overlapping in the priority ranges specified in other -- Priority_Specific_Dispatching pragmas within the same - -- partition. We can only check those we know about! + -- partition. We can only check those we know about. for J in Specific_Dispatching.First .. Specific_Dispatching.Last @@ -25088,7 +25088,7 @@ package body Sem_Prag is Expression => Make_Identifier (Sloc (N), Name_All_Checks))))); end if; - -- Nothing else to do at the current time! + -- Nothing else to do at the current time end Process_Compilation_Unit_Pragmas; diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index aff4b47926a..be05a51ef9e 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -2489,7 +2489,7 @@ package body Sem_Res is Name (N), Entity (Name (N))); -- Otherwise give general message (not clear what cases this - -- covers, but no harm in providing for them!) + -- covers, but no harm in providing for them). else Error_Msg_N ("expect procedure name in procedure call", N); @@ -3236,7 +3236,7 @@ package body Sem_Res is else -- Note that we do a full New_Copy_Tree, so that any associated -- Itypes are properly copied. This may not be needed any more, - -- but it does no harm as a safety measure! Defaults of a generic + -- but it does no harm as a safety measure. Defaults of a generic -- formal may be out of bounds of the corresponding actual (see -- cc1311b) and an additional check may be required. @@ -3951,7 +3951,7 @@ package body Sem_Res is -- Note: call Warn_On_Useless_Assignment before doing the check -- below for Is_OK_Variable_For_Out_Formal so that the setting -- of Referenced_As_LHS/Referenced_As_Out_Formal properly - -- reflects the last assignment, not this one! + -- reflects the last assignment, not this one. if Ekind (F) = E_Out_Parameter then if Warn_On_Modified_As_Out_Parameter (F) @@ -9669,7 +9669,7 @@ package body Sem_Res is -- very few places that we place the flag in the middle of -- a token, right under the offending wide character. Not -- quite clear if this is right wrt wide character encoding - -- sequences, but it's only an error message! + -- sequences, but it's only an error message. Error_Msg ("literal out of range of type Standard.Character", @@ -11267,7 +11267,7 @@ package body Sem_Res is -- Deal with conversion of integer type to address if the pragma -- Allow_Integer_Address is in effect. We convert the conversion to - -- an unchecked conversion in this case and we are all done! + -- an unchecked conversion in this case and we are all done. if Address_Integer_Convert_OK (Opnd_Type, Target_Type) then Rewrite (N, Unchecked_Convert_To (Target_Type, Expression (N))); diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb index f0fea637a38..86789ce20f4 100644 --- a/gcc/ada/sem_type.adb +++ b/gcc/ada/sem_type.adb @@ -1255,7 +1255,7 @@ package body Sem_Type is then return True; - -- Otherwise, types are not compatible! + -- Otherwise, types are not compatible else return False; diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index bfc2efeb782..f5a13cda27c 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -5314,13 +5314,13 @@ package body Sem_Util is -- If entity is in standard, then we are in trouble, because it -- means that we have a library package with a duplicated name. - -- That's hard to recover from, so abort! + -- That's hard to recover from, so abort. if S = Standard_Standard then raise Unrecoverable_Error; -- Otherwise we continue with the declaration. Having two - -- identical declarations should not cause us too much trouble! + -- identical declarations should not cause us too much trouble. else null; @@ -9624,7 +9624,7 @@ package body Sem_Util is -- An interesting case, if we have a constrained type one of whose -- bounds is known to be null, then there are no elements to be - -- initialized, so all the elements are initialized! + -- initialized, so all the elements are initialized. if Is_Constrained (Typ) then declare @@ -9977,7 +9977,7 @@ package body Sem_Util is -- If P is an LHS, then N is also effectively an LHS, but there -- is an important exception. If N is of an access type, then -- what we really have is N.all.Q (or N.all(Q .. R)). In either - -- case this makes N.all a left hand side but not N itself! + -- case this makes N.all a left hand side but not N itself. -- Here follows a worrisome kludge. If Etype (N) is not set, which -- for sure happens in the call from Find_Direct_Name, that means we @@ -13318,7 +13318,7 @@ package body Sem_Util is -- need Report to be True, and also we do not report errors caused -- by calls to init procs that occur within other init procs. Such -- errors must always be cascaded errors, since if all the types are - -- declared correctly, the compiler will certainly build decent calls! + -- declared correctly, the compiler will certainly build decent calls. ----------- -- Chain -- diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index c2bef7add10..62423ea1a8c 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -307,7 +307,7 @@ package body Sem_Warn is return; -- Forget it if function name is suspicious. A strange test - -- but warning generation is in the heuristics business! + -- but warning generation is in the heuristics business. elsif Is_Suspicious_Function_Name (Entity (Name (N))) then return; @@ -495,7 +495,7 @@ package body Sem_Warn is -- going on (perhaps a node with no parent that should -- have one but does not?) As always, for a warning we -- prefer to just abandon the warning than get into the - -- business of complaining about the tree structure here! + -- business of complaining about the tree structure here. if No (P) or else Nkind (P) = N_Procedure_Call_Statement @@ -1144,7 +1144,7 @@ package body Sem_Warn is -- No warning if fully initialized type, except that for -- this purpose we do not consider access types to qualify -- as fully initialized types (relying on an access type - -- variable being null when it is never set is a bit odd!) + -- variable being null when it is never set is a bit odd). -- Also we generate warning for an out parameter that is -- never referenced, since again it seems odd to rely on @@ -1507,7 +1507,7 @@ package body Sem_Warn is and then Ekind (E1) /= E_Class_Wide_Type -- Objects other than parameters of task types are allowed to - -- be non-referenced, since they start up tasks! + -- be non-referenced, since they start up tasks. and then ((Ekind (E1) /= E_Variable and then Ekind (E1) /= E_Constant @@ -1768,7 +1768,7 @@ package body Sem_Warn is -- allow the reference to appear in a loop, block, or -- package spec that is nested within the declaring scope. -- As always, it is possible to construct cases where the - -- warning is wrong, that is why it is a warning! + -- warning is wrong, that is why it is a warning. Potential_Unset_Reference : declare SR : Entity_Id; @@ -2341,7 +2341,7 @@ package body Sem_Warn is end if; -- If main unit is a renaming of this unit, then we consider - -- the with to be OK (obviously it is needed in this case!) + -- the with to be OK (obviously it is needed in this case). -- This may be transitive: the unit in the with_clause may -- itself be a renaming, in which case both it and the main -- unit rename the same ultimate package. @@ -3004,7 +3004,7 @@ package body Sem_Warn is E : Node_Id renames Wentry.E; begin - -- Turn off Warnings_Off, or we won't get the warning! + -- Turn off Warnings_Off, or we won't get the warning Set_Warnings_Off (E, False); @@ -3632,7 +3632,7 @@ package body Sem_Warn is -- Nothing to do if subscript does not come from source (we don't -- want to give garbage warnings on compiler expanded code, e.g. the -- loops generated for slice assignments. Such junk warnings would - -- be placed on source constructs with no subscript in sight!) + -- be placed on source constructs with no subscript in sight). if not Comes_From_Source (Original_Node (X)) then return; @@ -3730,7 +3730,7 @@ package body Sem_Warn is end if; -- If we have a 'Range reference, then this is a case - -- where we cannot easily give a replacement. Don't try! + -- where we cannot easily give a replacement. Don't try. if Tref (Sref .. Sref + 4) = "range" and then Tref (Sref - 1) < 'A' diff --git a/gcc/ada/set_targ.adb b/gcc/ada/set_targ.adb index 83ba3313483..a4a811d6bdb 100755 --- a/gcc/ada/set_targ.adb +++ b/gcc/ada/set_targ.adb @@ -607,7 +607,7 @@ begin Buffer : String (1 .. 2000); Buflen : Natural; - -- File information and length (2000 easily enough!) + -- File information and length (2000 easily enough) Nam_Buf : String (1 .. 40); Nam_Len : Natural; diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 8bd23356e2d..d46f3150c9f 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -1491,7 +1491,7 @@ package Sinfo is -- that the reference occurs within a discriminant check. The -- significance is that optimizations based on assuming that the -- discriminant check has a correct value cannot be performed in this - -- case (or the discriminant check may be optimized away!) + -- case (or the discriminant check may be optimized away). -- Is_Machine_Number (Flag11-Sem) -- This flag is set in an N_Real_Literal node to indicate that the value @@ -2655,7 +2655,7 @@ package Sinfo is -- appears directly in the tree as an attribute reference. -- Note: the field name for a reference to a range is Range_Expression - -- rather than Range, because range is a reserved keyword in Ada! + -- rather than Range, because range is a reserved keyword in Ada. -- Note: the reason that this node has expression fields is that a -- range can appear as an operand of a membership test. The Etype @@ -4942,7 +4942,7 @@ package Sinfo is ------------------------- -- This is an Ada 2012 extension, we put it here for now, to be labeled - -- and put in its proper section when we know exactly where that is! + -- and put in its proper section when we know exactly where that is. -- EXPRESSION_FUNCTION ::= -- FUNCTION SPECIFICATION IS (EXPRESSION) @@ -4965,7 +4965,7 @@ package Sinfo is -- that it semantically resembles an expression, e.g. overloading is -- allowed and a type is concocted for semantic processing purposes. -- Certain of these fields, such as Parens are not relevant, but it - -- is easier to just supply all of them together! + -- is easier to just supply all of them together. -- N_Procedure_Call_Statement -- Sloc points to first token of name or prefix diff --git a/gcc/ada/sinput-c.adb b/gcc/ada/sinput-c.adb index 83dadaf408c..06c501bef25 100644 --- a/gcc/ada/sinput-c.adb +++ b/gcc/ada/sinput-c.adb @@ -50,7 +50,7 @@ package body Sinput.C is -- indicates failure to open the specified source file. Len : Integer; - -- Length of file. Assume no more than 2 gigabytes of source! + -- Length of file (assume no more than 2 gigabytes of source) Actual_Len : Integer; @@ -147,7 +147,7 @@ package body Sinput.C is end; -- Read is complete, close the file and we are done (no need to test - -- status from close, since we have successfully read the file!) + -- status from close, since we have successfully read the file). Close (Source_File_FD); diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl index 2cf58f558ad..ecbf42cb099 100644 --- a/gcc/ada/snames.ads-tmpl +++ b/gcc/ada/snames.ads-tmpl @@ -52,7 +52,7 @@ package Snames is -- cause a duplicate, then list it only once in this table, and adjust the -- definition of the functions for testing for pragma names and attribute -- names, and returning their ID values. Of course everything is simpler if - -- no such duplications occur! + -- no such duplications occur. -- First we have the one character names used to optimize the lookup -- process for one character identifiers (to avoid the hashing in this diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 9e8362fa223..1f88158ea64 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -2009,7 +2009,7 @@ package body Sprint is Sprint_Node (Condition); Write_Str_With_Col_Check (" then "); - -- Defense against junk here! + -- Defense against junk here if Present (Then_Expr) then Sprint_Node (Then_Expr); @@ -4007,7 +4007,7 @@ package body Sprint is and then Defining_Entity (P) = Typ then -- We must set Itype_Printed true before the recursive call to - -- print the node, otherwise we get an infinite recursion! + -- print the node, otherwise we get an infinite recursion. Set_Itype_Printed (Typ, True); diff --git a/gcc/ada/stand.ads b/gcc/ada/stand.ads index 0f6b876937e..db43c59742d 100644 --- a/gcc/ada/stand.ads +++ b/gcc/ada/stand.ads @@ -153,7 +153,7 @@ package Stand is S_RS, -- 16#1E# S_US, -- 16#1F# - -- Here are the ones for Colonel Whitaker's O26 keypunch! + -- Here are the ones for Colonel Whitaker's O26 keypunch S_Exclam, -- 16#21# S_Quotation, -- 16#22# diff --git a/gcc/ada/system-vms-ia64.ads b/gcc/ada/system-vms-ia64.ads index 2f1c27c9ff1..0b7f9475150 100644 --- a/gcc/ada/system-vms-ia64.ads +++ b/gcc/ada/system-vms-ia64.ads @@ -249,7 +249,7 @@ private ADA_GNAT : constant Boolean := True; pragma Export_Object (ADA_GNAT, "ADA$GNAT"); -- Ubiquitous global symbol identifying a GNAT compiled image to VMS Debug. - -- Do not remove! + -- Do not remove. pragma Ident ("GNAT"); -- Gnat_Static_Version_String -- Default ident for all VMS images. diff --git a/gcc/ada/system-vms_64.ads b/gcc/ada/system-vms_64.ads index b8c57de9991..cc03c165968 100644 --- a/gcc/ada/system-vms_64.ads +++ b/gcc/ada/system-vms_64.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (OpenVMS 64bit GCC_ZCX DEC Threads Version) -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -144,6 +144,7 @@ private Machine_Overflows : constant Boolean := False; Machine_Rounds : constant Boolean := True; OpenVMS : constant Boolean := True; + VAX_Float : constant Boolean := False; Preallocated_Stacks : constant Boolean := False; Signed_Zeros : constant Boolean := True; Stack_Check_Default : constant Boolean := True; @@ -248,7 +249,7 @@ private ADA_GNAT : constant Boolean := True; pragma Export_Object (ADA_GNAT, "ADA$GNAT"); -- Ubiquitous global symbol identifying a GNAT compiled image to VMS Debug. - -- Do not remove! + -- Do not remove. pragma Ident ("GNAT"); -- Gnat_Static_Version_String -- Default ident for all VMS images. diff --git a/gcc/ada/system.ads b/gcc/ada/system.ads index d38a53337ae..7f6f13b1a1e 100644 --- a/gcc/ada/system.ads +++ b/gcc/ada/system.ads @@ -7,7 +7,7 @@ -- S p e c -- -- (Compiler Version) -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -163,7 +163,7 @@ private Use_Ada_Main_Program_Name : constant Boolean := False; ZCX_By_Default : constant Boolean := False; - -- Obsolete entries, to be removed eventually (bootstrap issues!) + -- Obsolete entries, to be removed eventually (bootstrap issues) Front_End_ZCX_Support : constant Boolean := False; High_Integrity_Mode : constant Boolean := False; diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index f14813013b1..0bfc6e3dab3 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -51,7 +51,7 @@ package body Treepr is use Atree.Unchecked_Access; -- This module uses the unchecked access functions in package Atree -- since it does an untyped traversal of the tree (we do not want to - -- count on the structure of the tree being correct in this routine!) + -- count on the structure of the tree being correct in this routine). ---------------------------------- -- Approach Used for Tree Print -- @@ -100,7 +100,7 @@ package body Treepr is -- set proper node numbers in the hash table, and during the printing -- phase to make sure that a given node is not printed more than once. -- (nodes are printed in order during the printing phase, that's the - -- point of numbering them in the first place!) + -- point of numbering them in the first place). Printing_Descendants : Boolean; -- True if descendants are being printed, False if not. In the false case, @@ -1935,7 +1935,7 @@ package body Treepr is -- If we successfully fall through all the above tests (which -- execute a return if the node is not to be visited), we can - -- go ahead and visit the node! + -- go ahead and visit the node. if No_Indent then Visit_Node (Nod, Prefix_Str, Prefix_Char); diff --git a/gcc/ada/types.ads b/gcc/ada/types.ads index 6ab03820fd5..58b343860f7 100644 --- a/gcc/ada/types.ads +++ b/gcc/ada/types.ads @@ -43,7 +43,7 @@ -- Note: the declarations in this package reflect an expectation that the host -- machine has an efficient integer base type with a range at least 32 bits -- 2s-complement. If there are any machines for which this is not a correct --- assumption, a significant number of changes will be required! +-- assumption, a significant number of changes will be required. with System; with Unchecked_Conversion; diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index bc014666224..f418b56ce9e 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1517,7 +1517,7 @@ package body Uintp is -- possible, substituting Int arithmetic instead. See Knuth volume II, -- Algorithm L (page 329). - -- We use the same notation as Knuth (U_Hat standing for the obvious!) + -- We use the same notation as Knuth (U_Hat standing for the obvious) function UI_GCD (Uin, Vin : Uint) return Uint is U, V : Uint; diff --git a/gcc/ada/uname.adb b/gcc/ada/uname.adb index 5f2026f2231..e0a1e724db5 100644 --- a/gcc/ada/uname.adb +++ b/gcc/ada/uname.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -241,7 +241,7 @@ package body Uname is -- Note: it is of course an error to have a defining -- operator symbol at this point, but this is not where - -- the error is signalled, so we handle it nicely here! + -- the error is signalled, so we handle it nicely here. Add_Name (Chars (Node)); diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb index 029789938f1..83bdff6cd5d 100644 --- a/gcc/ada/urealp.adb +++ b/gcc/ada/urealp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -38,7 +38,7 @@ package body Urealp is Ureal_First_Entry : constant Ureal := Ureal'Succ (No_Ureal); -- First subscript allocated in Ureal table (note that we can't just - -- add 1 to No_Ureal, since "+" means something different for Ureals! + -- add 1 to No_Ureal, since "+" means something different for Ureals). type Ureal_Entry is record Num : Uint; diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb index 4f68440fb1d..af8fd7793d8 100644 --- a/gcc/ada/usage.adb +++ b/gcc/ada/usage.adb @@ -122,8 +122,7 @@ begin -- Individual lines for switches. Write_Switch_Char outputs fourteen -- characters, so the remaining message is allowed to be a maximum - -- of 65 characters to be comfortable on an 80 character device. - -- If the Write_Str fits on one line, it is short enough! + -- of 65 characters to be comfortable in an 80 character window. -- Line for -gnata switch diff --git a/gcc/ada/vxaddr2line.adb b/gcc/ada/vxaddr2line.adb index 028de5e5fbf..b65ebc6acd6 100644 --- a/gcc/ada/vxaddr2line.adb +++ b/gcc/ada/vxaddr2line.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2011, AdaCore -- +-- Copyright (C) 2002-2013, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -425,7 +425,7 @@ begin Usage; end if; - -- ??? HARD LIMIT! There should be at most 501 arguments + -- Enforce HARD LIMIT There should be at most 501 arguments. Why 501??? if Argument_Count > 501 then Error ("Too many backtrace frames");