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

	* s-os_lib.adb: Minor reformatting

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138497 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/s-os_lib.adb b/gcc/ada/s-os_lib.adb
index 532fca4..8edc7c9 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);