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

From-SVN: r46550

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 2dc1a14b8d66c1ba7cc3cdaf4602c82c9f941e19..1a37c602766de883bc28696f3cdf7675f2816bf6 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb
index 5a0f5a1293b104adf8488ca0b3d1e6bee6874d38..79ba520f0a9270dde856b820c4dbfe59adf7f185 100644 (file)
--- a/gcc/ada/prj-util.adb
+++ b/gcc/ada/prj-util.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision$                              --
+--                            $Revision$
 --                                                                          --
 --             Copyright (C) 2001 Free Software Foundation, Inc.            --
 --                                                                          --
@@ -388,6 +388,7 @@ package body Prj.Util is
       --  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.
 
@@ -399,6 +400,7 @@ package body Prj.Util is
          --  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);
@@ -411,6 +413,7 @@ package body Prj.Util is
 
             --  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;
@@ -420,13 +423,11 @@ package body Prj.Util is
             --  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;