Minor reformatting.

From-SVN: r223544

diff --git a/gcc/ada/prj-util.adb b/gcc/ada/prj-util.adb
index ef500c3219869f8e31d4beaf748cb2cbcaa56e0e..77e26d62f63fa8b512dab1c49e36b343fdd81abb 100644 (file)
--- a/gcc/ada/prj-util.adb
+++ b/gcc/ada/prj-util.adb
@@ -804,9 +804,9 @@ package body Prj.Util is
    -- Relative_Path --
    -------------------
 
-   function Relative_Path (Pathname, To : String) return String is
-
+   function Relative_Path (Pathname : String; To : String) return String is
       function Ensure_Directory (Path : String) return String;
+      --  Function spec must be commented ???
 
       ----------------------
       -- Ensure_Directory --
@@ -824,6 +824,8 @@ package body Prj.Util is
          end if;
       end Ensure_Directory;
 
+      --  Local variables
+
       Dir_Sep_Map : constant Character_Mapping := To_Mapping ("\", "/");
 
       P  : String (1 .. Pathname'Length) := Pathname;
@@ -832,6 +834,8 @@ package body Prj.Util is
       Pi : Natural; -- common prefix ending
       N  : Natural := 0;
 
+   --  Start of processing for Relative_Path
+
    begin
       pragma Assert (Is_Absolute_Path (Pathname));
       pragma Assert (Is_Absolute_Path (To));
@@ -858,6 +862,7 @@ package body Prj.Util is
       --  corresponding number of "..".
 
       N := Count (T (Pi + 1 .. T'Last), "/");
+
       if T (T'Last) /= '/' then
          N := N + 1;
       end if;
@@ -1405,8 +1410,7 @@ package body Prj.Util is
                Last := Last - 1;
             end loop;
 
-            --  If we do not find a separator, we output the maximum length
-            --  possible.
+            --  If we do not find a separator, output maximum length possible
 
             if Last < First then
                Last := First + Max_Length - Positive (Column);

diff --git a/gcc/ada/prj-util.ads b/gcc/ada/prj-util.ads
index b0ffbcc5724ee76b72ac7da065fb2e768edbb464..3cdd0c73aeddb6a0b23f73d9fcd9fcf80ca5b6c8 100644 (file)
--- a/gcc/ada/prj-util.ads
+++ b/gcc/ada/prj-util.ads
@@ -245,7 +245,7 @@ package Prj.Util is
    --  are handled. This routine must be called only when the project has
    --  been built successfully.
 
-   function Relative_Path (Pathname, To : String) return String;
+   function Relative_Path (Pathname : String; To : String) return String;
    --  Returns the relative pathname which corresponds to Pathname when
    --  starting from directory to. Both Pathname and To must be absolute paths.