Commit 4d553668 by Robert Dewar Committed by Geert Bosch

* prj-util.adb: Minor reformatting. Fix bad header format.

From-SVN: r46550
parent 3e542a58
2001-10-26 Robert Dewar <dewar@gnat.com> 2001-10-26 Robert Dewar <dewar@gnat.com>
* prj-util.adb: Minor reformatting. Fix bad header format.
2001-10-26 Robert Dewar <dewar@gnat.com>
* sinfo.ads: Define Associated_Node to overlap Entity field. Cleanup. * sinfo.ads: Define Associated_Node to overlap Entity field. Cleanup.
* sinfo.ads: Clarify use of Associated_Node (documentation only). * sinfo.ads: Clarify use of Associated_Node (documentation only).
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- $Revision$ -- -- $Revision$
-- -- -- --
-- Copyright (C) 2001 Free Software Foundation, Inc. -- -- Copyright (C) 2001 Free Software Foundation, Inc. --
-- -- -- --
...@@ -388,6 +388,7 @@ package body Prj.Util is ...@@ -388,6 +388,7 @@ package body Prj.Util is
-- Nothing to do for empty strings -- Nothing to do for empty strings
if S'Length > 0 then if S'Length > 0 then
-- Start on a new line if current line is already longer than -- Start on a new line if current line is already longer than
-- Max_Length. -- Max_Length.
...@@ -399,6 +400,7 @@ package body Prj.Util is ...@@ -399,6 +400,7 @@ package body Prj.Util is
-- cut the remainder in several lines. -- cut the remainder in several lines.
while Positive (Column) + S'Last - First > Max_Length loop while Positive (Column) + S'Last - First > Max_Length loop
-- Try the maximum length possible -- Try the maximum length possible
Last := First + Max_Length - Positive (Column); Last := First + Max_Length - Positive (Column);
...@@ -411,6 +413,7 @@ package body Prj.Util is ...@@ -411,6 +413,7 @@ package body Prj.Util is
-- If we do not find a separator, we output the maximum length -- If we do not find a separator, we output the maximum length
-- possible. -- possible.
if Last < First then if Last < First then
Last := First + Max_Length - Positive (Column); Last := First + Max_Length - Positive (Column);
end if; end if;
...@@ -420,13 +423,11 @@ package body Prj.Util is ...@@ -420,13 +423,11 @@ package body Prj.Util is
-- Set the beginning of the new remainder -- Set the beginning of the new remainder
First := Last + 1; First := Last + 1;
end loop; end loop;
-- What is left goes to the buffer, without EOL -- What is left goes to the buffer, without EOL
Write_Str (S (First .. S'Last)); Write_Str (S (First .. S'Last));
end if; end if;
end Write_Str; end Write_Str;
......
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