From: Pascal Obry <obry@adacore.com>
Date: Tue, 29 May 2018 09:38:41 +0000 (+0000)
Subject: [Ada] System.Os_Lib: minor reformatting
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ae3d5f110d3c81637f619f2396cc4816d391bd29;p=gcc.git

[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 d5cd8715ea7..18a37dbf44a 100644
--- 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 b82bd3badb3..7e839cc687a 100644
--- 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);