This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Minor reformatting in prj-util.adb
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Minor reformatting in prj-util.adb
- From: bosch at gnat dot com
- Date: Fri, 26 Oct 2001 12:52:36 -0400 (EDT)
2001-10-26 Robert Dewar <dewar@gnat.com>
* prj-util.adb: Minor reformatting. Fix bad header format.
*** prj-util.adb 2001/09/25 00:41:08 1.8
--- prj-util.adb 2001/09/25 03:16:28 1.9
***************
*** 6,12 ****
-- --
-- B o d y --
-- --
! -- $Revision$ --
-- --
-- Copyright (C) 2001 Free Software Foundation, Inc. --
-- --
--- 6,12 ----
-- --
-- B o d y --
-- --
! -- $Revision$
-- --
-- Copyright (C) 2001 Free Software Foundation, Inc. --
-- --
***************
*** 370,375 ****
--- 370,376 ----
-- Nothing to do for empty strings
if S'Length > 0 then
+
-- Start on a new line if current line is already longer than
-- Max_Length.
***************
*** 381,386 ****
--- 382,388 ----
-- cut the remainder in several lines.
while Positive (Column) + S'Last - First > Max_Length loop
+
-- Try the maximum length possible
Last := First + Max_Length - Positive (Column);
***************
*** 393,398 ****
--- 395,401 ----
-- If we do not find a separator, we output the maximum length
-- possible.
+
if Last < First then
Last := First + Max_Length - Positive (Column);
end if;
***************
*** 402,414 ****
-- Set the beginning of the new remainder
First := Last + 1;
-
end loop;
-- What is left goes to the buffer, without EOL
Write_Str (S (First .. S'Last));
-
end if;
end Write_Str;
--- 405,415 ----