mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-26 16:51:01 +08:00
Code Issues Packages Projects Releases Wiki Activity

s-os_lib.adb: Minor reformatting

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

	* s-os_lib.adb: Minor reformatting

From-SVN: r138497
This commit is contained in:
Robert Dewar 2008-08-01 11:30:14 +02:00 committed by Arnaud Charlet
parent 692a07bf57
commit f7fd2ec357
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/s-os_lib.adb
View File

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