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

From-SVN: r46550

gcc/ada/ChangeLog

 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: Clarify use of Associated_Node (documentation only).

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;