From: Robert Dewar <dewar@adacore.com>
Date: Fri, 1 Aug 2008 09:30:14 +0000 (+0200)
Subject: s-os_lib.adb: Minor reformatting
X-Git-Tag: releases/gcc-4.4.0~3489
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f7fd2ec3571534931f3298dbcbf913d910904c53;p=thirdparty%2Fgcc.git

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 532fca41d0f5..8edc7c93a9b6 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);