1 files changed, 39 insertions, 40 deletions
diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb
index 38fd69593b1..8c26c63107e 100644
--- a/gcc/ada/g-dirope.adb
+++ b/gcc/ada/g-dirope.adb
@@ -460,6 +460,45 @@ package body GNAT.Directory_Operations is
    end File_Name;
 
    ---------------------
+   -- Format_Pathname --
+   ---------------------
+
+   function Format_Pathname
+     (Path  : Path_Name;
+      Style : Path_Style := System_Default)
+      return  String
+   is
+      N_Path      : String   := Path;
+      K           : Positive := N_Path'First;
+      Prev_Dirsep : Boolean  := False;
+
+   begin
+      for J in Path'Range loop
+
+         if Strings.Maps.Is_In (Path (J), Dir_Seps) then
+            if not Prev_Dirsep then
+               case Style is
+                  when UNIX           => N_Path (K) := '/';
+                  when DOS            => N_Path (K) := '\';
+                  when System_Default => N_Path (K) := Dir_Separator;
+               end case;
+
+               K := K + 1;
+            end if;
+
+            Prev_Dirsep := True;
+
+         else
+            N_Path (K) := Path (J);
+            K := K + 1;
+            Prev_Dirsep := False;
+         end if;
+      end loop;
+
+      return N_Path (N_Path'First .. K - 1);
+   end Format_Pathname;
+
+   ---------------------
    -- Get_Current_Dir --
    ---------------------
 
@@ -522,46 +561,6 @@ package body GNAT.Directory_Operations is
       end if;
    end Make_Dir;
 
-   ------------------------
-   -- Normalize_Pathname --
-   ------------------------
-
-   function Normalize_Pathname
-     (Path  : Path_Name;
-      Style : Path_Style := System_Default)
-      return  String
-   is
-      N_Path      : String := Path;
-      K           : Positive := N_Path'First;
-      Prev_Dirsep : Boolean := False;
-
-   begin
-      for J in Path'Range loop
-
-         if Strings.Maps.Is_In (Path (J), Dir_Seps) then
-            if not Prev_Dirsep then
-
-               case Style is
-                  when UNIX           => N_Path (K) := '/';
-                  when DOS            => N_Path (K) := '\';
-                  when System_Default => N_Path (K) := Dir_Separator;
-               end case;
-
-               K := K + 1;
-            end if;
-
-            Prev_Dirsep := True;
-
-         else
-            N_Path (K) := Path (J);
-            K := K + 1;
-            Prev_Dirsep := False;
-         end if;
-      end loop;
-
-      return N_Path (N_Path'First .. K - 1);
-   end Normalize_Pathname;
-
    ----------
    -- Open --
    ----------