diff options
| author | Bob Duff <duff@adacore.com> | 2018-01-11 08:53:36 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-01-11 08:53:36 +0000 |
| commit | 1ceee6a144f29ef39744316174a69e648c6c6582 (patch) | |
| tree | af079060e7c6e65ebc9d7d2bf66faaf04d53fcc7 | |
| parent | e22e7f06331fed25942cd3629e00fc2bfe1a8dc4 (diff) | |
| download | gcc-1ceee6a144f29ef39744316174a69e648c6c6582.zip gcc-1ceee6a144f29ef39744316174a69e648c6c6582.tar.gz gcc-1ceee6a144f29ef39744316174a69e648c6c6582.tar.bz2 | |
[Ada] Minor reformatting
2018-01-11 Bob Duff <duff@adacore.com>
gcc/ada/
* binderr.ads, namet.ads: Minor reformatting.
From-SVN: r256510
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/binderr.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/namet.ads | 2 |
3 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 77f554e..77666f1 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2018-01-11 Bob Duff <duff@adacore.com> + * binderr.ads, namet.ads: Minor reformatting. + +2018-01-11 Bob Duff <duff@adacore.com> + * doc/gnat_ugn/gnat_utility_programs.rst: Improve documentation of xml2gnat. diff --git a/gcc/ada/binderr.ads b/gcc/ada/binderr.ads index a6434a0..eba14a8 100644 --- a/gcc/ada/binderr.ads +++ b/gcc/ada/binderr.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, 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- -- @@ -107,7 +107,7 @@ package Binderr is procedure Error_Msg (Msg : String); -- Output specified error message to standard error or standard output -- as governed by the brief and verbose switches, and update error - -- counts appropriately + -- counts appropriately. procedure Error_Msg_Info (Msg : String); -- Output information line. Indentical in effect to Error_Msg, except diff --git a/gcc/ada/namet.ads b/gcc/ada/namet.ads index b55d336..3f3b9ee 100644 --- a/gcc/ada/namet.ads +++ b/gcc/ada/namet.ads @@ -193,7 +193,7 @@ package Namet is -- The special Name_Id value No_Name is used in the parser to indicate -- a situation where no name is present (e.g. on a loop or block). - Error_Name : constant Name_Id := Names_Low_Bound + 1; + Error_Name : constant Name_Id := Names_Low_Bound + 1; -- The special Name_Id value Error_Name is used in the parser to -- indicate that some kind of error was encountered in scanning out -- the relevant name, so it does not have a representable label. |