[Ada] System.Os_Lib: minor reformatting

2018-05-29  Pascal Obry  <obry@adacore.com>

gcc/ada/

	* libgnat/s-os_lib.adb: Minor reformatting.

From-SVN: r260871

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d5cd8715ea77868af3ff85a7831506acf66d6feb..18a37dbf44ab7e13b1877f8133d4d2a38d33226f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-29  Pascal Obry  <obry@adacore.com>
+
+       * libgnat/s-os_lib.adb: Minor reformatting.
+
 2018-05-29  Doug Rupp  <rupp@adacore.com>
 
        * libgnat/a-calend.adb (Epoch_Offset): Move from body to ...

diff --git a/gcc/ada/libgnat/s-os_lib.adb b/gcc/ada/libgnat/s-os_lib.adb
index b82bd3badb3ddecdd0d35c07c516e9b1a643ad99..7e839cc687a60d23768ad931e2506239733223b6 100644 (file)
--- a/gcc/ada/libgnat/s-os_lib.adb
+++ b/gcc/ada/libgnat/s-os_lib.adb
@@ -2234,8 +2234,9 @@ package body System.OS_Lib is
       --  the path itself, the current directory if the path is relative,
       --  and additional fragments up to Max_Path in length in case
       --  there are any symlinks.
+
       Start, Finish : Positive;
-      Status : Integer;
+      Status        : Integer;
 
    --  Start of processing for Normalize_Pathname
 
@@ -2263,7 +2264,6 @@ package body System.OS_Lib is
       --    * Remove all double-quotes
 
       if On_Windows then
-
          --  Replace all '/' by '\'
 
          for Index in 1 .. End_Path loop
@@ -2324,7 +2324,6 @@ package body System.OS_Lib is
       --  empty string.
 
       for J in 1 .. Max_Iterations loop
-
          Start  := Last + 1;
          Finish := Last;
 
@@ -2378,6 +2377,7 @@ package body System.OS_Lib is
 
                   return Path_Buffer (1 .. Last - 1);
                end if;
+
             else
                Path_Buffer (Last + 1 .. End_Path - 2) :=
                  Path_Buffer (Last + 3 .. End_Path);