From f7fd2ec3571534931f3298dbcbf913d910904c53 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 1 Aug 2008 11:30:14 +0200 Subject: [PATCH] s-os_lib.adb: Minor reformatting 2008-08-01 Robert Dewar * s-os_lib.adb: Minor reformatting From-SVN: r138497 --- gcc/ada/s-os_lib.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb index 532fca41d0f..8edc7c93a9b 100755 --- a/gcc/ada/s-os_lib.adb +++ b/gcc/ada/s-os_lib.adb @@ -1926,8 +1926,10 @@ package body System.OS_Lib is if On_Windows then declare - Index : Natural := Path_Buffer'First; + Index : Natural; + begin + Index := Path_Buffer'First; for Current in Path_Buffer'First .. End_Path loop if Path_Buffer (Current) /= '"' then Path_Buffer (Index) := Path_Buffer (Current); -- 2.30.2