s-os_lib.adb: Minor reformatting

2008-08-01  Robert Dewar  <dewar@adacore.com>

	* s-os_lib.adb: Minor reformatting

From-SVN: r138497

diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb
index 532fca41d0f5cdf6bfd7e2b19283657e73a83d87..8edc7c93a9b64f3f762c4ec6acd3bd9b27e40e6b 100755 (executable)
--- 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);