From ae3d5f110d3c81637f619f2396cc4816d391bd29 Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Tue, 29 May 2018 09:38:41 +0000 Subject: [PATCH] [Ada] System.Os_Lib: minor reformatting 2018-05-29 Pascal Obry gcc/ada/ * libgnat/s-os_lib.adb: Minor reformatting. From-SVN: r260871 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/libgnat/s-os_lib.adb | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) 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 + + * libgnat/s-os_lib.adb: Minor reformatting. + 2018-05-29 Doug Rupp * 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); -- 2.30.2