Commit 1ceee6a1 by Bob Duff Committed by Pierre-Marie de Rodat

[Ada] Minor reformatting

2018-01-11  Bob Duff  <duff@adacore.com>

gcc/ada/

	* binderr.ads, namet.ads: Minor reformatting.

From-SVN: r256510
parent e22e7f06
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.
......
......@@ -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
......
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment