s-os_lib.adb: Minor reformatting

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

	* s-os_lib.adb: Minor reformatting

From-SVN: r138497

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);