diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-01 09:30:14 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-01 09:30:14 +0000 |
| commit | 1f373eb12362759d3fbbbf889887c971bb40fd53 (patch) | |
| tree | da0cdf96c65320b71f856f4ba38f451aa1e438fc /gcc/ada/s-os_lib.adb | |
| parent | ba5cdad699e9794af01f48018cd258cbf15bf59c (diff) | |
| download | gcc-1f373eb12362759d3fbbbf889887c971bb40fd53.tar.gz | |
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
Diffstat (limited to 'gcc/ada/s-os_lib.adb')
| -rwxr-xr-x | gcc/ada/s-os_lib.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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); |